SF.net SVN: ledger-smb:[3019] trunk/scripts/vouchers.pl

[..hidden..]

Revision: 3019
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3019&view=rev
Author:   einhverfr
Date:     2010-06-28 20:52:18 +0000 (Mon, 28 Jun 2010)

Log Message:
-----------
Fixing database commit issues with anti-xsrf controls

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

Modified: trunk/scripts/vouchers.pl
===================================================================
--- trunk/scripts/vouchers.pl	2010-06-28 20:24:30 UTC (rev 3018)
+++ trunk/scripts/vouchers.pl	2010-06-28 20:52:18 UTC (rev 3019)
@@ -181,6 +181,7 @@
     my $batch = LedgerSMB::Batch->new(base => $request);
     $batch->close_form;
     $batch->open_form;
+    $batch->{dbh}->commit;
     if ($batch->{order_by}){
         $batch->set_ordering(
 		{method => $batch->get_search_method({custom_types => $custom_batch_types}), 
@@ -308,6 +309,7 @@
     my $batch = LedgerSMB::Batch->new(base => $request);
     $batch->close_form;
     $batch->open_form;
+    $batch->{dbh}->commit;
     $batch->{script} = 'vouchers.pl';
     my $rows = [];
 


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