sql/Pg-upgrade2-auth/split_transaction_rights.pl

   1 # @tag: split_transaction_rights
   2 # @description: Finanzbuchhaltungsrechte für Buchungen aufspalten
   3 # @depends: release_3_4_0 master_rights_position_gaps
   4 # @locales: General Ledger Transaction
   5 # @locales: AR Transactions
   6 # @locales: AP Transactions
   7
   8
   9 package SL::DBUpgrade2::Auth::split_transaction_rights;
  10
  11 use strict;
  12 use utf8;
  13
  14 use parent qw(SL::DBUpgrade2::Base);
  15
  16 use SL::DBUtils;
  17
  18 sub run {
  19   my ($self) = @_;
  20
  21   $self->db_query("INSERT INTO auth.master_rights (position, name, description) VALUES (3130,'gl_transactions','General Ledger Transaction')");
  22   $self->db_query("INSERT INTO auth.master_rights (position, name, description) VALUES (3150,'ar_transactions','AR Transactions')");
  23   $self->db_query("INSERT INTO auth.master_rights (position, name, description) VALUES (3170,'ap_transactions','AP Transactions')");
  24   $self->db_query("UPDATE auth.master_rights SET description='General Ledger' WHERE name='general_ledger'");
  25
  26   my $groups = $main::auth->read_groups();
  27
  28   foreach my $group (values %{$groups}) {
  29     $group->{rights}->{gl_transactions} = $group->{rights}->{general_ledger};
  30     $group->{rights}->{ar_transactions} = $group->{rights}->{general_ledger};
  31     $group->{rights}->{ap_transactions} = $group->{rights}->{general_ledger};
  32     $main::auth->save_group($group);
  33   }
  34
  35   return 1;
  36 } # end run
  37
  38 1;