Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Added some red color here into the message that appears when a waiting book is attempted to be issued.

Browse source
This commit is contained in:
finlayt 2002-08-15 03:27:28 +00:00
parent 13e3a38889
commit 49e2aee04c
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
C4/Circulation/Circ2.pm
View file

@ -327,10 +327,10 @@ sub issuebook {
} }
my $amount = checkaccount($env,$patroninformation->{'borrowernumber'}, $dbh,$date); my $amount = checkaccount($env,$patroninformation->{'borrowernumber'}, $dbh,$date);
if ($amount > 5 && $patroninformation->{'categorycode'} ne 'L' && if ($amount > 5 && $patroninformation->{'categorycode'} ne 'L' &&
$patroninformation->{'categorycode'} ne 'W' && $patroninformation->{'categorycode'} ne 'W' &&
$patroninformation->{'categorycode'} ne 'I' && $patroninformation->{'categorycode'} ne 'I' &&
$patroninformation->{'categorycode'} ne 'B' && $patroninformation->{'categorycode'} ne 'B' &&
$patroninformation->{'categorycode'} ne 'P') { $patroninformation->{'categorycode'} ne 'P') {
$rejected = sprintf "Patron owes \$%.02f.", $amount; $rejected = sprintf "Patron owes \$%.02f.", $amount;
last SWITCH; last SWITCH;
} }
@ -407,7 +407,7 @@ sub issuebook {
my $branchname = $branches->{$res->{'branchcode'}}->{'branchname'}; my $branchname = $branches->{$res->{'branchcode'}}->{'branchname'};
if ($responses->{2} eq '') { if ($responses->{2} eq '') {
$questionnumber=2; $questionnumber=2;
$question="Waiting for $resborrower->{'firstname'} $resborrower->{'surname'} ($resborrower->{'cardnumber'}) at $branchname \nAllow issue?"; $question="<font color=red>Waiting</font> for $resborrower->{'firstname'} $resborrower->{'surname'} ($resborrower->{'cardnumber'}) at $branchname \nAllow issue?";
$defaultanswer='N'; $defaultanswer='N';
last SWITCH; last SWITCH;
} elsif ($responses->{2} eq 'N') { } elsif ($responses->{2} eq 'N') {