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

Diff for /loncom/interface/courseprefs.pm between versions 1.93 and 1.94

version 1.93, 2021/08/04 19:59:10 version 1.94, 2021/10/18 22:29:20
Line 995  sub process_changes { Line 995  sub process_changes {
                                 }                                  }
                             }                              }
                         }                          }
   
                     }                      }
   
                     foreach my $idx (@items) {                      foreach my $idx (@items) {
                         my $itemid = $itemids{$idx};                          my $itemid = $itemids{$idx};
                         next unless ($itemid);                          next unless ($itemid);
Line 4076  sub print_feedback { Line 4076  sub print_feedback {
         }          }
         if ($position eq 'top') {          if ($position eq 'top') {
             my $includeempty = 0;              my $includeempty = 0;
             $datatable .=  '</td><td align="right">'.              $datatable .= '</td><td align="right">'.
                            &user_table($cdom,$item,\@sections,                            &user_table($cdom,$item,\@sections,
                                       $settings->{$item},\%lt,$noedit);                                        $settings->{$item},\%lt,$noedit);
         } else {          } else {
             $datatable .= &Apache::lonhtmlcommon::textbox($item.'.text',              $datatable .= &Apache::lonhtmlcommon::textbox($item.'.text',
Line 4300  sub print_discussion { Line 4300  sub print_discussion {
                           '<table>'.&role_checkboxes($cdom,$cnum,$item,$settings,undef,undef,$noedit).                            '<table>'.&role_checkboxes($cdom,$cnum,$item,$settings,undef,undef,$noedit).
                           '</table>';                            '</table>';
         } elsif ($item eq 'plc.users.denied') {          } elsif ($item eq 'plc.users.denied') {
             $datatable .=  '</td><td align="right">'.              $datatable .= '</td><td align="right">'.
                            &user_table($cdom,$item,undef,                            &user_table($cdom,$item,undef,
                                       $settings->{$item},\%lt,$noedit);                                        $settings->{$item},\%lt,$noedit);
         } elsif ($item eq 'pch.roles.denied') {          } elsif ($item eq 'pch.roles.denied') {
             $datatable .= '</td><td align="right">'.              $datatable .= '</td><td align="right">'.
Line 5064  sub print_menuitems { Line 5064  sub print_menuitems {
                     my %checked;                      my %checked;
                     my $on = ' checked="checked"';                      my $on = ' checked="checked"';
                     foreach my $key (keys(%{$menu{$num}})) {                      foreach my $key (keys(%{$menu{$num}})) {
                         if (($key eq 'top') || ($key eq 'inline') || ($key eq 'main')) {                          if (($key eq 'top') || ($key eq 'inline') || ($key eq 'foot') || ($key eq 'main')) {
                             if ($menu{$num}{$key} eq 'y') {                              if ($menu{$num}{$key} eq 'y') {
                                 $checked{$key} = $on;                                  $checked{$key} = $on;
                             }                              }
Line 5081  sub print_menuitems { Line 5081  sub print_menuitems {
                         foreach my $category (@order) {                          foreach my $category (@order) {
                             if ((ref($categories{$category}) eq 'ARRAY') && (@{$categories{$category}} > 0)) {                              if ((ref($categories{$category}) eq 'ARRAY') && (@{$categories{$category}} > 0)) {
                                 $datatable .= '<fieldset style="vertical-align:top; display:inline-block"><legend>'.$menutitles{$category}.'</legend>'."\n";                                  $datatable .= '<fieldset style="vertical-align:top; display:inline-block"><legend>'.$menutitles{$category}.'</legend>'."\n";
                                   if ($category eq 'text') {
                                       $datatable .= '<i>'.&mt('Header').'</i><br />';
                                   }
                                 foreach my $field (@{$categories{$category}}) {                                  foreach my $field (@{$categories{$category}}) {
                                       if ($field eq 'disc') {
                                           $datatable .= '<br /><i>'.&mt('Footer').'</i><br />';
                                       }
                                     $datatable .= '<label><input type="checkbox" name="menucollections_'.$num.'" value="'.$field.'"'.$checked{$field}.$disabled.' />'.                                      $datatable .= '<label><input type="checkbox" name="menucollections_'.$num.'" value="'.$field.'"'.$checked{$field}.$disabled.' />'.
                                                   $menufields{$field}.'</label><br />';                                                    $menufields{$field}.'</label><br />';
                                 }                                  }
Line 5131  sub menuitems_abbreviations { Line 5137  sub menuitems_abbreviations {
 sub menuitems_categories {  sub menuitems_categories {
     my @order = ('shown','text','links','list','inline');      my @order = ('shown','text','links','list','inline');
     my %categories = (      my %categories = (
                        shown => ['top','inline','main'],                         shown => ['top','inline','foot','main'],
                        text  => ['name','role','crs'],                         text  => ['name','role','crs','disc','fdbk'],
                        links => ['pers','logo','menu','comm','roles','help','logout'],                         links => ['pers','logo','menu','comm','roles','help','logout'],
                        list => ['about','prefs','port','wish','anno','rss'],                         list => ['about','prefs','port','wish','anno','rss'],
                        inline => ['cont','grades','chat','people','groups','resv','syll','feeds'],                         inline => ['cont','grades','chat','people','groups','resv','syll','feeds'],
Line 5143  sub menuitems_categories { Line 5149  sub menuitems_categories {
 sub menuitems_titles {  sub menuitems_titles {
     return &Apache::lonlocal::texthash (      return &Apache::lonlocal::texthash (
         shown => 'Hierarchy',          shown => 'Hierarchy',
         text  => 'Header text',          text  => 'Text',
         links => 'Header links',          links => 'Header links',
         list => 'Drop-down list',          list => 'Drop-down list',
         inline => 'Inline links',          inline => 'Inline links',
Line 5154  sub menuitems_fields { Line 5160  sub menuitems_fields {
     return &Apache::lonlocal::texthash (      return &Apache::lonlocal::texthash (
                top => 'Display header',                 top => 'Display header',
                inline => 'Display inline menu',                 inline => 'Display inline menu',
                  foot => 'Display footer',
                main => 'Access to main menu',                 main => 'Access to main menu',
                pers => 'Personal',                 pers => 'Personal',
                logo => 'LON-CAPA',                 logo => 'LON-CAPA',
Line 5165  sub menuitems_fields { Line 5172  sub menuitems_fields {
                name => 'Fullname',                 name => 'Fullname',
                crs => 'Course Title',                 crs => 'Course Title',
                role => 'Current Role',                 role => 'Current Role',
                  disc => 'Discussion',
                  fdbk => 'Feedback',
                about => 'Information',                 about => 'Information',
                prefs => 'Preferences',                 prefs => 'Preferences',
                port => 'Portfolio',                 port => 'Portfolio',
Line 5206  sub menucollections_display { Line 5215  sub menucollections_display {
         foreach my $num (@current) {          foreach my $num (@current) {
             my %checked;              my %checked;
             foreach my $key (keys(%{$menu{$num}})) {              foreach my $key (keys(%{$menu{$num}})) {
                 if (($key eq 'top') || ($key eq 'inline') || ($key eq 'main')) {                  if (($key eq 'top') || ($key eq 'inline') || ($key eq 'foot') || ($key eq 'main')) {
                     if ($menu{$num}{$key} eq 'y') {                      if ($menu{$num}{$key} eq 'y') {
                         $checked{$key} = 1;                          $checked{$key} = 1;
                     }                      }
Line 5224  sub menucollections_display { Line 5233  sub menucollections_display {
                     if ((ref($categories{$category}) eq 'ARRAY') && (@{$categories{$category}} > 0)) {                      if ((ref($categories{$category}) eq 'ARRAY') && (@{$categories{$category}} > 0)) {
                         $output .= '<fieldset style="vertical-align:top; display:inline-block">'.                          $output .= '<fieldset style="vertical-align:top; display:inline-block">'.
                                    '<legend>'.$menutitles{$category}.'</legend>'."\n";                                     '<legend>'.$menutitles{$category}.'</legend>'."\n";
                           if ($category eq 'text') {
                               $output .= '<b>'.&mt('Header Text').'</b><br /><br />';
                           } 
                         foreach my $field (@{$categories{$category}}) {                          foreach my $field (@{$categories{$category}}) {
                               if ($field eq 'disc') {
                                   $output .= '<br /><b>'.&mt('Footer Text').'</b><br /><br />';
                               }
                             if ($checked{$field}) {                              if ($checked{$field}) {
                                 $output .= &Apache::lonhtmlcommon::confirm_success($menufields{$field});                                  $output .= &Apache::lonhtmlcommon::confirm_success($menufields{$field});
                             } else {                              } else {
Removed from v.1.93  
changed lines
  Added in v.1.94

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