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

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

version 1.9, 2010/01/07 18:21:25 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','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',numcols => 'radio',})."\n".              &Apache::lonhtmlcommon::set_form_elements({actions => 'checkbox'})."\n";
             &javascript_set_colnums();  
     } 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 114  $jscript Line 172  $jscript
     my $additem;      my $additem;
     if ($phase eq 'pickactions') {      if ($phase eq 'pickactions') {
         my %loaditems = (          my %loaditems = (
                     'onload' => "javascript:getViewportDims(document.$phase.width,document.$phase.height);setDisplayColumns();setFormElements(document.pickactions);",                      'onload' => "setFormElements(document.pickactions);",
                         );  
         $additem = {'add_entries' => \%loaditems,};  
     } else {  
         my %loaditems = (  
                     'onload' => "javascript:getViewportDims(document.$phase.width,document.$phase.height);",  
                         );                          );
         $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 132  $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="" />');
               '<input type="hidden" name="width" value="'.  
               $env{'form.width'}.'" />'.  
               '<input type="hidden" name="height" value="'.  
               $env{'form.height'}.'" />');  
     if (defined($env{'form.origin'})) {      if (defined($env{'form.origin'})) {
         $r->print('<input type="hidden" name="origin" value="'.$env{'form.origin'}.'" />'."\n");          $r->print('<input type="hidden" name="origin" value="'.$env{'form.origin'}.'" />'."\n");
     }      }
     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");
             }              }
         }          }
         $r->print('<input type="hidden" name="numcols" value="'.$env{'form.numcols'}.'" />');  
     }      }
     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 166  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 185  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 197  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 212  sub make_changes { Line 328  sub make_changes {
     }      }
     if ($context eq 'course') {      if ($context eq 'course') {
         if ($numchanged) {          if ($numchanged) {
             $r->print(&Apache::courseprefs::store_changes($dom,$confname,$prefs_order,\@actions,              my $message = &Apache::courseprefs::store_changes($dom,$confname,$prefs_order,\@actions,
                                                           $prefs,$values,\%changes,$crstype));                                                            $prefs,$values,\%changes,$crstype);
               $r->print(&Apache::loncommon::confirmwrapper($message));
         } else {          } else {
             if ($crstype eq 'Community') {              if ($crstype eq 'Community') {
                 $r->print(&mt("No changes made to community configuration."));                  $r->print(&Apache::loncommon::confirmwrapper(&mt("No changes made to community configuration.")));
             } else {              } else {
                 $r->print(&mt("No changes made to course configuration."));                  $r->print(&Apache::loncommon::confirmwrapper(&mt("No changes made to course configuration.")));
             }              }
         }          }
         if (keys(%disallowed) > 0) {          if (keys(%disallowed) > 0) {
Line 239  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;
     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);
             my $halfway = @actions/2;  
             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};
                 }                  }
             }              }
             my $colend;              $r->print('<div id="prefs" style="max-width:'.$divwidth.'px;margin: 10px auto 10px auto;">');
             my $halfway = $rowsum/2;  
             my $aggregate = 0;  
             my $sumleft = 0;  
             my $sumright = 0;  
             my $crossover;  
             for (my $i=0; $i<@items; $i++) {              for (my $i=0; $i<@items; $i++) {
                 $aggregate += $rowtotal{$items[$i]};  
                 if ($aggregate > $halfway) {  
                     $crossover = $i;  
                     last;  
                 }  
             }  
             for (my $i=0; $i<$crossover; $i++) {  
                 $sumleft += $rowtotal{$items[$i]};  
             }  
             for (my $i=$crossover+1; $i<@items; $i++) {  
                 $sumright += $rowtotal{$items[$i]};  
             }  
             if ((@items > 1) && ($env{'form.numcols'} == 2)) {  
                 my $sumdiff = $sumright - $sumleft;  
                 if ($sumdiff > 0) {  
                     $colend = $crossover + 1;  
                 } else {  
                     $colend = $crossover;  
                 }  
             } else {  
                 $colend = @items;  
             }  
             if ($context ne 'course') {  
             $r->print('<p><table class="LC_double_column"><tr><td class="LC_left_col">');              
             }  
             else {  
             $r->print('<div id="prefs" style="max-width:900px;margin: 10px auto 10px auto;">');  
             }  
             for (my $i=0; $i<$colend; $i++) {  
                 $r->print($output{$items[$i]});                  $r->print($output{$items[$i]});
             }              }
             if ($context ne 'course') {              $r->print('</div>');
             $r->print('</td><td></td><td class="LC_right_col">');              $r->print(&print_footer($r,$phase,'process','Save Changes',\@actions,$container,$parm_permission));
             }  
             if ($colend < @items) {  
                 for (my $i=$colend; $i<@items; $i++) {  
                     $r->print($output{$items[$i]});  
                 }  
             }  
             if ($context ne 'course') {  
             $r->print('</td></tr></table></p>');  
             }  
             else {  
             $r->print('</div>');  
             }  
             $r->print(&print_footer($r,$phase,'process','Save Changes',\@actions));  
         } else {          } else {
             $r->print('<input type="hidden" name="phase" value="" />'.              $r->print('<input type="hidden" name="phase" value="" />'.
                   '<input type="hidden" name="numcols" value="'.                        '<span class="LC_error">'.&mt('No settings chosen').
                   $env{'form.numcols'}.'" />'."\n".                        '</span>');
                   '<span class="LC_error">'.&mt('No settings chosen').  
                   '</span>');  
         }          }
         $r->print('</form>');          $r->print('</form>');
     }      }
     if ($context eq 'course') {      if ($container) {
     $r->print('          &Apache::lonparmset::endSettingsScreen($r);
 <script type="text/javascript">  
  $(document).ready(function(){  
  $("#prefs").accordion({  
  autoHeight: false  
  });  
  $("#prefs td.LC_left_item").css("text-align", "right");  
  $("#prefs td.LC_left_item").css("width", "40%");  
  $("#prefs td.LC_left_item").css("padding-right", "10px");  
  $("#prefs td.LC_right_item").css("text-align", "left");  
  $("#prefs td.LC_right_item").css("width", "60%");  
  });  
 </script>  
 ');  
     }      }
     $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('<h3>'.&mt('Settings to display/modify').'</h3>');  
     $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".'<p><input type="button" value="'.&mt('check all').'" '.                '</script>'."\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').'" '.
               '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)" />'.
               ' /></p><div class="LC_left_float">');                "\n".
     my ($numitems,$midpoint,$seconddiv,$count);                '</div><div class="LC_left_float">');
       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};
     }      }
     $midpoint = int($numitems/2);      my $numcols = 3;
     if ($numitems%2) {      $maxincol = int($numitems/$numcols);
         $midpoint ++;      if ($numitems%$numcols) {
           $maxincol ++;
     }      }
       $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}) {
Line 388  sub display_choices { Line 497  sub display_choices {
                       '<label><input type="checkbox" name="actions" value="'.$item.                        '<label><input type="checkbox" name="actions" value="'.$item.
                       '" />&nbsp;'.&mt($prefs->{$item}->{'text'}).'</label></h4>');                        '" />&nbsp;'.&mt($prefs->{$item}->{'text'}).'</label></h4>');
             $count ++;              $count ++;
             if ((!$seconddiv) && ($count >= $midpoint)) {              if ((!$seconddiv) && ($count >= $firstthird)) {
                 $r->print('</div>'."\n".'<div class="LC_left_float">'."\n");                  $r->print('</div>'."\n".'<div class="LC_left_float">'."\n");
                 $seconddiv = 1;                  $seconddiv = 1;
             }              }
               if ((!$thirddiv) && ($count >= $secondthird)) {
                   $r->print('</div>'."\n".'<div class="LC_left_float">'."\n");
                   $thirddiv = 1;
               }
         }          }
         $r->print('</div><div class="LC_clear_float_footer"></div><h3>'.          $r->print('</div><br clear="all" />');
                   &mt('Display options').'</h3>'."\n".  
                   '<p><span class="LC_nobreak">'.&mt('Display using: ')."\n".  
                   '<label><input type="radio" name="numcols" value="1" />'.  
                   &mt('one column').'</label>&nbsp;&nbsp;<label>'.  
                   '<input type="radio" name="numcols" value="2" />'.  
                   &mt('two columns').'</label></span></p>');  
     }      }
     $r->print(&print_footer($r,$phase,'display','Go'));      $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;
 }  }
   
 sub javascript_set_colnums {  
     return <<END;  
 function setDisplayColumns() {  
     if (document.pickactions.width.value > 1100) {  
         document.pickactions.numcols[1].checked = true;  
     } else {  
         document.pickactions.numcols[0].checked = true;  
     }  
 }  
 END  
 }  
   
 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.9  
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.