modules/gci/lonlogin.pm - diff

Return to lonlogin.pm CVS log

Up to [LON-CAPA] / modules / gci

version 1.16, 2023/03/22 16:32:51	version 1.18, 2025/03/02 12:58:41
Line 86 sub handler {	Line 86 sub handler {
$dest .= '?selectrole=1&'.$env{'form.role'}.'=1';	$dest .= '?selectrole=1&'.$env{'form.role'}.'=1';
}	}
if ($env{'form.symb'}) {	if ($env{'form.symb'}) {
$dest .= ($dest =~ /\?/) ? '&' : '?';	$dest .= ($dest =~ /\?/) ? '&' : '?';
$dest .= 'destinationurl='.&HTML::Entities::encode($env{'form.symb'},'"&<>');	$dest .= 'destinationurl='.&HTML::Entities::encode($env{'form.symb'},'"&<>');
}	}
if ($env{'form.firsturl'} ne '') {	if ($env{'form.firsturl'} ne '') {
Line 115 sub handler {	Line 115 sub handler {

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

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