]> wagnertech.de Git - mfinanz.git/blobdiff - SL/Controller/CustomVariableConfig.pm
Steuerzone - Default eingeführt (statt id 0)
[mfinanz.git] / SL / Controller / CustomVariableConfig.pm
index d87b8ac92c53dab5ba8e218d41cdcc9f72fad456..28ed17929df27c705737d5c6db0f8961926dd4b4 100644 (file)
@@ -9,6 +9,7 @@ use List::Util qw(first);
 use SL::DB::CustomVariableConfig;
 use SL::Helper::Flash;
 use SL::Locale::String;
+use Data::Dumper;
 
 use Rose::Object::MakeMethods::Generic (
   scalar                  => [ qw(config module module_description flags) ],
@@ -59,12 +60,11 @@ sub action_new {
 sub show_form {
   my ($self, %params) = @_;
 
-  $self->flags([
-    map { split m/=/, 2 }
-    split m/;/, ($self->config->flags || '')
-  ]);
+  $self->flags({
+    map { split m/=/, $_, 2 }
+    split m/:/, ($self->config->flags || '')
+  });
 
-  $::request->layout->focus('#config_name');
   $self->render('custom_variable_config/form', %params);
 }