[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