WebGUI 2.4.0 release

lib/WebGUI/Macro/e_companyEmail.pm

@@ -17,7 +17,10 @@ use WebGUI::Session;
 sub process {
 	my ($output);
 	$output = $_[0];
-  #---company email---
+        while ($output =~ /\^e(.*?)\;/) {
+                $output =~ s/\^e(.*?)\;/$session{setting}{companyEmail}/;
+        }
+        #---everything below this line will go away in a later rev.
         if ($output =~ /\^e/) {
                 $output =~ s/\^e/$session{setting}{companyEmail}/g;
         }