[Koha-cvs] koha/reports bor_issues_top.pl cat_issues_top.pl [rel_3_0]

[Bruno Toumi]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_3_0
Changes by:	Bruno Toumi <btoumi>	06/08/31 10:09:25

Modified files:
	reports        : bor_issues_top.pl cat_issues_top.pl 

Log message:
	bug fix : modify function name 
	getalllbranches => GetBranches

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/reports/bor_issues_top.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.8&r2=1.8.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/reports/cat_issues_top.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.10&r2=1.10.2.1

Patches:
Index: bor_issues_top.pl
===================================================================
RCS file: /sources/koha/koha/reports/bor_issues_top.pl,v
retrieving revision 1.8
retrieving revision 1.8.2.1
diff -u -b -r1.8 -r1.8.2.1
--- bor_issues_top.pl	12 Jul 2006 17:21:41 -0000	1.8
+++ bor_issues_top.pl	31 Aug 2006 10:09:25 -0000	1.8.2.1
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: bor_issues_top.pl,v 1.8 2006/07/12 17:21:41 toins Exp $
+# $Id: bor_issues_top.pl,v 1.8.2.1 2006/08/31 10:09:25 btoumi Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -138,7 +138,7 @@
 				-size     => 1,
 				-multiple => 0 );
 	#branch
-	my $branches = getallbranches;
+	my $branches = GetBranches;
 	my @branchloop;
 	foreach my $thisbranch (keys %$branches) {
 # 			my $selected = 1 if $thisbranch eq $branch;

Index: cat_issues_top.pl
===================================================================
RCS file: /sources/koha/koha/reports/cat_issues_top.pl,v
retrieving revision 1.10
retrieving revision 1.10.2.1
diff -u -b -r1.10 -r1.10.2.1
--- cat_issues_top.pl	12 Jul 2006 17:22:37 -0000	1.10
+++ cat_issues_top.pl	31 Aug 2006 10:09:25 -0000	1.10.2.1
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: cat_issues_top.pl,v 1.10 2006/07/12 17:22:37 toins Exp $
+# $Id: cat_issues_top.pl,v 1.10.2.1 2006/08/31 10:09:25 btoumi Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -139,7 +139,7 @@
 				-size     => 1,
 				-multiple => 0 );
 	#branch
-	my $branches = getallbranches;
+	my $branches = GetBranches;
 	my @branchloop;
 	foreach my $thisbranch (keys %$branches) {
 # 			my $selected = 1 if $thisbranch eq $branch;