[Koha-cvs] CVS: koha placerequest.pl,1.2,1.3 request.pl,1.9,1.10
Finlay Thompson
finlayt at users.sourceforge.net
Wed Aug 21 04:45:32 CEST 2002
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 $count=@bibitems;
! @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 $count=@bibitems;
! @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){
More information about the Koha-cvs
mailing list