[interchange-cvs] interchange - racke modified lib/Vend/Email.pm

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Fri Dec 14 05:24:21 EST 2007


User:      racke
Date:      2007-12-14 10:24:21 GMT
Modified:  lib/Vend Email.pm
Log:
specify default character set with MV_EMAIL_CHARSET variables

Revision  Changes    Path
1.9       +3 -2      interchange/lib/Vend/Email.pm


rev 1.9, prev_rev 1.8
Index: Email.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Email.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- Email.pm	13 Dec 2007 23:54:18 -0000	1.8
+++ Email.pm	14 Dec 2007 10:24:21 -0000	1.9
@@ -1,6 +1,6 @@
 # Vend::Email - Handle Interchange email functions
 # 
-# $Id: Email.pm,v 1.8 2007/12/13 23:54:18 racke Exp $
+# $Id: Email.pm,v 1.9 2007/12/14 10:24:21 racke Exp $
 #
 # Copyright (C) 2007 Interchange Development Group
 #
@@ -55,7 +55,7 @@
 
 use vars qw/$VERSION/;
 
-$VERSION = substr(q$Revision: 1.8 $, 10);
+$VERSION = substr(q$Revision: 1.9 $, 10);
 
 
 ###########################################################################
@@ -181,6 +181,7 @@
 	$data     ||= $opt->{body} || $body;    delete $opt->{body};
 	$encoding ||= 'quoted-printable';
 	$type     ||= 'text/plain';
+	$charset  ||= $::Variable->{MV_EMAIL_CHARSET} || $Global::Variable->{MV_EMAIL_CHARSET};
 
 	if ($charset) {
 		$type .= "; charset=$charset";








More information about the interchange-cvs mailing list