--- loncom/interface/lonpreferences.pm 2005/12/20 15:52:27 1.71 +++ loncom/interface/lonpreferences.pm 2006/01/06 21:04:34 1.74 @@ -1,7 +1,7 @@ # The LearningOnline Network # Preferences # -# $Id: lonpreferences.pm,v 1.71 2005/12/20 15:52:27 raeburn Exp $ +# $Id: lonpreferences.pm,v 1.74 2006/01/06 21:04:34 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -983,13 +983,13 @@ sub coursedisplaychanger { my $domain = $env{'user.domain'}; my %userenv = &Apache::lonnet::get('environment',['course_init_display']); my $currvalue = 'whatsnew'; - my $firstselect='checked="checked"'; - my $whatsnewselect=''; + my $firstselect = ''; + my $whatsnewselect = 'checked="checked"'; if (exists($userenv{'course_init_display'})) { if ($userenv{'course_init_display'} eq 'firstres') { $currvalue = 'firstres'; - $firstselect=''; - $whatsnewselect='checked="checked"'; + $firstselect = 'checked="checked"'; + $whatsnewselect = ''; } } my %pagenames = ( @@ -1003,6 +1003,7 @@ sub coursedisplaychanger { $r->print(< +

ENDLSCREEN @@ -1232,7 +1233,9 @@ sub handler { text => 'Change Math Preferences'}, printmenu => 'yes', })); - if ($env{'user.adv'}) { + if (&Apache::lonnet::allowed('whn',$env{'request.course.id'}) + || &Apache::lonnet::allowed('whn',$env{'request.course.id'}.'/' + .$env{'request.course.sec'})) { push (@Options,({ action => 'changecourseinit', linktext => 'Change Course Initialization Preference', href => '/adm/preferences',