version 1.93, 2003/05/27 17:38:47
|
version 1.96, 2003/06/04 18:22:52
|
Line 58 use Apache::lonnet;
|
Line 58 use Apache::lonnet;
|
use Apache::Constants qw(:common :http REDIRECT); |
use Apache::Constants qw(:common :http REDIRECT); |
use Apache::lonhtmlcommon(); |
use Apache::lonhtmlcommon(); |
use Apache::loncommon; |
use Apache::loncommon; |
|
use Apache::lonmenu; |
use GDBM_File; |
use GDBM_File; |
use Apache::lonhomework; |
use Apache::lonhomework; |
use Apache::lonxml; |
use Apache::lonxml; |
Line 287 sub plink {
|
Line 288 sub plink {
|
sub startpage { |
sub startpage { |
my ($r,$id,$udom,$csec,$uname)=@_; |
my ($r,$id,$udom,$csec,$uname)=@_; |
|
|
my $bodytag=&Apache::loncommon::bodytag('Set Course Parameters','', |
my $bodytag=&Apache::lonmenu::registerurl(). |
'onUnload="pclose()"'); |
&Apache::loncommon::bodytag('Set Course Parameters','', |
|
'onUnload="'. |
|
&Apache::lonmenu::unloadevents().';pclose();" onLoad="'. |
|
&Apache::lonmenu::loadevents().'"'). |
|
&Apache::lonmenu::regflush(); |
my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '. |
my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '. |
&Apache::loncommon::selectstudent_link('parmform','uname','udom'); |
&Apache::loncommon::selectstudent_link('parmform','uname','udom'); |
my $selscript=&Apache::loncommon::studentbrowser_javascript(); |
my $selscript=&Apache::loncommon::studentbrowser_javascript(); |
Line 342 $selscript
|
Line 347 $selscript
|
</head> |
</head> |
$bodytag |
$bodytag |
|
|
<a href="/adm/helper/parameter.helper">Use Assignment Parameter Helper</a>, a |
<!--<a href="/adm/helper/parameter.helper">Use Assignment Parameter Helper</a>, a |
simpler interface to set open, due, or answer open dates for problems or sequences. |
simpler interface to set open, due, or answer open dates for problems or sequences.--> |
|
|
<form method="post" action="/adm/parmset" name="envform"> |
<form method="post" action="/adm/parmset" name="envform"> |
<h3>Course Environment</h3> |
<h3>Course Environment</h3> |
Line 1485 sub crsenv {
|
Line 1490 sub crsenv {
|
'rndseed' |
'rndseed' |
=> '<b>Randomization algorithm used</b> <br />'. |
=> '<b>Randomization algorithm used</b> <br />'. |
'<font color="red">Modifying this will make problems '. |
'<font color="red">Modifying this will make problems '. |
'have different numbers and answers</font>' |
'have different numbers and answers</font>', |
|
'problem_stream_switch' |
|
=> '<b>Allow problems to be splitted over pages</b><br />'. |
|
' (<tt><b>yes</b> if allow anything else if not</tt>)' |
); |
); |
foreach (keys(%values)) { |
foreach (keys(%values)) { |
unless ($descriptions{$_}) { |
unless ($descriptions{$_}) { |