[Koha-cvs] CVS: koha/C4 Biblio.pm,1.22,1.23

[Andrew Arensburger]

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)=@_;
--- 1610,1616 ----
  
  =cut
! #'
! # FIXME - This is effectively identical to &C4::Catalogue::getorder.
! # Pick one and stick with it.
  sub getorder{
    my ($bi,$bib)=@_;
***************
*** 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)=@_;
--- 1641,1648 ----
  
  =cut
! #'
! # FIXME - This is effectively identical to
! # &C4::Catalogue::getsingleorder.
! # Pick one and stick with it.
  sub getsingleorder {
    my ($ordnum)=@_;