scripts/vouchers.pl



#!/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;