Adding option to pass parameter from circulation asking renewscript to redirect back...

diff --git a/renewscript.pl b/renewscript.pl
index 368d4a2..e1e7ce4 100755 (executable)
--- a/renewscript.pl
+++ b/renewscript.pl
@@ -44,6 +44,8 @@ for (my $i=0;$i<$count;$i++){
   }
 }
 my %env;
+my $destination = $input->param("destination");
+my $cardnumber = $input->param("cardnumber");
 my $bornum=$input->param("bornum");
 while ( my ($itemno, $value) = each %data) {
 #    warn "$itemno = $value\n";
@@ -57,4 +59,8 @@ while ( my ($itemno, $value) = each %data) {
    }
 }
 
-print $input->redirect("/cgi-bin/koha/members/moremember.pl?bornum=$bornum");
+if($destination eq "circ"){
+       print $input->redirect("/cgi-bin/koha/circ/circulation.pl?findborrower=$cardnumber");
+} else {
+       print $input->redirect("/cgi-bin/koha/members/moremember.pl?bornum=$bornum");
+}