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

   1 package OpenILS::Application::Storage::Publisher::permission;
   2 use base qw/OpenILS::Application::Storage/;
   3 #use OpenILS::Application::Storage::CDBI::config;
   4
   5
   6 sub usr_has_perm {
   7         my $self = shift;
   8         my $client = shift;
   9         my $usr = shift;
  10         my $perm = shift;
  11
  12         return permission::usr_grp_map->db_Main->selectrow_arrayref(<<" SQL",{}, "$usr", "$perm")->[0];
  13                 SELECT permission.usr_has_perm(?,?)
  14         SQL
  15 }
  16 __PACKAGE__->register_method(
  17         method          => 'usr_has_perm',
  18         api_name        => 'open-ils.storage.permission.user_has_perm',
  19         argc            => 2,
  20 );
  21
  22 sub usr_perms {
  23         my $self = shift;
  24         my $client = shift;
  25         my $usr = shift;
  26
  27         my $sth = permission::usr_perm_map->db_Main->prepare('SELECT permission.usr_perms(?)');
  28         $sth->execute("$usr");
  29
  30         $client->respond( $_->to_fieldmapper ) for ( map { permission::usr_perm_map->construct($_) } $sth->fetchall_hash );
  31
  32         return undef;
  33 }
  34 __PACKAGE__->register_method(
  35         method          => 'usr_perms',
  36         api_name        => 'open-ils.storage.permission.user_perms',
  37         argc            => 2,
  38 );
  39
  40 1;