From 85155b94d548a1d2b3404ec57270e931c9a8971f 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) --- 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.2.634.g7a3187e