From 49e2aee04ccdc67f53b271501f49e6c5c79eb171 Mon Sep 17 00:00:00 2001
From: finlayt <finlayt>
Date: Thu, 15 Aug 2002 03:27:28 +0000
Subject: [PATCH] Added some red color here into the message that appears when
 a waiting book is attempted to be issued.

---
 C4/Circulation/Circ2.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/C4/Circulation/Circ2.pm b/C4/Circulation/Circ2.pm
index 72e2e9c428..279b372362 100755
--- a/C4/Circulation/Circ2.pm
+++ b/C4/Circulation/Circ2.pm
@@ -327,10 +327,10 @@ sub issuebook {
 	}
 	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') {
+                           $patroninformation->{'categorycode'} ne 'W' &&
+                           $patroninformation->{'categorycode'} ne 'I' && 
+                           $patroninformation->{'categorycode'} ne 'B' &&
+                           $patroninformation->{'categorycode'} ne 'P') {
 	    $rejected = sprintf "Patron owes \$%.02f.", $amount;
 	    last SWITCH;
 	}
@@ -407,7 +407,7 @@ sub issuebook {
 		my $branchname = $branches->{$res->{'branchcode'}}->{'branchname'};
 		if ($responses->{2} eq '') {
 		    $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';
 		    last SWITCH;
 		} elsif ($responses->{2} eq 'N') {