version 1.79, 2002/11/21 22:32:53
|
version 1.81, 2002/12/30 14:10:58
|
Line 288 sub startpage {
|
Line 288 sub startpage {
|
|
|
my $bodytag=&Apache::loncommon::bodytag('Set Course Parameters','', |
my $bodytag=&Apache::loncommon::bodytag('Set Course Parameters','', |
'onUnload="pclose()"'); |
'onUnload="pclose()"'); |
|
my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '. |
|
&Apache::loncommon::selectstudent_link('parmform','uname','udom'); |
|
my $selscript=&Apache::loncommon::studentbrowser_javascript(); |
|
|
$r->print(<<ENDHEAD); |
$r->print(<<ENDHEAD); |
<html> |
<html> |
<head> |
<head> |
Line 341 sub startpage {
|
Line 345 sub startpage {
|
newWin.focus(); |
newWin.focus(); |
} |
} |
</script> |
</script> |
|
$selscript |
</head> |
</head> |
$bodytag |
$bodytag |
<form method="post" action="/adm/parmset" name="envform"> |
<form method="post" action="/adm/parmset" name="envform"> |
Line 358 For User
|
Line 363 For User
|
or ID |
or ID |
<input type="text" value="$id" size="12" name="id"> |
<input type="text" value="$id" size="12" name="id"> |
at Domain |
at Domain |
<input type="text" value="$udom" size="6" name="udom"> |
$chooseopt |
</b> |
</b> |
<input type="hidden" value='' name="pres_value"> |
<input type="hidden" value='' name="pres_value"> |
<input type="hidden" value='' name="pres_type"> |
<input type="hidden" value='' name="pres_type"> |
Line 837 sub assessparms {
|
Line 842 sub assessparms {
|
$message.="<font color=red>Write Error: $1</font>"; |
$message.="<font color=red>Write Error: $1</font>"; |
} |
} |
# ---------------------------------------------------------------- Done storing |
# ---------------------------------------------------------------- Done storing |
|
$message.='<h3>Changes can take up to 10 minutes before being active for all students</h3>'; |
} |
} |
# --------------------------------------------- Devalidate cache for this child |
# --------------------------------------------- Devalidate cache for this child |
&Apache::lonnet::devalidatecourseresdata( |
&Apache::lonnet::devalidatecourseresdata( |