[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:03:39

Modified files:
	members        : moremember.pl 

Log message:
	Added alert for failed renewals from moremember.pl

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.3&r2=1.5.2.14.2.4

Patches:
Index: moremember.pl
===================================================================
RCS file: /sources/koha/koha/members/moremember.pl,v
retrieving revision 1.5.2.14.2.3
retrieving revision 1.5.2.14.2.4
diff -u -b -r1.5.2.14.2.3 -r1.5.2.14.2.4
--- moremember.pl	9 Jan 2007 14:55:41 -0000	1.5.2.14.2.3
+++ moremember.pl	19 Mar 2007 17:03:39 -0000	1.5.2.14.2.4
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: moremember.pl,v 1.5.2.14.2.3 2007/01/09 14:55:41 kylemhall Exp $
+# $Id: moremember.pl,v 1.5.2.14.2.4 2007/03/19 17:03:39 kylemhall Exp $
 
 # script to do a borrower enquiry/bring up borrower details etc
 # Displays all the details about a borrower
@@ -69,6 +69,27 @@
 			     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;
+if ( $keepGoing ) {
+  my $renewFailure = $input->param('renewFailure' . $renewFailuresIndex);
+  if ( $renewFailure ) {
+    push( @renewFailures, $renewFailure );
+    $renewFailuresCount++;
+    $renewFailuresIndex++;
+  } else {
+    $keepGoing = 0;
+  }
+}
+if ( $renewFailuresCount ) {
+  $template->param( failedrenewals => 1 );
+}
+
+
 my $bornum=$input->param('bornum');
 
 #start the page and read in includes
@@ -187,6 +208,17 @@
 	$row{'itemtype'}=&ItemType($itemtype);
 	$row{'charge'}= sprintf("%.2f",$charge);
 
+	# Check to see if this item was a failed attempted renewal
+        my $itemnumber = $issue->[$i]{'itemnumber'};
+        my $found = 0;
+        foreach my $renewItemnumber ( @renewFailures ) {
+          if ( $itemnumber == $renewItemnumber ) {
+            $found = 1;
+            last;
+          }
+        }
+        $row{'failedrenewal'} = $found;
+
 	#check item is not reserved
 	my ($restype,$reserves)=CheckReserves($issue->[$i]{'itemnumber'});
 	if ($restype){