From e321dfe483a11f4fde33967cab88aa99ce9055f8 Mon Sep 17 00:00:00 2001
From: hpassini <hpassini>
Date: Thu, 14 Jun 2007 15:37:50 +0000
Subject: [PATCH] bug fixing : variable name CGICatCode instead of CGIcatCode

---
 reports/borrowers_stats.pl | 25 +++++++++++++------------
 1 file changed, 13 insertions(+), 12 deletions(-)

diff --git a/reports/borrowers_stats.pl b/reports/borrowers_stats.pl
index b159780eef..ce7782a091 100755
--- a/reports/borrowers_stats.pl
+++ b/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,
-- 
2.39.5