[open-ils-commits] r12152 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-02-11 16:18:28 -0500 (Wed, 11 Feb 2009)
New Revision: 12152

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor/Container.pm
Log:
fixed broken array ref handling

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor/Container.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor/Container.pm	2009-02-11 20:43:00 UTC (rev 12151)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor/Container.pm	2009-02-11 21:18:28 UTC (rev 12152)
@@ -342,7 +342,7 @@
 
 	my $stat;
 	if( $class eq 'copy' ) {
-        for my $note (@${$e->search_container_copy_bucket_item_note({item => $item->id})}) {
+        for my $note (@{$e->search_container_copy_bucket_item_note({item => $item->id})}) {
             return $e->event unless 
                 $e->delete_container_copy_bucket_item_note($note);
         }
@@ -351,7 +351,7 @@
 	}
 
 	if( $class eq 'callnumber' ) {
-        for my $note (@${$e->search_container_call_number_bucket_item_note({item => $item->id})}) {
+        for my $note (@{$e->search_container_call_number_bucket_item_note({item => $item->id})}) {
             return $e->event unless 
                 $e->delete_container_call_number_bucket_item_note($note);
         }
@@ -360,7 +360,7 @@
 	}
 
 	if( $class eq 'biblio' ) {
-        for my $note (@${$e->search_container_biblio_record_entry_bucket_item_note({item => $item->id})}) {
+        for my $note (@{$e->search_container_biblio_record_entry_bucket_item_note({item => $item->id})}) {
             return $e->event unless 
                 $e->delete_container_biblio_record_entry_bucket_item_note($note);
         }
@@ -369,7 +369,7 @@
 	}
 
 	if( $class eq 'user') {
-        for my $note (@${$e->search_container_user_bucket_item_note({item => $item->id})}) {
+        for my $note (@{$e->search_container_user_bucket_item_note({item => $item->id})}) {
             return $e->event unless 
                 $e->delete_container_user_bucket_item_note($note);
         }