version 1.62, 2010/12/03 04:28:36
|
version 1.64, 2011/03/03 00:06: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) { |