From c136f56045c82709914dada592b8b23d1f57ec51 Mon Sep 17 00:00:00 2001 From: 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