sql/Pg-upgrade2-auth/rights_for_showing_ar_and_ap_transactions.pl

   1 # @tag: rights_for_showing_ar_and_ap_transactions
   2 # @description: Setzt das Recht zur Anzeige von Debitoren- und Kreditorenbuchungen im Rechnungsbericht
   3 # @depends: release_3_2_0 add_master_rights
   4 package SL::DBUpgrade2::rights_for_showing_ar_and_ap_transactions;
   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   my $groups = $main::auth->read_groups();
  17
  18   foreach my $group (values %{$groups}) {
  19     $group->{rights}->{show_ar_transactions} = 1;
  20     $group->{rights}->{show_ap_transactions} = 1;
  21     $main::auth->save_group($group);
  22   }
  23
  24   return 1;
  25 } # end run
  26
  27 1;