[Koha-cvs] koha/C4 Biblio.pm [rel_3_0]
Antoine Farnault
antoine at koha-fr.org
Mon Sep 18 17:10:23 CEST 2006
CVSROOT: /sources/koha
Module name: koha
Branch: rel_3_0
Changes by: Antoine Farnault <toins> 06/09/18 15:10:23
Modified files:
C4 : Biblio.pm
Log message:
add a missing function : find_biblioitemnumber.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Biblio.pm?cvsroot=koha&only_with_tag=rel_3_0&r1=1.178.2.5&r2=1.178.2.6
Patches:
Index: Biblio.pm
===================================================================
RCS file: /sources/koha/koha/C4/Biblio.pm,v
retrieving revision 1.178.2.5
retrieving revision 1.178.2.6
diff -u -b -r1.178.2.5 -r1.178.2.6
--- Biblio.pm 18 Sep 2006 12:10:10 -0000 1.178.2.5
+++ Biblio.pm 18 Sep 2006 15:10:23 -0000 1.178.2.6
@@ -508,6 +508,28 @@
}
+=head2 find_biblioitemnumber
+
+my $biblioitemnumber = find_biblioitemnumber($dbh,$biblionumber);
+
+=over 4
+
+Returns the 1st biblioitemnumber related to $biblionumber. When MARC=ON we should have 1 biblionumber = 1 and only 1 biblioitemnumber
+This sub is useless when MARC=OFF
+
+=back
+
+=cut
+
+sub find_biblioitemnumber {
+ my ( $dbh, $biblionumber ) = @_;
+ my $sth = $dbh->prepare("select biblioitemnumber from biblioitems where biblionumber=?");
+ $sth->execute($biblionumber);
+ my ($biblioitemnumber) = $sth->fetchrow;
+ return $biblioitemnumber;
+}
+
+
sub MARCdelbiblio {
my ( $dbh, $bibid, $keep_items ) = @_;
@@ -3173,8 +3195,11 @@
=cut
-# $Id: Biblio.pm,v 1.178.2.5 2006/09/18 12:10:10 alaurin Exp $
+# $Id: Biblio.pm,v 1.178.2.6 2006/09/18 15:10:23 toins Exp $
# $Log: Biblio.pm,v $
+# Revision 1.178.2.6 2006/09/18 15:10:23 toins
+# add a missing function : find_biblioitemnumber.
+#
# Revision 1.178.2.5 2006/09/18 12:10:10 alaurin
# bugfixing :
# add use::date for the fonction format_date ;
More information about the Koha-cvs
mailing list