use iterator interface instead of magical array-ref-ness

git-svn-id: svn://svn.open-ils.org/ILS/trunk@7667 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/actor.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/actor.pm
index 2234a27..5124698 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/actor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/actor.pm
@@ -533,7 +533,7 @@ sub patron_search {
        }
 
        if (!$ws_ou) {  # XXX This should be required!!
-               $ws_ou = actor::org_unit->search( { parent_ou => undef } )->[0]->id;
+               $ws_ou = actor::org_unit->search( { parent_ou => undef } )->next->id;
        }
 
        my $opt_in_join = '';