--- loncom/interface/lonsupportreq.pm	2010/12/02 22:05:17	1.60
+++ loncom/interface/lonsupportreq.pm	2011/03/03 00:33:38	1.65
@@ -1,5 +1,5 @@
 #
-# $Id: lonsupportreq.pm,v 1.60 2010/12/02 22:05:17 raeburn Exp $
+# $Id: lonsupportreq.pm,v 1.65 2011/03/03 00:33:38 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -70,14 +70,15 @@ sub handler {
     
 sub print_request_form {
     my ($r,$origurl,$function) = @_;
-    my ($os,$browser,$bversion,$uhost,$uname,$udom,$uhome,$urole,$usec,$email,$cid,$cdom,$cnum,$ctitle,$ccode,$sectionlist,$lastname,$firstname,$server,$formname);
+    my ($os,$browser,$bversion,$uhost,$uname,$udom,$uhome,$urole,$usec,$email,$cid,
+        $cdom,$cnum,$ctitle,$ccode,$sectionlist,$lastname,$firstname,$server,
+        $formname,$public);
     $function = &Apache::loncommon::get_users_function() if (!$function);
     $ccode = '';
     $os = $env{'browser.os'};
     $browser = $env{'browser.type'};
     $bversion = $env{'browser.version'};
     $uhost = $env{'request.host'};
-    my ($uname,$udom,$public);
     if (($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public')) {
         $public = 1;
     } else {
@@ -243,7 +244,7 @@ function initialize_codes() {
     }
 	
     my $js = '<script type="text/javascript">'."\n$scripttag\n$jscript\n".
-	'</script>';
+	     $loaditems.'</script>';
     my %add_entries = (topmargin    => "0",
 		       marginheight => "0",
 		       onLoad       =>"initialize_codes()",);
@@ -531,10 +532,11 @@ sub print_request_receipt {
         my $totcodes = 0;
         my %coursecodes;
         $totcodes = &Apache::courseclassifier::retrieve_instcodes(\%coursecodes,$defdom,$totcodes);
-        my $coursecode;
         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);