[interchange-cvs] interchange - racke modified 2 files
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Thu Dec 27 03:49:23 EST 2007
User: racke
Date: 2007-12-27 08:49:23 GMT
Modified: . WHATSNEW-5.5
Modified: lib/Vend Order.pm
Log:
Recognize "cc" and "bcc" headers in Route settings for emails generated
directly by the routes.
Revision Changes Path
1.81 +3 -0 interchange/WHATSNEW-5.5
rev 1.81, prev_rev 1.80
Index: WHATSNEW-5.5
===================================================================
RCS file: /var/cvs/interchange/WHATSNEW-5.5,v
retrieving revision 1.80
retrieving revision 1.81
diff -u -r1.80 -r1.81
--- WHATSNEW-5.5 27 Dec 2007 08:47:15 -0000 1.80
+++ WHATSNEW-5.5 27 Dec 2007 08:49:22 -0000 1.81
@@ -80,6 +80,9 @@
tag to suppress its output. For example [calcn hide=1]$foo='bar'[/calcn] will
still set $foo to bar, but won't output bar from the tag itself.
+* Recognize "cc" and "bcc" headers in Route settings for emails generated
+ directly by the routes.
+
UserTag
-------
2.96 +6 -4 interchange/lib/Vend/Order.pm
rev 2.96, prev_rev 2.95
Index: Order.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Order.pm,v
retrieving revision 2.95
retrieving revision 2.96
diff -u -r2.95 -r2.96
--- Order.pm 16 Nov 2007 13:52:58 -0000 2.95
+++ Order.pm 27 Dec 2007 08:49:23 -0000 2.96
@@ -1,6 +1,6 @@
# Vend::Order - Interchange order routing routines
#
-# $Id: Order.pm,v 2.95 2007/11/16 13:52:58 racke Exp $
+# $Id: Order.pm,v 2.96 2007/12/27 08:49:23 racke Exp $
#
# Copyright (C) 2002-2007 Interchange Development Group
# Copyright (C) 1996-2002 Red Hat, Inc.
@@ -29,7 +29,7 @@
package Vend::Order;
require Exporter;
-$VERSION = substr(q$Revision: 2.95 $, 10);
+$VERSION = substr(q$Revision: 2.96 $, 10);
@ISA = qw(Exporter);
@@ -1827,8 +1827,10 @@
$reply = $::Values->{$reply} if $reply =~ /^\w+$/;
$to = $route->{email};
my $ary = [$to, $subject, $page, $reply, $use_mime];
- if($route->{from}) {
- push @$ary, "From: $route->{from}";
+ for (qw/from bcc cc/) {
+ if ($route->{$_}) {
+ push @$ary, ucfirst($_) . " $route->{$_}";
+ }
}
push @out, $ary;
}
More information about the interchange-cvs
mailing list