From a47675246806e7d01625f2c64d0e2aae14fe306d Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Mon, 1 Jul 2013 16:41:01 +0200 Subject: [PATCH] InstanceConfiguration: Nur dann Daten aus Client-DB auslesen, wenn $::auth->client gesetzt ist --- SL/InstanceConfiguration.pm | 3 +++ 1 file changed, 3 insertions(+) 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|) ]; } -- 2.20.1