Altering payment batch creation to allow for adding payments to existing batches

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2175 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 5 insertions, 1 deletions

diff --git a/scripts/vouchers.pl b/scripts/vouchers.pl
index 321c0303..152e43e7 100644
--- a/scripts/vouchers.pl
+++ b/scripts/vouchers.pl
@@ -20,6 +20,10 @@ sub create_batch {
     $request->{hidden} = [
         {name => "batch_type", value => $request->{batch_type}},
     ];
+
+    my $batch = LedgerSMB::Batch->new({base => $request});
+    $batch->get_search_results;
+
     my $template = LedgerSMB::Template->new(
         user =>$request->{_user}, 
         locale => $request->{_locale},
@@ -27,7 +31,7 @@ sub create_batch {
         template => 'create_batch',
         format => 'HTML'
     );
-    $template->render($request);
+    $template->render($batch);
 }
 
 sub create_vouchers {