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
9 package SL::DBUpgrade2::Auth::split_transaction_rights;
14 use parent qw(SL::DBUpgrade2::Base);
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'");
26 my $groups = $main::auth->read_groups();
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);