Open-ILS/src/perlmods/lib/OpenILS/Perm.pm

   1 package OpenILS::Perm;
   2 use strict; use warnings;
   3 use 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;