[Koha-cvs] koha/C4 Biblio.pm [rel_3_0]

[Antoine Farnault]

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 ;