[open-ils-commits] r8576 - branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-02-01 15:20:54 -0500 (Fri, 01 Feb 2008)
New Revision: 8576

Modified:
   branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
Log:
svn merge -r8574:8575 - removed :funcs import

Modified: branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
===================================================================
--- branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm	2008-02-01 20:19:52 UTC (rev 8575)
+++ branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm	2008-02-01 20:20:54 UTC (rev 8576)
@@ -9,7 +9,7 @@
 use OpenSRF::EX qw(:try);
 use OpenILS::Event;
 use Data::Dumper;
-use OpenILS::Utils::CStoreEditor qw/:funcs/;
+use OpenILS::Utils::CStoreEditor;
 use OpenILS::Const qw/:const/;
 
 # ---------------------------------------------------------------------------
@@ -64,7 +64,7 @@
 	for my $type (@perm_types) {
 	    $PERM_QUERY->{select}->{au}->[0]->{params} = [$type, $org_id];
 		$PERM_QUERY->{where}->{id} = $user_id;
-		return $type unless $self->is_true(new_editor()->json_query($PERM_QUERY)->[0]->{has_perm});
+		return $type unless $self->is_true(OpenILS::Utils::CStoreEditor->new->json_query($PERM_QUERY)->[0]->{has_perm});
 	}
 	return undef;
 }