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 application_perm/);
  19 #-------------------------------------------------------------------------------
  20 package permission::usr_grp_map;
  21 use base qw/permission/;
  22 __PACKAGE__->table('permission_usr_grp_map');
  23 __PACKAGE__->columns(Primary => qw/id/);
  24 __PACKAGE__->columns(Essential => qw/usr grp/);
  25 #-------------------------------------------------------------------------------
  26 package permission::usr_perm_map;
  27 use base qw/permission/;
  28 __PACKAGE__->table('permission_usr_perm_map');
  29 __PACKAGE__->columns(Primary => qw/id/);
  30 __PACKAGE__->columns(Essential => qw/usr perm depth grantable/);
  31 #-------------------------------------------------------------------------------
  32 package permission::grp_perm_map;
  33 use base qw/permission/;
  34 __PACKAGE__->table('permission_grp_perm_map');
  35 __PACKAGE__->columns(Primary => qw/id/);
  36 __PACKAGE__->columns(Essential => qw/grp perm depth grantable/);
  37 #-------------------------------------------------------------------------------
  38 1;
  39