]> git.imager.perl.org - bse.git/blobdiff - site/cgi-bin/modules/BSE/SubscriptionType.pm
always fallback to [shop].from email address
[bse.git] / site / cgi-bin / modules / BSE / SubscriptionType.pm
index d406bb29d2d11c399af3cc720f49c8f7416eaf09..e303475cde8d121a93cbf52311a8b5a20fe23465 100644 (file)
@@ -5,7 +5,7 @@ use Squirrel::Row;
 use vars qw/@ISA/;
 @ISA = qw/Squirrel::Row/;
 
-our $VERSION = "1.003";
+our $VERSION = "1.004";
 
 sub columns {
   return qw/id name title description frequency keyword archive 
@@ -331,7 +331,7 @@ sub _send {
   }
   my $from = $cfg->entryIfVar('subscriptions', 'from');
   unless ($from) {
-    $from = $Constants::SHOP_FROM;
+    $from = $cfg->entry('shop', 'from', $Constants::SHOP_FROM);
   }
   unless ($from) {
     $callback->('error', undef, "Configuration error: No from address configured, please set from in the subscriptions section of the config file, or \$SHOP_FROM in Constants.pm");