[Koha-cvs] koha/reports borrowers_stats.pl

[passini]

CVSROOT:	/cvsroot/koha
Module name:	koha
Changes by:	passini <hpassini>	07/06/14 15:37:51

Modified files:
	reports        : borrowers_stats.pl 

Log message:
	bug fixing : variable name CGICatCode instead of CGIcatCode

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/reports/borrowers_stats.pl?cvsroot=koha&r1=1.14&r2=1.15

Patches:
Index: borrowers_stats.pl
===================================================================
RCS file: /cvsroot/koha/koha/reports/borrowers_stats.pl,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -b -r1.14 -r1.15
--- borrowers_stats.pl	24 Apr 2007 13:54:29 -0000	1.14
+++ borrowers_stats.pl	14 Jun 2007 15:37:50 -0000	1.15
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: borrowers_stats.pl,v 1.14 2007/04/24 13:54:29 hdl Exp $
+# $Id: borrowers_stats.pl,v 1.15 2007/06/14 15:37:50 hpassini Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -109,10 +109,10 @@
 	my %select_catcode;
 	my @select_catcode;
 	push @select_catcode,"";
-	$select_catcode{""} = "";
+	$select_catcode{""} ="";
 	while (my ($catcode, $description) =$req->fetchrow) {
 		push @select_catcode, $catcode;
-		$select_catcode{$catcode} = $description
+ 		$select_catcode{$catcode} = $description;
 	}
 	my $CGICatCode=CGI::scrolling_list( -name     => 'Filter',
 				-id => 'Filter',
@@ -121,6 +121,7 @@
 				-size     => 1,
 				-multiple => 0 );
 	
+	
 my $branches = GetBranches;
 my @branchloop;
 foreach my $thisbranch (keys %$branches) {
@@ -185,7 +186,7 @@
 				-values   => \@dels,
 				-size     => 1,
 				-multiple => 0 );
-	$template->param(CGICatcode => $CGICatCode,
+	$template->param(		CGICatCode => $CGICatCode,
 					CGISort1 => $CGIsort1,
 					hassort1 => $hassort1,
 					CGISort2 => $CGIsort2,