X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/6fd4ac204ed1ad07ad149106a1e62a77cad22c5b..0d816a7b6856720b1d017f3b9b4ab7ef7a4d5dfc:/SL/CVar.pm

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);