loncom/auth/lonauth.pm - diff

Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.51, 2003/05/24 12:43:54	version 1.52, 2003/06/06 02:24:49
Line 172 sub success {	Line 172 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);
Line 204 ENDSUCCESS	Line 204 ENDSUCCESS

sub failed {	sub failed {
my ($r,$message) = @_;	my ($r,$message) = @_;
my $bodytag=&Apache::loncommon::bodytag('Unsuccessful Login',undef,' ');	my $bodytag=&Apache::loncommon::bodytag('Unsuccessful Login');
$r->send_cgi_header(<<ENDFHEADER);	$r->send_cgi_header(<<ENDFHEADER);
Content-type: text/html	Content-type: text/html