loncom/auth/lonauth.pm - diff

Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.50, 2003/05/23 21:18:56	version 1.53, 2003/07/16 20:42:31
Line 126 sub success {	Line 126 sub success {
print $idf "browser.mathml=$clientmathml\n";	print $idf "browser.mathml=$clientmathml\n";
print $idf "browser.unicode=$clientunicode\n";	print $idf "browser.unicode=$clientunicode\n";
print $idf "browser.os=$clientos\n";	print $idf "browser.os=$clientos\n";
	if ($FORM{'localpath'}) {
	print $idf "browser.localpath=$FORM{'localpath'}\n";
	print $idf "browser.localres=$FORM{'localres'}\n";
	}
print $idf "request.course.fn=\n";	print $idf "request.course.fn=\n";
print $idf "request.course.uri=\n";	print $idf "request.course.uri=\n";
print $idf "request.course.sec=\n";	print $idf "request.course.sec=\n";
Line 172 sub success {	Line 176 sub success {
my $startupremote=&Apache::lonmenu::startupremote($lowerurl);	my $startupremote=&Apache::lonmenu::startupremote($lowerurl);
my $setflags=&Apache::lonmenu::setflags();	my $setflags=&Apache::lonmenu::setflags();
my $maincall=&Apache::lonmenu::maincall();	my $maincall=&Apache::lonmenu::maincall();
my $bodytag=&Apache::loncommon::bodytag('Successful Login',undef,' ');	my $bodytag=&Apache::loncommon::bodytag('Successful Login');
# ------------------------------------------------- Output for successful login	# ------------------------------------------------- Output for successful login

$r->send_cgi_header(<<ENDHEADER);	$r->send_cgi_header(<<ENDHEADER);