[Koha-cvs] koha/z3950/encodingfix Biblio.pm
Antoine Farnault
antoine at koha-fr.org
Wed Jul 19 10:56:36 CEST 2006
CVSROOT: /sources/koha
Module name: koha
Changes by: Antoine Farnault <toins> 06/07/19 08:56:36
Modified files:
z3950/encodingfix: Biblio.pm
Log message:
function getsingleorder deleted. It was already writed on C4::Catalogue.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/z3950/encodingfix/Biblio.pm?cvsroot=koha&r1=1.3&r2=1.4
Patches:
Index: Biblio.pm
===================================================================
RCS file: /sources/koha/koha/z3950/encodingfix/Biblio.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- Biblio.pm 12 Jul 2006 17:23:48 -0000 1.3
+++ Biblio.pm 19 Jul 2006 08:56:36 -0000 1.4
@@ -1609,65 +1609,6 @@
return($data->{'count(*)'});
}
-=item getorder
-
- ($order, $ordernumber) = &getorder($biblioitemnumber, $biblionumber);
-
-Looks up the order with the given biblionumber and biblioitemnumber.
-
-Returns a two-element array. C<$ordernumber> is the order number.
-C<$order> is a reference-to-hash describing the order; its keys are
-fields from the biblio, biblioitems, aqorders, and aqorderbreakdown
-tables of the Koha database.
-
-=cut
-#'
-# FIXME - This is effectively identical to &C4::Catalogue::getorder.
-# Pick one and stick with it.
-sub getorder{
- my ($bi,$bib)=@_;
- my $dbh = C4::Context->dbh;
- my $sth=$dbh->prepare("Select ordernumber
- from aqorders
- where biblionumber=? and biblioitemnumber=?");
- $sth->execute($bib,$bi);
- # FIXME - Use fetchrow_array(), since we're only interested in the one
- # value.
- my $ordnum=$sth->fetchrow_hashref;
- $sth->finish;
- my $order=getsingleorder($ordnum->{'ordernumber'});
- return ($order,$ordnum->{'ordernumber'});
-}
-
-=item getsingleorder
-
- $order = &getsingleorder($ordernumber);
-
-Looks up an order by order number.
-
-Returns a reference-to-hash describing the order. The keys of
-C<$order> are fields from the biblio, biblioitems, aqorders, and
-aqorderbreakdown tables of the Koha database.
-
-=cut
-#'
-# FIXME - This is effectively identical to
-# &C4::Catalogue::getsingleorder.
-# Pick one and stick with it.
-sub getsingleorder {
- my ($ordnum)=@_;
- my $dbh = C4::Context->dbh;
- my $sth=$dbh->prepare("Select * from biblio,biblioitems,aqorders left join aqorderbreakdown
- on aqorders.ordernumber=aqorderbreakdown.ordernumber
- where aqorders.ordernumber=?
- and biblio.biblionumber=aqorders.biblionumber
- and biblioitems.biblioitemnumber=aqorders.biblioitemnumber");
- $sth->execute($ordnum);
- my $data=$sth->fetchrow_hashref;
- $sth->finish;
- return($data);
-}
-
sub newbiblio {
my ($biblio) = @_;
my $dbh = C4::Context->dbh;
@@ -2150,8 +2091,11 @@
=cut
-# $Id: Biblio.pm,v 1.3 2006/07/12 17:23:48 toins Exp $
+# $Id: Biblio.pm,v 1.4 2006/07/19 08:56:36 toins Exp $
# $Log: Biblio.pm,v $
+# Revision 1.4 2006/07/19 08:56:36 toins
+# function getsingleorder deleted. It was already writed on C4::Catalogue.
+#
# Revision 1.3 2006/07/12 17:23:48 toins
# getitemtypes renamed to GetItemTypes
#
More information about the Koha-cvs
mailing list