From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Wed, 18 Jan 2017 09:37:32 +0000 (+0100)
Subject: Form->redirect: übergebene Nachricht mittels »flash_later« anzeigen lassen
X-Git-Tag: release-3.5.4~1699
X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/commitdiff_plain/58b97f84fdd297b2a5aa14e408fdb1a154663d72?ds=inline;hp=-c

Form->redirect: übergebene Nachricht mittels »flash_later« anzeigen lassen

Der Funktion $::form->redirect kann eine Nachricht übergeben
werden. Diese wird bisher nur dann angezeigt, wenn es keinen
aufzurufenden Callback gibt. Gibt es einen Callback, verschwindet die
Nachricht bisher im Nirvana.

Mit dieser Änderung wird die Nachricht im Flash gespeichert. Damit
besteht zumindest eine Chance, dass die nachfolgend angezeigte Maske die
Nachricht auch anzeigt, sofern sie den Flash einbindet. Da das
langfristig eh alle Masken machen sollen, ergibt diese Übergabe auch
jetzt schon Sinn.
---

58b97f84fdd297b2a5aa14e408fdb1a154663d72
diff --git a/SL/Form.pm b/SL/Form.pm
index f737a58dd..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;
@@ -732,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});
   }