loncom/interface/lonpreferences.pm - diff

Return to lonpreferences.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.65, 2005/06/16 22:11:13	version 1.66, 2005/07/05 15:25:34
Line 980 sub coursedisplaychanger {	Line 980 sub coursedisplaychanger {
my $r = shift;	my $r = shift;
my $user = $env{'user.name'};	my $user = $env{'user.name'};
my $domain = $env{'user.domain'};	my $domain = $env{'user.domain'};
my %userenv = &Apache::lonnet::get	my %userenv = &Apache::lonnet::get('environment',['course_init_display']);
('environment',['course_init_display']);

my $firstselect='checked="checked"';	my $firstselect='checked="checked"';
my $whatsnewselect='';	my $whatsnewselect='';
if ($userenv{'course_init_display'} eq 'whatsnew') {	if ($userenv{'course_init_display'} ne 'firstres') {
$firstselect='';	$firstselect='';
$whatsnewselect='checked="checked"';	$whatsnewselect='checked="checked"';
}	}