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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm b/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm
index c791487..46ff960 100644 (file)
--- 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
+            };
 
                }
        }