[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/members memberOverdues.pl [dev_week]
From: |
Kyle Hall |
Subject: |
[Koha-cvs] koha/members memberOverdues.pl [dev_week] |
Date: |
Tue, 29 May 2007 14:59:54 +0000 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] koha/members memberOverdues.pl [dev_week],
Kyle Hall <=