[Koha-cvs] koha/C4 Auth.pm Koha.pm

[Antoine Farnault]

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;