From eb78ea1a41b542a0dae3a27fa26b016d36432efb Mon Sep 17 00:00:00 2001 From: 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