[Koha-devel] CVS: koha/C4/Circulation Circ2.pm,1.17,1.18

[Chris Cormack]

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

Modified Files:
	Circ2.pm 
Log Message:
Changed the way a lost book being returned is handled.
If the book has already been paid for a credit is added to their account.
And offset against any current charges


Index: Circ2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circulation/Circ2.pm,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -r1.17 -r1.18
*** Circ2.pm	2001/05/02 22:38:26	1.17
--- Circ2.pm	2001/05/09 23:29:00	1.18
***************
*** 420,424 ****
--- 420,465 ----
  		$usth->execute();
  		$usth->finish;
+ 		#check if any credit is left if so writeoff other accounts]
  		my $nextaccntno = getnextacctno($env,$data->{'borrowernumber'},$dbh);
+ 		if ($amountleft < 0){
+ 		  $amountleft*=-1;
+ 		}
+ 		if ($amountleft > 0){
+ #		  print $amountleft;
+   		  my $query = "select * from accountlines
+ 		  where (borrowernumber = '$data->{'borrowernumber'}') and (amountoutstanding >0)
+ 		  order by date";
+ 		  my $sth = $dbh->prepare($query);
+ 		  $sth->execute;
+ 		  # offset transactions
+ 		  my $newamtos;
+ 		  my $accdata;
+ 		  while (($accdata=$sth->fetchrow_hashref) and ($amountleft>0)){
+ 		    if ($accdata->{'amountoutstanding'} < $amountleft) {
+ 		      $newamtos = 0;
+ 		      $amountleft = $amountleft - $accdata->{'amountoutstanding'};
+ 		    }  else {
+ 		      $newamtos = $accdata->{'amountoutstanding'} - $amountleft;
+ 		      $amountleft = 0;
+ 		    }
+ 		    my $thisacct = $accdata->{accountno};
+ 		    my $updquery = "update accountlines set amountoutstanding= '$newamtos'
+ 		    where (borrowernumber = '$data->{'borrowernumber'}') and (accountno='$thisacct')";
+ 		    my $usth = $dbh->prepare($updquery);
+ 		    $usth->execute;
+ 	            $usth->finish;
+ 		    $updquery = "insert into accountoffsets
+ 		    (borrowernumber, accountno, offsetaccount,  offsetamount)
+ 		    values
+ 		    ($data->{'borrowernumber'},$accdata->{'accountno'},$nextaccntno,$newamtos)";
+ 		    my $usth = $dbh->prepare($updquery);
+ 		    $usth->execute;
+ 	            $usth->finish;
+ 	          }
+ 		}
+ 		if ($amountleft > 0){
+ 		  $amountleft*=-1;
+ 		}
+ 		$sth->finish;
  		my $desc="Book Returned ".$iteminformation->{'barcode'};
  		$uquery = "insert into accountlines
***************
*** 463,467 ****
      my ($env,$patroninformation,$dbh) = @_;
      my $amount = checkaccount($env,$patroninformation->{'borrowernumber'}, $dbh);
!     if ($amount>0) { 
  	my %flaginfo;
  	$flaginfo{'message'}=sprintf "Patron owes \$%.02f", $amount; 
--- 504,508 ----
      my ($env,$patroninformation,$dbh) = @_;
      my $amount = checkaccount($env,$patroninformation->{'borrowernumber'}, $dbh);
!     if ($amount > 0) { 
  	my %flaginfo;
  	$flaginfo{'message'}=sprintf "Patron owes \$%.02f", $amount; 
***************
*** 470,473 ****
--- 511,519 ----
  	}
  	$flags{'CHARGES'}=\%flaginfo;
+     } elsif ($amount < 0){
+        my %flaginfo;
+        $amount=$amount*-1;
+        $flaginfo{'message'}=sprintf "Patron has credit of \$%.02f", $amount;
+        	$flags{'CHARGES'}=\%flaginfo;
      }
      if ($patroninformation->{'gonenoaddress'} == 1) {