[LON-CAPA-cvs] cvs: loncom /interface lonsupportreq.pm

[raeburn]

raeburn		Thu Mar  3 00:33:38 2011 EDT

  Modified files:              
    /loncom/interface	lonsupportreq.pm 
  Log:
  - Bug 5528.
    - Set header correctly for e-mail sent by "Ask Helpdesk" form.
      lonsupportreq.pm uses MIME::Lite from CPAN (as attachments may be inluded)    unlike lonmsg.pm and lonnotify.pm which use Mail::Send from CPAN.
  
  
Index: loncom/interface/lonsupportreq.pm
diff -u loncom/interface/lonsupportreq.pm:1.64 loncom/interface/lonsupportreq.pm:1.65
--- loncom/interface/lonsupportreq.pm:1.64	Thu Mar  3 00:06:38 2011
+++ loncom/interface/lonsupportreq.pm	Thu Mar  3 00:33:38 2011
@@ -1,5 +1,5 @@
 #
-# $Id: lonsupportreq.pm,v 1.64 2011/03/03 00:06:38 raeburn Exp $
+# $Id: lonsupportreq.pm,v 1.65 2011/03/03 00:33:38 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -774,7 +774,8 @@
     if ($bcc ne '') {
         $msg->add("Bcc" => $bcc);
     }
-    $msg->add('Content-type','text/plain; charset=UTF-8');
+    $msg->attr("content-type"         => "text/plain");
+    $msg->attr("content-type.charset" => "UTF-8");
 
     if ($attachmentpath) {
         my ($type, $encoding) = MIME::Types::by_suffix($attachmentpath);