[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;