From 7c6ea535c31951b8b19411a12abe2b500c71bb03 Mon Sep 17 00:00:00 2001 From: Colin Campbell Date: Thu, 4 Jul 2013 12:21:45 +0100 Subject: [PATCH] Bug 10529: Remove hardcoded dollar from patron message The message fields which are returned in the SIP Screen message field in a Patron Information response had dollar hardcoded. It would be possible to get the symbol from currency but omitting any symbol would be consistent with the UI and avoid problems with devices using weird encodings for local currency symbols (e.g. the many variations of UK Pound sign) Signed-off-by: Chris Cormack --- C4/Members.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/C4/Members.pm b/C4/Members.pm index 3221f53..6d8d23a 100644 --- a/C4/Members.pm +++ b/C4/Members.pm @@ -435,7 +435,7 @@ sub patronflags { if ( $owing > 0 ) { my %flaginfo; my $noissuescharge = C4::Context->preference("noissuescharge") || 5; - $flaginfo{'message'} = sprintf "Patron owes \$%.02f", $owing; + $flaginfo{'message'} = sprintf 'Patron owes %.02f', $owing; $flaginfo{'amount'} = sprintf "%.02f", $owing; if ( $owing > $noissuescharge && !C4::Context->preference("AllowFineOverride") ) { $flaginfo{'noissues'} = 1; @@ -444,7 +444,7 @@ sub patronflags { } elsif ( $balance < 0 ) { my %flaginfo; - $flaginfo{'message'} = sprintf "Patron has credit of \$%.02f", -$balance; + $flaginfo{'message'} = sprintf 'Patron has credit of %.02f', -$balance; $flaginfo{'amount'} = sprintf "%.02f", $balance; $flags{'CREDITS'} = \%flaginfo; } -- 1.8.3.1