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