[Koha-cvs] CVS: koha/C4/Circulation Issues.pm,1.2.2.1,1.2.2.2

[Andrew Arensburger]

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

Modified Files:
      Tag: arensb-context
	Issues.pm 
Log Message:
Added a whole mess of FIXME comments.


Index: Issues.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circulation/Issues.pm,v
retrieving revision 1.2.2.1
retrieving revision 1.2.2.2
diff -C2 -r1.2.2.1 -r1.2.2.2
*** Issues.pm	4 Oct 2002 02:27:50 -0000	1.2.2.1
--- Issues.pm	5 Oct 2002 06:15:11 -0000	1.2.2.2
***************
*** 29,33 ****
--- 29,37 ----
  use C4::InterfaceCDK;
  use C4::Circulation::Main;
+ 	# FIXME - C4::Circulation::Main and C4::Circulation::Issues
+ 	# use each other, so functions get redefined.
  use C4::Circulation::Borrower;
+ 	# FIXME - C4::Circulation::Issues and C4::Circulation::Borrower
+ 	# use each other, so functions get redefined.
  use C4::Scan;
  use C4::Stats;
***************
*** 372,375 ****
--- 376,383 ----
  }
  
+ # FIXME - This is very similar to
+ # &C4::Circulation::Renewals2::calc_charges and
+ # &C4::Circulation::Circ2::calc_charges.
+ # Pick one and stick with it.
  sub calc_charges {
    # calculate charges due
***************
*** 396,400 ****
  	$charge = ($charge *(100 - $discount)) / 100;
       }
!      $sth2->{'finish'};
    }   
    $sth1->finish;
--- 404,408 ----
  	$charge = ($charge *(100 - $discount)) / 100;
       }
!      $sth2->{'finish'};	# FIXME - Was this supposed to be $sth2->finish ?
    }   
    $sth1->finish;