| . $locale->text('Department') . qq| |
|
@@ -164,13 +177,14 @@ sub report {
}
my $projectnumber =
- NTI($cgi->popup_menu('-name' => "project_id",
- '-values' => \@project_values,
- '-labels' => \%project_labels));
+ NTI($main::cgi->popup_menu('-name' => "project_id",
+ '-values' => \@project_values,
+ '-labels' => \%project_labels));
# use JavaScript Calendar or not
$form->{jsscript} = 1;
- $jsscript = "";
+ my $jsscript = "";
+ my ( $name_1, $id_1, $value_1, $trigger_1, $name_2, $id_2, $value_2, $trigger_2, );
if ($form->{report} eq "balance_sheet") {
$name_1 = "asofdate";
$id_1 = "asofdate";
@@ -210,6 +224,9 @@ sub report {
$trigger_2 = "trigger2";
}
+ my ($button1, $button1_2, $button2, $button2_2);
+ my $checked;
+
# with JavaScript Calendar
if ($form->{jsscript}) {
if ($name_1 eq "") {
@@ -239,7 +256,7 @@ sub report {
}
$form->{javascript} .= qq||;
$form->header;
- $onload = qq|focus()|;
+ my $onload = qq|focus()|;
$onload .= qq|;setupDateFormat('|. $myconfig{dateformat} .qq|', '|. $locale->text("Falsches Datumsformat!") .qq|')|;
$onload .= qq|;setupPoints('|. $myconfig{numberformat} .qq|', '|. $locale->text("wrongformat") .qq|')|;
print qq|
@@ -626,7 +643,7 @@ $jsscript
|;
$checked = "checked";
- foreach $ref (@{ $form->{taxaccounts} }) {
+ foreach my $ref (@{ $form->{taxaccounts} }) {
print
qq|{accno} $checked> $ref->{description}
@@ -760,6 +777,7 @@ $jsscript
}
+ my ($label, $nextsub, $vc);
if (($form->{report} eq "ar_aging") || ($form->{report} eq "ap_aging")) {
if ($form->{report} eq 'ar_aging') {
$label = $locale->text('Customer');
@@ -810,13 +828,14 @@ $jsscript
# above action can be removed if there is more than one input field
+ my ($selection, $paymentaccounts);
if ($form->{report} =~ /(receipts|payments)$/) {
$form->{db} = ($form->{report} =~ /payments$/) ? "ap" : "ar";
RP->paymentaccounts(\%myconfig, \%$form);
$selection = "