From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Wed, 25 Jun 2008 13:57:21 +0000 (+0000)
Subject: Administration: Wenn eine neue Authentifizierungsdatenbank angelegt wird und keine... 
X-Git-Tag: release-2.6.0beta1~112
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=c3ed7ef1b20adb2e86c69e159cbff9b35acf7aac;p=kivitendo-erp.git

Administration: Wenn eine neue Authentifizierungsdatenbank angelegt wird und keine Benutzermigration erfolgt (sprich eine frische Installation von 2.6.0 oder neuer), so wird eine Standardgruppe namens "Vollzugriff" angelegt, die volle Rechte auf alle Funktionen erhält.
---

diff --git a/bin/mozilla/admin.pl b/bin/mozilla/admin.pl
index 4248a9c12..c22dc7616 100644
--- a/bin/mozilla/admin.pl
+++ b/bin/mozilla/admin.pl
@@ -176,6 +176,18 @@ sub create_auth_tables {
   $auth->set_session_value('rpw', $form->{rpw});
   $auth->create_or_refresh_session();
 
+  if (!-f $memberfile) {
+    # New installation -- create a standard group with full access
+    my $group = {
+      'name'        => $locale->text('Full Access'),
+      'description' => $locale->text('Full access to all functions'),
+      'rights'      => { map { $_ => 1 } SL::Auth::all_rights() },
+      'members'     => [ map { $_->{id} } values %members ],
+    };
+
+    $auth->save_group($group);
+  }
+
   login();
 }