1 # @tag: purchase_letter_rights
2 # @description: Neue Rechte für Lieferantenbriefe
3 # @depends: release_3_4_0 add_master_rights master_rights_position_gaps
4 # @locales: Edit purchase letters
5 # @locales: Show purchase letters report
6 package SL::DBUpgrade2::Auth::purchase_letter_rights;
11 use parent qw(SL::DBUpgrade2::Base);
18 $self->db_query("INSERT INTO auth.master_rights (position, name, description) VALUES (?, ?, ?)", bind => $_) for
19 [ 2550, 'purchase_letter_edit', 'Edit purchase letters' ],
20 [ 2650, 'purchase_letter_report', 'Show purchase letters report' ];
22 my $groups = $main::auth->read_groups();
24 foreach my $group (values %{$groups}) {
25 $group->{rights}->{purchase_letter_edit} = $group->{rights}->{purchase_order_edit};
26 $group->{rights}->{purchase_letter_report} = $group->{rights}->{purchase_order_edit};
27 $main::auth->save_group($group);