2 use strict; use warnings;
4 use OpenSRF::Utils::SettingsClient;
5 use OpenILS::Utils::Fieldmapper;
6 use OpenSRF::EX qw(:try);
7 use OpenSRF::AppSession;
8 use OpenSRF::Utils::Logger;
10 # ----------------------------------------------------------------------------------
11 # These permission strings
12 # ----------------------------------------------------------------------------------
14 # returns a new fieldmapper::perm_ex
15 my $logger = 'OpenSRF::Utils::Logger';
18 my($class, $type) = @_;
19 $logger->warn("Returning permission error: $type");
20 return bless( { ilsevent => 5000, ilsperm => $type }, 'OpenILS::Perm');