[Koha-cvs] koha pay_by_amount.pl [dev_week]

[Kyle Hall]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Kyle Hall <kylemhall>   06/12/19 16:10:28

Modified files:
        .              : pay_by_amount.pl 

Log message:
        

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/pay_by_amount.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.1.2.2&r2=1.1.2.3

Patches:
Index: pay_by_amount.pl
===================================================================
RCS file: /sources/koha/koha/Attic/pay_by_amount.pl,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -b -r1.1.2.2 -r1.1.2.3
--- pay_by_amount.pl    14 Dec 2006 12:55:09 -0000      1.1.2.2
+++ pay_by_amount.pl    19 Dec 2006 16:10:28 -0000      1.1.2.3
@@ -21,15 +21,6 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# THIS SCRIPT DOES NOT YET WORK
-
-# Algorithm:
-# 1) Get a patrons borrowernumber and the amount to be pay via POST
-# 2) Grab all the patrons unpaid fines from the database
-# 3) Loop through fines, paying each fine off until the given amount has been 
paid
-# 4) Insert a payment line into the database for the entire amount paid
-# 5) Redirect the user back to moremember.pl
-
 use strict;
 use C4::Context;
 use C4::Auth;
@@ -58,9 +49,9 @@
 $sth = $dbh->prepare( "SELECT * FROM accountlines WHERE borrowernumber = ? AND 
amountoutstanding > 0" ) || die $sth->errstr;
 $sth->execute( $bornum ) || die $sth->errstr;
 
-while ( my @data = $sth->fetchrow_hashref() && $amountpaid > 0 ) {
-  my $accountno = $data['accountno'];
-  my $amountoutstanding = $data['amountoutstanding'];
+while ( my $data = $sth->fetchrow_hashref() && $amountpaid > 0 ) { #was my 
@data = ...
+  my $accountno = $data{'accountno'}; #was $data['accoutno']
+  my $amountoutstanding = $data{'amountoutstanding'};
   
   # If the amount paid in is less than the current fine, just lower the 
amountoutstanding by what is in $amountpaid
   my $balance = 0;