[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   => address@hidden,
                                -size     => 1,
                                -multiple => 0 );
-       $template->param(CGICatcode => $CGICatCode,
+       $template->param(               CGICatCode => $CGICatCode,
                                        CGISort1 => $CGIsort1,
                                        hassort1 => $hassort1,
                                        CGISort2 => $CGIsort2,