Open-ILS/src/perlmods/OpenILS/Application/Storage/CDBI/permission.pm

   1 package OpenILS::Application::Storage::CDBI::permission;
   2 our $VERSION = 1;
   3
   4 #-------------------------------------------------------------------------------
   5 package permission;
   6 use base qw/OpenILS::Application::Storage::CDBI/;
   7 #-------------------------------------------------------------------------------
   8 package permission::perm_list;
   9 use base qw/permission/;
  10 __PACKAGE__->table('permission_perm_list');
  11 __PACKAGE__->columns(Primary => qw/id/);
  12 __PACKAGE__->columns(Essential => qw/code description/);
  13 #-------------------------------------------------------------------------------
  14 package permission::grp_tree;
  15 use base qw/permission/;
  16 __PACKAGE__->table('permission_grp_tree');
  17 __PACKAGE__->columns(Primary => qw/id/);
  18 __PACKAGE__->columns(Essential => qw/name parent description perm_interval
  19                                      application_perm usergroup hold_priority/);
  20 #-------------------------------------------------------------------------------
  21 package permission::usr_grp_map;
  22 use base qw/permission/;
  23 __PACKAGE__->table('permission_usr_grp_map');
  24 __PACKAGE__->columns(Primary => qw/id/);
  25 __PACKAGE__->columns(Essential => qw/usr grp/);
  26 #-------------------------------------------------------------------------------
  27 package permission::usr_perm_map;
  28 use base qw/permission/;
  29 __PACKAGE__->table('permission_usr_perm_map');
  30 __PACKAGE__->columns(Primary => qw/id/);
  31 __PACKAGE__->columns(Essential => qw/usr perm depth grantable/);
  32 #-------------------------------------------------------------------------------
  33 package permission::grp_perm_map;
  34 use base qw/permission/;
  35 __PACKAGE__->table('permission_grp_perm_map');
  36 __PACKAGE__->columns(Primary => qw/id/);
  37 __PACKAGE__->columns(Essential => qw/grp perm depth grantable/);
  38 #-------------------------------------------------------------------------------
  39 package permission::usr_work_ou_map;
  40 use base qw/permission/;
  41 __PACKAGE__->table('permission_usr_work_ou_map');
  42 __PACKAGE__->columns(Primary => qw/id/);
  43 __PACKAGE__->columns(Essential => qw/usr work_ou/);
  44 #-------------------------------------------------------------------------------
  45 1;
  46