From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Mon, 1 Jul 2013 14:41:01 +0000 (+0200)
Subject: InstanceConfiguration: Nur dann Daten aus Client-DB auslesen, wenn $::auth->client... 
X-Git-Tag: release-3.1.0beta1~242
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=a47675246806e7d01625f2c64d0e2aae14fe306d;p=kivitendo-erp.git

InstanceConfiguration: Nur dann Daten aus Client-DB auslesen, wenn $::auth->client gesetzt ist
---

diff --git a/SL/InstanceConfiguration.pm b/SL/InstanceConfiguration.pm
index 31f98c462..6ea88f8d1 100644
--- a/SL/InstanceConfiguration.pm
+++ b/SL/InstanceConfiguration.pm
@@ -11,6 +11,8 @@ use Rose::Object::MakeMethods::Generic (
 );
 
 sub init_data {
+  return {} if !$::auth->client;
+
   my $dbh                   = $::form->get_standard_dbh;
   my $data                  = SL::DBUtils::selectfirst_hashref_query($::form, $dbh, qq|SELECT * FROM defaults|);
   $data->{default_currency} = (SL::DBUtils::selectfirst_array_query($::form, $dbh, qq|SELECT name FROM currencies WHERE id = ?|, $data->{currency_id}))[0] if $data->{currency_id};
@@ -19,6 +21,7 @@ sub init_data {
 }
 
 sub init_currencies {
+  return [] if !$::auth->client;
   return [ map { $_->{name} } SL::DBUtils::selectall_hashref_query($::form, $::form->get_standard_dbh, qq|SELECT name FROM currencies ORDER BY id ASC|) ];
 }