[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'} = "&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'}>
***************
*** 75,78 ****
--- 77,81 ----
  </tr>
  EOF
+     }
  }
  





More information about the Koha-cvs mailing list