View | Details | Raw Unified | Return to bug 10529
Collapse All | Expand All

(-)a/C4/Members.pm (-3 / +2 lines)
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
- 

Return to bug 10529