[Koha-cvs] CVS: koha request.pl,1.2.2.4,1.2.2.5
Steve Tonnesen
tonnesen at users.sourceforge.net
Thu Oct 24 18:30:29 CEST 2002
Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv14379
Modified Files:
Tag: rel-1-2
request.pl
Log Message:
Fixes bug in request.pl output. barcodes() subroutine is returning and array
of hashes, not an array of barcodes.
Index: request.pl
===================================================================
RCS file: /cvsroot/koha/koha/request.pl,v
retrieving revision 1.2.2.4
retrieving revision 1.2.2.5
diff -C2 -r1.2.2.4 -r1.2.2.5
*** request.pl 11 Sep 2002 21:28:28 -0000 1.2.2.4
--- request.pl 24 Oct 2002 16:30:26 -0000 1.2.2.5
***************
*** 121,125 ****
($count2, at data)=bibitems($bib);
for (my $i=0;$i<$count2;$i++){
! my @barcodes=barcodes($data[$i]->{'biblioitemnumber'});
if ($data[$i]->{'dewey'} == 0){
$data[$i]->{'dewey'}="";
--- 121,129 ----
($count2, at data)=bibitems($bib);
for (my $i=0;$i<$count2;$i++){
! my @barcodehashes=barcodes($data[$i]->{'biblioitemnumber'});
! my @barcodes;
! foreach (@barcodehashes) {
! push @barcodes, $_->{barcode};
! }
if ($data[$i]->{'dewey'} == 0){
$data[$i]->{'dewey'}="";
More information about the Koha-cvs
mailing list