sql/Pg-upgrade2-auth/assembly_edit_right.pl

   1 # @tag: assembly_edit_right
   2 # @description: Setzt das Recht Erzeugnisbestandteile editieren, auch nachdem es schon erstmalig erzeugt wurde.
   3 # @depends: release_3_5_0 master_rights_position_gaps
   4 # @locales: Always edit assembly items (user can change/delete items even if assemblies are already produced)
   5 package SL::DBUpgrade2::Auth::assembly_edit_right;
   6
   7 use strict;
   8 use utf8;
   9
  10 use parent qw(SL::DBUpgrade2::Base);
  11
  12 use SL::DBUtils;
  13
  14 sub run {
  15   my ($self) = @_;
  16
  17   $self->db_query("INSERT INTO auth.master_rights (position, name, description) VALUES ( 550, 'assembly_edit', 'Always edit assembly items (user can change/delete items even if assemblies are already produced)')");
  18
  19   my $groups = $main::auth->read_groups();
  20
  21   foreach my $group (values %{$groups}) {
  22     $group->{rights}->{assembly_edit} = 0;
  23     $main::auth->save_group($group);
  24   }
  25
  26   return 1;
  27 } # end run
  28
  29 1;