[Koha-cvs] CVS: koha/C4 Catalogue.pm,1.26,1.27
Andrew Arensburger
arensb at users.sourceforge.net
Wed Oct 16 14:44:28 CEST 2002
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)=@_;
--- 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)=@_;
***************
*** 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)=@_;
--- 479,485 ----
=cut
#'
! # FIXME - This is effectively identical to
! # &C4::Biblio::getsingleorder.
! # Pick one and stick with it.
sub getsingleorder {
my ($ordnum)=@_;
***************
*** 824,829 ****
}
! # FIXME - Identical to &C4::Acquisitions::updatecost. Neither one is
! # used
sub updatecost{
my($price,$rrp,$itemnum)=@_;
--- 824,828 ----
}
! # FIXME - This is never used
sub updatecost{
my($price,$rrp,$itemnum)=@_;
More information about the Koha-cvs
mailing list