[Koha-cvs] CVS: koha request.pl,1.2.2.4,1.2.2.5

[Steve Tonnesen]

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,@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,@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'}="";