Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

added a   if the volumendesc field is null.

Browse source
This commit is contained in:
finlayt 2002-07-31 04:27:57 +00:00
parent 7ff8ab7cc9
commit 6c98407c18
1 changed files with 12 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
request.pl
View file

@ -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'} = "&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";
<tr VALIGN=TOP>
<TD><input type=checkbox name=reqbib value=$data[$i]->{'biblioitemnumber'}>
<input type=hidden name=biblioitem value=$data[$i]->{'biblioitemnumber'}>
@ -74,6 +76,7 @@ for (my $i=0; $i<$count2; $i++){
<td>@barcodes</td>
</tr>
EOF
}
}