From 327d331752afd96b0bef59d7414e16e9b80002de Mon Sep 17 00:00:00 2001 From: toins Date: Wed, 19 Jul 2006 08:56:36 +0000 Subject: [PATCH] function getsingleorder deleted. It was already writed on C4::Catalogue. --- z3950/encodingfix/Biblio.pm | 62 ++----------------------------------- 1 file changed, 3 insertions(+), 59 deletions(-) diff --git a/z3950/encodingfix/Biblio.pm b/z3950/encodingfix/Biblio.pm index fec849c993..ac470c2a60 100644 --- a/z3950/encodingfix/Biblio.pm +++ b/z3950/encodingfix/Biblio.pm @@ -1609,65 +1609,6 @@ sub itemcount{ 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; @@ -2152,6 +2093,9 @@ Paul POULAIN paul.poulain@free.fr # $Id$ # $Log$ +# 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 # -- 2.39.5