[Koha-cvs] koha/C4 Biblio.pm
Antoine Farnault
antoine at koha-fr.org
Thu Jul 27 15:46:31 CEST 2006
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, at results) = getbiblioitembybiblionumber($biblionumber);
+ at results= 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
More information about the Koha-cvs
mailing list