version 1.62, 2010/12/03 04:28:36
|
version 1.65, 2011/03/03 00:33:38
|
Line 532 sub print_request_receipt {
|
Line 532 sub print_request_receipt {
|
my $totcodes = 0; |
my $totcodes = 0; |
my %coursecodes; |
my %coursecodes; |
$totcodes = &Apache::courseclassifier::retrieve_instcodes(\%coursecodes,$defdom,$totcodes); |
$totcodes = &Apache::courseclassifier::retrieve_instcodes(\%coursecodes,$defdom,$totcodes); |
my $coursecode; |
|
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 773 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); |