1 # @tag: split_transaction_rights
2 # @description: Finanzbuchhaltungsrechte für Buchungen aufspalten
3 # @depends: release_3_4_0 master_rights_position_gaps
5 # @locales: General Ledger Transaction
6 # @locales: AR Transactions
7 # @locales: AP Transactions
10 package SL::DBUpgrade2::Auth::split_transaction_rights;
15 use parent qw(SL::DBUpgrade2::Base);
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'");
27 my $groups = $main::auth->read_groups();
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);