X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/b6aa691e35aafda0ea25410b326e92b1216ad247..4856da7e20f5dba5c1ecca440869de3f6bb0a70a:/bin/mozilla/common.pl

diff --git a/bin/mozilla/common.pl b/bin/mozilla/common.pl
index 82a988ec5..57acc954d 100644
--- 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;