From e8c683ca536b7530f0c7a110aec40f051b560f06 Mon Sep 17 00:00:00 2001
From: finlayt <finlayt>
Date: Wed, 21 Aug 2002 04:31:25 +0000
Subject: [PATCH] Changed the display of lost, long overdue, reference, and
 cancelled items.

---
 request.pl | 37 +++++++++++++++++++++++--------------
 1 file changed, 23 insertions(+), 14 deletions(-)

diff --git a/request.pl b/request.pl
index 275574236e..5542b06d57 100755
--- a/request.pl
+++ b/request.pl
@@ -70,20 +70,29 @@ my $date="$mday/$mon/$year";
 my ($count2,@data) = bibitems($bib);
 my $bibitemrows = "";
 for (my $i=0; $i<$count2; $i++) {
-    unless ($data[$i]->{'notforloan'}){
-	my @barcodes = barcodes($data[$i]->{'biblioitemnumber'});
-	if ($data[$i]->{'dewey'} == 0){
-	    $data[$i]->{'dewey'}="";
-	}
-	$data[$i]->{'volumeddesc'} = "&nbsp;" unless $data[$i]->{'volumeddesc'};
-	$data[$i]->{'dewey'}=~ s/\.0000$//;
-	$data[$i]->{'dewey'}=~ s/00$//;
-	my $class="$data[$i]->{'classification'}$data[$i]->{'dewey'}$data[$i]->{'subclass'}";
-	$bibitemrows .= <<"EOF";
+    my @barcodes = barcodes($data[$i]->{'biblioitemnumber'});
+    if ($data[$i]->{'dewey'} == 0){
+	$data[$i]->{'dewey'}="";
+    }
+    $data[$i]->{'volumeddesc'} = "&nbsp;" unless $data[$i]->{'volumeddesc'};
+    $data[$i]->{'dewey'}=~ s/\.0000$//;
+    $data[$i]->{'dewey'}=~ s/00$//;
+    my $class="$data[$i]->{'classification'}$data[$i]->{'dewey'}$data[$i]->{'subclass'}";
+    my $select;
+    if ($data[$i]->{'notforloan'}) {
+	$select = "Reference Item.";
+    } elsif ($data[$i]->{'itemlost'} == 1) {
+	$select = "Item Lost";
+    } elsif ($data[$i]->{'itemlost'} == 2) {
+	$select = "Long Overdue";
+    } elsif ($data[$i]->{'wthdrawn'}) {
+	$select = "Item Cancelled";
+    } else {
+	$select = " <input type=checkbox name=reqbib value=$data[$i]->{'biblioitemnumber'}><input type=hidden name=biblioitem value=$data[$i]->{'biblioitemnumber'}>";
+    }
+    $bibitemrows .= <<"EOF";
 <tr VALIGN=TOP>
-<TD><input type=checkbox name=reqbib value=$data[$i]->{'biblioitemnumber'}>
-<input type=hidden name=biblioitem value=$data[$i]->{'biblioitemnumber'}>
-</td>
+<TD>$select</td>
 <TD>$data[$i]->{'description'}</td>
 <TD>$class</td>
 <td>$data[$i]->{'volumeddesc'}</td>
@@ -93,11 +102,11 @@ for (my $i=0; $i<$count2; $i++) {
 <td>@barcodes</td>
 </tr>
 EOF
-    }
 }
 
 
 
+
 my $existingreserves = "";
 foreach my $res (sort {$a->{'found'} cmp $b->{'found'}} @$reserves){
     my $prioropt = priorityoptions($count, $res->{'priority'});
-- 
2.39.2