sql/Pg-upgrade2-auth/record_links_rights.pl

   1 # @tag: record_links_rights
   2 # @description: Setzt das Recht um den Tab verknüpfte Belege zu sehen, per Default erlaubt (wie vorher auch)
   3 # @depends: release_3_4_0 master_rights_position_gaps
   4 package SL::DBUpgrade2::Auth::record_links_rights;
   5
   6 use strict;
   7 use utf8;
   8
   9 use parent qw(SL::DBUpgrade2::Base);
  10
  11 use SL::DBUtils;
  12
  13 sub run {
  14   my ($self) = @_;
  15
  16   $self->db_query("INSERT INTO auth.master_rights (position, name, description) VALUES ( 4750, 'record_links', 'Linked Records')");
  17
  18   my $groups = $main::auth->read_groups();
  19
  20   foreach my $group (values %{$groups}) {
  21     $group->{rights}->{record_links} = 1;
  22     $main::auth->save_group($group);
  23   }
  24
  25   return 1;
  26 } # end run
  27
  28 1;