-
- LON-CAPA support request
-
-
-$bodytag
-ENDHEAD
+
+ 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);
}
@@ -198,10 +245,10 @@ END
} elsif (defined($lastname) && $lastname ne '') {
$fullname= " $lastname";
}
- $r->print('
');
+ $r->print('');
}
$r->print(<
+
@@ -264,10 +311,10 @@ END
}
if ($udomform eq '') {
$udomform = 'domain: ';
- $udomform .= &Apache::loncommon::select_dom_form($defdom,'udom');
+ $udomform .= &Apache::loncommon::select_dom_form($codedom,'udom');
}
if ($unameform eq '') {
- $unameform= 'username: ';
+ $unameform= 'username: ';
}
$r->print($unameform.$udomform.'
Enter the username you use to log-in to your LON-CAPA system, and choose your domain.');
}
@@ -295,7 +342,7 @@ END
- http://$server$origurl
+ $server
|
@@ -334,7 +381,7 @@ END
- Course Details:
+ | Course Details:$details_title
|
@@ -369,13 +416,28 @@ END
' | ');
for (my $i=1; $i<$numtitles; $i++) {
@@ -431,12 +493,13 @@ END
END
if ($sectionlist) {
- $r->print(" |
END
- if (defined($ENV{'user.name'})) {
+ if (defined($env{'user.name'})) {
$r->print(<
@@ -531,6 +594,7 @@ END
END
}
+
$r->print(<
@@ -567,16 +631,17 @@ END
- | |