--- loncom/interface/lonsupportreq.pm	2011/03/02 22:43:42	1.63
+++ loncom/interface/lonsupportreq.pm	2011/03/03 00:33:38	1.65
@@ -1,5 +1,5 @@
 #
-# $Id: lonsupportreq.pm,v 1.63 2011/03/02 22:43:42 raeburn Exp $
+# $Id: lonsupportreq.pm,v 1.65 2011/03/03 00:33:38 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -534,7 +534,9 @@ sub print_request_receipt {
         $totcodes = &Apache::courseclassifier::retrieve_instcodes(\%coursecodes,$defdom,$totcodes);
         my @standardnames = &Apache::loncommon::get_standard_codeitems();
         if ($totcodes > 0) {
-            $coursecode = &Apache::courseclassifier::instcode_from_selectors($defdom); 
+            my $noregexps = 1;
+            $coursecode = 
+                &Apache::courseclassifier::instcode_from_selectors($defdom,$noregexps);
         } 
         if ($coursecode eq '') {
             foreach my $item (@standardnames) {
@@ -772,7 +774,8 @@ END
     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);