[Koha-cvs] CVS: koha request.pl,1.6,1.7
Finlay Thompson
finlayt at users.sourceforge.net
Wed Jul 31 06:27:59 CEST 2002
Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv12016
Modified Files:
request.pl
Log Message:
added a if the volumendesc field is null.
Index: request.pl
===================================================================
RCS file: /cvsroot/koha/koha/request.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** request.pl 26 Jul 2002 01:08:13 -0000 1.6
--- request.pl 31 Jul 2002 04:27:57 -0000 1.7
***************
*** 53,65 ****
my ($count2, at 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";
<tr VALIGN=TOP>
<TD><input type=checkbox name=reqbib value=$data[$i]->{'biblioitemnumber'}>
--- 53,67 ----
my ($count2, at data) = bibitems($bib);
my $bibitemrows = "";
! 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";
<tr VALIGN=TOP>
<TD><input type=checkbox name=reqbib value=$data[$i]->{'biblioitemnumber'}>
***************
*** 75,78 ****
--- 77,81 ----
</tr>
EOF
+ }
}
More information about the Koha-cvs
mailing list