$lt{'wel'}
$welcome
$loginhelp
-$remoteinfo
-$maincall
$continuelink
$end_page
ENDSUCCESS
@@ -171,19 +161,33 @@ ENDSUCCESS
sub failed {
my ($r,$message,$form) = @_;
- my $start_page = &Apache::loncommon::start_page('Unsuccessful Login',undef);
- my $retry = '/adm/login?username='.$form->{'uname'}.
- '&domain='.$form->{'udom'};
+ (undef,undef,undef,my $clientmathml,my $clientunicode) =
+ &Apache::loncommon::decode_user_agent();
+ my $args = {};
+ if ($clientunicode && !$clientmathml) {
+ $args = {'browser.unicode' => 1};
+ }
+
+ my $start_page = &Apache::loncommon::start_page('Unsuccessful Login',undef,$args);
+ my $uname = $form->{'uname'};
+ my $udom;
+ if (&Apache::lonnet::domain($form->{'udom'},'description') ne '') {
+ $udom = $form->{'udom'};
+ }
+ my $retry = '/adm/login?username='.$form->{'uname'};
+ if ($udom) {
+ $retry .= '&domain='.$form->{'udom'}
+ }
if (exists($form->{role})) {
- $retry .= '&role='.$form->{role};
+ $retry .= '&role='.$form->{role};
}
if (exists($form->{symb})) {
- $retry .= '&symb='.$form->{symb};
+ $retry .= '&symb='.$form->{symb};
}
my $end_page = &Apache::loncommon::end_page();
&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;
- my $loginhelp = &loginhelpdisplay($form->{'udom'});
+ my $loginhelp = &loginhelpdisplay($udom);
if ($loginhelp) {
$loginhelp = ''.&mt('Login problems?').'
';
}
@@ -293,6 +297,7 @@ sub handler {
my $tmpinfo=Apache::lonnet::reply('tmpget:'.$form{'logtoken'},
$form{'serverid'});
+
my %sessiondata;
if ($form{'iptoken'}) {
%sessiondata = &Apache::lonnet::tmpget($form{'iptoken'});
@@ -382,8 +387,7 @@ sub handler {
return OK;
}
my $start_page =
- &Apache::loncommon::start_page('Create a user account in LON-CAPA',
- '',{'no_inline_link' => 1,});
+ &Apache::loncommon::start_page('Create a user account in LON-CAPA');
my $lonhost = $r->dir_config('lonHostID');
my $origmail = $Apache::lonnet::perlvar{'lonSupportEMail'};
my $contacts =