[Koha-cvs] CVS: koha placerequest.pl,1.2,1.3 request.pl,1.9,1.10

[Finlay Thompson]

Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv20314

Modified Files:
        placerequest.pl request.pl 
Log Message:

minor changes to comments etc....


Index: placerequest.pl
===================================================================
RCS file: /cvsroot/koha/koha/placerequest.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** placerequest.pl     14 Aug 2002 18:12:51 -0000      1.2
--- placerequest.pl     21 Aug 2002 02:45:30 -0000      1.3
***************
*** 43,57 ****
  my $bornum=borrdata($borrower,'');
  if ($type eq 'str8' && $bornum ne ''){
! my address@hidden;
! @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++;
!   }
  }
  #print $input->dump;
--- 43,57 ----
  my $bornum=borrdata($borrower,'');
  if ($type eq 'str8' && $bornum ne ''){
!     my address@hidden;
!     @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++;
!     }
  }
  #print $input->dump;

Index: request.pl
===================================================================
RCS file: /cvsroot/koha/koha/request.pl,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -r1.9 -r1.10
*** request.pl  14 Aug 2002 18:12:51 -0000      1.9
--- request.pl  21 Aug 2002 02:45:30 -0000      1.10
***************
*** 71,75 ****
  my $bibitemrows = "";
  for (my $i=0; $i<$count2; $i++) {
!     if ($data[$i]->{'renewalsallowed'}){
        my @barcodes = barcodes($data[$i]->{'biblioitemnumber'});
        if ($data[$i]->{'dewey'} == 0){
--- 71,75 ----
  my $bibitemrows = "";
  for (my $i=0; $i<$count2; $i++) {
!     unless ($data[$i]->{'notforloan'}){
        my @barcodes = barcodes($data[$i]->{'biblioitemnumber'});
        if ($data[$i]->{'dewey'} == 0){