$lt{'wel'}
$welcome
$lt{'pro'}
+$remoteinfo
+$maincall
$continuelink
$end_page
ENDSUCCESS
@@ -195,9 +205,10 @@ sub reroute {
sub handler {
my $r = shift;
+ my $londocroot = $r->dir_config('lonDocRoot');
my $form;
# Are we re-routing?
- if (-e '/home/httpd/html/lon-status/reroute.txt') {
+ if (-e "$londocroot/lon-status/reroute.txt") {
&reroute($r);
return OK;
}
@@ -226,7 +237,7 @@ sub handler {
}
$r->print(
$start_page
- .''.&mt('You are already logged in!').'
'
+ .''
.'
'.&mt('Please either [_1]continue the current session[_2] or [_3]log out[_4].'
,'','','','')
.'
'
@@ -357,7 +368,8 @@ sub handler {
return OK;
}
my $start_page =
- &Apache::loncommon::start_page('Create a user account in LON-CAPA');
+ &Apache::loncommon::start_page('Create a user account in LON-CAPA',
+ '',{'no_inline_link' => 1,});
my $lonhost = $r->dir_config('lonHostID');
my $origmail = $Apache::lonnet::perlvar{'lonSupportEMail'};
my $contacts =