From 578f4adc392232723291b363c13ad618670df80e Mon Sep 17 00:00:00 2001 From: Niclas Zimmermann Date: Thu, 13 Jun 2013 10:15:47 +0200 Subject: [PATCH] Verschiebung von Upgrade-Script MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Upgrade-Script für das Setzen von Nutzerrechten befindet sich jetzt im Ordner Pg-Upgrade2-auth anstatt im Order Pg-Upgrade2. --- sql/Pg-upgrade2-auth/productivity_rights.pl | 27 +++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 sql/Pg-upgrade2-auth/productivity_rights.pl diff --git a/sql/Pg-upgrade2-auth/productivity_rights.pl b/sql/Pg-upgrade2-auth/productivity_rights.pl new file mode 100644 index 000000000..4dd0270da --- /dev/null +++ b/sql/Pg-upgrade2-auth/productivity_rights.pl @@ -0,0 +1,27 @@ +# @tag: productivity_rights +# @description: Setzt das Recht die Produktivität einzusehen und das Recht den Link zum Admin-Menü anzuzeigen wieder wie vorher +# @depends: release_3_0_0 +package SL::DBUpgrade2::productivity_rights; + +use strict; +use utf8; + +use parent qw(SL::DBUpgrade2::Base); + +use SL::DBUtils; + +sub run { + my ($self) = @_; + + my $groups = $main::auth->read_groups(); + + foreach my $group (values %{$groups}) { + $group->{rights}->{productivity} = 1 unless defined $group->{rights}->{productivity}; + $group->{rights}->{display_admin_link} = 1 unless defined $group->{rights}->{display_admin_link}; + $main::auth->save_group($group); + } + + return 1; +} # end run + +1; -- 2.20.1