X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/529e6bf96e1ad74ae2e770a9e74f29f26a28d3c8..dc48be1ca22433a40ee8b24d9976d067c6dab022:/SL/Form.pm diff --git a/SL/Form.pm b/SL/Form.pm index 00880f1b2..78eac8a64 100644 --- a/SL/Form.pm +++ b/SL/Form.pm @@ -63,6 +63,7 @@ use SL::DB::Default; use SL::DB::PaymentTerm; use SL::DB::Vendor; use SL::DO; +use SL::Helper::Flash qw(); use SL::IC; use SL::IS; use SL::Layout::Dispatcher; @@ -681,20 +682,6 @@ sub show_generic_error { 'label_error' => $error, }; - if ($params{action}) { - my @vars; - - map { delete($self->{$_}); } qw(action); - map { push @vars, { "name" => $_, "value" => $self->{$_} } if (!ref($self->{$_})); } keys %{ $self }; - - $add_params->{SHOW_BUTTON} = 1; - $add_params->{BUTTON_LABEL} = $params{label} || $params{action}; - $add_params->{VARIABLES} = \@vars; - - } elsif ($params{back_button}) { - $add_params->{SHOW_BACK_BUTTON} = 1; - } - $self->{title} = $params{title} if $params{title}; $self->header(); @@ -746,6 +733,7 @@ sub redirect { $self->info($msg); } else { + SL::Helper::Flash::flash_later('info', $msg); $self->_store_redirect_info_in_session; print $::form->redirect_header($self->{callback}); }