[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/C4 Biblio.pm,1.22,1.23
From: |
Andrew Arensburger |
Subject: |
[Koha-cvs] CVS: koha/C4 Biblio.pm,1.22,1.23 |
Date: |
Wed, 16 Oct 2002 05:43:11 -0700 |
Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv16136
Modified Files:
Biblio.pm
Log Message:
Added some FIXME comments.
Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -r1.22 -r1.23
*** Biblio.pm 15 Oct 2002 13:39:17 -0000 1.22
--- Biblio.pm 16 Oct 2002 12:43:08 -0000 1.23
***************
*** 2,5 ****
--- 2,8 ----
# $Id$
# $Log$
+ # Revision 1.23 2002/10/16 12:43:08 arensb
+ # Added some FIXME comments.
+ #
# Revision 1.22 2002/10/15 13:39:17 tipaul
# removing Acquisition.pm
***************
*** 1607,1611 ****
=cut
!
sub getorder{
my ($bi,$bib)address@hidden;
--- 1610,1616 ----
=cut
! #'
! # FIXME - This is effectively identical to &C4::Catalogue::getorder.
! # Pick one and stick with it.
sub getorder{
my ($bi,$bib)address@hidden;
***************
*** 1616,1619 ****
--- 1621,1626 ----
my $sth=$dbh->prepare($query);
$sth->execute($bib,$bi);
+ # FIXME - Use fetchrow_array(), since we're only interested in the one
+ # value.
my $ordnum=$sth->fetchrow_hashref;
$sth->finish;
***************
*** 1634,1638 ****
=cut
!
sub getsingleorder {
my ($ordnum)address@hidden;
--- 1641,1648 ----
=cut
! #'
! # FIXME - This is effectively identical to
! # &C4::Catalogue::getsingleorder.
! # Pick one and stick with it.
sub getsingleorder {
my ($ordnum)address@hidden;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/C4 Biblio.pm,1.22,1.23,
Andrew Arensburger <=