got modifying accounts fixed up

C4/Accounts2.pm

@@ -14,7 +14,7 @@ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 $VERSION = 0.01;
     
 @ISA = qw(Exporter);
-@EXPORT = qw(&recordpayment);
+@EXPORT = qw(&recordpayment &fixaccounts);
 %EXPORT_TAGS = ( );     # eg: TAG => [ qw!name1 name2! ],
 		  
 # your exported package globals go here,
@@ -119,5 +119,25 @@ sub getnextacctno {
   $sth->finish;
   return($nextaccntno);
 }
-			
+
+sub fixaccounts {
+  my ($borrowernumber,$accountno,$amount)=@_;
+  my $dbh=C4Connect;
+  my $query="Select * from accountlines where borrowernumber=$borrowernumber
+     and accountno=$accountno";
+  my $sth=$dbh->prepare($query);
+  $sth->execute;
+  my $data=$sth->fetchrow_hashref;
+  my $diff=$amount-$data->{'amount'};
+  my $outstanding=$data->{'amountoutstanding'}+$diff;
+  $sth->finish;
+  $query="Update accountlines set amount='$amount',amountoutstanding='$outstanding' where
+          borrowernumber=$borrowernumber and accountno=$accountno";
+   $sth=$dbh->prepare($query);
+#   print $query;
+   $sth->execute;
+   $sth->finish;
+   $dbh->disconnect;
+ }
+ 
 END { }       # module clean-up code here (global destructor)

boraccount.pl

@@ -31,31 +31,33 @@ print <<printend
 <p>
 <TABLE  CELLSPACING=0  CELLPADDING=5 border=1 >
 <TR VALIGN=TOP>
-<td  bgcolor="99cc33" background="/images/background-mem.gif" colspan=4><B>FINES & CHARGES</TD>
-<td  bgcolor="99cc33" background="/images/background-mem.gif" colspan=4><B>CALCULATE</TD>
+<td  bgcolor="99cc33" background="/images/background-mem.gif" colspan=2><B>FINES & CHARGES</TD>
+<td  bgcolor="99cc33" background="/images/background-mem.gif" colspan=1><B>AMOUNT</TD>
+<td  bgcolor="99cc33" background="/images/background-mem.gif" colspan=1><B>STILL OWING</TD>
+<td  bgcolor="99cc33" background="/images/background-mem.gif" colspan=1><B>FIX</B></TD>
 </TR>
 
-
+<form method=post action=tidyaccounts.pl>
 printend
 ;
 for (my $i=0;$i<$numaccts;$i++){
-$accts->[$i]{'amount'}+=0.00;
-$accts->[$i]{'amountoutstanding'}+=0.00;
-print <<printend
-<tr VALIGN=TOP  >
-<td>$accts->[$i]{'date'}</td>
-<TD>$accts->[$i]{'description'}
+  $accts->[$i]{'amount'}+=0.00;
+  $accts->[$i]{'amountoutstanding'}+=0.00;
+  print <<printend
+  <tr VALIGN=TOP  >
+  <td>$accts->[$i]{'date'}</td>
+  <TD>$accts->[$i]{'description'}
 printend
 ;
-if ($accts->[$i]{'accounttype'} ne 'F' && $accts->[$i]{'accounttype'} ne 'FU'){
-  print "$accts->[$i]{'title'}";
-}
-print <<printend
-</td>
-<TD>$accts->[$i]{'accounttype'}</td>
-<td>$accts->[$i]{'amount'}</td>
-<TD>$accts->[$i]{'amountoutstanding'}</td>
-
+  if ($accts->[$i]{'accounttype'} ne 'F' && $accts->[$i]{'accounttype'} ne 'FU'){
+     print "$accts->[$i]{'title'}";
+  }
+  print <<printend
+  </td>
+
+  <td>$accts->[$i]{'amount'}</td>
+  <TD>$accts->[$i]{'amountoutstanding'}</td>
+  <td><input type=text size=5 name=$accts->[$i]{'accountno'} value="$accts->[$i]{'amount'}"></td>
 </tr>
 printend
 ;
@@ -71,11 +73,11 @@ print <<printend
 
 
 
-</form>
-</table>
-
-
 
+</table>
+<input type=hidden name=bornum value=$bornum>
+<input type=submit value="Tidy Accounts">
+</form>
 
 
 

pay.pl

@@ -48,7 +48,7 @@ print <<printend
 <TABLE  CELLSPACING=0  CELLPADDING=5 border=1 >
 <TR VALIGN=TOP>
 <td  bgcolor="99cc33" background="/images/background-mem.gif" colspan=4><B>FINES & CHARGES</TD>
-<td  bgcolor="99cc33" background="/images/background-mem.gif" colspan=4><B>CALCULATE</TD>
+<td  bgcolor="99cc33" background="/images/background-mem.gif" colspan=4><B>AMOUNT OWING</TD>
 </TR>
 <form action=/cgi-bin/koha/pay.pl method=post>