X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/2737667aa9394428f885187928509e7c5d0ec4d4..1c62d23ef8305ca67a7cf19f69d4fb2939f972a0:/SL/Controller/CustomVariableConfig.pm diff --git a/SL/Controller/CustomVariableConfig.pm b/SL/Controller/CustomVariableConfig.pm index d87b8ac92..28ed17929 100644 --- a/SL/Controller/CustomVariableConfig.pm +++ b/SL/Controller/CustomVariableConfig.pm @@ -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); }