From eb78ea1a41b542a0dae3a27fa26b016d36432efb Mon Sep 17 00:00:00 2001
From: finlayt <finlayt>
Date: Wed, 21 Aug 2002 02:45:30 +0000
Subject: [PATCH] minor changes to comments etc....

---
 C4/Circulation/Circ2.pm |  7 ++-----
 placerequest.pl         | 20 ++++++++++----------
 request.pl              |  2 +-
 3 files changed, 13 insertions(+), 16 deletions(-)

diff --git a/C4/Circulation/Circ2.pm b/C4/Circulation/Circ2.pm
index 279b372362..b0349c5c52 100755
--- a/C4/Circulation/Circ2.pm
+++ b/C4/Circulation/Circ2.pm
@@ -204,6 +204,7 @@ sub getiteminformation {
 	$sth->execute;
 	my $itemtype=$sth->fetchrow_hashref;
 	$iteminformation->{'loanlength'}=$itemtype->{'loanlength'};
+	$iteminformation->{'notforloan'}=$itemtype->{'notforloan'};
 	$sth->finish;
     }
     $dbh->disconnect;
@@ -339,7 +340,7 @@ sub issuebook {
 	    last SWITCH;
 	}
 	if ($iteminformation->{'notforloan'} == 1) {
-	    $rejected="Item not for loan.";
+	    $rejected="Reference item: not for loan.";
 	    last SWITCH;
 	}
 	if ($iteminformation->{'wthdrawn'} == 1) {
@@ -350,10 +351,6 @@ sub issuebook {
 	    $rejected="Restricted item.";
 	    last SWITCH;
 	}
-	if ($iteminformation->{'itemtype'} eq 'REF') {
-	    $rejected="Reference item:  Not for loan.";
-	    last SWITCH;
-	}
 	my ($currentborrower) = currentborrower($iteminformation->{'itemnumber'});
 	if ($currentborrower eq $patroninformation->{'borrowernumber'}) {
 # Already issued to current borrower
diff --git a/placerequest.pl b/placerequest.pl
index 53476dc1e2..c62983d4d8 100755
--- a/placerequest.pl
+++ b/placerequest.pl
@@ -42,17 +42,17 @@ my $type=$input->param('type');
 my $title=$input->param('title');
 my $bornum=borrdata($borrower,'');
 if ($type eq 'str8' && $bornum ne ''){
-my $count=@bibitems;
-@bibitems=sort @bibitems;
-my $i2=1;
-my @realbi;
-$realbi[0]=$bibitems[0];
+    my $count=@bibitems;
+    @bibitems=sort @bibitems;
+    my $i2=1;
+    my @realbi;
+    $realbi[0]=$bibitems[0];
 for (my $i=1;$i<$count;$i++){
-  my $i3=$i2-1;
-  if ($realbi[$i3] ne $bibitems[$i]){
-    $realbi[$i2]=$bibitems[$i];
-    $i2++;
-  }
+    my $i3=$i2-1;
+    if ($realbi[$i3] ne $bibitems[$i]){
+	$realbi[$i2]=$bibitems[$i];
+	$i2++;
+    }
 }
 #print $input->dump;
 my $env;
diff --git a/request.pl b/request.pl
index 0148b9bcb1..275574236e 100755
--- a/request.pl
+++ b/request.pl
@@ -70,7 +70,7 @@ my $date="$mday/$mon/$year";
 my ($count2,@data) = bibitems($bib);
 my $bibitemrows = "";
 for (my $i=0; $i<$count2; $i++) {
-    if ($data[$i]->{'renewalsallowed'}){
+    unless ($data[$i]->{'notforloan'}){
 	my @barcodes = barcodes($data[$i]->{'biblioitemnumber'});
 	if ($data[$i]->{'dewey'} == 0){
 	    $data[$i]->{'dewey'}="";
-- 
2.39.5