From d969a9bc03de048e76e8e79ae96ce9d00a132a05 Mon Sep 17 00:00:00 2001
From: tonnesen <tonnesen>
Date: Thu, 24 Oct 2002 16:30:26 +0000
Subject: [PATCH] Fixes bug in request.pl output.  barcodes() subroutine is
 returning and array of hashes, not an array of barcodes.

---
 request.pl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/request.pl b/request.pl
index 4a9bfaa8e7..0985c73252 100755
--- a/request.pl
+++ b/request.pl
@@ -120,7 +120,11 @@ printend
 my @data;
 ($count2,@data)=bibitems($bib);
 for (my $i=0;$i<$count2;$i++){
-  my @barcodes=barcodes($data[$i]->{'biblioitemnumber'});
+  my @barcodehashes=barcodes($data[$i]->{'biblioitemnumber'});
+  my @barcodes;
+  foreach (@barcodehashes) {
+      push @barcodes, $_->{barcode};
+  }
   if ($data[$i]->{'dewey'} == 0){
     $data[$i]->{'dewey'}="";
   }