[BACK]Return to lonparmset.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonparmset.pm between versions 1.439 and 1.444

version 1.439, 2009/03/30 15:57:26 version 1.444, 2009/05/06 16:19:34
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 2528  sub crsenv { Line 2565  sub crsenv {
                                  &mt('Select Map').'</a><br /><span class="LC_warning"> '.                                   &mt('Select Map').'</a><br /><span class="LC_warning"> '.
                                  &mt('Modification may make assessment data inaccessible!').                                   &mt('Modification may make assessment data inaccessible!').
                                  '</span>',                                   '</span>',
              'description'    => '<b>'.&mt('Course Description').'</b>',               'description'    => '<b>'.&mt('Course Title').'</b>',
              'courseid'       => '<b>'.&mt('Course ID or number').               'courseid'       => '<b>'.&mt('Course ID or number').
                                  '</b><br />'.                                   '</b><br />'.
                                  '('.&mt('internal, optional').')',                                   '('.&mt('internal, optional').')',
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 .= &parameter_row($parameter, $description);          $output_SB .= &parameter_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 4728  ENDINPUTDATE Line 4615  ENDINPUTDATE
  } elsif ($defkeytype{$tempkey} eq 'string_yesno') {   } elsif ($defkeytype{$tempkey} eq 'string_yesno') {
             my $yeschecked='';              my $yeschecked='';
             my $nochecked='';              my $nochecked='';
             if (&rulescache($tempkey.'_value') eq 'yes') { $yeschecked='checked="checked"'; }              if (&rulescache($tempkey.'_value') eq 'yes') { $yeschecked=' checked="checked"'; }
             if (&rulescache($tempkey.'_value') eq 'no') { $nochecked='checked="checked"'; }              if (&rulescache($tempkey.'_value') eq 'no') { $nochecked=' checked="checked"'; }
   
     $r->print(<<ENDYESNO);      $r->print(<<ENDYESNO);
 <label><input type="radio" name="$tempkey\_value" value="yes" $yeschecked /> $lt{'yes'}</label><br />  <label><input type="radio" name="$tempkey\_value" value="yes"$yeschecked /> $lt{'yes'}</label><br />
 <label><input type="radio" name="$tempkey\_value" value="no" $nochecked /> $lt{'no'}</label>  <label><input type="radio" name="$tempkey\_value" value="no"$nochecked /> $lt{'no'}</label>
 ENDYESNO  ENDYESNO
         } else {          } else {
     $r->print('<input type="text" size="20" name="'.$tempkey.'_value" value="'.&rulescache($tempkey.'_value').'" />');      $r->print('<input type="text" size="20" name="'.$tempkey.'_value" value="'.&rulescache($tempkey.'_value').'" />');
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 =
Removed from v.1.439  
changed lines
  Added in v.1.444

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>