Browse Source

bug fixing : variable name CGICatCode instead of CGIcatCode

3.0.x
hpassini 15 years ago
parent
commit
e321dfe483
  1. 25
      reports/borrowers_stats.pl

25
reports/borrowers_stats.pl

@ -109,17 +109,18 @@ if ($do_it) {
my %select_catcode;
my @select_catcode;
push @select_catcode,"";
$select_catcode{""} = "";
while (my ($catcode, $description) =$req->fetchrow) {
push @select_catcode, $catcode;
$select_catcode{$catcode} = $description
}
my $CGICatCode=CGI::scrolling_list( -name => 'Filter',
-id => 'Filter',
-values => \@select_catcode,
-labels => \%select_catcode,
-size => 1,
-multiple => 0 );
$select_catcode{""} ="";
while (my ($catcode, $description) =$req->fetchrow) {
push @select_catcode, $catcode;
$select_catcode{$catcode} = $description;
}
my $CGICatCode=CGI::scrolling_list( -name => 'Filter',
-id => 'Filter',
-values => \@select_catcode,
-labels => \%select_catcode,
-size => 1,
-multiple => 0 );
my $branches = GetBranches;
my @branchloop;
@ -185,7 +186,7 @@ foreach my $thisbranch (keys %$branches) {
-values => \@dels,
-size => 1,
-multiple => 0 );
$template->param(CGICatcode => $CGICatCode,
$template->param( CGICatCode => $CGICatCode,
CGISort1 => $CGIsort1,
hassort1 => $hassort1,
CGISort2 => $CGIsort2,

Loading…
Cancel
Save