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

[..hidden..]

Revision: 2513
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2513&view=rev
Author:   einhverfr
Date:     2009-03-18 22:38:51 +0000 (Wed, 18 Mar 2009)

Log Message:
-----------
Corrects improper save behavior

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

Modified: trunk/scripts/recon.pl
===================================================================
--- trunk/scripts/recon.pl	2009-03-18 22:14:54 UTC (rev 2512)
+++ trunk/scripts/recon.pl	2009-03-18 22:38:51 UTC (rev 2513)
@@ -41,15 +41,8 @@
 
 sub display_report {
     my ($request) = @_;
-    my $recon = LedgerSMB::Employee->new(base => $request, copy => 'all'); 
-    my $template = LedgerSMB::Template->new( user=>$user, 
-        template => "reconciliation/report", language => $user->{language},
-            format=>'HTML',
-            path=>"UI"
-        );
-    my $report = $recon->get_report();
-    my $total = $recon->get_total();
-    $template->render({report=>$report, total=>$total, recon=>$recon});
+    my $recon = LedgerSMB::DBObject::Reconciliation->new(base => $request, copy => 'all'); 
+    _display_report($recon);
 }
 
 =pod
@@ -83,7 +76,6 @@
 		column  => $recon->{line_order}}
        );
     }
-    $recon->save();
     $recon->update();
     _display_report($recon);
 }
@@ -139,7 +131,7 @@
         for my $row (@results){
             $row->{account} = $act_hash->{"$row->{chart_id}"};
         }
-        my $base_url = "recon.pl?action=update_recon_set";
+        my $base_url = "recon.pl?action=display_report";
         my $search_url = "recon.pl?action=get_results".
             "&date_from=$search->{date_from}&date_to=$search->{date_to}".
              "&amount_from=$search->{amount_from}&".


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