version 1.71, 2005/12/20 15:52:27
|
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 = ( |
Line 1003 sub coursedisplaychanger {
|
Line 1003 sub coursedisplaychanger {
|
$r->print(<<ENDLSCREEN); |
$r->print(<<ENDLSCREEN); |
<form name="server" action="/adm/preferences" method="post"> |
<form name="server" action="/adm/preferences" method="post"> |
<input type="hidden" name="action" value="verify_and_change_coursepage" /> |
<input type="hidden" name="action" value="verify_and_change_coursepage" /> |
|
<br /> |
<label><input type="radio" name="newdisp" value="firstres" $firstselect /> $whatsnew_off</label><br /> |
<label><input type="radio" name="newdisp" value="firstres" $firstselect /> $whatsnew_off</label><br /> |
<label><input type="radio" name="newdisp" value="whatsnew" $whatsnewselect /> $whatsnew_on</label><input type="hidden" name="refpage" value="$env{'form.refpage'}" /> |
<label><input type="radio" name="newdisp" value="whatsnew" $whatsnewselect /> $whatsnew_on</label><input type="hidden" name="refpage" value="$env{'form.refpage'}" /> |
ENDLSCREEN |
ENDLSCREEN |