[Koha-cvs] CVS: koha/C4 Catalogue.pm,1.26,1.27

[Andrew Arensburger]

Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv16581

Modified Files:
        Catalogue.pm 
Log Message:
Added and updated some FIXME comments.


Index: Catalogue.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Catalogue.pm,v
retrieving revision 1.26
retrieving revision 1.27
diff -C2 -r1.26 -r1.27
*** Catalogue.pm        13 Oct 2002 08:29:38 -0000      1.26
--- Catalogue.pm        16 Oct 2002 12:44:25 -0000      1.27
***************
*** 241,246 ****
    my $count=itemcount($bibnum);
    if ($count == 0){
!     delbiblio($bibnum);               # This is C4::Biblio::delbiblio, not
!                               # C4::Acquisitions::delbiblio
    }
  }
--- 241,245 ----
    my $count=itemcount($bibnum);
    if ($count == 0){
!     delbiblio($bibnum);
    }
  }
***************
*** 263,267 ****
  =cut
  #'
- # FIXME - This function appears in C4::Acquisitions
  sub modorder {
    my 
($title,$ordnum,$quantity,$listprice,$bibnum,$basketno,$supplier,$who,$notes,$bookfund,$bibitemnum,$rrp,$ecost,$gst,$budget,$cost,$invoice)address@hidden;
--- 262,265 ----
***************
*** 451,454 ****
--- 449,454 ----
  =cut
  #'
+ # FIXME - This is effectively identical to &C4::Biblio::getorder.
+ # Pick one and stick with it.
  sub getorder{
    my ($bi,$bib)address@hidden;
***************
*** 479,485 ****
  =cut
  #'
! # FIXME - This is basically the same thing as
! # C4::Acquisitions::getsingleorder. Figure out where it goes and nuke
! # the other one.
  sub getsingleorder {
    my ($ordnum)address@hidden;
--- 479,485 ----
  =cut
  #'
! # FIXME - This is effectively identical to
! # &C4::Biblio::getsingleorder.
! # Pick one and stick with it.
  sub getsingleorder {
    my ($ordnum)address@hidden;
***************
*** 824,829 ****
  }
  
! # FIXME - Identical to &C4::Acquisitions::updatecost. Neither one is
! # used
  sub updatecost{
    my($price,$rrp,$itemnum)address@hidden;
--- 824,828 ----
  }
  
! # FIXME - This is never used
  sub updatecost{
    my($price,$rrp,$itemnum)address@hidden;