@@ -215,7 +313,7 @@ END
|
- E-mail address:
+ | $lt{'emad'}:
|
@@ -239,7 +337,7 @@ END
|
- username/domain:
+ | $lt{'unme'}/$lt{'doma'}:
|
@@ -252,23 +350,23 @@ END
my $udom_input = '';
my $uname_input = '';
if (defined($uname) && defined($udom)) {
- $r->print('username: '.$uname.' domain: '.$udom.$udom_input.$uname_input);
+ $r->print(''.$lt{'unme'}.': '.$uname.' '.$lt{'doma'}.': '.$udom.$udom_input.$uname_input);
} else {
my $udomform = '';
my $unameform = '';
if (defined($udom)) {
- $udomform = 'domain: '.$udom.$udom_input;
+ $udomform = ''.$lt{'doma'}.': '.$udom.$udom_input;
} elsif (defined($uname)) {
- $unameform = 'username: '.$uname.' '.$uname_input;
+ $unameform = ''.$lt{'unme'}.': '.$uname.' '.$uname_input;
}
if ($udomform eq '') {
- $udomform = 'domain: ';
- $udomform .= &Apache::loncommon::select_dom_form('','udom');
+ $udomform = ''.$lt{'doma'}.': ';
+ $udomform .= &Apache::loncommon::select_dom_form($codedom,'udom');
}
if ($unameform eq '') {
- $unameform= 'username: ';
+ $unameform= ''.$lt{'unme'}.': ';
}
- $r->print($unameform.$udomform.' Enter the username you use to log-in to your LON-CAPA system, and choose your domain.');
+ $r->print($unameform.$udomform.' '.$lt{'entr'});
}
$r->print(<
@@ -285,7 +383,7 @@ END
- URL of page:
+ | $lt{'urlp'}:
|
@@ -294,7 +392,7 @@ END
- http://$server$origurl
+ $server
|
@@ -309,7 +407,7 @@ END
|
- Phone #:
+ | $lt{'phon'} #:
|
@@ -333,7 +431,7 @@ END
|
- Course Details:
+ | $lt{'crsd'}:$details_title
|
@@ -345,19 +443,19 @@ END
END
if ($cnum) {
if ($coursecodes{$cnum}) {
- foreach (@codetitles) {
- $r->print(''.$_.': '.$codes{$cnum}{$_}.'; ');
+ foreach my $item (@codetitles) {
+ $r->print(''.$item.': '.$codes{$cnum}{$item}.'; ');
}
$r->print(' ');
} else {
- $r->print('Enter institutional course code:
+ $r->print($lt{'enin'}.':
');
}
} else {
if ($totcodes > 0) {
my $numtitles = @codetitles;
if ($numtitles == 0) {
- $r->print('Enter institutional course code:
+ $r->print($lt{'enin'}.':
');
} else {
my $lasttitle = $numtitles;
@@ -366,21 +464,36 @@ END
}
$r->print(''.$codetitles[0].' '."\n".
' | ');
for (my $i=1; $i<$numtitles; $i++) {
$r->print(''.$codetitles[$i].' '."\n".
''."\n".
' | '
);
@@ -389,19 +502,19 @@ END
if ($numtitles > 4) {
$r->print('
'.$codetitles[$numtitles].' '."\n".
''."\n");
}
}
} else {
- $r->print('Enter institutional course code:
+ $r->print($lt{'enin'}.':
');
}
}
if ($ctitle) {
- $r->print(' Title: '.$ctitle.'');
+ $r->print(' '.$lt{'titl'}.': '.$ctitle.'');
} else {
- $r->print(' Enter course title:
+ $r->print(' '.$lt{'enct'}.':
');
}
$r->print(<
- Section Number:
+ | $lt{'secn'}:
|
@@ -430,12 +543,13 @@ END
END
if ($sectionlist) {
- $r->print(" |
END
- if (defined($ENV{'user.name'})) {
+ if (defined($env{'user.name'})) {
$r->print(<
- Optional file upload:
+ | $lt{'opfi'}:
|
@@ -517,7 +631,7 @@ END
@@ -530,12 +644,13 @@ END
END
}
+
$r->print(<
@@ -545,11 +660,11 @@ END
|
-
+
|
|
-
+
|
|
@@ -566,18 +681,18 @@ END
| |