version 1.98, 2003/06/06 02:24:49
|
version 1.103, 2003/06/19 21:49:53
|
Line 285 sub plink {
|
Line 285 sub plink {
|
|
|
|
|
sub startpage { |
sub startpage { |
my ($r,$id,$udom,$csec,$uname)=@_; |
my ($r,$id,$udom,$csec,$uname,$have_assesments)=@_; |
|
|
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').' '. |
my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '. |
Line 342 $selscript
|
Line 342 $selscript
|
</head> |
</head> |
$bodytag |
$bodytag |
|
|
<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. |
|
|
|
<form method="post" action="/adm/parmset" name="envform"> |
<form method="post" action="/adm/parmset" name="envform"> |
<h3>Course Environment</h3> |
<h3>Course Environment</h3> |
<input type="submit" name="crsenv" value="Set Course Environment"> |
<input type="submit" name="crsenv" value="Set Course Environment"> |
</form> |
</form> |
|
<hr /> |
<form method="post" action="/adm/parmset" name="parmform"> |
<form method="post" action="/adm/parmset" name="parmform"> |
<h3>Course Assessments</h3> |
<h3>Course Assessments</h3> |
|
|
|
<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.<br /> <br /> |
|
ENDHEAD |
|
|
|
if (!$have_assesments) { |
|
$r->print('<font color="red">There are no assesment parameters in this course to set.</font><br />'); |
|
} else { |
|
$r->print(<<ENDHEAD); |
<b> |
<b> |
Section/Group: |
Section/Group: |
<input type="text" value="$csec" size="6" name="csec"> |
<input type="text" value="$csec" size="6" name="csec"> |
Line 366 $chooseopt
|
Line 374 $chooseopt
|
<input type="hidden" value='' name="pres_type"> |
<input type="hidden" value='' name="pres_type"> |
<input type="hidden" value='' name="pres_marker"> |
<input type="hidden" value='' name="pres_marker"> |
ENDHEAD |
ENDHEAD |
|
} |
} |
} |
|
|
sub print_row { |
sub print_row { |
Line 720 sub assessparms {
|
Line 728 sub assessparms {
|
"<font color=red>Unknown user '$uname' at domain '$udom'</font>"; |
"<font color=red>Unknown user '$uname' at domain '$udom'</font>"; |
$uname=''; |
$uname=''; |
} else { |
} else { |
$csec=&Apache::lonnet::usection($udom,$uname, |
$csec=&Apache::lonnet::getsection($udom,$uname, |
$ENV{'request.course.id'}); |
$ENV{'request.course.id'}); |
if ($csec eq '-1') { |
if ($csec eq '-1') { |
$message="<font color=red>". |
$message="<font color=red>". |
"User '$uname' at domain '$udom' not ". |
"User '$uname' at domain '$udom' not ". |
Line 761 sub assessparms {
|
Line 769 sub assessparms {
|
|
|
$mapp{'0.0'} = ''; |
$mapp{'0.0'} = ''; |
$symbp{'0.0'} = ''; |
$symbp{'0.0'} = ''; |
|
|
# ---------------------------------------------------------- Anything to store? |
# ---------------------------------------------------------- Anything to store? |
if ($ENV{'form.pres_marker'}) { |
if ($ENV{'form.pres_marker'}) { |
my ($sresid,$spnam,$snum)=split(/\&/,$ENV{'form.pres_marker'}); |
my ($sresid,$spnam,$snum)=split(/\&/,$ENV{'form.pres_marker'}); |
Line 877 sub assessparms {
|
Line 886 sub assessparms {
|
if ($psprt[0] eq "all" || !@psprt) {@psprt = (keys %allparts);} |
if ($psprt[0] eq "all" || !@psprt) {@psprt = (keys %allparts);} |
# ------------------------------------------------------------------ Start page |
# ------------------------------------------------------------------ Start page |
|
|
&startpage($r,$id,$udom,$csec,$uname); |
my $have_assesments=1; |
|
if (scalar(keys(%allkeys)) eq 0) { $have_assesments=0; } |
|
|
|
&startpage($r,$id,$udom,$csec,$uname,$have_assesments); |
|
|
|
if (!$have_assesments) { return ''; } |
# if ($ENV{'form.url'}) { |
# if ($ENV{'form.url'}) { |
# $r->print('<input type="hidden" value="'.$ENV{'form.url'}. |
# $r->print('<input type="hidden" value="'.$ENV{'form.url'}. |
# '" name="url"><input type="hidden" name="command" value="set">'); |
# '" name="url"><input type="hidden" name="command" value="set">'); |
Line 892 sub assessparms {
|
Line 906 sub assessparms {
|
|
|
$r->print('<h2>'.$message.'</h2><table>'); |
$r->print('<h2>'.$message.'</h2><table>'); |
|
|
$r->print('<tr><td><hr /></td></tr>'); |
|
|
|
my $submitmessage; |
my $submitmessage; |
if (($prevvisit) || ($pschp) || ($pssymb)) { |
|
$submitmessage = "Update Display"; |
|
} else { |
|
$submitmessage = "Display"; |
|
} |
|
if (!$pssymb) { |
if (!$pssymb) { |
$r->print('<tr><td>Select Parameter Level</td><td>'); |
$r->print('<tr><td>Select Parameter Level</td><td colspan="2">'); |
$r->print('<select name="parmlev">'); |
$r->print('<select name="parmlev">'); |
foreach (reverse sort keys %alllevs) { |
foreach (reverse sort keys %alllevs) { |
$r->print('<option value="'.$alllevs{$_}.'"'); |
$r->print('<option value="'.$alllevs{$_}.'"'); |
Line 911 sub assessparms {
|
Line 918 sub assessparms {
|
$r->print('>'.$_.'</option>'); |
$r->print('>'.$_.'</option>'); |
} |
} |
$r->print("</select></td>\n"); |
$r->print("</select></td>\n"); |
|
|
$r->print('<td><input type="submit" name="dis" value="'.$submitmessage.'"></td>'); |
|
|
|
$r->print('</tr><tr><td><hr /></td>'); |
$r->print('</tr>'); |
|
|
$r->print('<tr><td>Select Enclosing Map or Folder</td>'); |
$r->print('<tr><td>Select Enclosing Map or Folder</td>'); |
$r->print('<td colspan="2"><select name="pschp">'); |
$r->print('<td colspan="2"><select name="pschp">'); |
Line 935 sub assessparms {
|
Line 940 sub assessparms {
|
|
|
$r->print('<tr><td colspan="3"><hr /><input type="checkbox"'); |
$r->print('<tr><td colspan="3"><hr /><input type="checkbox"'); |
if ($showoptions eq 'show') {$r->print(" checked ");} |
if ($showoptions eq 'show') {$r->print(" checked ");} |
$r->print(' name="showoptions" value="show" onclick="form.submit();">Show More Options<hr /></td></tr>'); |
$r->print(' name="showoptions" value="show">Show More Options<hr /></td></tr>'); |
# $r->print("<tr><td>Show: $showoptions</td></tr>"); |
# $r->print("<tr><td>Show: $showoptions</td></tr>"); |
# $r->print("<tr><td>pscat: @pscat</td></tr>"); |
# $r->print("<tr><td>pscat: @pscat</td></tr>"); |
# $r->print("<tr><td>psprt: @psprt</td></tr>"); |
# $r->print("<tr><td>psprt: @psprt</td></tr>"); |
Line 1020 sub assessparms {
|
Line 1025 sub assessparms {
|
} |
} |
|
|
} |
} |
$r->print('</table>'); |
$r->print('</table><br />'); |
|
if (($prevvisit) || ($pschp) || ($pssymb)) { |
|
$submitmessage = "Update Course Assessment Parameter Display"; |
|
} else { |
|
$submitmessage = "Set Course Assessment Parameters"; |
|
} |
|
$r->print('<input type="submit" name="dis" value="'.$submitmessage.'">'); |
|
|
# my @temp_psprt; |
# my @temp_psprt; |
# foreach my $t (@psprt) { |
# foreach my $t (@psprt) { |
Line 1043 sub assessparms {
|
Line 1054 sub assessparms {
|
my $csuname=$ENV{'user.name'}; |
my $csuname=$ENV{'user.name'}; |
my $csudom=$ENV{'user.domain'}; |
my $csudom=$ENV{'user.domain'}; |
|
|
|
|
if ($parmlev eq 'full' || $parmlev eq 'brief') { |
if ($parmlev eq 'full' || $parmlev eq 'brief') { |
|
|
my $coursespan=$csec?8:5; |
my $coursespan=$csec?8:5; |
$r->print('<p><table border=2>'); |
$r->print('<p><table border=2>'); |
$r->print('<tr><td colspan=5></td>'); |
$r->print('<tr><td colspan=5></td>'); |
Line 1065 ENDTABLETWO
|
Line 1074 ENDTABLETWO
|
} |
} |
$r->print(<<ENDTABLEHEADFOUR); |
$r->print(<<ENDTABLEHEADFOUR); |
</tr><tr><th>Assessment URL and Title</th><th>Type</th> |
</tr><tr><th>Assessment URL and Title</th><th>Type</th> |
<th>Enclosing Map or Folder</th><th>Part No.</th><th>Parameter Name</th> |
<th>Enclosing Map or Folder</th><th>Part</th><th>Parameter Name</th> |
<th>default</th><th>from Enclosing Map or Folder</th> |
<th>default</th><th>from Enclosing Map or Folder</th> |
<th>general</th><th>for Enclosing Map or Folder</th><th>for Resource</th> |
<th>general</th><th>for Enclosing Map or Folder</th><th>for Resource</th> |
ENDTABLEHEADFOUR |
ENDTABLEHEADFOUR |
Line 1433 sub crsenv {
|
Line 1442 sub crsenv {
|
('url' => '<b>Top Level Map</b> '. |
('url' => '<b>Top Level Map</b> '. |
'<a href="javascript:openbrowser'. |
'<a href="javascript:openbrowser'. |
"('envform','url','sequence')\">". |
"('envform','url','sequence')\">". |
'Browse</a><br /><font color=red> '. |
'Select Map</a><br /><font color=red> '. |
'Modification may make assessment data '. |
'Modification may make assessment data '. |
'inaccessible</font>', |
'inaccessible</font>', |
'description' => '<b>Course Description</b>', |
'description' => '<b>Course Description</b>', |
Line 1442 sub crsenv {
|
Line 1451 sub crsenv {
|
'default_xml_style' => '<b>Default XML Style File</b> '. |
'default_xml_style' => '<b>Default XML Style File</b> '. |
'<a href="javascript:openbrowser'. |
'<a href="javascript:openbrowser'. |
"('envform','default_xml_style'". |
"('envform','default_xml_style'". |
",'sty')\">Browse</a><br>", |
",'sty')\">Select Style File</a><br>", |
'question.email' => '<b>Feedback Addresses for Resource Content '. |
'question.email' => '<b>Feedback Addresses for Resource Content '. |
'Questions</b><br />(<tt>user:domain,'. |
'Questions</b><br />(<tt>user:domain,'. |
'user:domain(section;section;...;*;...),...</tt>)', |
'user:domain(section;section;...;*;...),...</tt>)', |
Line 1468 sub crsenv {
|
Line 1477 sub crsenv {
|
=> '<b>Default Course Spreadsheet</b> '. |
=> '<b>Default Course Spreadsheet</b> '. |
'<a href="javascript:openbrowser'. |
'<a href="javascript:openbrowser'. |
"('envform','spreadsheet_default_classcalc'". |
"('envform','spreadsheet_default_classcalc'". |
",'spreadsheet')\">Browse</a><br />", |
",'spreadsheet')\">Select Spreadsheet File</a><br />", |
'spreadsheet_default_studentcalc' |
'spreadsheet_default_studentcalc' |
=> '<b>Default Student Spreadsheet</b> '. |
=> '<b>Default Student Spreadsheet</b> '. |
'<a href="javascript:openbrowser'. |
'<a href="javascript:openbrowser'. |
"('envform','spreadsheet_default_calc'". |
"('envform','spreadsheet_default_calc'". |
",'spreadsheet')\">Browse</a><br />", |
",'spreadsheet')\">Select Spreadsheet File</a><br />", |
'spreadsheet_default_assesscalc' |
'spreadsheet_default_assesscalc' |
=> '<b>Default Assessment Spreadsheet</b> '. |
=> '<b>Default Assessment Spreadsheet</b> '. |
'<a href="javascript:openbrowser'. |
'<a href="javascript:openbrowser'. |
"('envform','spreadsheet_default_assesscalc'". |
"('envform','spreadsheet_default_assesscalc'". |
",'spreadsheet')\">Browse</a><br />", |
",'spreadsheet')\">Select Spreadsheet File</a><br />", |
'allow_limited_html_in_feedback' |
'allow_limited_html_in_feedback' |
=> '<b>Allow limited HTML in discussion posts</b><br />'. |
=> '<b>Allow limited HTML in discussion posts</b><br />'. |
'(Set value to yes to allow)', |
'(Set value to yes to allow)', |
Line 1586 sub handler {
|
Line 1595 sub handler {
|
|
|
$r->content_type('text/html'); |
$r->content_type('text/html'); |
$r->send_http_header; |
$r->send_http_header; |
|
|
# ----------------------------------------------------- Needs to be in a course |
# ----------------------------------------------------- Needs to be in a course |
|
|
if (($ENV{'request.course.id'}) && |
if (($ENV{'request.course.id'}) && |