Revision 578f4adc
Von Niclas Zimmermann vor mehr als 11 Jahren hinzugefügt
sql/Pg-upgrade2-auth/productivity_rights.pl | ||
---|---|---|
1 |
# @tag: productivity_rights |
|
2 |
# @description: Setzt das Recht die Produktivität einzusehen und das Recht den Link zum Admin-Menü anzuzeigen wieder wie vorher |
|
3 |
# @depends: release_3_0_0 |
|
4 |
package SL::DBUpgrade2::productivity_rights; |
|
5 |
|
|
6 |
use strict; |
|
7 |
use utf8; |
|
8 |
|
|
9 |
use parent qw(SL::DBUpgrade2::Base); |
|
10 |
|
|
11 |
use SL::DBUtils; |
|
12 |
|
|
13 |
sub run { |
|
14 |
my ($self) = @_; |
|
15 |
|
|
16 |
my $groups = $main::auth->read_groups(); |
|
17 |
|
|
18 |
foreach my $group (values %{$groups}) { |
|
19 |
$group->{rights}->{productivity} = 1 unless defined $group->{rights}->{productivity}; |
|
20 |
$group->{rights}->{display_admin_link} = 1 unless defined $group->{rights}->{display_admin_link}; |
|
21 |
$main::auth->save_group($group); |
|
22 |
} |
|
23 |
|
|
24 |
return 1; |
|
25 |
} # end run |
|
26 |
|
|
27 |
1; |
Auch abrufbar als: Unified diff
Verschiebung von Upgrade-Script
Upgrade-Script für das Setzen von Nutzerrechten befindet sich jetzt
im Ordner Pg-Upgrade2-auth anstatt im Order Pg-Upgrade2.