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

Diff for /loncom/interface/courseprefs.pm between versions 1.88 and 1.92

version 1.88, 2018/09/01 22:28:55 version 1.92, 2021/06/07 02:19:51
Line 367  sub handler { Line 367  sub handler {
     my %values=&Apache::lonnet::dump('environment',$cdom,$cnum);      my %values=&Apache::lonnet::dump('environment',$cdom,$cnum);
     my @prefs_order = ('courseinfo','localization','feedback','discussion',      my @prefs_order = ('courseinfo','localization','feedback','discussion',
                        'classlists','appearance','grading','printouts',                         'classlists','appearance','grading','printouts',
                        'spreadsheet','bridgetasks','lti','other');                         'menuitems','spreadsheet','bridgetasks','lti','other');
   
     my %prefs = (      my %prefs = (
         'courseinfo' =>          'courseinfo' =>
Line 542  sub handler { Line 542  sub handler {
                          'lti.lcmenu'     => 'Menu items',                           'lti.lcmenu'     => 'Menu items',
                                 },                                  },
                   },                    },
           'menuitems' =>
                      {
                        text => 'Menu display',
                        help => 'Course_Prefs_Menus',
                        header => [{col1 => 'Default Menu',
                                    col2 => 'Value',},
                                   {col1 => 'Menu collections',
                                    col2 => 'Settings',
                                   }],
                        ordered => ['menudefault','menucollections'],
                        itemtext => {
                            menudefault     => 'Choose default collection of menu items for course',
                            menucollections => 'Menu collections',
                                    },
                      },
         'other' =>          'other' =>
                   { text => 'Other settings',                    { text => 'Other settings',
                     help => 'Course_Prefs_Other',                      help => 'Course_Prefs_Other',
Line 557  sub handler { Line 572  sub handler {
                                                   $cnum,undef,\@allitems,                                                    $cnum,undef,\@allitems,
                                                   'coursepref',$parm_permission);                                                    'coursepref',$parm_permission);
     } elsif (($phase eq 'display') && ($parm_permission->{'display'})) {      } elsif (($phase eq 'display') && ($parm_permission->{'display'})) {
         my $jscript = &get_jscript($cid,$cdom,$phase,$crstype,\%values);          my $noedit;
           if (ref($parm_permission) eq 'HASH') {
               unless ($parm_permission->{'process'}) {
                   $noedit = 1;
               }
           }
           my $jscript = &get_jscript($cid,$cdom,$phase,$crstype,\%values,$noedit);
         my @allitems = &get_allitems(%prefs);          my @allitems = &get_allitems(%prefs);
         &Apache::lonconfigsettings::display_settings($r,$cdom,$phase,$context,          &Apache::lonconfigsettings::display_settings($r,$cdom,$phase,$context,
             \@prefs_order,\%prefs,\%values,undef,$jscript,\@allitems,$crstype,              \@prefs_order,\%prefs,\%values,undef,$jscript,\@allitems,$crstype,
Line 634  sub print_config_box { Line 655  sub print_config_box {
     }      }
     $output .= '</span></th>'."\n".      $output .= '</span></th>'."\n".
                '</tr>';                 '</tr>';
     if (($action eq 'feedback') || ($action eq 'classlists')) {      if (($action eq 'feedback') || ($action eq 'classlists') || ($action eq 'menuitems')) {
         $output .= '          $output .= '
           <tr>            <tr>
            <td>             <td>
Line 659  sub print_config_box { Line 680  sub print_config_box {
             $output .= &print_feedback('top',$cdom,$settings,$ordered,$itemtext,\$rowtotal,$noedit);              $output .= &print_feedback('top',$cdom,$settings,$ordered,$itemtext,\$rowtotal,$noedit);
         } elsif ($action eq 'classlists') {          } elsif ($action eq 'classlists') {
             $output .= &print_classlists('top',$cdom,$settings,$itemtext,\$rowtotal,$crstype,$noedit);              $output .= &print_classlists('top',$cdom,$settings,$itemtext,\$rowtotal,$crstype,$noedit);
           } elsif ($action eq 'menuitems') {
               $output .= &print_menuitems('top',$cdom,$settings,$itemtext,\$rowtotal,$crstype,$noedit);
         }          }
         $output .= '          $output .= '
            </table>             </table>
Line 739  sub print_config_box { Line 762  sub print_config_box {
         $output .= &print_bridgetasks($cdom,$settings,$ordered,$itemtext,\$rowtotal,$crstype,$noedit);          $output .= &print_bridgetasks($cdom,$settings,$ordered,$itemtext,\$rowtotal,$crstype,$noedit);
     } elsif ($action eq 'lti') {      } elsif ($action eq 'lti') {
         $output .= &print_lti($cdom,$settings,$ordered,$itemtext,\$rowtotal,$crstype,$noedit);          $output .= &print_lti($cdom,$settings,$ordered,$itemtext,\$rowtotal,$crstype,$noedit);
       } elsif ($action eq 'menuitems') {
           $output .= &print_menuitems('bottom',$cdom,$settings,$itemtext,\$rowtotal,$crstype,$noedit);
     } elsif ($action eq 'other') {      } elsif ($action eq 'other') {
         $output .= &print_other($cdom,$settings,$allitems,\$rowtotal,$crstype,$noedit);          $output .= &print_other($cdom,$settings,$allitems,\$rowtotal,$crstype,$noedit);
     }      }
Line 831  sub process_changes { Line 856  sub process_changes {
                             $changes->{$ext_entry} = $newvalues{$ext_entry};                              $changes->{$ext_entry} = $newvalues{$ext_entry};
                         }                          }
                     }                      }
                   } elsif ($action eq 'menuitems') {
                       my (%current,@colls);
                       my $next = 1;
                       if ($values->{'menucollections'}) {
                           foreach my $item (split(/;/,$values->{'menucollections'})) {
                               my ($num,$value) = split(/\%/,$item);
                               if ($num =~ /^\d+$/) {
                                   unless (grep(/^$num$/,@colls)) {
                                       push(@colls,$num);
                                   }
                                   my @entries = split(/\&/,$value);
                                   foreach my $entry (@entries) {
                                       my ($name,$fields) = split(/=/,$entry);
                                       $current{$num}{$name} = $fields;
                                   }
                               }
                           }
                       }
                       if (@colls) {
                           @colls = sort { $a <=> $b } @colls;
                           $next += $colls[-1];
                       }
                       if ($env{'form.menucollections_add'} eq $next) {
                           push(@colls,$next);
                       }
                       my $currdef = $values->{'menudefault'};
                       my $possdef = $env{'form.menudefault'};
                       if (($possdef =~ /^\d+$/) && (grep(/^$possdef$/,@colls))) {
                           if ($currdef ne $possdef) {
                               $changes->{'menudefault'} = $possdef;
                           }
                       } elsif ($currdef) {
                           $changes->{'menudefault'} = '';
                       }
                       my $menucoll;
                       if (@colls) {
                           my ($ordered,$cats) = &menuitems_categories();
                           my %shortcats = &menuitems_abbreviations();
                           foreach my $num (@colls) {
                               my ($entry,%include);
                               map { $include{$_}= 1; } &Apache::loncommon::get_env_multiple('form.menucollections_'.$num);
                               foreach my $item (@{$ordered}) {
                                   if ($item eq 'shown') {
                                       foreach my $type (@{$cats->{$item}}) {
                                           $entry .= $type.'=';
                                           if ($include{$type}) {
                                               $entry .= 'y';
                                           } else {
                                               $entry .= 'n';
                                           }
                                           $entry .= '&';
                                       }
                                   } else {
                                       $entry .= $shortcats{$item}.'=';
                                       foreach my $type (@{$cats->{$item}}) {
                                           if ($include{$type}) {
                                               $entry .= $type.',';
                                           }
                                       }
                                       $entry =~ s/,$//;
                                       $entry .= '&';
                                   }
                               }
                               $entry =~ s/\&$//;
                               if ($menucoll) {
                                   $menucoll .= ';';
                               }
                               $menucoll .= $num.'%'.$entry;
                           }
                           if ($menucoll ne $values->{'menucollections'}) {
                               $changes->{'menucollections'} = $menucoll;
                           }
                       } elsif ($values->{'menucollections'}) {
                           $changes->{'menucollections'} = '';
                       }
                 } else {                  } else {
                     foreach my $entry (@ordered) {                      foreach my $entry (@ordered) {
                         if ($entry eq 'cloners') {                          if ($entry eq 'cloners') {
Line 984  sub process_changes { Line 1084  sub process_changes {
                                 my $udom = $env{'user.domain'};                                  my $udom = $env{'user.domain'};
                                 my $pendingcoowners = $values->{'internal.pendingco-owners'};                                  my $pendingcoowners = $values->{'internal.pendingco-owners'};
                                 my @pendingcoown = split(',',$pendingcoowners);                                  my @pendingcoown = split(',',$pendingcoowners);
                                 if ($env{'form.pending_coowoner'}) {                                  if ($env{'form.pending_coowner'}) {
                                     foreach my $item (@pendingcoown) {                                      foreach my $item (@pendingcoown) {
                                         unless ($item eq $uname.':'.$udom) {                                          unless ($item eq $uname.':'.$udom) {
                                             push(@newpending,$item);                                              push(@newpending,$item);
                                         }                                          }
                                     }                                      }
                                     @newcoown = @currcoown;                                      @newcoown = @currcoown;
                                     if ($env{'form.pending_coowoner'} eq 'accept') {                                      if ($env{'form.pending_coowner'} eq 'accept') {
                                         unless (grep(/^\Q$uname\E:\Q$udom\E$/,@currcoown)) {                                          unless (grep(/^\Q$uname\E:\Q$udom\E$/,@currcoown)) {
                                             push(@newcoown,$uname.':'.$udom);                                              push(@newcoown,$uname.':'.$udom);
                                         }                                          }
                                     }                                      }
                                 } elsif ($env{'form.remove_coowoner'}) {                                  } elsif ($env{'form.remove_coowner'}) {
                                     foreach my $item (@currcoown) {                                      foreach my $item (@currcoown) {
                                         unless ($item eq $uname.':'.$udom) {                                          unless ($item eq $uname.':'.$udom) {
                                             push(@newcoown,$item);                                              push(@newcoown,$item);
Line 1530  sub store_changes { Line 1630  sub store_changes {
                                             }                                              }
                                         }                                          }
                                         $displayname = &mt($text);                                          $displayname = &mt($text);
                                       } elsif ($item eq 'menuitems') {
                                           unless ($changes->{$item}{$key} eq '') {
                                               if ($key eq 'menudefault') {
                                                   $displayname = &mt('Default collection of menu items');
                                                   $displayval = &mt('Collection: [_1]',
                                                                     $changes->{$item}{$key});
                                               } elsif ($key eq 'menucollections') {
                                                   $displayval = &menucollections_display($changes->{$item}{$key});
                                               }
                                           }
                                     } else {                                      } else {
                                         $displayname = &mt($text);                                          $displayname = &mt($text);
                                     }                                      }
Line 1574  sub store_changes { Line 1684  sub store_changes {
                                                 }                                                  }
                                             }                                              }
                                             unless (&Apache::lonnet::is_course_owner($cdom,$cnum)) {                                              unless (&Apache::lonnet::is_course_owner($cdom,$cnum)) {
                                                 if ($env{'form.pending_coowoner'} eq 'accept') {                                                  if ($env{'form.pending_coowner'} eq 'accept') {
                                                         $displayval = &mt('on');                                                          $displayval = &mt('on');
                                                 } elsif ($env{'form.pending_coowoner'} eq 'decline') {                                                  } elsif ($env{'form.pending_coowner'} eq 'decline') {
                                                         $displayval = '';                                                          $displayval = '';
                                                         $output .= '<li>'.&Apache::lonhtmlcommon::confirm_success(&mt('Invitation to be co-owner declined')).'</li>';                                                          $output .= '<li>'.&Apache::lonhtmlcommon::confirm_success(&mt('Invitation to be co-owner declined')).'</li>';
                                                 } elsif ($env{'form.remove_coowoner'}) {                                                  } elsif ($env{'form.remove_coowner'}) {
                                                     $displayval = &mt('off');                                                      $displayval = &mt('off');
                                                 }                                                  }
                                                 if ($displayval) {                                                  if ($displayval) {
Line 1605  sub store_changes { Line 1715  sub store_changes {
                                             } elsif (!exists($changes->{$item}{'lti.override'})) {                                              } elsif (!exists($changes->{$item}{'lti.override'})) {
                                                 $output .= '<li>'.&mt('LTI settings only saved if Override is set to "Yes"').'</li>';                                                  $output .= '<li>'.&mt('LTI settings only saved if Override is set to "Yes"').'</li>';
                                             }                                              }
                                           } elsif ($item eq 'menuitems') {
                                               if ($key eq 'menudefault') {
                                                   $output .= '<li>'.&mt("Default collection of menu items set to: 'Standard' (all menus shown)").'</li>';
                                               } elsif ($key eq 'menucollections') {
                                                   $output .= '<li>'.&mt('Specific collections of menus no longer available').'</li>';
                                               }
                                         } else {                                          } else {
                                             $output .= '<li>'.&Apache::lonhtmlcommon::confirm_success(&mt('Deleted setting for [_1]',                                              $output .= '<li>'.&Apache::lonhtmlcommon::confirm_success(&mt('Deleted setting for [_1]',
                                                        '<i>'.$displayname.'</i>')).'</li>';                                                         '<i>'.$displayname.'</i>')).'</li>';
                                         }                                          }
                                       } elsif ($key eq 'menucollections') {
                                           $output .= '<li>'.&Apache::lonhtmlcommon::confirm_success(&mt('Numbered menu collections:')).'<br />'.
                                                      $displayval.'</li>';
                                     } else {                                      } else {
                                         $output .= '<li>'.&Apache::lonhtmlcommon::confirm_success(&mt('[_1] set to [_2]',                                          $output .= '<li>'.&Apache::lonhtmlcommon::confirm_success(&mt('[_1] set to [_2]',
                                                    '<i>'.$displayname.'</i>',                                                     '<i>'.$displayname.'</i>',
Line 1838  sub get_course { Line 1957  sub get_course {
 }  }
   
 sub get_jscript {  sub get_jscript {
     my ($cid,$cdom,$phase,$crstype,$settings) = @_;      my ($cid,$cdom,$phase,$crstype,$settings,$noedit) = @_;
     my ($can_toggle_cat,$can_categorize) = &can_modify_catsettings($cdom,$crstype);      my ($can_toggle_cat,$can_categorize) = &can_modify_catsettings($cdom,$crstype);
     my ($jscript,$categorize_js,$loncaparev_js,$instcode_js);      my ($jscript,$categorize_js,$loncaparev_js,$instcode_js);
     my $stubrowse_js = &Apache::loncommon::studentbrowser_javascript();      my $stubrowse_js = &Apache::loncommon::studentbrowser_javascript();
Line 1964  function syllabusinfo() { Line 2083  function syllabusinfo() {
     }      }
 }  }
 ENDSCRIPT  ENDSCRIPT
       my $menuitems_js;
       unless ($noedit) {
           my $collections;
           my $next = 1;
           if (ref($settings) eq 'HASH') {
               if ($settings->{'menucollections'} ne '') {
                   my @current;
                   foreach my $item (split(/;/,$settings->{'menucollections'})) {
                       my ($num) = split(/\%/,$item);
                       if ($num =~ /^\d+$/) {
                           push(@current,$num);
                       }
                   }
                   $collections = join("','",sort { $a <=> $b } @current);
                   if ($collections) {
                       $collections = "'$collections'";
                   }
                   $next += $current[-1];
               }
           }
           my $deftext = &mt('Standard (all menus shown)');
           $menuitems_js = <<ENDSCRIPT;
   function toggleAddmenucoll() {
       if (document.getElementById('menucollections_add')) {
           var state = 'none';
           var add = document.getElementById('menucollections_add').checked;
           if (add) {
               state = 'inline-block';
           }
           var fieldsets = new Array('shown','text','links','list','inline');
           for (var i=0; i<fieldsets.length; i++) {
               if (document.getElementById('addmenucoll_'+fieldsets[i])) {
                   document.getElementById('addmenucoll_'+fieldsets[i]).style.display = state;
               }
           }
           var box = document.getElementsByClassName('LC_menucoll_add');
           if (box.length) {
               for (var i=0; i<box.length; i++) {
                   if (add) {
                       box[i].checked = true;
                   } else {
                       box[i].checked = false;
                   }
               }
           }
           if (document.getElementById('menudefault')) {
               var menudef = document.getElementById('menudefault');
               var currsel = menudef.selectedIndex;
               var colls = new Array($collections);
               menudef.options.length = 0;
               if (!add) {
                   if (currsel == 1 + colls.length) {
                       currsel = 0;
                   }
               }
               if (currsel == 0) {
                   menudef.options[0] = new Option('$deftext','',true,true);
               } else {
                   menudef.options[0] = new Option('$deftext','',false,false);
               }
               if (colls.length) {
                   for (var i=0; i<colls.length; i++) {
                       var idx = i+1;
                       if (currsel == colls[i]) {
                           menudef.options[idx] = new Option(colls[i],colls[i],true,true);
                       } else {
                           menudef.options[idx] = new Option(colls[i],colls[i],false,false);
                       }
                   }
               }
               if (add) {
                   var addidx = 1 + colls.length;
                   if (currsel == addidx) {
                        menudef.options[addidx] = new Option('$next','$next',true,true);
                   } else {
                       menudef.options[addidx] = new Option('$next','$next',false,false);
                   }
               }
           }
       }
   }
   ENDSCRIPT
       }
     $jscript = '<script type="text/javascript" language="Javascript">'."\n".      $jscript = '<script type="text/javascript" language="Javascript">'."\n".
                '// <![CDATA['."\n".                   '// <![CDATA['."\n".  
                $browse_js."\n".$categorize_js."\n".$loncaparev_js."\n".                 $browse_js."\n".$categorize_js."\n".$loncaparev_js."\n".
                $cloners_js."\n".$instcode_js.                 $cloners_js."\n".$instcode_js.
                $syllabus_js."\n".'//]]>'."\n".                 $syllabus_js."\n".$menuitems_js."\n".'//]]>'."\n".
                '</script>'."\n".$stubrowse_js."\n";                 '</script>'."\n".$stubrowse_js."\n";
     return $jscript;      return $jscript;
 }  }
Line 3498  sub manage_coownership  { Line 3700  sub manage_coownership  {
         }          }
         $output .= '<span class="LC_nobreak">';          $output .= '<span class="LC_nobreak">';
         if ($is_coowner) {          if ($is_coowner) {
             $output .= &mt('You are currently a co-owner:').'&nbsp;<label><input type="checkbox" name="remove_coowoner" value="'.$uname.':'.$udom.'" />'.&mt('Discontinue?').'</label>';              $output .= &mt('You are currently a co-owner:').'&nbsp;<label><input type="checkbox" name="remove_coowner" value="'.$uname.':'.$udom.'" />'.&mt('Discontinue?').'</label>';
         } else {          } else {
             $output .= &mt('The course owner has invited you to become a co-owner:').'&nbsp;<label><input type="radio" name="pending_coowoner" value="accept"'.$disabled.' />'.&mt('Accept?').'</label>'.('&nbsp;'x2).              $output .= &mt('The course owner has invited you to become a co-owner:').'&nbsp;<label><input type="radio" name="pending_coowner" value="accept"'.$disabled.' />'.&mt('Accept?').'</label>'.('&nbsp;'x2).
                        '<label><input type="radio" name=pending_coowoner" value="decline"'.$disabled.' />'.&mt('Decline?').'</label>';                         '<label><input type="radio" name=pending_coowner" value="decline"'.$disabled.' />'.&mt('Decline?').'</label>';
         }          }
         $output .= '</span>';          $output .= '</span>';
         if (@currcoown) {          if (@currcoown) {
Line 3759  sub select_recipient { Line 3961  sub select_recipient {
     my $domform = &Apache::loncommon::select_dom_form($cdom,$item.'_udom_'.$num,$includeempty);      my $domform = &Apache::loncommon::select_dom_form($cdom,$item.'_udom_'.$num,$includeempty);
     my $selectlink =      my $selectlink =
         &Apache::loncommon::selectstudent_link('display',$item.'_uname_'.$num,          &Apache::loncommon::selectstudent_link('display',$item.'_uname_'.$num,
                                                $item.'_udom_'.$num,1);                                                 $item.'_udom_'.$num,'only');
     my $output =       my $output = 
         '<table><tr><td align="center">'.&mt('Username').'<br />'.          '<table><tr><td align="center">'.&mt('Username').'<br />'.
         '<input type="text" name="'.$item.'_uname_'.$num.'" value="" /></td>'.          '<input type="text" name="'.$item.'_uname_'.$num.'" value="" /></td>'.
Line 4595  sub ltimenu_titles { Line 4797  sub ltimenu_titles {
     );      );
 }  }
   
   sub print_menuitems {
       my ($position,$cdom,$settings,$itemtext,$rowtotal,$crstype,$noedit) = @_;
       unless ((ref($settings) eq 'HASH') && (ref($itemtext) eq 'HASH')) {
           return;
       }
       if ($position eq 'top') {
           my (%defaultmenu_options,@defaultmenu_order,$addcollection);
           if ($settings->{'menucollections'} ne '') {
               foreach my $item (split(/;/,$settings->{'menucollections'})) {
                   my ($num,$value) = split(/\%/,$item);
                   if ($num =~ /^\d+$/) {
                       $defaultmenu_options{$num} = $num;
                   }
               }
               @defaultmenu_order = sort { $a <=> $b } keys(%defaultmenu_options);
               $addcollection = $defaultmenu_order[-1] + 1;
           } else {
               $addcollection = 1;
           }
           $defaultmenu_options{$addcollection} = $addcollection;
           my %items = (
               'menudefault' => {
                      text => '<b>'.&mt($itemtext->{'menudefault'}).'</b><br />'.
                              &mt("(can be overriden in deep-link context)"),
                      input => 'selectbox',
                      options => \%defaultmenu_options,
                      order  => \@defaultmenu_order,
                      nullval => &mt('Standard (all menus shown)'),
                               },
           );
           return &make_item_rows($cdom,\%items,['menudefault'],$settings,$rowtotal,$crstype,'menuitems',$noedit);
       } else {
           my %menu;
           my $count = 0;
           my $next = 1;
           my ($datatable,$disabled);
           if ($noedit) {
               $disabled = ' disabled="disabled"';
           }
   
           my ($ordered,$cats) = &menuitems_categories();
           my @order = @{$ordered};
           my %categories = %{$cats};
           my %menutitles = &menuitems_titles();
           my %menufields = &menuitems_fields();
   
           if ($settings->{'menucollections'} ne '') {
               foreach my $item (split(/;/,$settings->{'menucollections'})) {
                   my ($num,$value) = split(/\%/,$item);
                   if ($num =~ /^\d+$/) {
                       my @entries = split(/\&/,$value);
                       foreach my $entry (@entries) {
                           my ($name,$fields) = split(/=/,$entry);
                           $menu{$num}{$name} = $fields;
                       }
                   }
               }
               if (keys(%menu)) {
                   my @current = sort { $a <=> $b } keys(%menu);
                   $next += $current[-1];
                   foreach my $num (@current) {
                       my %checked;
                       my $on = ' checked="checked"';
                       foreach my $key (keys(%{$menu{$num}})) {
                           if (($key eq 'top') || ($key eq 'inline') || ($key eq 'main')) {
                               if ($menu{$num}{$key} eq 'y') {
                                   $checked{$key} = $on;
                               }
                           } else {
                               foreach my $field (split(/,/,$menu{$num}{$key})) {
                                   if (exists($menufields{$field})) {
                                       $checked{$field} = $on;
                                   }
                               }
                           }
                       }
                       if (ref($menu{$num}) eq 'HASH') {
                           $datatable .= &item_table_row_start('<em class="LC_nav_bar">'.$num.'</em>',$count,'','','','LC_left_item');
                           foreach my $category (@order) {
                               if ((ref($categories{$category}) eq 'ARRAY') && (@{$categories{$category}} > 0)) {
                                   $datatable .= '<fieldset style="vertical-align:top; display:inline-block"><legend>'.$menutitles{$category}.'</legend>'."\n";
                                   foreach my $field (@{$categories{$category}}) {
                                       $datatable .= '<label><input type="checkbox" name="menucollections_'.$num.'" value="'.$field.'"'.$checked{$field}.$disabled.' />'.
                                                     $menufields{$field}.'</label><br />';
                                   }
                                   $datatable .= '</fieldset>';
                               }
                           }
                           $datatable .= &item_table_row_end();
                           $count ++;
                       }
                   }
               }
           } elsif ($noedit) {
               my $text = &mt('No menu collections defined for this course.');
               $datatable .= &item_table_row_start($text,$count);
           }
           unless ($noedit) {
               my $add = '<label><input type="checkbox" name="menucollections_add" id="menucollections_add" value="'.$next.'" '.
                         'onclick="javascript:toggleAddmenucoll();" />'.&mt('Add').'</label>';
               $datatable .= &item_table_row_start($add,$count,'','','','LC_left_item');
               foreach my $category (@order) {
                   if ((ref($categories{$category}) eq 'ARRAY') && (@{$categories{$category}} > 0)) {
                       $datatable .= '<fieldset id="addmenucoll_'.$category.'" style="display:none; vertical-align:top;"><legend>'.$menutitles{$category}.'</legend>'."\n";
                       foreach my $field (@{$categories{$category}}) {
                           $datatable .= '<label><input type="checkbox" class="LC_menucoll_add" name="menucollections_'.$next.'" value="'.$field.'"'.$disabled.' />'.
                                         $menufields{$field}.'</label><br />';
                       }
                       $datatable .= '</fieldset>';
                   }
               }
               $datatable .= &item_table_row_end();
               $count ++;
           }
           return $datatable;
       }
   }
   
   sub menuitems_abbreviations {
       my %briefcats = (
                        text => 'pt',
                        links => 'p',
                        list => 'ps',
                        inline => 's',
                       );
       return %briefcats;
   }
   
   sub menuitems_categories {
       my @order = ('shown','text','links','list','inline');
       my %categories = (
                          shown => ['top','inline','main'],
                          text  => ['name','role','crs'],
                          links => ['pers','logo','menu','comm','roles','help','logout'],
                          list => ['about','prefs','port','wish','anno','rss'],
                          inline => ['cont','grades','chat','people','groups','resv','syll','feeds'],
                        );
       return (\@order,\%categories);
   }
   
   sub menuitems_titles {
       return &Apache::lonlocal::texthash (
           shown => 'Hierarchy',
           text  => 'Header text',
           links => 'Header links',
           list => 'Drop-down list',
           inline => 'Inline links',
       );
   }
   
   sub menuitems_fields {
       return &Apache::lonlocal::texthash (
                  top => 'Display header',
                  inline => 'Display inline menu',
                  main => 'Access to main menu',
                  pers => 'Personal',
                  logo => 'LON-CAPA',
                  menu => 'Home',
                  comm => 'Messages',
                  roles => 'Roles/Courses',
                  help => 'Help',
                  logout => 'Logout',
                  name => 'Fullname',
                  crs => 'Course Title',
                  role => 'Current Role',
                  about => 'Information',
                  prefs => 'Preferences',
                  port => 'Portfolio',
                  wish => 'Stored Links',
                  anno => 'Calendar',
                  rss => 'RSS Feeds',
                  cont => 'Contents',
                  grades => 'Grades',
                  chat => 'Chat',
                  people => 'People',
                  groups => 'Groups',
                  resv => 'Reservations',
                  syll => 'Syllabus',
                  feeds => 'Feeds',
       );
   }
   
   sub menucollections_display {
       my ($collections) = @_;
       my %menu;
       my ($ordered,$cats) = &menuitems_categories();
       my @order = @{$ordered};
       my %categories = %{$cats};
       my %menutitles = &menuitems_titles();
       my %menufields = &menuitems_fields();
       foreach my $item (split(/;/,$collections)) {
           my ($num,$value) = split(/\%/,$item);
           if ($num =~ /^\d+$/) {
               my @entries = split(/\&/,$value);
               foreach my $entry (@entries) {
                   my ($name,$fields) = split(/=/,$entry);
                   $menu{$num}{$name} = $fields;
               }
           }
       }
       my $output = '';
       if (keys(%menu)) {
           my @current = sort { $a <=> $b } keys(%menu);
           foreach my $num (@current) {
               my %checked;
               foreach my $key (keys(%{$menu{$num}})) {
                   if (($key eq 'top') || ($key eq 'inline') || ($key eq 'main')) {
                       if ($menu{$num}{$key} eq 'y') {
                           $checked{$key} = 1;
                       }
                   } else {
                       foreach my $field (split(/,/,$menu{$num}{$key})) {
                           if (exists($menufields{$field})) {
                               $checked{$field} = 1;
                           }
                       }
                   }
               }
               if (ref($menu{$num}) eq 'HASH') {
                   $output .= '<fieldset><legend>'.&mt('Collection [_1]',$num).'</legend>';
                   foreach my $category (@order) {
                       if ((ref($categories{$category}) eq 'ARRAY') && (@{$categories{$category}} > 0)) {
                           $output .= '<fieldset style="vertical-align:top; display:inline-block">'.
                                      '<legend>'.$menutitles{$category}.'</legend>'."\n";
                           foreach my $field (@{$categories{$category}}) {
                               if ($checked{$field}) {
                                   $output .= &Apache::lonhtmlcommon::confirm_success($menufields{$field});
                               } else {
                                   $output .= &Apache::lonhtmlcommon::confirm_success($menufields{$field},1);
                               }
                               $output .= '<br />';
                           }
                           $output .= '</fieldset>';
                       }
                   }
                   $output .= '</fieldset>';
               }
           }
       }
       return $output;
   }
   
 sub print_other {  sub print_other {
     my ($cdom,$settings,$allitems,$rowtotal,$crstype,$noedit) = @_;      my ($cdom,$settings,$allitems,$rowtotal,$crstype,$noedit) = @_;
     unless ((ref($settings) eq 'HASH') && (ref($allitems) eq 'ARRAY')) {      unless ((ref($settings) eq 'HASH') && (ref($allitems) eq 'ARRAY')) {
Line 4646  sub get_other_items { Line 5090  sub get_other_items {
 }  }
   
 sub item_table_row_start {  sub item_table_row_start {
     my ($text,$count,$add_class,$colspan) = @_;      my ($text,$count,$add_class,$colspan,$leftclass,$rightclass) = @_;
     my $output;      my $output;
     my $css_class = ($count % 2) ? 'LC_odd_row' : 'LC_even_row';      my $css_class = ($count % 2) ? 'LC_odd_row' : 'LC_even_row';
     $css_class = (join(' ',$css_class,$add_class)) unless ($add_class eq '');      $css_class = (join(' ',$css_class,$add_class)) unless ($add_class eq '');
       if ($leftclass eq '') {
           $leftclass = 'LC_left_item';
       }
       if ($rightclass eq '') {
           $rightclass = 'LC_right_item';
       }
     $output .= '<tr class="'.$css_class.'">'."\n".      $output .= '<tr class="'.$css_class.'">'."\n".
                '<td class="LC_left_item">'.$text.                 '<td class="'.$leftclass.'">'.$text.
                '</td>';                 '</td>';
     if ($colspan) {      if ($colspan > 1) {
         $output .= '<td class="LC_right_item" colspan="'.$colspan.'">';          $output .= '<td class="'.$rightclass.'" colspan="'.$colspan.'">';
     } else {      } else {
         $output .= '<td class="LC_right_item">';          $output .= '<td class="'.$rightclass.'">';
     }      }
     return $output;      return $output;
 }  }
Line 4697  sub yesno_radio { Line 5147  sub yesno_radio {
 }  }
   
 sub select_from_options {  sub select_from_options {
     my ($item,$order,$options,$curr,$nullval,$multiple,$maxsize,$onchange,$noedit) = @_;      my ($item,$order,$options,$curr,$nullval,$multiple,$maxsize,$onchange,$noedit,$id) = @_;
     my $output;      my $output;
     my $disabled;      my $disabled;
     if ($noedit) {      if ($noedit) {
Line 4713  sub select_from_options { Line 5163  sub select_from_options {
                 $output .= ' size="'.$maxsize.'"';                  $output .= ' size="'.$maxsize.'"';
             }              }
         }          }
           if ($id ne '') {
               $output .= ' id="'.$id.'"';
           }
         $output .= $disabled.'>'."\n";          $output .= $disabled.'>'."\n";
         if ($nullval ne '') {          if ($nullval ne '') {
             $output .= '<option value=""';              $output .= '<option value=""';
Line 4801  sub make_item_rows { Line 5254  sub make_item_rows {
                 }                  }
                 $datatable .= &yesno_radio($item,$settings,$unsetdefault,$valueyes,$valueno,$noedit);                  $datatable .= &yesno_radio($item,$settings,$unsetdefault,$valueyes,$valueno,$noedit);
             } elsif ($items->{$item}{input} eq 'selectbox') {              } elsif ($items->{$item}{input} eq 'selectbox') {
                   my $id;
                   if ($caller eq 'menuitems') {
                       $id = $item;
                   }
                 my $curr = $settings->{$item};                  my $curr = $settings->{$item};
                 $datatable .=                  $datatable .=
                     &select_from_options($item,$items->{$item}{'order'},                      &select_from_options($item,$items->{$item}{'order'},
                                          $items->{$item}{'options'},$curr,                                           $items->{$item}{'options'},$curr,
                                          $items->{$item}{'nullval'},                                           $items->{$item}{'nullval'},
                                          undef,undef,undef,$noedit);                                           undef,undef,undef,$noedit,$id);
             } elsif ($items->{$item}{input} eq 'textbox') {              } elsif ($items->{$item}{input} eq 'textbox') {
                 my $disabled;                  my $disabled;
                 if ($noedit) {                  if ($noedit) {
Removed from v.1.88  
changed lines
  Added in v.1.92

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