From 6c98407c18feefcf75473687aecdfb9a7e606373 Mon Sep 17 00:00:00 2001 From: finlayt Date: Wed, 31 Jul 2002 04:27:57 +0000 Subject: [PATCH] added a   if the volumendesc field is null. --- request.pl | 21 ++++++++++++--------- 1 file changed, 12 insertions(+), 9 deletions(-) diff --git a/request.pl b/request.pl index b45fa02a4f..27d0eda9d8 100755 --- a/request.pl +++ b/request.pl @@ -52,15 +52,17 @@ my $date="$mday/$mon/$year"; # get biblioitem information and build rows for form my ($count2,@data) = bibitems($bib); my $bibitemrows = ""; -for (my $i=0; $i<$count2; $i++){ - my @barcodes = barcodes($data[$i]->{'biblioitemnumber'}); - if ($data[$i]->{'dewey'} == 0){ - $data[$i]->{'dewey'}=""; - } - $data[$i]->{'dewey'}=~ s/\.0000$//; - $data[$i]->{'dewey'}=~ s/00$//; - my $class="$data[$i]->{'classification'}$data[$i]->{'dewey'}$data[$i]->{'subclass'}"; - $bibitemrows .= <<"EOF"; +for (my $i=0; $i<$count2; $i++) { + if ($data[$i]->{'renewalsallowed'}){ + my @barcodes = barcodes($data[$i]->{'biblioitemnumber'}); + if ($data[$i]->{'dewey'} == 0){ + $data[$i]->{'dewey'}=""; + } + $data[$i]->{'volumeddesc'} = " " 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"; {'biblioitemnumber'}> {'biblioitemnumber'}> @@ -74,6 +76,7 @@ for (my $i=0; $i<$count2; $i++){ @barcodes EOF + } } -- 2.11.0