bug fixing
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Thu, 25 Aug 2005 22:01:14 +0000 (22:01 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Thu, 25 Aug 2005 22:01:14 +0000 (22:01 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@1749 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/biblio.pm

index 7459020..8b0338a 100644 (file)
@@ -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(