svn merge -r8574:8575 - removed :funcs import
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Fri, 1 Feb 2008 20:20:54 +0000 (20:20 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Fri, 1 Feb 2008 20:20:54 +0000 (20:20 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/branches/acq-experiment@8576 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm

index bbfc6e0..fe0314d 100644 (file)
@@ -9,7 +9,7 @@ use OpenILS::Utils::ModsParser;
 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 @@ sub check_user_perms {
        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;
 }