From 2d60bc09fa5871cf0f8d24b02b1088d9ca93fb12 Mon Sep 17 00:00:00 2001
From: rangi <rangi>
Date: Wed, 9 Jul 2003 20:27:55 +0000
Subject: [PATCH] Bug fix for bug 524

---
 koha-tmpl/intranet-tmpl/default/en/members/moremember.tmpl | 2 +-
 memberentry.pl                                             | 5 +++--
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/koha-tmpl/intranet-tmpl/default/en/members/moremember.tmpl b/koha-tmpl/intranet-tmpl/default/en/members/moremember.tmpl
index af80193ee6..12f0a9e476 100644
--- a/koha-tmpl/intranet-tmpl/default/en/members/moremember.tmpl
+++ b/koha-tmpl/intranet-tmpl/default/en/members/moremember.tmpl
@@ -74,7 +74,7 @@
 		<TMPL_ELSE>
 			<form action=/cgi-bin/koha/memberentry.pl method=post>
 				<input type=hidden name=bornum value="<TMPL_VAR NAME="bornum">">
-				<INPUT TYPE=submit class="button" value="Modify">
+				<INPUT TYPE=submit class="button" name="modify" value="Modify">
 			</form>
 		</TMPL_IF>
 		<form action=/cgi-bin/koha/deletemem.pl method=post>
diff --git a/memberentry.pl b/memberentry.pl
index b07372b07a..2fa8ce1ac0 100755
--- a/memberentry.pl
+++ b/memberentry.pl
@@ -54,8 +54,8 @@ if ($member eq ''){
 	$member=NewBorrowerNumber();
 }
 my $type=$input->param('type') || '';
-my $modify=$input->param('modify.x');
-my $delete=$input->param('delete.x');
+my $modify=$input->param('modify');
+my $delete=$input->param('delete');
 if ($delete){
 	print $input->redirect("/cgi-bin/koha/deletemem.pl?member=$member");
 } else {  # this else goes down the whole script
@@ -180,6 +180,7 @@ if ($delete){
 				cardnumber	=> $cardnumber,
 				dateofbirth	=> $data->{'dateofbirth'},
 				dateformat      => display_date_format(),
+			        modify          => $modify,
 				CGIbranch => $CGIbranch);
 	output_html_with_http_headers $input, $cookie, $template->output;
 
-- 
2.39.5