From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Thu, 13 Jan 2011 14:13:33 +0000 (+0100)
Subject: Verhindern, dass Strings als Hash-Referenz misbraucht werden
X-Git-Tag: release-2.6.2beta2~24
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=0d816a7b6856720b1d017f3b9b4ab7ef7a4d5dfc;p=kivitendo-erp.git

Verhindern, dass Strings als Hash-Referenz misbraucht werden

Ich bin gerade zu unkonzentriert, um die tatsächliche Ursache zu
finden. Es hat etwas damit zu tun, dass ein Callback zusammengebaut
wird und dabei $::form->{CVAR_CONFIGS} eine Hash-Referenz ist, die im
Callback sclicht als String erscheint.
---

diff --git a/SL/CVar.pm b/SL/CVar.pm
index 8c4f6a899..0de9a4bcf 100644
--- a/SL/CVar.pm
+++ b/SL/CVar.pm
@@ -30,6 +30,7 @@ sub get_configs {
     FROM custom_variable_configs $where ORDER BY sortkey
 SQL
 
+  $::form->{CVAR_CONFIGS} = {} unless 'HASH' eq ref $::form->{CVAR_CONFIGS};
   if (!$::form->{CVAR_CONFIGS}->{$params{module}}) {
     my $configs  = selectall_hashref_query($form, $dbh, $query, @values);