[open-ils-commits] r13115 - trunk/Open-ILS/src/perlmods/OpenILS/Application (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2009-05-10 10:03:07 -0400 (Sun, 10 May 2009)
New Revision: 13115

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm
Log:
use direct access -- those variables do not exist anymore

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm	2009-05-10 13:05:11 UTC (rev 13114)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm	2009-05-10 14:03:07 UTC (rev 13115)
@@ -891,7 +891,12 @@
 			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
+            };
 
 		}
 	}