- # Localise $a, $b
- my ($caller_a, $caller_b) = do
- {
- my $pkg = caller();
- no strict 'refs';
- \*{$pkg.'::a'}, \*{$pkg.'::b'};
- };
-
- my $limit = $#A > $#B? $#A : $#B; # loop iteration limit
-
- local(*$caller_a, *$caller_b);
-
- # This map expression is also the return value.
- map { my $b_index = $_;
- map { my $a_index = $_;
- # assign to $a, $b as refs to caller's array elements
- (*$caller_a, *$caller_b) = \($A[$a_index], $B[$b_index]);
- $op->(); # perform the transformation
- } 0 .. $#A;
- } 0 .. $#B;
+# Functions to call add routines beneath different reports
+
+sub sales_invoice {
+ $main::lxdebug->enter_sub();
+
+ $main::auth->assert('invoice_edit');
+
+ my $form = $main::form;
+ my %myconfig = %main::myconfig;
+ my $locale = $main::locale;
+
+ $form->{script} = 'is.pl';
+ my $script = "is";
+ $form->{type} = "invoice";
+ $locale = new Locale "$myconfig{countrycode}", "$script";
+
+ require "bin/mozilla/$form->{script}";
+ &add;
+
+ $main::lxdebug->leave_sub();
+}
+
+sub ar_transaction {
+ $main::lxdebug->enter_sub();
+
+ $main::auth->assert('general_ledger');
+
+ my $form = $main::form;
+ my %myconfig = %main::myconfig;
+ my $locale = $main::locale;
+
+ $form->{script} = 'ar.pl';
+ my $script = "ar";
+ $locale = new Locale "$myconfig{countrycode}", "$script";
+
+ require "bin/mozilla/$form->{script}";
+ &add;
+
+ $main::lxdebug->leave_sub();
+}
+
+sub vendor_invoice {
+ $main::lxdebug->enter_sub();
+
+ $main::auth->assert('invoice_edit');
+
+ my $form = $main::form;
+ my %myconfig = %main::myconfig;
+ my $locale = $main::locale;
+
+ $form->{script} = 'ir.pl';
+ my $script = "ir";
+ $form->{type} = "invoice";
+ $locale = new Locale "$myconfig{countrycode}", "$script";
+
+ require "bin/mozilla/$form->{script}";
+ &add;
+
+ $main::lxdebug->leave_sub();
+}
+
+sub ap_transaction {
+ $main::lxdebug->enter_sub();
+
+ $main::auth->assert('general_ledger');
+
+ my $form = $main::form;
+ my %myconfig = %main::myconfig;
+ my $locale = $main::locale;
+
+ $form->{script} = 'ap.pl';
+ my $script = "ap";
+ $locale = new Locale "$myconfig{countrycode}", "$script";
+
+ require "bin/mozilla/$form->{script}";
+ &add;
+
+ $main::lxdebug->leave_sub();
+}
+
+sub gl_transaction {
+ $main::lxdebug->enter_sub();
+
+ $main::auth->assert('general_ledger');
+
+ my $form = $main::form;
+ my %myconfig = %main::myconfig;
+ my $locale = $main::locale;
+
+ $form->{script} = 'gl.pl';
+ my $script = "gl";
+ $locale = new Locale "$myconfig{countrycode}", "$script";
+
+ require "bin/mozilla/$form->{script}";
+ &add;
+
+ $main::lxdebug->leave_sub();