Flash-Funktionen in eigenes Package verschoben
authorMoritz Bunkus <m.bunkus@linet-services.de>
Thu, 30 Dec 2010 14:47:26 +0000 (15:47 +0100)
committerMoritz Bunkus <m.bunkus@linet-services.de>
Thu, 30 Dec 2010 14:47:26 +0000 (15:47 +0100)
SL/Helper/Flash.pm [new file with mode: 0644]
bin/mozilla/common.pl

diff --git a/SL/Helper/Flash.pm b/SL/Helper/Flash.pm
new file mode 100644 (file)
index 0000000..8074232
--- /dev/null
@@ -0,0 +1,22 @@
+package SL::Helper::Flash;
+
+use strict;
+
+require Exporter;
+our @ISA    = qw(Exporter);
+our @EXPORT = qw(flash render_flash);
+
+sub flash {
+  my $category = shift;
+  $category    = 'info' if $category eq 'information';
+
+  $::form->{FLASH}                ||= { };
+  $::form->{FLASH}->{ $category } ||= [ ];
+  push @{ $::form->{FLASH}->{ $category } }, @_;
+}
+
+sub render_flash {
+  return $::form->parse_html_template('common/flash');
+}
+
+1;
index c889bc1..143551f 100644 (file)
@@ -14,6 +14,7 @@ use SL::Common;
 use SL::DBUtils;
 use SL::Form;
 use SL::MoreCommon;
+use SL::Helper::Flash;
 
 use strict;
 
@@ -727,19 +728,6 @@ sub gl_transaction {
   $main::lxdebug->leave_sub();
 }
 
-sub flash {
-  my $category = shift;
-  $category    = 'info' if $category eq 'information';
-
-  $::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;