[Koha-cvs] koha/members memberOverdues.pl [dev_week]

[Kyle Hall]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Kyle Hall <kylemhall>   07/05/29 14:59:54

Modified files:
        members        : memberOverdues.pl 

Log message:
        Total replacement cost was total for all items checked out, not just 
overdue items.

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

Patches:
Index: memberOverdues.pl
===================================================================
RCS file: /sources/koha/koha/members/Attic/memberOverdues.pl,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -b -r1.1.2.1 -r1.1.2.2
--- memberOverdues.pl   10 May 2007 14:50:32 -0000      1.1.2.1
+++ memberOverdues.pl   29 May 2007 14:59:54 -0000      1.1.2.2
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: memberOverdues.pl,v 1.1.2.1 2007/05/10 14:50:32 kylemhall Exp $
+# $Id: memberOverdues.pl,v 1.1.2.2 2007/05/29 14:59:54 kylemhall Exp $
 
 # script to do a borrower enquiry/bring up borrower details etc
 # Displays all the details about a borrower
@@ -66,27 +66,6 @@
                             debug => 1,
                             });
 
-#Script recieves failed renewals in the syntax renewFailure1 = itemnumber, 
renewFailure2 = itemnumber, etc.
-#Loop through renewal failures and push them on the array @renewFailures
-my @renewFailures;
-my $renewFailuresCount = 0;
-my $renewFailuresIndex = 1; #Starts with 1 because screwy things can happen 
with string comparisons and 0
-my $keepGoing = 1;
-while ( $keepGoing ) {
-  my $renewFailure = $input->param('renewFailure' . $renewFailuresIndex);
-  if ( $renewFailure ) {
-    push( @renewFailures, $renewFailure );
-    $renewFailuresCount++;
-    $renewFailuresIndex++;
-  } else {
-    $keepGoing = 0;
-  }
-}
-if ( $renewFailuresCount ) {
-  $template->param( failedrenewals => $renewFailuresCount );
-}
-
-
 my $bornum=$input->param('bornum');
 
 #start the page and read in includes
@@ -188,9 +167,9 @@
        my $datedue=ParseDate($issue->[$i]{'date_due'});
        $issue->[$i]{'date_due'} = format_date($issue->[$i]{'date_due'});
        my %row = %{$issue->[$i]};
+       if ($datedue < $today){
        $totalprice += $issue->[$i]{'replacementprice'};
        $row{'replacementprice'}=$issue->[$i]{'replacementprice'};
-       if ($datedue < $today){
                $row{'red'}=1; #print "<font color=red>";
                #find the charge for an item
                # FIXME - This is expecting