loncom/interface/lonsupportreq.pm - diff

Return to lonsupportreq.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.63, 2011/03/02 22:43:42	version 1.65, 2011/03/03 00:33:38
Line 534 sub print_request_receipt {	Line 534 sub print_request_receipt {
$totcodes = &Apache::courseclassifier::retrieve_instcodes(\%coursecodes,$defdom,$totcodes);	$totcodes = &Apache::courseclassifier::retrieve_instcodes(\%coursecodes,$defdom,$totcodes);
my @standardnames = &Apache::loncommon::get_standard_codeitems();	my @standardnames = &Apache::loncommon::get_standard_codeitems();
if ($totcodes > 0) {	if ($totcodes > 0) {
$coursecode = &Apache::courseclassifier::instcode_from_selectors($defdom);	my $noregexps = 1;
	$coursecode =
	&Apache::courseclassifier::instcode_from_selectors($defdom,$noregexps);
}	}
if ($coursecode eq '') {	if ($coursecode eq '') {
foreach my $item (@standardnames) {	foreach my $item (@standardnames) {
Line 772 END	Line 774 END
if ($bcc ne '') {	if ($bcc ne '') {
$msg->add("Bcc" => $bcc);	$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) {	if ($attachmentpath) {
my ($type, $encoding) = MIME::Types::by_suffix($attachmentpath);	my ($type, $encoding) = MIME::Types::by_suffix($attachmentpath);