From a5191643284956ba569776a9654d2b830e53a1d5 Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Sun, 10 May 2009 14:03:07 +0000
Subject: [PATCH] use direct access -- those variables do not exist anymore

git-svn-id: svn://svn.open-ils.org/ILS/trunk@13115 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm b/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm
index c79148712e..46ff960eba 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm
@@ -891,7 +891,12 @@ sub basic_record_holdings {
 			next unless grep { $cp->circ_lib->id == $_ } @ou_ids;
 			next unless ( $cp->deleted eq 'f' || $cp->deleted == 0 );
 
-			push @{$holdings{$cn->label}{'copies'}}, { barcode => $cp_bc, status => $cp_stat, location => $cp_loc, circlib => $cp_lib};
+			push @{$holdings{$cn->label}{'copies'}}, {
+                barcode => $cp->barcode,
+                status => $cp->status->name,
+                location => $cp->location->name,
+                circlib => $cp->circ_lib->shortname
+            };
 
 		}
 	}
-- 
2.11.0