|
version 1.72, 2005/12/28 21:39:35
|
version 1.73, 2006/01/06 19:05:30
|
|
Line 983 sub coursedisplaychanger {
|
Line 983 sub coursedisplaychanger {
|
| my $domain = $env{'user.domain'}; |
my $domain = $env{'user.domain'}; |
| my %userenv = &Apache::lonnet::get('environment',['course_init_display']); |
my %userenv = &Apache::lonnet::get('environment',['course_init_display']); |
| my $currvalue = 'whatsnew'; |
my $currvalue = 'whatsnew'; |
| my $firstselect='checked="checked"'; |
my $firstselect = ''; |
| my $whatsnewselect=''; |
my $whatsnewselect = 'checked="checked"'; |
| if (exists($userenv{'course_init_display'})) { |
if (exists($userenv{'course_init_display'})) { |
| if ($userenv{'course_init_display'} eq 'firstres') { |
if ($userenv{'course_init_display'} eq 'firstres') { |
| $currvalue = 'firstres'; |
$currvalue = 'firstres'; |
| $firstselect=''; |
$firstselect = 'checked="checked"'; |
| $whatsnewselect='checked="checked"'; |
$whatsnewselect = ''; |
| } |
} |
| } |
} |
| my %pagenames = ( |
my %pagenames = ( |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonpreferences.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface