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

[Kyle Hall]

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 );
 }