From c136f56045c82709914dada592b8b23d1f57ec51 Mon Sep 17 00:00:00 2001
From: toins <toins>
Date: Fri, 21 Jul 2006 13:57:02 +0000
Subject: [PATCH] subs renamed according to coding guidelines.

---
 C4/Circulation/Circ2.pm | 14 +++++++-------
 admin/issuingrules.pl   |  2 +-
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/C4/Circulation/Circ2.pm b/C4/Circulation/Circ2.pm
index 965422a313..3d1ba9529d 100755
--- a/C4/Circulation/Circ2.pm
+++ b/C4/Circulation/Circ2.pm
@@ -91,7 +91,7 @@ Also deals with stocktaking.
 		&getBranchIp
 		&dotranfer
         );
-# &getbranches &getprinters &getbranch &getprinter => moved to C4::Koha.pm
+# &GetBranches &getprinters &getbranch &getprinter => moved to C4::Koha.pm
 
 =head2 itemseen
 
@@ -483,7 +483,7 @@ sub transferbook {
 	my $messages;
 	my %env;
 	my $dotransfer = 1;
-	my $branches = getbranches();
+	my $branches = GetBranches();
 	my $iteminformation = getiteminformation(\%env, 0, $barcode);
 	# bad barcode..
 	if (not $iteminformation) {
@@ -886,14 +886,14 @@ sub canbookbeissued {
 			# The item is on reserve and waiting, but has been
 			# reserved by some other patron.
 			my ($resborrower, $flags)=getpatroninformation($env, $resbor,0);
-			my $branches = getbranches();
+			my $branches = GetBranches();
 			my $branchname = $branches->{$res->{'branchcode'}}->{'branchname'};
 			$needsconfirmation{RESERVE_WAITING} = "$resborrower->{'firstname'} $resborrower->{'surname'} ($resborrower->{'cardnumber'}, $branchname)";
 			# CancelReserve(0, $res->{'itemnumber'}, $res->{'borrowernumber'}); Doesn't belong in a checking subroutine.
 		} elsif ($restype eq "Reserved") {
 			# The item is on reserve for someone else.
 			my ($resborrower, $flags)=getpatroninformation($env, $resbor,0);
-			my $branches = getbranches();
+			my $branches = GetBranches();
 			my $branchname = $branches->{$res->{'branchcode'}}->{'branchname'};
 			$needsconfirmation{RESERVED} = "$res->{'reservedate'} : $resborrower->{'firstname'} $resborrower->{'surname'} ($resborrower->{'cardnumber'})";
 		}
@@ -971,7 +971,7 @@ sub issuebook {
 				# The item is on reserve and waiting, but has been
 				# reserved by some other patron.
 				my ($resborrower, $flags)=getpatroninformation($env, $resbor,0);
-				my $branches = getbranches();
+				my $branches = GetBranches();
 				my $branchname = $branches->{$res->{'branchcode'}}->{'branchname'};
                                 if ($cancelreserve){
     				    CancelReserve(0, $res->{'itemnumber'}, $res->{'borrowernumber'});
@@ -983,7 +983,7 @@ sub issuebook {
 # 				warn "Reserved";
 				# The item is on reserve for someone else.
 				my ($resborrower, $flags)=getpatroninformation($env, $resbor,0);
-				my $branches = getbranches();
+				my $branches = GetBranches();
 				my $branchname = $branches->{$res->{'branchcode'}}->{'branchname'};
 				if ($cancelreserve) {
 					# cancel reserves on this item
@@ -1166,7 +1166,7 @@ sub returnbook {
 	}
 	# check if the book is in a permanent collection....
 	my $hbr = $iteminformation->{'homebranch'};
-	my $branches = getbranches();
+	my $branches = GetBranches();
 	if ($hbr && $branches->{$hbr}->{'PE'}) {
 		$messages->{'IsPermanent'} = $hbr;
 	}
diff --git a/admin/issuingrules.pl b/admin/issuingrules.pl
index d8d7eaf3c7..5c98718275 100755
--- a/admin/issuingrules.pl
+++ b/admin/issuingrules.pl
@@ -100,7 +100,7 @@ if ($op eq 'save') {
 	}
 
 }
-my $branches = getbranches;
+my $branches = GetBranches;
 my @branchloop;
 foreach my $thisbranch (keys %$branches) {
 	my $selected = 1 if $thisbranch eq $branch;
-- 
2.39.5