sql/Pg-upgrade2-auth/custom_data_export_rights.pl

   1 # @tag: custom_data_export_rights
   2 # @description: Rechte für benutzerdefinierten Datenexport
   3 # @depends: release_3_5_0
   4 package SL::DBUpgrade2::Auth::custom_data_export_rights;
   5
   6 use strict;
   7 use utf8;
   8
   9 use parent qw(SL::DBUpgrade2::Base);
  10
  11 sub run {
  12   my ($self) = @_;
  13   my $right  = 'custom_data_export_designer';
  14
  15   $self->db_query("INSERT INTO auth.master_rights (position, name, description) VALUES (4275, '${right}', 'Custom data export')");
  16
  17   my $groups = $::auth->read_groups;
  18
  19   foreach my $group (grep { $_->{rights}->{admin} } values %{$groups}) {
  20     $group->{rights}->{$right} = 1;
  21     $::auth->save_group($group);
  22   }
  23
  24   return 1;
  25 }
  26
  27 1;