sql/Pg-upgrade2-auth/purchase_letter_rights.pl

   1 # @tag: purchase_letter_rights
   2 # @description: Neue Rechte für Lieferantenbriefe
   3 # @depends: release_3_4_0 add_master_rights master_rights_position_gaps
   4 # @locales: Edit purchase letters
   5 # @locales: Show purchase letters report
   6 package SL::DBUpgrade2::Auth::purchase_letter_rights;
   7
   8 use strict;
   9 use utf8;
  10
  11 use parent qw(SL::DBUpgrade2::Base);
  12
  13 use SL::DBUtils;
  14
  15 sub run {
  16   my ($self) = @_;
  17
  18   $self->db_query("INSERT INTO auth.master_rights (position, name, description) VALUES (?, ?, ?)", bind => $_) for
  19     [ 2550, 'purchase_letter_edit',   'Edit purchase letters'        ],
  20     [ 2650, 'purchase_letter_report', 'Show purchase letters report' ];
  21
  22   my $groups = $main::auth->read_groups();
  23
  24   foreach my $group (values %{$groups}) {
  25     $group->{rights}->{purchase_letter_edit} = $group->{rights}->{purchase_order_edit};
  26     $group->{rights}->{purchase_letter_report} = $group->{rights}->{purchase_order_edit};
  27     $main::auth->save_group($group);
  28   }
  29
  30   return 1;
  31 } # end run
  32
  33 1;