version 1.46, 2002/03/19 19:55:52
|
version 1.56, 2002/08/08 13:44:17
|
Line 43
|
Line 43
|
# 12/19 Guy Albertelli |
# 12/19 Guy Albertelli |
# 12/26,12/27 Gerd Kortemeyer |
# 12/26,12/27 Gerd Kortemeyer |
# |
# |
|
# YEAR=2002 |
|
# 7/19 Jeremy Bowers |
### |
### |
|
|
package Apache::lonparmset; |
package Apache::lonparmset; |
Line 557 sub assessparms {
|
Line 559 sub assessparms {
|
if (!$pssymb) { |
if (!$pssymb) { |
$r->print('</select></tr><tr><td>Select Enclosing Map</td><td><select name=pschp>'); |
$r->print('</select></tr><tr><td>Select Enclosing Map</td><td><select name=pschp>'); |
$r->print('<option value=all>All Maps</option>'); |
$r->print('<option value=all>All Maps</option>'); |
foreach (keys %allmaps) { |
foreach (sort keys %allmaps) { |
$r->print('<option value="'.$_.'"'); |
$r->print('<option value="'.$_.'"'); |
if (($pssymb=~/^$allmaps{$_}/) || |
if (($pssymb=~/^$allmaps{$_}/) || |
($pschp eq $_)) { $r->print(' selected'); } |
($pschp eq $_)) { $r->print(' selected'); } |
Line 730 sub crsenv {
|
Line 732 sub crsenv {
|
my $output=''; |
my $output=''; |
if (! exists($values{'con_lost'})) { |
if (! exists($values{'con_lost'})) { |
my %descriptions= |
my %descriptions= |
('url' => '<b>Top Level Map</b>'. |
('url' => '<b>Top Level Map</b> '. |
'<a href="javascript:openbrowser'. |
'<a href="javascript:openbrowser'. |
"('envform','url')\">". |
"('envform','url','sequence')\">". |
'Browse</a><br><font color=red> '. |
'Browse</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>', |
'courseid' => '<b>Course ID or number</b><br>'. |
'courseid' => '<b>Course ID or number</b><br>'. |
'(internal, optional)', |
'(internal, optional)', |
|
'default_xml_style' => '<b>Default XML Style File</b> '. |
|
'<a href="javascript:openbrowser'. |
|
"('envform','default_xml_style'". |
|
",'sty')\">Browse</a><br>", |
'question.email' => '<b>Feedback Addresses for Content '. |
'question.email' => '<b>Feedback Addresses for Content '. |
'Questions</b><br>(<tt>user:domain,'. |
'Questions</b><br>(<tt>user:domain,'. |
'user:domain,...</tt>)', |
'user:domain,...</tt>)', |
Line 748 sub crsenv {
|
Line 754 sub crsenv {
|
'<br>(<tt>user:domain,user:domain,...</tt>)', |
'<br>(<tt>user:domain,user:domain,...</tt>)', |
'hideemptyrows' => '<b>Hide Empty Rows in Spreadsheets</b><br>'. |
'hideemptyrows' => '<b>Hide Empty Rows in Spreadsheets</b><br>'. |
'("<tt>yes</tt>" for default hiding)', |
'("<tt>yes</tt>" for default hiding)', |
|
'pageseparators' => '<b>Visibly Separate Items on Pages</b><br>'. |
|
'("<tt>yes</tt>" for visible separation)', |
'pch.roles.denied'=> '<b>Disallow Resource Discussion for '. |
'pch.roles.denied'=> '<b>Disallow Resource Discussion for '. |
'Students</b><br>"<tt>st</tt>": '. |
'Roles</b><br>"<tt>st</tt>": '. |
'student, "<tt>ta</tt>": '. |
'student, "<tt>ta</tt>": '. |
'TA, "<tt>in</tt>": '. |
'TA, "<tt>in</tt>": '. |
'instructor;<br><tt>role,role,...</tt>)' |
'instructor;<br><tt>role,role,...</tt>) '. |
|
Apache::loncommon::help_open_topic("Course_Disable_Discussion"), |
|
'pch.users.denied' => |
|
'<b>Disallow Resource Discussion for Users</b><br>'. |
|
'(<tt>user:domain,user:domain,...</tt>)', |
|
'spreadsheet_default_classcalc' |
|
=> '<b>Default Course Spreadsheet</b> '. |
|
'<a href="javascript:openbrowser'. |
|
"('envform','spreadsheet_default_classcalc'". |
|
",'spreadsheet')\">Browse</a><br>", |
|
'spreadsheet_default_studentcalc' |
|
=> '<b>Default Student Spreadsheet</b> '. |
|
'<a href="javascript:openbrowser'. |
|
"('envform','spreadsheet_default_calc'". |
|
",'spreadsheet')\">Browse</a><br>", |
|
'spreadsheet_default_assesscalc' |
|
=> '<b>Default Assessment Spreadsheet</b> '. |
|
'<a href="javascript:openbrowser'. |
|
"('envform','spreadsheet_default_assesscalc'". |
|
",'spreadsheet')\">Browse</a><br>", |
); |
); |
foreach (keys(%values)) { |
foreach (keys(%values)) { |
unless ($descriptions{$_}) { |
unless ($descriptions{$_}) { |
Line 760 sub crsenv {
|
Line 787 sub crsenv {
|
} |
} |
} |
} |
foreach (sort keys %descriptions) { |
foreach (sort keys %descriptions) { |
$output.='<tr><td>'.$descriptions{$_}.'</td><td><input name="'. |
# onchange is javascript to automatically check the 'Set' button. |
$_.'_value" size=40 value="'. |
my $onchange = 'onchange="javascript:window.document.forms'. |
$values{$_}.'"></td><td><input type=checkbox name="'. |
'[\'envform\'].elements[\''.$_.'_setparmval\']'. |
$_.'_setparmval"></td></tr>'; |
'.checked=true;"'; |
} |
$output.='<tr><td>'.$descriptions{$_}.'</td>'. |
$output.='<tr><td><i>Create New Environment Variable</i><br>'. |
'<td><input name="'.$_.'_value" size=40 '. |
'<input type="text" size=40 name="newp_name" ></td><td>'. |
'value="'.$values{$_}.'" '.$onchange.' /></td>'. |
'<input type="text" size=40 name="newp_value" ></td><td>'. |
'<td><input type=checkbox name="'.$_.'_setparmval"></td>'. |
'<input type="checkbox" name="newp_setparmval"></td></tr>'; |
'</tr>'."\n"; |
|
} |
|
my $onchange = 'onchange="javascript:window.document.forms'. |
|
'[\'envform\'].elements[\'newp_setparmval\']'. |
|
'.checked=true;"'; |
|
$output.='<tr><td><i>Create New Environment Variable</i><br />'. |
|
'<input type="text" size=40 name="newp_name" '. |
|
$onchange.' /></td><td>'. |
|
'<input type="text" size=40 name="newp_value" '. |
|
$onchange.' /></td><td>'. |
|
'<input type="checkbox" name="newp_setparmval" /></td></tr>'; |
} |
} |
$r->print(<<ENDENV); |
$r->print(<<ENDENV); |
<html> |
<html> |
<script type="text/javascript" language="Javascript" > |
<script type="text/javascript" language="Javascript" > |
var editbrowser; |
var editbrowser; |
function openbrowser(formname,elementname) { |
function openbrowser(formname,elementname,only,omit) { |
var url = '/res/?'; |
var url = '/res/?'; |
if (editbrowser == null) { |
if (editbrowser == null) { |
url += 'launch=1&'; |
url += 'launch=1&'; |
Line 782 sub crsenv {
|
Line 819 sub crsenv {
|
url += 'catalogmode=interactive&'; |
url += 'catalogmode=interactive&'; |
url += 'mode=parmset&'; |
url += 'mode=parmset&'; |
url += 'form=' + formname + '&'; |
url += 'form=' + formname + '&'; |
|
if (only != null) { |
|
url += 'only=' + only + '&'; |
|
} |
|
if (omit != null) { |
|
url += 'omit=' + omit + '&'; |
|
} |
url += 'element=' + elementname + ''; |
url += 'element=' + elementname + ''; |
var title = 'Browser'; |
var title = 'Browser'; |
var options = 'scrollbars=1,resizable=1,menubar=0'; |
var options = 'scrollbars=1,resizable=1,menubar=0'; |