[Koha-cvs] koha/C4 Biblio.pm

[Antoine Farnault]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     Antoine Farnault <toins>        06/07/27 13:46:31

Modified files:
        C4             : Biblio.pm 

Log message:
        1 Sub renamed.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Biblio.pm?cvsroot=koha&r1=1.174&r2=1.175

Patches:
Index: Biblio.pm
===================================================================
RCS file: /sources/koha/koha/C4/Biblio.pm,v
retrieving revision 1.174
retrieving revision 1.175
diff -u -b -r1.174 -r1.175
--- Biblio.pm   12 Jul 2006 13:43:42 -0000      1.174
+++ Biblio.pm   27 Jul 2006 13:46:30 -0000      1.175
@@ -33,7 +33,7 @@
 use vars qw($VERSION @ISA @EXPORT);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.174 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.175 $' =~ /\d+/g;
                 shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
 
 @ISA = qw(Exporter);
@@ -55,7 +55,7 @@
   &barcodes &ItemInfo &itemdata &itemissues &itemcount 
   &getsubject &getaddauthor &getsubtitle
   &getwebbiblioitems &getwebsites
-  &getbiblioitembybiblionumber
+  &GetBiblioItemByBiblioNumber
   &getbibliofromitemnumber     
   &getbiblioitem &getitemsbybiblioitem
 
@@ -2323,9 +2323,9 @@
     return ( $count, @results );
 }    # sub getbiblioitem
 
-=head2 getbiblioitembybiblionumber
+=head2 GetBiblioItemByBiblioNumber
 
-($count,@results) = getbiblioitembybiblionumber($biblionumber);
address@hidden GetBiblioItemByBiblioNumber($biblionumber);
 
 =over 4
 
@@ -2335,7 +2335,7 @@
 
 =cut
 
-sub getbiblioitembybiblionumber {
+sub GetBiblioItemByBiblioNumber {
     my ($biblionumber) = @_;
     my $dbh = C4::Context->dbh;
     my $sth = $dbh->prepare("Select * from biblioitems where biblionumber = 
?");
@@ -2345,12 +2345,11 @@
     $sth->execute($biblionumber);
 
     while ( my $data = $sth->fetchrow_hashref ) {
-        $results[$count] = $data;
-        $count++;
-    }    # while
+        push @results, $data;
+    }
 
     $sth->finish;
-    return ( $count, @results );
+    return @results;
 }    # sub
 
 =head2 getitemsbybiblioitem
@@ -3140,8 +3139,11 @@
 
 =cut
 
-# $Id: Biblio.pm,v 1.174 2006/07/12 13:43:42 btoumi Exp $
+# $Id: Biblio.pm,v 1.175 2006/07/27 13:46:30 toins Exp $
 # $Log: Biblio.pm,v $
+# Revision 1.175  2006/07/27 13:46:30  toins
+# 1 Sub renamed.
+#
 # Revision 1.174  2006/07/12 13:43:42  btoumi
 # bug fixing:
 # Biblio.pm: add in export line  getbibliofromitemnumber function