Einführung eines simplen Anzeige-Systems für Fehler, Warnungen, Informationen

[mfinanz.git] / bin / mozilla / common.pl

diff --git a/bin/mozilla/common.pl b/bin/mozilla/common.pl
index 82a988ec59d3fd8815152e779d1b97fe9b23e75b..57acc954d4adebe9b0c7345adad835bf63766817 100644 (file)
--- a/bin/mozilla/common.pl
+++ b/bin/mozilla/common.pl
@@ -727,6 +727,18 @@ sub gl_transaction {
   $main::lxdebug->leave_sub();
 }
 
+sub flash {
+  my $category = shift;
+
+  $::form->{FLASH} ||= { };
+  $::form->{FLASH}->{ $category } ||= [ ];
+  push @{ $::form->{FLASH}->{ $category } }, @_;
+}
+
+sub render_flash {
+  return $::form->parse_html_template('common/flash');
+}
+
 if ($::use_rdbo) {
   eval {
     require SL::DB::Helpers::Mappings;