From 4a373f27b0cae42cf2600625e549b645f34b833e Mon Sep 17 00:00:00 2001
From: Chris Cormack <crc@liblime.com>
Date: Sun, 2 Dec 2007 16:14:21 -0600
Subject: [PATCH] Fix for bug 1575

Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 C4/Members.pm                                            | 1 +
 .../intranet-tmpl/prog/en/modules/members/deletemem.tmpl | 2 +-
 members/deletemem.pl                                     | 9 +++++----
 3 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/C4/Members.pm b/C4/Members.pm
index 4e1822f4d4..f52530b81a 100644
--- a/C4/Members.pm
+++ b/C4/Members.pm
@@ -420,6 +420,7 @@ sub patronflags {
         my %flaginfo;
         my $noissuescharge = C4::Context->preference("noissuescharge");
         $flaginfo{'message'} = sprintf "Patron owes \$%.02f", $amount;
+		$flaginfo{'amount'} = sprintf "%.02f",$amount;
         if ( $amount > $noissuescharge ) {
             $flaginfo{'noissues'} = 1;
         }
diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/members/deletemem.tmpl b/koha-tmpl/intranet-tmpl/prog/en/modules/members/deletemem.tmpl
index daee673272..1aa469f6dc 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/members/deletemem.tmpl
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/members/deletemem.tmpl
@@ -16,7 +16,7 @@
 		<ul><!-- TMPL_IF name="ItemsOnIssues" -->
 			<li>Patron has <!-- TMPL_VAR name="ItemsOnIssues" --> item(s) checked out.</li>
 		<!-- /TMPL_IF -->
-		<!-- TMPL_IF name="charges -->
+		<!-- TMPL_IF name="charges" -->
 			<li>Patron has <!-- TMPL_VAR name="charges" --> in fines.</li>
 		<!-- /TMPL_IF -->
 		<!-- TMPL_IF name="guarantees" -->
diff --git a/members/deletemem.pl b/members/deletemem.pl
index cf7da430b1..8acdc977cb 100755
--- a/members/deletemem.pl
+++ b/members/deletemem.pl
@@ -46,7 +46,8 @@ my %member2;
 $member2{'borrowernumber'}=$member;
 my ($countissues,$issues)=GetPendingIssues($member);
 
-my ($bor,$flags)=GetMemberDetails($member,'');
+my ($bor)=GetMemberDetails($member,'');
+my $flags=$bor->{flags};
 if (C4::Context->preference("IndependantBranches")) {
 	my $userenv = C4::Context->userenv;
 	unless ($userenv->{flags} == 1){
@@ -78,7 +79,7 @@ if ($countissues > 0 or $flags->{'CHARGES'}  or $data->{'borrowernumber'}){
 		$template->param(ItemsOnIssues => $countissues);
 	}
 	if ($flags->{'CHARGES'} ne '') {
-		$template->param(charges => $flags->{'CHARGES'}->{'message'});
+		$template->param(charges => $flags->{'CHARGES'}->{'amount'});
 	}
 	if ($data ne '') {
 		$template->param(guarantees => 1);
@@ -86,8 +87,8 @@ if ($countissues > 0 or $flags->{'CHARGES'}  or $data->{'borrowernumber'}){
 output_html_with_http_headers $input, $cookie, $template->output;
 
 } else {
-	MoveMemberToDeleted($member);
-	DelMember($member);
+#	MoveMemberToDeleted($member);
+#	DelMember($member);
 	print $input->redirect("/cgi-bin/koha/members/members-home.pl");
 }
 
-- 
2.39.5