loncom/interface/lonsupportreq.pm - diff

Return to lonsupportreq.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.61, 2010/12/02 23:05:42	version 1.64, 2011/03/03 00:06:38
Line 244 function initialize_codes() {	Line 244 function initialize_codes() {
}	}

my $js = '<script type="text/javascript">'."\n$scripttag\n$jscript\n".	my $js = '<script type="text/javascript">'."\n$scripttag\n$jscript\n".
'</script>';	$loaditems.'</script>';
my %add_entries = (topmargin => "0",	my %add_entries = (topmargin => "0",
marginheight => "0",	marginheight => "0",
onLoad =>"initialize_codes()",);	onLoad =>"initialize_codes()",);
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) {