version 1.440, 2009/03/31 14:08:20
|
version 1.443, 2009/05/05 16:53:25
|
Line 1322 sub parmmenu {
|
Line 1322 sub parmmenu {
|
</script> |
</script> |
ENDSCRIPT |
ENDSCRIPT |
$r->print(); |
$r->print(); |
|
$r->print('<tr>'); |
|
$r->print('<td style="width:350px;border:1pt solid;font-weight:bold;color:#000000;background-color:#ccccff;vertical-align:top;">'); |
|
$r->print('<blockquote>'.&mt('Select Parameters to View').'</blockquote>'); |
|
$r->print('</td>'); |
|
$r->print('<td style="width:700px; border:1pt solid;padding-left:10px"><blockquote>'); |
$r->print("\n".'<table id="LC_parm_overview_parm_menu"><tr>'); |
$r->print("\n".'<table id="LC_parm_overview_parm_menu"><tr>'); |
my $cnt=0; |
my $cnt=0; |
foreach $tempkey (&keysindisplayorder($allparms,$keyorder)) { |
foreach $tempkey (&keysindisplayorder($allparms,$keyorder)) { |
Line 1379 ENDSCRIPT
|
Line 1384 ENDSCRIPT
|
.'</td>' |
.'</td>' |
.'</tr></table>' |
.'</tr></table>' |
); |
); |
|
$r->print('</blockquote></td></tr>'); |
} |
} |
|
|
sub partmenu { |
sub partmenu { |
my ($r,$allparts,$psprt)=@_; |
my ($r,$allparts,$psprt)=@_; |
|
$r->print('<tr>'); |
|
$r->print('<td style="width:350px;border:1pt solid;font-weight:bold;color:#000000;background-color:#ccccff;vertical-align:top;">'); |
|
$r->print('<blockquote>'. &mt('Select Parts to View').'</blockquote>'); |
|
$r->print('</td>'); |
|
$r->print('<td style="width:700px; border:1pt solid;padding-left:10px"><blockquote>'); |
$r->print('<select multiple="multiple" name="psprt" size="8">'); |
$r->print('<select multiple="multiple" name="psprt" size="8">'); |
$r->print('<option value="all"'); |
$r->print('<option value="all"'); |
$r->print(' selected="selected"') unless (@{$psprt}); |
$r->print(' selected="selected"') unless (@{$psprt}); |
Line 1401 sub partmenu {
|
Line 1412 sub partmenu {
|
} |
} |
} |
} |
$r->print('</select>'); |
$r->print('</select>'); |
|
$r->print('</blockquote></td></tr>'); |
} |
} |
|
|
sub usermenu { |
sub usermenu { |
Line 1417 sub usermenu {
|
Line 1429 sub usermenu {
|
|
|
my $g_s_header=''; |
my $g_s_header=''; |
my $g_s_footer=''; |
my $g_s_footer=''; |
|
|
if (%sectionhash) { |
if (%sectionhash) { |
$sections=&mt('Section:').' <select name="csec"'; |
$sections=&mt('Section:').' <select name="csec"'; |
if (%grouphash && $parmlev ne 'full') { |
if (%grouphash && $parmlev ne 'full') { |
Line 1483 function group_or_section(caller) {
|
Line 1495 function group_or_section(caller) {
|
$groups.='</select>'; |
$groups.='</select>'; |
} |
} |
|
|
if (%sectionhash || %grouphash) { |
if (%sectionhash || %grouphash) { |
$g_s_header='<fieldset><legend>'.&mt('Group/Section').'</legend><div>'; |
$r->print('<tr>'); |
$g_s_footer='</div></fieldset>'; |
$r->print('<td style="width:350px;border:1pt solid;font-weight:bold;color:#000000;background-color:#ccccff;vertical-align:top;">'); |
} |
$r->print('<blockquote>'.&mt('Group/Section').'</blockquote>'); |
|
$r->print('</td>'); |
$r->print('<b>' |
$r->print('<td style="width:700px; border:1pt solid;padding-left:10px"><blockquote>'); |
.$g_s_header |
$r->print($sections.$groups); |
.$sections |
$r->print('</blockquote></td></tr>'); |
.$groups |
} |
.$g_s_footer |
$r->print('<tr>'); |
.'<fieldset><legend>'.&mt('User').'</legend><div>' |
$r->print('<td style="width:350px;border:1pt solid;font-weight:bold;color:#000000;background-color:#ccccff;vertical-align:top;">'); |
.&mt('For User [_1] or Student/Employee ID [_2] at Domain [_3]' |
$r->print('<blockquote>'. &mt('User').'</blockquote>'); |
|
$r->print('</td>'); |
|
$r->print('<td style="width:700px; border:1pt solid;padding-left:10px"><blockquote>'); |
|
|
|
$r->print(&mt('For User [_1] or Student/Employee ID [_2] at Domain [_3]' |
,'<input type="text" value="'.$uname.'" size="12" name="uname" />' |
,'<input type="text" value="'.$uname.'" size="12" name="uname" />' |
,'<input type="text" value="'.$id.'" size="12" name="id" /> ' |
,'<input type="text" value="'.$id.'" size="12" name="id" /> ' |
,$chooseopt) |
,$chooseopt)); |
.'</div></fieldset>' |
|
.'</b>' |
$r->print('</blockquote></td></tr>'); |
); |
|
} |
} |
|
|
sub displaymenu { |
sub displaymenu { |
my ($r,$allparms,$allparts,$pscat,$psprt,$keyorder)=@_; |
my ($r,$allparms,$allparts,$pscat,$psprt,$keyorder)=@_; |
$r->print('<table border="1"><tr><th>'.&mt('Select Parameters to View').'</th><th>'. |
$r->print('<div class="LC_ContentBoxSpecial">'); |
&mt('Select Parts to View').'</th></tr><tr><td>'); |
$r->print('<h2 class="LC_hcell">Step 2</h2>'); |
|
$r->print('<blockquote>'); |
|
$r->print('<table border="0" style="border-style:solid;border-collapse:seperate;text-align:left;margin-left:auto;margin-right:auto;border-spacing:0pt;">'); |
|
|
|
#$r->print('<table border="1"><tr><th>'.&mt('Select Parameters to View').'</th><th>'. &mt('Select Parts to View').'</th></tr><tr><td>'); |
&parmmenu($r,$allparms,$pscat,$keyorder); |
&parmmenu($r,$allparms,$pscat,$keyorder); |
$r->print('</td><td valign="top" align="center">'); |
|
&partmenu($r,$allparts,$psprt); |
&partmenu($r,$allparts,$psprt); |
$r->print('</td></tr></table>'); |
$r->print('</table></blockquote></div>'); |
} |
} |
|
|
sub mapmenu { |
sub mapmenu {## |
my ($r,$allmaps,$pschp,$maptitles)=@_; |
my ($r,$allmaps,$pschp,$maptitles)=@_; |
$r->print('<b>'.&mt('Select Enclosing Map or Folder').'</b> '); |
$r->print('<tr>'); |
|
$r->print('<td style="width:350px;border:1pt solid;font-weight:bold;color:#000000;background-color:#ccccff;vertical-align:top;">'); |
|
$r->print('<blockquote>'.&mt('Select Enclosing Map or Folder').'</blockquote>'); |
|
$r->print('</td>'); |
|
$r->print('<td style="width:700px; border:1pt solid;padding-left:10px"><blockquote>'); |
$r->print('<select name="pschp">'); |
$r->print('<select name="pschp">'); |
$r->print('<option value="all">'.&mt('All Maps or Folders').'</option>'); |
$r->print('<option value="all">'.&mt('All Maps or Folders').'</option>'); |
foreach (sort {$$allmaps{$a} cmp $$allmaps{$b}} keys %{$allmaps}) { |
foreach (sort {$$allmaps{$a} cmp $$allmaps{$b}} keys %{$allmaps}) { |
Line 1524 sub mapmenu {
|
Line 1547 sub mapmenu {
|
$r->print('>'.$$maptitles{$_}.($$allmaps{$_}!~/^uploaded/?' ['.$$allmaps{$_}.']':'').'</option>'); |
$r->print('>'.$$maptitles{$_}.($$allmaps{$_}!~/^uploaded/?' ['.$$allmaps{$_}.']':'').'</option>'); |
} |
} |
$r->print("</select>"); |
$r->print("</select>"); |
|
$r->print('</blockquote></td></tr>'); |
} |
} |
|
|
sub levelmenu { |
sub levelmenu { |
my ($r,$alllevs,$parmlev)=@_; |
my ($r,$alllevs,$parmlev)=@_; |
$r->print('<b>'.&mt('Select Parameter Level'). |
$r->print('<tr>'); |
&Apache::loncommon::help_open_topic('Course_Parameter_Levels').'</b> '); |
$r->print('<td style="width:350px;border:1pt solid;font-weight:bold;color:#000000;background-color:#ccccff;vertical-align:top;">'); |
|
$r->print('<blockquote>'.&mt('Select Parameter Level').&Apache::loncommon::help_open_topic('Course_Parameter_Levels').'</blockquote>'); |
|
$r->print('</td>'); |
|
$r->print('<td style="width:700px; border:1pt solid;padding-left:10px"><blockquote>'); |
$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 1539 sub levelmenu {
|
Line 1566 sub levelmenu {
|
$r->print('>'.&mt($_).'</option>'); |
$r->print('>'.&mt($_).'</option>'); |
} |
} |
$r->print("</select>"); |
$r->print("</select>"); |
|
$r->print('</blockquote></td></tr>'); |
} |
} |
|
|
|
|
Line 1861 sub assessparms {
|
Line 1889 sub assessparms {
|
'" name="recent_'.$_.'" />'); |
'" name="recent_'.$_.'" />'); |
} |
} |
|
|
if (!$pssymb) { |
if (!$pssymb) { |
$r->print('<table border="1"><tr><td>'); |
$r->print('<div class="LC_ContentBoxSpecial">'); |
|
$r->print('<h2 class="LC_hcell">Step 1</h2>'); |
|
$r->print('<blockquote>'); |
|
$r->print('<table border="0" style="border-style:solid;border-collapse:seperate;text-align:left;margin-left:auto;margin-right:auto;border-spacing:0pt;">'); |
&levelmenu($r,\%alllevs,$parmlev); |
&levelmenu($r,\%alllevs,$parmlev); |
$r->print('</td>'); |
|
if ($parmlev ne 'general') { |
if ($parmlev ne 'general') { |
$r->print('<td>'); |
|
&mapmenu($r,\%allmaps,$pschp,\%maptitles); |
&mapmenu($r,\%allmaps,$pschp,\%maptitles); |
$r->print('</td>'); |
|
} |
} |
$r->print('</tr></table>'); |
$r->print('</table>'); |
|
$r->print('</blockquote>'); |
|
$r->print('</div>'); |
&displaymenu($r,\%allparms,\%allparts,\@pscat,\@psprt,\%keyorder); |
&displaymenu($r,\%allparms,\%allparts,\@pscat,\@psprt,\%keyorder); |
} else { |
} else { |
my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb); |
my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb); |
Line 1880 sub assessparms {
|
Line 1913 sub assessparms {
|
'<br /><label><b>'.&mt('Show all parts').': <input type="checkbox" name="psprt" value="all"'. |
'<br /><label><b>'.&mt('Show all parts').': <input type="checkbox" name="psprt" value="all"'. |
($env{'form.psprt'}?' checked="checked"':'').' /></b></label><br />'); |
($env{'form.psprt'}?' checked="checked"':'').' /></b></label><br />'); |
} |
} |
|
$r->print('<div class="LC_ContentBoxSpecial">'); |
|
$r->print('<h2 class="LC_hcell">Step 3</h2>'); |
|
$r->print('<blockquote>'); |
|
$r->print('<table border="0" style="border-style:solid;border-collapse:seperate;text-align:left;margin-left:auto;margin-right:auto;border-spacing:0pt;">'); |
&usermenu($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,\@usersgroups); |
&usermenu($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,\@usersgroups); |
|
$r->print('</table>'); |
|
$r->print('</blockquote>'); |
|
$r->print('</div>'); |
|
|
$r->print('<p>'.$message.'</p>'); |
$r->print('<p>'.$message.'</p>'); |
|
|
Line 2498 sub crsenv {
|
Line 2538 sub crsenv {
|
} |
} |
} |
} |
|
|
my $start_table =&Apache::loncommon::start_data_table(); |
|
my $start_header_row=&Apache::loncommon::start_data_table_header_row(); |
|
my $end_header_row =&Apache::loncommon::end_data_table_header_row(); |
|
# ------------------------- Re-init course environment entries for this session |
# ------------------------- Re-init course environment entries for this session |
|
|
&Apache::lonnet::coursedescription($env{'request.course.id'}, |
&Apache::lonnet::coursedescription($env{'request.course.id'}, |
Line 2671 sub crsenv {
|
Line 2708 sub crsenv {
|
); |
); |
|
|
|
|
# The following code is kept to have access to the old version of display order |
|
|
|
# my @Display_Order = ('url','description','courseid','cloners'); |
|
# (my $can_toggle_cat,$can_categorize) = &can_modify_catsettings($dom); |
|
# if ($can_toggle_cat) { |
|
# push(@Display_Order,'hidefromcat'); |
|
# } |
|
# if ($can_categorize) { |
|
# push(@Display_Order,'categories'); |
|
# } |
|
# push (@Display_Order,('grading', |
|
# 'externalsyllabus', |
|
# 'default_xml_style','pageseparators', |
|
# 'question.email','question.email.text','comment.email', |
|
# 'comment.email.text','policy.email','policy.email.text', |
|
# 'student_classlist_view', |
|
# 'student_classlist_opt_in', |
|
# 'student_classlist_portfiles', |
|
# 'plc.roles.denied','plc.users.denied', |
|
# 'pch.roles.denied','pch.users.denied', |
|
# 'allow_limited_html_in_feedback', |
|
# 'allow_discussion_post_editing', |
|
# 'languages', |
|
# 'timezone', |
|
# 'datelocale', |
|
# 'rolenames', |
|
# 'nothideprivileged', |
|
# 'rndseed', |
|
# 'receiptalg', |
|
# 'problem_stream_switch', |
|
# 'suppress_tries', |
|
# 'suppress_embed_prompt', |
|
# 'default_paper_size', |
|
# 'print_header_format', |
|
# 'disable_receipt_display', |
|
# 'spreadsheet_default_classcalc', |
|
# 'spreadsheet_default_studentcalc', |
|
# 'spreadsheet_default_assesscalc', |
|
# 'hideemptyrows', |
|
# 'default_enrollment_start_date', |
|
# 'default_enrollment_end_date', |
|
# 'tthoptions', |
|
# 'texengine', |
|
# 'disablesigfigs', |
|
# 'disableexampointprint', |
|
# 'task_messages','task_grading')); |
|
# foreach my $parameter (sort(keys(%values))) { |
|
# unless (($parameter =~ m/^internal\./)||($parameter =~ m/^metadata\./) || |
|
# ($parameter =~ m/^selfenroll_/) || ($parameter =~ /_selfenroll$/) |
|
# || ($parameter eq 'type') || |
|
# ($parameter =~ m/^(cc|in|ta|ep|ad|st)\.plaintext$/)) { |
|
# if (! $descriptions{$parameter}) { |
|
# $descriptions{$parameter}=$parameter; |
|
# push(@Display_Order,$parameter); |
|
# } |
|
# } |
|
# } |
|
|
|
|
|
|
|
|
|
# ---------------------------------------------------------------- |
# ---------------------------------------------------------------- |
# Begin: New Version with Parameter Categories |
# Begin: New Version with Parameter Categories |
|
|
sub parameter_row { |
sub parameter_row { |
# Create parameter line for course environment screen |
# Create parameter row for course environment screen |
|
|
my ($parameter, $description) = @_; |
my ($parameter, $description) = @_; |
my $output = ''; |
|
|
|
# Column 1/3: Descritive text of current parameter |
# Start Parameter Row |
$output = &Apache::loncommon::start_data_table_row() |
my $output = &Apache::loncommon::start_data_table_row(); |
.'<td>'.$description.'</td>'; |
|
|
# Column 1/3: Descriptive text of current parameter |
|
$output .= '<td>'.$description.'</td>'; |
|
|
# Column 2/3: Input field (Sometimes special field(s), depending on parameter) |
# Column 2/3: Input field (Sometimes special field(s), depending on parameter) |
# ------------------------------- |
|
# onchange is javascript to automatically check the 'Set' button. |
# onchange is javascript to automatically check the 'Set' button. |
my $onchange = 'onFocus="javascript:window.document.forms' |
my $onchange = 'onFocus="javascript:window.document.forms' |
."['envform'].elements['".$parameter."_setparmval']" |
."['envform'].elements['".$parameter."_setparmval']" |
Line 2817 sub crsenv {
|
Line 2795 sub crsenv {
|
40, |
40, |
$onchange) |
$onchange) |
.'</td>'; |
.'</td>'; |
# ------------------------------- |
|
} |
} |
|
|
# Column 3/3: Check Box (in most cases) |
# Column 3/3: Check Box (in most cases) |
Line 2826 sub crsenv {
|
Line 2803 sub crsenv {
|
.&Apache::lonhtmlcommon::checkbox($parameter.'_setparmval') |
.&Apache::lonhtmlcommon::checkbox($parameter.'_setparmval') |
.'</td>'; |
.'</td>'; |
} |
} |
|
|
|
# End Parameter Row |
$output .= &Apache::loncommon::end_data_table_row(); |
$output .= &Apache::loncommon::end_data_table_row(); |
|
|
return $output; |
return $output; |
} |
} # End sub parameter_row |
|
|
|
|
|
|
|
|
# Parameter Category Names |
# Parameter Category Names |
Line 2848 sub crsenv {
|
Line 2825 sub crsenv {
|
'cat_custom' => 'Parameter Category Custom', |
'cat_custom' => 'Parameter Category Custom', |
); |
); |
|
|
|
# Display Order of Parameter Categories |
|
my @Display_Order = ( |
|
'cat_0', |
|
'cat_1', |
|
'cat_2', |
|
'cat_3', |
|
'cat_4', |
|
'cat_5', |
|
'cat_6', |
|
'cat_7', |
|
'cat_can', |
|
'cat_custom', |
|
); |
|
|
# Link Parameter Categories with Parameters |
# Link Parameter Categories with Parameters |
|
# Order of parameters is display order |
my %parm_cat_parms = ( |
my %parm_cat_parms = ( |
'cat_0' => [ |
'cat_0' => [ |
'url', |
'url', |
Line 2927 sub crsenv {
|
Line 2919 sub crsenv {
|
} |
} |
$parm_cat_parms{'cat_can'} = [@can_cats]; |
$parm_cat_parms{'cat_can'} = [@can_cats]; |
|
|
# Add custom parameters to parameter categories hash |
# Add custom parameters to custom parameter category |
my @custom_cats; |
my @custom_cats; |
foreach my $parameter (sort(keys(%values))) { |
foreach my $parameter (sort(keys(%values))) { |
unless (($parameter =~ m/^internal\./)||($parameter =~ m/^metadata\./) || |
unless (($parameter =~ m/^internal\./)||($parameter =~ m/^metadata\./) || |
Line 2943 sub crsenv {
|
Line 2935 sub crsenv {
|
$parm_cat_parms{'cat_custom'} = [@custom_cats]; |
$parm_cat_parms{'cat_custom'} = [@custom_cats]; |
|
|
|
|
# Old output structure: |
# Display Course Parameter Overview |
|
|
#$start_table |
|
#$start_header_row |
|
#<th>$lt{'par'}</th><th>$lt{'val'}</th><th>$lt{'set'}</th> |
|
#$end_header_row |
|
#$output |
|
#$end_table |
|
|
|
|
|
# Display Parameter List Overview |
|
# Provide hyperlinks to detailed parameter settings |
# Provide hyperlinks to detailed parameter settings |
$output_SB .= '<a name="parmlist" />' |
$output_SB .= '<a name="parmlist" />' |
.'<h2>'.&mt('Course Parameter Overview').'</h2>' |
.'<div class="LC_ContentBoxSpecial">' |
.'<div class="LC_ContentBox">' |
.'<h2 class="LC_hcell">'.&mt('Course Parameter Overview').'</h2>' |
.'<ul>'; |
.'<ul>'; |
foreach my $catkey (keys(%parm_cat_names)) { |
foreach my $catkey (@Display_Order) { |
|
if (!@{$parm_cat_parms{$catkey}}) { next; } # Only display non-empty categories |
$output_SB .= '<li>' |
$output_SB .= '<li>' |
.'<a href="#parmlist_'.$catkey.'">' |
.'<a href="#parmlist_'.$catkey.'">' |
.$parm_cat_names{$catkey} |
.$parm_cat_names{$catkey} |
Line 2970 $output_SB .= '</ul>'
|
Line 2953 $output_SB .= '</ul>'
|
.'</div>'; |
.'</div>'; |
|
|
|
|
# Display Parameter Details |
|
my $buttons='<div align="right">' |
my $buttons='<div align="right">' |
.'<input type="submit" name="crsenv" value="'.&mt('Save All').'" />' |
.'<input type="submit" name="crsenv" value="'.&mt('Save All').'" />' |
.'<br /><a href="#parmlist">'.&mt('Back to Parameter List').'</a>' |
.'<br /><a href="#parmlist">'.&mt('Back to Course Parameter Overview').'</a>' |
.'</div>'; |
.'</div>'; |
|
|
|
# Display all Parameters grouped by categories |
$output_SB .= '<h2>'.&mt('Course Parameters').'</h2>'; |
$output_SB .= '<h2>'.&mt('Course Parameters').'</h2>'; |
|
|
foreach my $catkey (keys(%parm_cat_names)) { |
foreach my $catkey (@Display_Order) { |
|
if (!@{$parm_cat_parms{$catkey}}) { next; } # Only display non-empty categories |
$output_SB .= &Apache::loncommon::start_data_table(); |
$output_SB .= &Apache::loncommon::start_data_table(); |
$output_SB .= &Apache::loncommon::start_data_table_empty_row() |
$output_SB .= &Apache::loncommon::start_data_table_empty_row() |
.'<td colspan="3">' |
.'<td colspan="3">' |
Line 2994 foreach my $catkey (keys(%parm_cat_names
|
Line 2978 foreach my $catkey (keys(%parm_cat_names
|
my $description = $descriptions{$parameter}; |
my $description = $descriptions{$parameter}; |
$output_SB .= ¶meter_row($parameter, $description); |
$output_SB .= ¶meter_row($parameter, $description); |
} |
} |
|
# Add special row to custom category |
|
# Offer possibilty to create a new environment variable |
|
if ($catkey eq 'cat_custom') { |
|
my $onchange = 'onFocus="javascript:window.document.forms' |
|
.'[\'envform\'].elements[\'newp_setparmval\']' |
|
.'.checked=true;"'; |
|
$output_SB .= &Apache::loncommon::start_data_table_row() |
|
.'<td>' |
|
.'<i>'.&mt('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>' |
|
.&Apache::loncommon::end_data_table_row(); |
|
} |
|
# Add buttons row at end of each category |
$output_SB .= &Apache::loncommon::start_data_table_empty_row() |
$output_SB .= &Apache::loncommon::start_data_table_empty_row() |
.'<td colspan="3">' |
.'<td colspan="3">' |
.$buttons |
.$buttons |
.'</td>' |
.'</td>' |
.&Apache::loncommon::end_data_table_empty_row; |
.&Apache::loncommon::end_data_table_empty_row; |
|
|
$output_SB .= &Apache::loncommon::end_data_table() |
$output_SB .= &Apache::loncommon::end_data_table() |
. '<br />'; |
. '<br />'; |
} |
} |
|
|
$output_SB .= '</div>'; |
|
|
|
# End: New Version with Parameter Categories |
# End: New Version with Parameter Categories |
# ---------------------------------------------------------------- |
# ---------------------------------------------------------------- |
|
|
|
|
# # Display Parameter table |
} |
# foreach my $parameter (@Display_Order) { |
|
# my $description = $descriptions{$parameter}; |
|
# # onchange is javascript to automatically check the 'Set' button. |
|
# my $onchange = 'onFocus="javascript:window.document.forms'. |
|
# "['envform'].elements['".$parameter."_setparmval']". |
|
# '.checked=true;"'; |
|
# $output .= &Apache::loncommon::start_data_table_row(). |
|
# '<td>'.$description.'</td>'; |
|
# |
|
# |
|
# |
|
## ------------------------------- |
|
# if ($parameter =~ /^default_enrollment_(start|end)_date$/) { |
|
# $output .= '<td>'. |
|
# &Apache::lonhtmlcommon::date_setter('envform', |
|
# $parameter.'_value', |
|
# $values{$parameter}, |
|
# $onchange). |
|
# '</td>'; |
|
# } elsif ($parameter eq 'timezone') { |
|
# my $includeempty = 1; |
|
# my $timezone = &Apache::lonlocal::gettimezone(); |
|
# $output .= '<td>'. |
|
# &Apache::loncommon::select_timezone($parameter.'_value', |
|
# $timezone, |
|
# $onchange,$includeempty).'</td>'; |
|
# } elsif ($parameter eq 'datelocale') { |
|
# my $includeempty = 1; |
|
# my $locale_obj = &Apache::lonlocal::getdatelocale(); |
|
# my $currdatelocale; |
|
# if (ref($locale_obj)) { |
|
# $currdatelocale = $locale_obj->id(); |
|
# } |
|
# $output .= '<td>'. |
|
# &Apache::loncommon::select_datelocale($parameter.'_value', |
|
# $currdatelocale, |
|
# $onchange,$includeempty).'</td>'; |
|
# } elsif ($parameter eq 'rolenames') { |
|
# $output.= '<td><table>'; |
|
# foreach my $role ('cc','in','ta','ep','ad','st') { |
|
# my $onchange = 'onFocus="javascript:window.document.forms'. |
|
# "['envform'].elements['". |
|
# $parameter.'_'.$role."_setparmval']". |
|
# '.checked=true;"'; |
|
# $output.= '<tr><td>'.&Apache::lonnet::plaintext($role,$crstype,undef,1). |
|
# '</td><td>'. |
|
# &Apache::lonhtmlcommon::textbox($parameter.'_'.$role.'_value', |
|
# $values{$role.'.plaintext'}, |
|
# 15,$onchange). |
|
# '</td></tr>'; |
|
# } |
|
# $output .= '</table></td><td><table>'; |
|
# foreach my $role ('cc','in','ta','ep','ad','st') { |
|
# $output .= '<tr><td>'.&Apache::lonhtmlcommon::checkbox($parameter.'_'.$role.'_setparmval'). |
|
# '</td></tr>'; |
|
# } |
|
# $output .= '</table></td>'; |
|
# } elsif ($parameter eq 'categories') { |
|
# my $catdisplay; |
|
# if ($values{'categories'} ne '') { |
|
# my @curritems = split(/\&/,$values{'categories'}); |
|
# foreach my $item (@curritems) { |
|
# my ($name,$parent,$pos) = split(/:/,$item); |
|
# $catdisplay .= &unescape($name).'&'; |
|
# } |
|
# $catdisplay =~ s/\&$//; |
|
# } |
|
# $output .= '<td>'. |
|
# '<input type="hidden" name="categories_value" value="'. |
|
# $values{'categories'}.'" />'. |
|
# '<input type="textbox" name="categories_display" value="'. |
|
# $catdisplay.'" readonly="readonly" size="40" /></td>'; |
|
# } else { |
|
# $output .= '<td>'. |
|
# &Apache::lonhtmlcommon::textbox($parameter.'_value', |
|
# $values{$parameter}, |
|
# 40,$onchange).'</td>'; |
|
# } |
|
# ------------------------------- |
|
|
|
|
|
# unless ($parameter eq 'rolenames') { |
|
# $output .= '<td>'. |
|
# &Apache::lonhtmlcommon::checkbox($parameter.'_setparmval'). |
|
# '</td>'; |
|
# } |
|
# $output .= &Apache::loncommon::end_data_table_row()."\n"; |
|
# } |
|
my $onchange = 'onFocus="javascript:window.document.forms'. |
|
'[\'envform\'].elements[\'newp_setparmval\']'. |
|
'.checked=true;"'; |
|
$output.=&Apache::loncommon::start_data_table_row(). |
|
'<td><i>'.&mt('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>'. |
|
&Apache::loncommon::end_data_table_row()."\n"; |
|
} |
|
|
|
my $Parameter=&mt('Parameter'); |
|
my $Value=&mt('Value'); |
|
my $Set=&mt('Set'); |
|
my ($jscript,$categorize_js); |
my ($jscript,$categorize_js); |
my $browse_js = &Apache::loncommon::browser_and_searcher_javascript('parmset'); |
my $browse_js = &Apache::loncommon::browser_and_searcher_javascript('parmset'); |
if ($can_categorize) { |
if ($can_categorize) { |
Line 3136 ENDSCRIPT
|
Line 3033 ENDSCRIPT
|
$jscript); |
$jscript); |
my $end_page = |
my $end_page = |
&Apache::loncommon::end_page(); |
&Apache::loncommon::end_page(); |
my $end_table=&Apache::loncommon::end_data_table(); |
|
$r->print(<<ENDENV); |
$r->print(<<ENDENV); |
$start_page |
$start_page |
$breadcrumbs |
$breadcrumbs |
<form method="post" action="/adm/parmset?action=crsenv" name="envform"> |
<form method="post" action="/adm/parmset?action=crsenv" name="envform"> |
$setoutput |
$setoutput |
$output_SB |
$output_SB |
<hr class="LC_edit_problem_divide" /> |
|
<div><input type="submit" name="crsenv" value="$lt{'sav'}" /></div> |
|
$start_table |
|
$start_header_row |
|
<th>$lt{'par'}</th><th>$lt{'val'}</th><th>$lt{'set'}</th> |
|
$end_header_row |
|
$output |
|
$end_table |
|
<input type="submit" name="crsenv" value="$lt{'sav'}" /> |
|
</form> |
</form> |
$end_page |
$end_page |
ENDENV |
ENDENV |
Line 5095 sub handler {
|
Line 4982 sub handler {
|
text=>"Parameter Manager", |
text=>"Parameter Manager", |
faq=>10, |
faq=>10, |
bug=>'Instructor Interface', |
bug=>'Instructor Interface', |
help => 'Parameter_Manager'}); |
help => |
|
'Parameter_Manager,Course_Environment,Parameter_Helper,Parameter_Overview,Table_Mode'}); |
|
|
# ----------------------------------------------------- Needs to be in a course |
# ----------------------------------------------------- Needs to be in a course |
my $parm_permission = |
my $parm_permission = |