[Koha-cvs] CVS: koha/C4/Circulation Circ2.pm,1.32,1.33

[Finlay Thompson]

Update of /cvsroot/koha/koha/C4/Circulation
In directory usw-pr-cvs1:/tmp/cvs-serv19837/C4/Circulation

Modified Files:
        Circ2.pm 
Log Message:

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


Index: Circ2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circulation/Circ2.pm,v
retrieving revision 1.32
retrieving revision 1.33
diff -C2 -r1.32 -r1.33
*** Circ2.pm    14 Aug 2002 18:12:52 -0000      1.32
--- Circ2.pm    15 Aug 2002 03:27:28 -0000      1.33
***************
*** 328,335 ****
        my $amount = checkaccount($env,$patroninformation->{'borrowernumber'}, 
$dbh,$date);
        if ($amount > 5 && $patroninformation->{'categorycode'} ne 'L' &&
!                          $patroninformation->{'categorycode'} ne 'W' &&
!                          $patroninformation->{'categorycode'} ne 'I' && 
!                          $patroninformation->{'categorycode'} ne 'B' &&
!                          $patroninformation->{'categorycode'} ne 'P') {
            $rejected = sprintf "Patron owes \$%.02f.", $amount;
            last SWITCH;
--- 328,335 ----
        my $amount = checkaccount($env,$patroninformation->{'borrowernumber'}, 
$dbh,$date);
        if ($amount > 5 && $patroninformation->{'categorycode'} ne 'L' &&
!                            $patroninformation->{'categorycode'} ne 'W' &&
!                            $patroninformation->{'categorycode'} ne 'I' && 
!                            $patroninformation->{'categorycode'} ne 'B' &&
!                            $patroninformation->{'categorycode'} ne 'P') {
            $rejected = sprintf "Patron owes \$%.02f.", $amount;
            last SWITCH;
***************
*** 408,412 ****
                if ($responses->{2} eq '') {
                    $questionnumber=2;
!                   $question="Waiting for $resborrower->{'firstname'} 
$resborrower->{'surname'} ($resborrower->{'cardnumber'}) at $branchname \nAllow 
issue?";
                    $defaultanswer='N';
                    last SWITCH;
--- 408,412 ----
                if ($responses->{2} eq '') {
                    $questionnumber=2;
!                   $question="<font color=red>Waiting</font> for 
$resborrower->{'firstname'} $resborrower->{'surname'} 
($resborrower->{'cardnumber'}) at $branchname \nAllow issue?";
                    $defaultanswer='N';
                    last SWITCH;