SF.net SVN: ledger-smb:[2849] addons/1.3/assets/trunk/LedgerSMB/DBObject/ Asset_Report.pm

[..hidden..]

Revision: 2849
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2849&view=rev
Author:   einhverfr
Date:     2010-01-27 05:57:21 +0000 (Wed, 27 Jan 2010)

Log Message:
-----------
Asset fixes

Modified Paths:
--------------
    addons/1.3/assets/trunk/LedgerSMB/DBObject/Asset_Report.pm

Modified: addons/1.3/assets/trunk/LedgerSMB/DBObject/Asset_Report.pm
===================================================================
--- addons/1.3/assets/trunk/LedgerSMB/DBObject/Asset_Report.pm	2010-01-27 05:51:39 UTC (rev 2848)
+++ addons/1.3/assets/trunk/LedgerSMB/DBObject/Asset_Report.pm	2010-01-27 05:57:21 UTC (rev 2849)
@@ -24,11 +24,11 @@
         $self->exec_method(funcname => $dep->{sproc});
     } else {
        my ($ref) = $self->exec_method(funcname => 'asset_report__begin_disposal');
-       for my $i (1 .. $self->{rowcount}){
-           if ($self->{"asset_$i"} = 1){
-              my $id = $self->{"asset_id_$i"};
+       for my $i (0 .. $self->{rowcount}){
+           if ($self->{"asset_$i"} == 1){
+              my $id = $self->{"id_$i"};
               $self->call_procedure(procname => 'asset_report__dispose',
-                               args => [$self->{report_id}, 
+                               args => [$ref->{id}, 
                                         $id, 
                                         $self->{"amount_$id"}]);
           }


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.