[Koha-cvs] koha/members moremember.pl [dev_week]
Kyle Hall
kyle.m.hall at gmail.com
Mon Mar 19 18:53:19 CET 2007
CVSROOT: /sources/koha
Module name: koha
Branch: dev_week
Changes by: Kyle Hall <kylemhall> 07/03/19 17:53:19
Modified files:
members : moremember.pl
Log message:
Added alert for failed renewals from moremember.pl: Fixed minor bug in bugfix
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/members/moremember.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.5.2.14.2.4&r2=1.5.2.14.2.5
Patches:
Index: moremember.pl
===================================================================
RCS file: /sources/koha/koha/members/moremember.pl,v
retrieving revision 1.5.2.14.2.4
retrieving revision 1.5.2.14.2.5
diff -u -b -r1.5.2.14.2.4 -r1.5.2.14.2.5
--- moremember.pl 19 Mar 2007 17:03:39 -0000 1.5.2.14.2.4
+++ moremember.pl 19 Mar 2007 17:53:19 -0000 1.5.2.14.2.5
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: moremember.pl,v 1.5.2.14.2.4 2007/03/19 17:03:39 kylemhall Exp $
+# $Id: moremember.pl,v 1.5.2.14.2.5 2007/03/19 17:53:19 kylemhall Exp $
# script to do a borrower enquiry/bring up borrower details etc
# Displays all the details about a borrower
@@ -75,7 +75,7 @@
my $renewFailuresCount = 0;
my $renewFailuresIndex = 1; #Starts with 1 because screwy things can happen with string comparisons and 0
my $keepGoing = 1;
-if ( $keepGoing ) {
+while ( $keepGoing ) {
my $renewFailure = $input->param('renewFailure' . $renewFailuresIndex);
if ( $renewFailure ) {
push( @renewFailures, $renewFailure );
@@ -86,7 +86,7 @@
}
}
if ( $renewFailuresCount ) {
- $template->param( failedrenewals => 1 );
+ $template->param( failedrenewals => $renewFailuresCount );
}
More information about the Koha-cvs
mailing list