loncom/auth/lonlogin.pm - diff

Return to lonlogin.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.31, 2003/02/04 16:03:25	version 1.32, 2003/02/17 23:25:59
Line 52 sub handler {	Line 52 sub handler {
&Apache::loncommon::get_unprocessed_cgi	&Apache::loncommon::get_unprocessed_cgi
($ENV{'QUERY_STRING'},['interface','username','domain','firsturl']);	($ENV{'QUERY_STRING'},['interface','username','domain','firsturl']);

	# ----------------------------------------------------------- Process Interface
$ENV{'form.interface'}=~s/\W//g;	$ENV{'form.interface'}=~s/\W//g;

	my $textbrowsers=$r->dir_config('lonTextBrowsers');
	my $httpbrowser=$ENV{"HTTP_USER_AGENT"};

	foreach (split(/\:/,$textbrowsers)) {
	if ($httpbrowser=~/$_/i) {
	$ENV{'form.interface'}='textual';
	}
	}

my $fullgraph=($ENV{'form.interface'} ne 'textual');	my $fullgraph=($ENV{'form.interface'} ne 'textual');

my $iconpath= 'http://'.$ENV{'HTTP_HOST'}.':8080'.	my $iconpath= 'http://'.$ENV{'HTTP_HOST'}.':8080'.
Line 268 ENDSERVERFORM	Line 278 ENDSERVERFORM
<!-- Row 4 Column 1 -->	<!-- Row 4 Column 1 -->
<td align="center" valign="middle" bgcolor="$sidebg">	<td align="center" valign="middle" bgcolor="$sidebg">
ENDTOP	ENDTOP
	} else {
	$r->print('<font color="#FFFFFF"><h1>The Learning<i>Online</i> Network with CAPA</h1><h3>Text-based Interface Login</h3></font>');
}	}
$r->print(<<ENDLOGIN);	$r->print(<<ENDLOGIN);
<form name="client" onsubmit="return(send())">	<form name="client" onsubmit="return(send())">