loncom/auth/lonauth.pm - diff

Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.97, 2009/04/01 14:43:19	version 1.99, 2009/07/03 10:22:00
Line 78 sub success {	Line 78 sub success {
my $remoteinfo=&Apache::lonmenu::load_remote_msg($lowerurl);	my $remoteinfo=&Apache::lonmenu::load_remote_msg($lowerurl);
my $setflags=&Apache::lonmenu::setflags();	my $setflags=&Apache::lonmenu::setflags();
my $maincall=&Apache::lonmenu::maincall();	my $maincall=&Apache::lonmenu::maincall();
	my $brcrum = [{'href' => '',
	'text' => 'Successful Login'},];
my $start_page=&Apache::loncommon::start_page('Successful Login',	my $start_page=&Apache::loncommon::start_page('Successful Login',
$startupremote,	$startupremote,
{'no_inline_link' => 1,});	{'no_inline_link' => 1,
	'bread_crumbs' => $brcrum,});
my $end_page =&Apache::loncommon::end_page();	my $end_page =&Apache::loncommon::end_page();

my $continuelink;	my $continuelink;
if (($env{'browser.interface'} eq 'textual') \|\|	if ($env{'environment.remote'} eq 'off') {
($env{'environment.remote'} eq 'off')) {
$continuelink="<a href=\"$lowerurl\">".&mt('Continue')."</a>";	$continuelink="<a href=\"$lowerurl\">".&mt('Continue')."</a>";
}	}
# ------------------------------------------------- Output for successful login	# ------------------------------------------------- Output for successful login