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

Diff for /loncom/interface/lonconfigsettings.pm between versions 1.8.2.2 and 1.36

version 1.8.2.2, 2010/03/23 20:53:09 version 1.36, 2017/08/03 16:22:09
Line 35  use Apache::lonnet; Line 35  use Apache::lonnet;
 use Apache::loncommon();  use Apache::loncommon();
 use Apache::lonhtmlcommon();  use Apache::lonhtmlcommon();
 use Apache::lonlocal;  use Apache::lonlocal;
   use Apache::lonparmset();
   use Apache::courseclassifier();
   use LONCAPA qw(:DEFAULT :match); 
   
 sub print_header {  sub print_header {
     my ($r,$phase,$context,$jscript) = @_;      my ($r,$phase,$context,$jscript,$container,$instcode,$dom) = @_;
     my ($pagetitle,$brcrumtitle,$action,$call_category_check);      my ($pagetitle,$brcrumtitle,$action,$call_category_check,$instcode_check,
           $crstype,@actions,@code_order);
       if ($phase eq 'display') {
           @actions = &Apache::loncommon::get_env_multiple('form.actions');
       }
     if ($context eq 'domain') {      if ($context eq 'domain') {
         ($pagetitle, $brcrumtitle) = ('View/Modify Domain Settings','View/Modify Domain Settings');          ($pagetitle, $brcrumtitle) = ('View/Modify Domain Settings','View/Modify Domain Settings');
         $action = '/adm/domainprefs';          $action = '/adm/domainprefs';
         if ($phase eq 'display') {          if ($phase eq 'display') {
             my @actions = &Apache::loncommon::get_env_multiple('form.actions');  
             if (grep(/^coursecategories$/,@actions)) {              if (grep(/^coursecategories$/,@actions)) {
                 $call_category_check = qq|                  $call_category_check = qq|
     if (formname == document.display) {      if (formname == document.display) {
Line 55  sub print_header { Line 61  sub print_header {
             }              }
         }          }
     } else {      } else {
         if (&Apache::loncommon::course_type() eq 'Community') {          $crstype = &Apache::loncommon::course_type();
           if ($crstype eq 'Community') {
             ($pagetitle,$brcrumtitle) = ('Community Configuration','Community Configuration');              ($pagetitle,$brcrumtitle) = ('Community Configuration','Community Configuration');
         } else {          } else {
             ($pagetitle,$brcrumtitle) = ('Course Configuration','Course Configuration');              ($pagetitle,$brcrumtitle) = ('Course Configuration','Course Configuration');
         }          }
         $action = '/adm/courseprefs';          $action = '/adm/courseprefs';
           if ($phase eq 'display') {
               if (grep(/^courseinfo$/,@actions)) {
                   my %codedefaults;
                   &Apache::lonnet::auto_instcode_defaults($env{'request.role.domain'},\%codedefaults,
                                                           \@code_order);
                   if (@code_order) {
                      my $noinstcodestr = &mt('You indicated cloning based on category, but did not select any categories.');
                      &js_escape(\$noinstcodestr);
                      $instcode_check = <<"ENDSCRIPT";
       if (formname == document.display) {
           if (formname.cloners_instcode.length) {
               for (var j=0; j<formname.cloners_instcode.length; j++) {
                   if (formname.cloners_instcode[j].checked) {
                       if (formname.cloners_instcode[j].value == 1) {
                           var codes;
                           if (document.getElementsByClassName) {
                               codes = document.getElementsByClassName('LC_cloners_instcodes');
                           } else {
                               codes = getElementsByClassName(document.body,'LC_cloners_instcodes');
                           }
                           if (codes.length) {
                               var gotcode = 0;
                               for (var i=0; i<codes.length; i++) {
                                   if (codes[i].selectedIndex != 0) {
                                        gotcode = 1; 
                                        break;
                                   }
                               }
                               if (!gotcode) {
                                   for (var k=0; k<formname.cloners_instcode.length; k++) {
                                       if (formname.cloners_instcode[k].value == 0) {
                                           formname.cloners_instcode[k].checked = true;
                                       }
                                   }
                                   toggleCloners(document.display.cloners_instcode);
                                   alert('$noinstcodestr');
                                   return false;
                               }
                           }
                       }
                   }
               }
           }
       }
   
   ENDSCRIPT
                   }
               }
           }
     }      }
     my $alert = &mt('You must select at least one functionality type to display.');      my $alert = &mt('You must select at least one functionality type to display.');
       &js_escape(\$alert);
     my $js = '      my $js = '
 <script type="text/javascript">  <script type="text/javascript">
 // <![CDATA[  // <![CDATA[
Line 89  function changePage(formname,newphase) { Line 146  function changePage(formname,newphase) {
             return;              return;
         }          }
     }      }
     '.$call_category_check.'      '.$instcode_check.$call_category_check.'
     formname.submit();      formname.submit();
 }'."\n";  }'."\n";
     if ($phase eq 'pickactions') {      if ($phase eq 'pickactions') {
    $js .= &Apache::lonhtmlcommon::color_picker();
         $js .=          $js .=
             &Apache::lonhtmlcommon::set_form_elements({actions => 'checkbox'})."\n";              &Apache::lonhtmlcommon::set_form_elements({actions => 'checkbox'})."\n";
     } elsif ($phase eq 'display') {      } elsif ($phase eq 'display') {
    $js .= &Apache::lonhtmlcommon::color_picker();
         $js .= &color_pick_js()."\n";          $js .= &color_pick_js()."\n";
     }      }
     $js .= &Apache::loncommon::viewport_size_js().'      $js .= &Apache::loncommon::viewport_size_js().'
Line 116  $jscript Line 175  $jscript
                     'onload' => "setFormElements(document.pickactions);",                      'onload' => "setFormElements(document.pickactions);",
                         );                          );
         $additem = {'add_entries' => \%loaditems,};          $additem = {'add_entries' => \%loaditems,};
       } elsif ($phase eq 'display') {
           if ($context eq 'domain') {
               my $onload;
               if (grep(/^coursedefaults$/,@actions)) {
                   $onload = "toggleDisplay(document.display,'cloneinstcode');".
                             "toggleDisplay(document.display,'credits');".
                             "toggleDisplay(document.display,'studentsubmission');";
               }
               if (grep(/^selfcreation$/,@actions)) {
                   my $prefix = 'cancreate_emailverified';
                   my $customclass = 'LC_selfcreate_email';
                   my $classprefix = 'LC_canmodify_emailusername_';
                   my $optionsprefix = 'LC_options_emailusername_';
                   $onload .= "toggleRows(document.display,'cancreate_email','selfassign','$customclass','$classprefix','$optionsprefix');";
                   my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom);
                   my $hascustom;
                   my ($emailrules,$emailruleorder) = &Apache::lonnet::inst_userrules($dom,'email');
                   if (ref($emailrules) eq 'HASH') {
                       if (keys(%{$emailrules}) > 0) {
                           $hascustom = 'cancreate_emailrule';
                       }
                   }
                   my @posstypes;
                   if (ref($types) eq 'ARRAY') {
                       @posstypes = @{$types};
                       push(@posstypes,'default');
                       foreach my $type (@posstypes) {
                           $onload .= "toggleEmailOptions(document.display,'cancreate_emailoptions','$hascustom',".
                                                                  "'cancreate_emaildomain','$type');";
                       }
                   } else {
                       $onload .= "toggleEmailOptions(document.display,'cancreate_emailoptions','$hascustom',".
                                                          "'cancreate_emaildomain','default');";
                   }
               }
               if ($onload) {
                   my %loaditems = (
                                     'onload' => $onload,
                                   );
                   $additem = {'add_entries' => \%loaditems,};
               }
           } elsif ($context eq 'course') {
               if (grep(/^courseinfo$/,@actions)) {
                   if (@code_order) { 
                       $additem = {
                                      add_entries => {'onload' => "courseSet('','load');toggleCloners(document.display.cloners_instcode);"},
                                  };
                   }
               }
           }
     }      }
     $r->print(&Apache::loncommon::start_page($pagetitle,$js,$additem));      $r->print(&Apache::loncommon::start_page($pagetitle,$js,$additem));
     $r->print(&Apache::lonhtmlcommon::breadcrumbs($brcrumtitle));      $r->print(&Apache::lonhtmlcommon::breadcrumbs($brcrumtitle));
Line 126  $jscript Line 235  $jscript
 <input type="hidden" name="pres_value" />  <input type="hidden" name="pres_value" />
 </form>  </form>
 ');  ');
       if ($container) {
          &Apache::lonparmset::startSettingsScreen($r,$container,$crstype);
       }
     $r->print('<form method="post" name="'.$phase.'" action="'.$action.'"'.      $r->print('<form method="post" name="'.$phase.'" action="'.$action.'"'.
               ' enctype="multipart/form-data">');                ' enctype="multipart/form-data">');
     return;      return;
 }  }
   
 sub print_footer {  sub print_footer {
     my ($r,$phase,$newphase,$button_text,$actions) = @_;      my ($r,$phase,$newphase,$button_text,$actions,$container,$parm_permission) = @_;
     $button_text = &mt($button_text);      $button_text = &mt($button_text);
     $r->print('<input type="hidden" name="phase" value="" />');      $r->print('<input type="hidden" name="phase" value="" />');
     if (defined($env{'form.origin'})) {      if (defined($env{'form.origin'})) {
Line 141  sub print_footer { Line 253  sub print_footer {
     if (($phase eq 'display') || ($phase eq 'process')) {      if (($phase eq 'display') || ($phase eq 'process')) {
         if (ref($actions) eq 'ARRAY') {          if (ref($actions) eq 'ARRAY') {
             foreach my $item (@{$actions}) {              foreach my $item (@{$actions}) {
                 $r->print('<input type="hidden" name="actions" value="'.$item.'" />')."\n";                  $r->print('<input type="hidden" name="actions" value="'.$item.'" />'."\n");
             }              }
         }          }
     }      }
     my $dest='"javascript:changePage(document.'.$phase.','."'$newphase'".')"';      my $dest='"javascript:changePage(document.'.$phase.','."'$newphase'".')"';
     if ($phase eq 'process') {      if ($phase eq 'process') {
         $r->print('<p><a href='.$dest.'>'.$button_text.'</a></p>');          $r->print(
               &Apache::lonhtmlcommon::actionbox(
                   ['<a href='.$dest.'>'.$button_text.'</a>']));
     } else {      } else {
         my $onclick;          my $onclick;
         if ($phase eq 'display') {          if ($phase eq 'display') {
Line 155  sub print_footer { Line 269  sub print_footer {
         } else {          } else {
             $onclick = '"javascript:changePage(document.'.$phase.','."'$newphase'".')"';              $onclick = '"javascript:changePage(document.'.$phase.','."'$newphase'".')"';
         }          }
         $r->print('<p><input type="button" name="store" value="'.          my $showbutton = 1;
                   $button_text.'" onclick='.$onclick.' /></p>');          if (ref($parm_permission) eq 'HASH') {
               unless (($parm_permission->{'process'}) || ($newphase eq 'display')) {
                   $showbutton = 0;
               }
           }
           if ($showbutton) {
               $r->print('<p><input type="button" name="store" value="'.
                         $button_text.'" onclick='.$onclick.' /></p>');
           } 
     }      }
     if ($phase eq 'process') {      if ($phase eq 'process') {
         $r->print('</form>'.&Apache::loncommon::end_page());          $r->print('</form>');
           if ($container) {
              &Apache::lonparmset::endSettingsScreen($r);
           }
           $r->print(&Apache::loncommon::end_page());
     }      }
     return;      return;
 }  }
   
 sub make_changes {  sub make_changes {
     my ($r,$dom,$phase,$context,$prefs_order,$prefs,$values,$confname,$roles,$allitems) = @_;      my ($r,$dom,$phase,$context,$prefs_order,$prefs,$values,$confname,$roles,
           $allitems,$container,$parm_permission) = @_;
     my %brcrumtext = &get_crumb_text();      my %brcrumtext = &get_crumb_text();
     my @actions = &Apache::loncommon::get_env_multiple('form.actions');      my @actions = &Apache::loncommon::get_env_multiple('form.actions');
     my ($numchanged,%changes,%disallowed);      my ($numchanged,%changes,%disallowed);
Line 174  sub make_changes { Line 301  sub make_changes {
         text=>$brcrumtext{$context}},          text=>$brcrumtext{$context}},
        {href=>"javascript:changePage(document.$phase,'$phase')",         {href=>"javascript:changePage(document.$phase,'$phase')",
         text=>"Updated"});          text=>"Updated"});
     &print_header($r,$phase,$context);      &print_header($r,$phase,$context,undef,$container);
     my $crstype;      my ($crstype,%lastact);
     if ($context eq 'course') {      if ($context eq 'course') {
         $crstype = &Apache::loncommon::course_type();          $crstype = &Apache::loncommon::course_type();
     }      }
Line 186  sub make_changes { Line 313  sub make_changes {
                 if ($context eq 'domain') {                  if ($context eq 'domain') {
                     $r->print('<h3>'.&mt($prefs->{$item}{'text'}).'</h3>'.                      $r->print('<h3>'.&mt($prefs->{$item}{'text'}).'</h3>'.
                               &Apache::domainprefs::process_changes($r,$dom,                                &Apache::domainprefs::process_changes($r,$dom,
                                           $confname,$item,$roles,$values));                                            $confname,$item,$roles,$values,\%lastact));
                 } else {                  } else {
                     $changes{$item} = {};                      $changes{$item} = {};
                     &Apache::courseprefs::process_changes($dom,$item,$values,                      &Apache::courseprefs::process_changes($dom,$item,$values,
Line 229  sub make_changes { Line 356  sub make_changes {
     if ($context eq 'course') {      if ($context eq 'course') {
         $footer_text = 'Back to display/edit settings';           $footer_text = 'Back to display/edit settings'; 
     }      }
     &print_footer($r,$phase,'display',$footer_text,\@actions);      &print_footer($r,$phase,'display',$footer_text,\@actions,$container,$parm_permission);
     $r->print('</p>');      $r->print('</p>');
       return \%lastact;
 }  }
   
 sub display_settings {  sub display_settings {
     my ($r,$dom,$phase,$context,$prefs_order,$prefs,$values,$confname,$jscript,      my ($r,$dom,$phase,$context,$prefs_order,$prefs,$values,$confname,$jscript,
         $allitems,$crstype) = @_;          $allitems,$crstype,$container,$parm_permission) = @_;
     my %brcrumtext = &get_crumb_text();      my %brcrumtext = &get_crumb_text();
     my @actions = &Apache::loncommon::get_env_multiple('form.actions');      my @actions = &Apache::loncommon::get_env_multiple('form.actions');
     &Apache::lonhtmlcommon::add_breadcrumb      &Apache::lonhtmlcommon::add_breadcrumb
         ({href=>"javascript:changePage(document.$phase,'display')",          ({href=>"javascript:changePage(document.$phase,'display')",
           text=>"Display/Edit Settings"});            text=>"Display/Edit Settings"});
     &print_header($r,$phase,$context,$jscript);      my $instcode;
       if (ref($values) eq 'HASH') {
           $instcode = $values->{'internal.coursecode'};
       }
       &print_header($r,$phase,$context,$jscript,$container,$instcode,$dom);
     my $divwidth = 900;      my $divwidth = 900;
     if ((ref($prefs_order) eq 'ARRAY') && (ref($prefs) eq 'HASH') && (ref($values) eq 'HASH')) {       if ((ref($prefs_order) eq 'ARRAY') && (ref($prefs) eq 'HASH') && (ref($values) eq 'HASH')) { 
         if (@actions > 0) {          if (@actions > 0) {
             my $rowsum = 0;              my $rowsum = 0;
             my (%output,%rowtotal,@items);              my (%output,%rowtotal,@items,$got_check_uncheck);
             foreach my $item (@{$prefs_order}) {              foreach my $item (@{$prefs_order}) {
                 if (grep(/^\Q$item\E$/,@actions)) {                  if (grep(/^\Q$item\E$/,@actions)) {
                     push(@items,$item);                      push(@items,$item);
                     if ($context eq 'domain') {                      if ($context eq 'domain') {
                           my $settings;
                           if (ref($values) eq 'HASH') { 
                               $settings = $values->{$item};
                           }
                           if (($item eq 'usersessions') || ($item eq 'ssl')) {
                               unless ($got_check_uncheck) {
                                   $r->print('<script type="text/javascript">'."\n".
                                             '// <![CDATA['."\n".
                                             &Apache::loncommon::check_uncheck_jscript()."\n".
                                             '// ]]>'."\n".
                                             '</script>'."\n");
                                   $got_check_uncheck = 1;
                               }
                           } elsif ($item eq 'selfcreation') {
                               if (ref($values) eq 'HASH') {
                                   $settings = $values->{'usercreation'};
                               }
                           } elsif ($item eq 'defaults') {
                               if (ref($values->{'inststatus'}) eq 'HASH') {
                                   if (ref($values->{'defaults'}) eq 'HASH') {
                                       $settings = {%{$values->{'inststatus'}},%{$values->{'defaults'}}};
                                   } else {
                                       $settings = $values->{'inststatus'};
                                   }
                               } else {
                                   my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom);
                                   my $inststatus = {
                                                      inststatustypes => $usertypes,
                                                      inststatusorder => $types,
                                                      inststatusguest => [], 
                                                    };
                                   if (ref($values->{defaults}) eq 'HASH') {
                                       $settings = {%{$inststatus},%{$values->{'defaults'}}};
                                   } else {
                                       $settings = $inststatus;
                                   }
                               }
                           }
                         ($output{$item},$rowtotal{$item}) =                          ($output{$item},$rowtotal{$item}) =
                             &Apache::domainprefs::print_config_box($r,$dom,$confname,                              &Apache::domainprefs::print_config_box($r,$dom,$confname,
                                 $phase,$item,$prefs->{$item},$values->{$item});                                  $phase,$item,$prefs->{$item},$settings);
                     } else {                      } else {
                         ($output{$item},$rowtotal{$item}) =                          ($output{$item},$rowtotal{$item}) =
                             &Apache::courseprefs::print_config_box($r,$dom,$phase,                              &Apache::courseprefs::print_config_box($r,$dom,$phase,
                                 $item,$prefs->{$item},$values,$allitems,$crstype);                                  $item,$prefs->{$item},$values,$allitems,$crstype,$parm_permission);
                     }                      }
                     $rowsum += $rowtotal{$item};                      $rowsum += $rowtotal{$item};
                 }                  }
Line 267  sub display_settings { Line 437  sub display_settings {
                 $r->print($output{$items[$i]});                  $r->print($output{$items[$i]});
             }              }
             $r->print('</div>');              $r->print('</div>');
             $r->print(&print_footer($r,$phase,'process','Save',\@actions));              $r->print(&print_footer($r,$phase,'process','Save Changes',\@actions,$container,$parm_permission));
         } else {          } else {
             $r->print('<input type="hidden" name="phase" value="" />'.              $r->print('<input type="hidden" name="phase" value="" />'.
                       '<span class="LC_error">'.&mt('No settings chosen').                        '<span class="LC_error">'.&mt('No settings chosen').
Line 275  sub display_settings { Line 445  sub display_settings {
         }          }
         $r->print('</form>');          $r->print('</form>');
     }      }
       if ($container) {
           &Apache::lonparmset::endSettingsScreen($r);
       }
     $r->print(&Apache::loncommon::end_page());      $r->print(&Apache::loncommon::end_page());
     return;      return;
 }  }
   
 sub display_choices {  sub display_choices {
     my ($r,$phase,$context,$prefs_order,$prefs) = @_;      my ($r,$phase,$context,$prefs_order,$prefs,$container,$parm_permission) = @_;
     if ($phase eq '') {      if ($phase eq '') {
         $phase = 'pickactions';          $phase = 'pickactions';
     }      }
     my %helphash;      my %helphash;
     &print_header($r,$phase,$context);      &print_header($r,$phase,$context,undef,$container);
     $r->print('<script type="text/javascript">'."\n".      $r->print('<script type="text/javascript">'."\n".
               '// <![CDATA['."\n".                '// <![CDATA['."\n".
               &Apache::loncommon::check_uncheck_jscript()."\n".                &Apache::loncommon::check_uncheck_jscript()."\n".
               '// ]]>'."\n".                '// ]]>'."\n".
               '</script>'."\n");                '</script>'."\n");
     $r->print('<h3>'.&mt('Settings to display/modify').'</h3>'."\n".      my $heading = &mt('Settings to display/modify');
       if (ref($parm_permission) eq 'HASH') {
           unless ($parm_permission->{'process'}) {
               $heading = &mt('Settings to display');
           }
       }
       $r->print('<h3>'.$heading.'</h3>'.
               '<div><input type="button" value="'.&mt('check all').'" '.                '<div><input type="button" value="'.&mt('check all').'" '.
               'onclick="javascript:checkAll(document.pickactions.actions)"'.                'onclick="javascript:checkAll(document.pickactions.actions)"'.
               ' />'.('&nbsp;'x2).                ' />'.('&nbsp;'x2).
               '<input type="button" value="'.&mt('uncheck all').'" '.                '<input type="button" value="'.&mt('uncheck all').'" '.
               'onclick="javascript:uncheckAll(document.pickactions.actions)" />'.                'onclick="javascript:uncheckAll(document.pickactions.actions)" />'.
               '</div><br />'."\n".                "\n".
               '<div class="LC_left_float">');                '</div><div class="LC_left_float">');
     my ($numitems,$maxincol,$firstthird,$secondthird,$seconddiv,$thirddiv,$count);      my ($numitems,$maxincol,$firstthird,$secondthird,$seconddiv,$thirddiv,$count);
     if (ref($prefs_order) eq 'ARRAY') {      if (ref($prefs_order) eq 'ARRAY') {
         $numitems = @{$prefs_order};          $numitems = @{$prefs_order};
Line 308  sub display_choices { Line 487  sub display_choices {
     if ($numitems%$numcols) {      if ($numitems%$numcols) {
         $maxincol ++;          $maxincol ++;
     }      }
     my $firstthird = $maxincol;      $firstthird = $maxincol;
     my $secondthird = $firstthird + $maxincol;      $secondthird = $firstthird + $maxincol;
     $count = 0;      $count = 0;
     if ((ref($prefs_order) eq 'ARRAY') && (ref($prefs) eq 'HASH')) {      if ((ref($prefs_order) eq 'ARRAY') && (ref($prefs) eq 'HASH')) {
         foreach my $item (@{$prefs_order}) {          foreach my $item (@{$prefs_order}) {
             $r->print(&Apache::loncommon::help_open_topic($prefs->{$item}->{'help'}).              $r->print('<h4>'.
                         &Apache::loncommon::help_open_topic($prefs->{$item}->{'help'}).
                       '<label><input type="checkbox" name="actions" value="'.$item.                        '<label><input type="checkbox" name="actions" value="'.$item.
                       '" />&nbsp;'.&mt($prefs->{$item}->{'text'}).'</label><br />');                        '" />&nbsp;'.&mt($prefs->{$item}->{'text'}).'</label></h4>');
             $count ++;              $count ++;
             if ((!$seconddiv) && ($count >= $firstthird)) {              if ((!$seconddiv) && ($count >= $firstthird)) {
                 $r->print('</div>'."\n".'<div class="LC_left_float">'."\n");                  $r->print('</div>'."\n".'<div class="LC_left_float">'."\n");
Line 328  sub display_choices { Line 508  sub display_choices {
         }          }
         $r->print('</div><br clear="all" />');          $r->print('</div><br clear="all" />');
     }      }
     $r->print(&print_footer($r,$phase,'display','Display'));      $r->print(&print_footer($r,$phase,'display','Display',undef,$container,$parm_permission));
     $r->print('</form>');      $r->print('</form>');
       if ($container) {
           &Apache::lonparmset::endSettingsScreen($r);
       }
     $r->print(&Apache::loncommon::end_page());      $r->print(&Apache::loncommon::end_page());
     return;      return;
 }  }
Line 337  sub display_choices { Line 520  sub display_choices {
 sub color_pick_js {  sub color_pick_js {
     my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();      my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();
     my $output = <<"ENDCOL";      my $output = <<"ENDCOL";
     function pclose() {  
         parmwin=window.open("/adm/rat/empty.html","LONCAPAparms","height=350,width=350,scrollbars=no,menubar=no");  
         parmwin.close();  
     }  
   
     $pjump_def      $pjump_def
   
     function psub() {      function psub() {
         pclose();          modalWindow.close();
         if (document.parmform.pres_marker.value!='') {          if (document.parmform.pres_marker.value!='') {
             if (document.parmform.pres_type.value!='') {              if (document.parmform.pres_type.value!='') {
                 eval('document.display.'+                  eval('document.display.'+
Removed from v.1.8.2.2  
changed lines
  Added in v.1.36

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.