SF.net SVN: ledger-smb:[2978] trunk/scripts

[..hidden..]

Revision: 2978
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2978&view=rev
Author:   einhverfr
Date:     2010-03-24 19:06:31 +0000 (Wed, 24 Mar 2010)

Log Message:
-----------
2 drafts approaval bugs fixed, one vouchers approval issue resolved

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

Modified: trunk/scripts/drafts.pl
===================================================================
--- trunk/scripts/drafts.pl	2010-03-22 20:34:06 UTC (rev 2977)
+++ trunk/scripts/drafts.pl	2010-03-24 19:06:31 UTC (rev 2978)
@@ -57,9 +57,10 @@
 
 sub list_drafts {
     my ($request) = @_;
+    $request->{action} = 'list_drafts';
     my $draft= LedgerSMB::DBObject::Draft->new(base => $request);
     $draft->close_form;
-    $draft->open_form;
+    $draft->open_form({commit => 1});
     my $callback = 'drafts.pl?action=list_drafts';
     for (qw(type reference amount_gy amount_lt)){
         if (defined $draft->{$_}){

Modified: trunk/scripts/vouchers.pl
===================================================================
--- trunk/scripts/vouchers.pl	2010-03-22 20:34:06 UTC (rev 2977)
+++ trunk/scripts/vouchers.pl	2010-03-24 19:06:31 UTC (rev 2978)
@@ -169,6 +169,7 @@
 
 sub list_batches {
     my ($request) = @_;
+    $request->{action} = 'list_batches';
     my $batch = LedgerSMB::Batch->new(base => $request);
     $batch->close_form;
     $batch->open_form;
@@ -300,6 +301,7 @@
 
 sub get_batch {
     my ($request)  = @_;
+    $request->{action} = 'get_batch';
     my $batch = LedgerSMB::Batch->new(base => $request);
     $batch->close_form;
     $batch->open_form;


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