Deals with lost book charges now

diff --git a/C4/Circulation/Fines.pm b/C4/Circulation/Fines.pm
index 52b5fe4..794cf84 100644 (file)
--- a/C4/Circulation/Fines.pm
+++ b/C4/Circulation/Fines.pm
@@ -13,7 +13,7 @@ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 $VERSION = 0.01;
 
 @ISA = qw(Exporter);
-@EXPORT = qw(&Getoverdues &CalcFine &BorType &UpdateFine);
+@EXPORT = qw(&Getoverdues &CalcFine &BorType &UpdateFine &ReplacementCost);
 %EXPORT_TAGS = ( );     # eg: TAG => [ qw!name1 name2! ],
 
 # your exported package globals go here,
@@ -76,8 +76,7 @@ sub CalcFine {
   and items.biblioitemnumber=biblioitems.biblioitemnumber and
   biblioitems.itemtype=itemtypes.itemtype and
   categoryitem.itemtype=itemtypes.itemtype and
-  categoryitem.categorycode='$bortype' and (items.itemlost <> 1 or
-items.itemlost is NULL)";
+  categoryitem.categorycode='$bortype' and (items.itemlost <> 1 or items.itemlost is NULL)";
   my $sth=$dbh->prepare($query);
 #  print $query;
   $sth->execute;
@@ -122,7 +121,7 @@ sub UpdateFine {
       my $query2="update accountlines set date=now(), amount=$amount,
       amountoutstanding=$out,accounttype='FU' where
       borrowernumber=$data->{'borrowernumber'} and itemnumber=$data->{'itemnumber'}
-      and (accounttype='FU' or accounttype='O');";
+      and (accounttype='FU' or accounttype='O') and description like '%$due%'";
       my $sth2=$dbh->prepare($query2);
       $sth2->execute;
       $sth2->finish;      
@@ -171,6 +170,17 @@ borrowers.categorycode=categories.categorycode";
   return($data);
 }
 
+sub ReplacementCost{
+  my ($itemnum)=@_;
+  my $dbh=C4Connect;
+  my $query="Select replacementprice from items where itemnumber='$itemnum'";
+  my $sth=$dbh->prepare($query);
+  $sth->execute;
+  my $data=$sth->fetchrow_hashref;
+  $sth->finish;
+  $dbh->disconnect;
+  return($data->{'replacementprice'});
+}
 
 END { }       # module clean-up code here (global destructor)