From 58b97f84fdd297b2a5aa14e408fdb1a154663d72 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Wed, 18 Jan 2017 10:37:32 +0100
Subject: [PATCH] =?utf8?q?Form->redirect:=20=C3=BCbergebene=20Nachricht=20?=
 =?utf8?q?mittels=20=C2=BBflash=5Flater=C2=AB=20anzeigen=20lassen?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

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.
---
 SL/Form.pm | 2 ++
 1 file changed, 2 insertions(+)

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