From aae7b7b649267974919e831f328a31483a91f1a9 Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 25 Aug 2005 22:01:14 +0000
Subject: [PATCH 1/1] bug fixing

git-svn-id: svn://svn.open-ils.org/ILS/trunk@1749 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 .../perlmods/OpenILS/Application/Storage/Publisher/biblio.pm  | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/biblio.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/biblio.pm
index 7459020f8c..8b0338ad70 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/biblio.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/biblio.pm
@@ -278,13 +278,13 @@ sub record_copy_status_count {
 	for my $row (@{$sth->fetchall_arrayref}) {
 		if ($cn and $cn ne $$row[1]) {
 			my $i = 0;
-			$client->respond( [$ou, $cn, \%data] );
+			$client->respond( [$ou, $cn, {%data}] );
 			%data = ();
 		}
 		($ou,$cn) = ($$row[0],$$row[1]);
 		$data{$$row[2]} = $$row[3];
 	}
-	return [$ou, $cn, \%data] if ($ou);
+	return [$ou, $cn, {%data}] if ($ou);
 	return undef;
 }
 __PACKAGE__->register_method(
-- 
2.43.2