@@ -263,10 +317,10 @@ END
}
if ($udomform eq '') {
$udomform = 'domain: ';
- $udomform .= &Apache::loncommon::select_dom_form('','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.');
}
@@ -294,7 +348,7 @@ END
- http://$server$origurl
+ $server
|
@@ -333,7 +387,7 @@ END
|
- Course Details:
+ | Course Details:$details_title
|
@@ -368,13 +422,28 @@ END
' | ');
for (my $i=1; $i<$numtitles; $i++) {
@@ -430,12 +499,13 @@ END
END
if ($sectionlist) {
- $r->print(" |
END
- if (defined($ENV{'user.name'})) {
+ if (defined($env{'user.name'})) {
$r->print(<