1 files changed, 56 insertions, 0 deletions
diff --git a/scripts/vouchers.pl b/scripts/vouchers.pl
new file mode 100644
index 00000000..34305139
--- /dev/null
+++ b/scripts/vouchers.pl
@@ -0,0 +1,56 @@
+#!/usr/bin/perl
+
+# This file is copyright (C) 2007the LedgerSMB core team and licensed under 
+# the GNU General Public License.  For more information please see the included
+# LICENSE and COPYRIGHT files
+
+package LedgerSMB::Scripts::vouchers;
+our $VERSION = '0.1';
+
+$menufile = "menu.ini";
+use LedgerSMB::Batch;
+use LedgerSMB::Voucher;
+use LedgerSMB::Template;
+use strict;
+
+sub create_batch {
+    my ($request) = @_;
+    $request->{hidden} = [
+        batch_type => $request->{batch_type},
+    ];
+    my $template = LedgerSMB::Template->new(
+        user =>$request->{_user}, 
+        locale => $request->{_locale},
+        path => 'UI',
+        template => 'create_batch',
+        format => 'HTML'
+    );
+    $template->render($request);
+}
+
+sub create_vouchers {
+    #  This function is not safe for caching as long as the scripts are in bin.
+    #  This is because these scripts import all functions into the *current*
+    #  namespace.  People using fastcgi and modperl should *not* cache this 
+    #  module at the moment. -- CT
+    my %vouchers_dispatch = (
+        payable    => {script => 'bin/ap.pl', function => sub {add()}},
+        receivable => {script => 'bin/ar.pl', function => sub {add()}},
+        payments   => {script => 'bin/cp.pl', function => sub {payments()}},
+        receipts   => {script => 'bin/cp.pl', function => sub {receipts()}},
+        gl         => {script => 'bin/gl.pl'. function => sub {add()}},
+    )
+    require $vouchers_dispatch{$request->{batch_type}}{script}
+    $vouchers_dispatch{$request->{batch_type}}{function}();
+}
+
+sub list_vouchers {
+}
+
+sub approve_batch {
+}
+
+sub delete_batch {
+}
+
+1;