moved to new perm style { ilsevent => 5000, ilsperm => $name }
[Evergreen.git] / Open-ILS / src / perlmods / OpenILS / Perm.pm
1 package OpenILS::Perm;
2 use strict; use warnings;
3 use Template qw(:template);
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;
9
10 # ----------------------------------------------------------------------------------
11 # These permission strings
12 # ----------------------------------------------------------------------------------
13
14 # returns a new fieldmapper::perm_ex
15 my $logger = 'OpenSRF::Utils::Logger';
16
17 sub new {
18         my($class, $type) = @_;
19         $logger->warn("Returning permission error: $type");
20         return bless( { ilsevent => 5000, ilsperm => $type }, 'OpenILS::Perm');
21 }
22
23 1;