loncom/auth/lonauth.pm - diff

Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.37, 2003/02/13 16:31:54	version 1.39, 2003/02/18 21:11:17
Line 118 sub success {	Line 118 sub success {
$userenv.="environment.$key=$userenv{$key}\n";	$userenv.="environment.$key=$userenv{$key}\n";
}	}
}	}
	if (($userenv{'interface'}) && (!$FORM{'interface'})) {
	$FORM{'interface'}=$userenv{'interface'};
	}
# --------------------------------------------------------- Write first profile	# --------------------------------------------------------- Write first profile

{	{
Line 146 sub success {	Line 149 sub success {
$FORM{'interface'}=~s/\W//gs;	$FORM{'interface'}=~s/\W//gs;
print $idf "browser.interface=$FORM{'interface'}\n";	print $idf "browser.interface=$FORM{'interface'}\n";
$ENV{'browser.interface'}=$FORM{'interface'};	$ENV{'browser.interface'}=$FORM{'interface'};
	}
	foreach
	('imagesuppress','appletsuppress',
	'embedsuppress','fontenhance','blackwhite') {
	if (($FORM{$_} eq 'on') \|\|
	($userenv{$_} eq 'on')) {
	print $idf "browser.$_=on\n";
	}
}	}
if ($userroles ne '') { print $idf "$userroles"; }	if ($userroles ne '') { print $idf "$userroles"; }
$idf->close();	$idf->close();