[Koha-cvs] koha/C4 Auth.pm Koha.pm
Antoine Farnault
antoine at koha-fr.org
Fri Jul 21 12:15:25 CEST 2006
CVSROOT: /sources/koha
Module name: koha
Changes by: Antoine Farnault <toins> 06/07/21 10:15:25
Modified files:
C4 : Auth.pm Koha.pm
Log message:
subs renamed according to coding guidelines.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Auth.pm?cvsroot=koha&r1=1.53&r2=1.54
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Koha.pm?cvsroot=koha&r1=1.38&r2=1.39
Patches:
Index: Auth.pm
===================================================================
RCS file: /sources/koha/koha/C4/Auth.pm,v
retrieving revision 1.53
retrieving revision 1.54
diff -u -b -r1.53 -r1.54
--- Auth.pm 4 Jul 2006 14:36:51 -0000 1.53
+++ Auth.pm 21 Jul 2006 10:15:25 -0000 1.54
@@ -490,7 +490,7 @@
# new op dev :
# launch a sequence to check if we have a ip for the branch, if we have one we replace the branchcode of the userenv by the branch bound in the ip.
my $ip = $ENV{'REMOTE_ADDR'};
- my $branches = getbranches('IS');
+ my $branches = GetBranches('IS');
my @branchesloop;
my $branchprinter;
foreach my $br ( keys %$branches ) {
Index: Koha.pm
===================================================================
RCS file: /sources/koha/koha/C4/Koha.pm,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -b -r1.38 -r1.39
--- Koha.pm 12 Jul 2006 07:45:39 -0000 1.38
+++ Koha.pm 21 Jul 2006 10:15:25 -0000 1.39
@@ -17,7 +17,7 @@
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id: Koha.pm,v 1.38 2006/07/12 07:45:39 toins Exp $
+# $Id: Koha.pm,v 1.39 2006/07/21 10:15:25 toins Exp $
use strict;
require Exporter;
@@ -25,7 +25,7 @@
use vars qw($VERSION @ISA @EXPORT);
-$VERSION = do { my @v = '$Revision: 1.38 $' =~ /\d+/g; shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
+$VERSION = do { my @v = '$Revision: 1.39 $' =~ /\d+/g; shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
=head1 NAME
@@ -49,7 +49,7 @@
@ISA = qw(Exporter);
@EXPORT = qw(
&subfield_is_koha_internal_p
- &getbranches &getbranch &getbranchdetail
+ &GetBranches &getbranch &getbranchdetail
&getprinters &getprinter
&GetItemTypes &getitemtypeinfo
get_itemtypeinfos_of
@@ -84,9 +84,9 @@
return length $subfield != 1;
}
-=head2 getbranches
+=head2 GetBranches
- $branches = &getbranches();
+ $branches = &GetBranches();
returns informations about branches.
Create a branch selector with the following code
Is branchIndependant sensitive
@@ -94,7 +94,7 @@
=head3 in PERL SCRIPT
-my $branches = getbranches;
+my $branches = GetBranches;
my @branchloop;
foreach my $thisbranch (sort keys %$branches) {
my $selected = 1 if $thisbranch eq $branch;
@@ -116,7 +116,7 @@
=cut
-sub getbranches {
+sub GetBranches {
# returns a reference to a hash of references to branches...
my ($type) = @_;
my %branches;
More information about the Koha-cvs
mailing list