[open-ils-commits] r13115 - trunk/Open-ILS/src/perlmods/OpenILS/Application (miker)
svn at svn.open-ils.org
svn at svn.open-ils.org
Sun May 10 10:03:08 EDT 2009
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
+ };
}
}
More information about the open-ils-commits
mailing list