SF.net SVN: ledger-smb:[2517] trunk/scripts/recon.pl

[..hidden..]

Revision: 2517
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2517&view=rev
Author:   einhverfr
Date:     2009-03-19 18:22:10 +0000 (Thu, 19 Mar 2009)

Log Message:
-----------
Recon fixes:  Cannot unclear cleared item, subtotals messed up prior to update

Modified Paths:
--------------
    trunk/scripts/recon.pl

Modified: trunk/scripts/recon.pl
===================================================================
--- trunk/scripts/recon.pl	2009-03-19 00:03:41 UTC (rev 2516)
+++ trunk/scripts/recon.pl	2009-03-19 18:22:10 UTC (rev 2517)
@@ -76,6 +76,7 @@
 		column  => $recon->{line_order}}
        );
     }
+    $recon->save();
     $recon->update();
     _display_report($recon);
 }
@@ -381,7 +382,7 @@
 
             if ($l->{our_balance} != 0 and 
                 $l->{our_balance} == $l->{their_balance} or
-                defined $recon->{"cleared_$l->{id}"}
+                defined $recon->{"cleared_$l->{id}"} or $l->{cleared}
             ){
                  $recon->{total_cleared_credits}->badd($l->{our_credits});
                  $recon->{total_cleared_debits}->badd($l->{our_debits});


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