minor changes to comments etc....

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

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;

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'}="";