-
- LON-CAPA support request
-
-
-$bodytag
-ENDHEAD
+ $format_reply = &Apache::lonnet::auto_instcode_format($caller,$codedom,\%coursecodes,\%codes,\@codetitles,\%cat_titles,\%cat_order);
+ if ($format_reply eq 'ok') {
+ my $numtypes = @codetitles;
+ &build_code_selections(\%codes,\@codetitles,\%cat_titles,\%cat_order,\%idlist,\%idnums,\%idlist_titles);
+ &javascript_code_selections($formname,$numtypes,\%cat_titles,\$jscript,\%idlist,\%idnums,\%idlist_titles,\@codetitles);
+ $loaditems = '';
+ }
+ }
+ }
+
+ my $js = '';
+ my %add_entries = (topmargin => "0",
+ marginheight => "0",
+ onLoad =>"initialize_codes()",);
+
+ my $start_page =
+ &Apache::loncommon::start_page('Support Request',$js,
+ { 'function' => $function,
+ 'add_entries' => \%add_entries,
+ 'only_body' => 1,});
+ $r->print($start_page);
+
if ($r->uri eq '/adm/helpdesk') {
&print_header($r,$origurl);
}
@@ -298,7 +345,7 @@ END
- http://$server$origurl
+ $server
|
@@ -337,7 +384,7 @@ END
- Course Details:
+ | Course Details:$details_title
|
@@ -372,13 +419,28 @@ END
' | ');
for (my $i=1; $i<$numtitles; $i++) {
@@ -434,12 +496,13 @@ END
END
if ($sectionlist) {
- $r->print(" |
END
- if (defined($ENV{'user.name'})) {
+ if (defined($env{'user.name'})) {
$r->print(<
@@ -534,6 +597,7 @@ END
END
}
+
$r->print(<
@@ -570,18 +634,18 @@ END
- | |