Lines 435-441
sub patronflags {
Link Here
|
435 |
if ( $owing > 0 ) { |
435 |
if ( $owing > 0 ) { |
436 |
my %flaginfo; |
436 |
my %flaginfo; |
437 |
my $noissuescharge = C4::Context->preference("noissuescharge") || 5; |
437 |
my $noissuescharge = C4::Context->preference("noissuescharge") || 5; |
438 |
$flaginfo{'message'} = sprintf "Patron owes \$%.02f", $owing; |
438 |
$flaginfo{'message'} = sprintf 'Patron owes %.02f', $owing; |
439 |
$flaginfo{'amount'} = sprintf "%.02f", $owing; |
439 |
$flaginfo{'amount'} = sprintf "%.02f", $owing; |
440 |
if ( $owing > $noissuescharge && !C4::Context->preference("AllowFineOverride") ) { |
440 |
if ( $owing > $noissuescharge && !C4::Context->preference("AllowFineOverride") ) { |
441 |
$flaginfo{'noissues'} = 1; |
441 |
$flaginfo{'noissues'} = 1; |
Lines 444-450
sub patronflags {
Link Here
|
444 |
} |
444 |
} |
445 |
elsif ( $balance < 0 ) { |
445 |
elsif ( $balance < 0 ) { |
446 |
my %flaginfo; |
446 |
my %flaginfo; |
447 |
$flaginfo{'message'} = sprintf "Patron has credit of \$%.02f", -$balance; |
447 |
$flaginfo{'message'} = sprintf 'Patron has credit of %.02f', -$balance; |
448 |
$flaginfo{'amount'} = sprintf "%.02f", $balance; |
448 |
$flaginfo{'amount'} = sprintf "%.02f", $balance; |
449 |
$flags{'CREDITS'} = \%flaginfo; |
449 |
$flags{'CREDITS'} = \%flaginfo; |
450 |
} |
450 |
} |
451 |
- |
|
|