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

Diff for /loncom/interface/courseprefs.pm between versions 1.49.2.28 and 1.49.2.28.2.1

version 1.49.2.28, 2021/12/24 21:09:09 version 1.49.2.28.2.1, 2021/12/29 23:15:54
Line 365  sub handler { Line 365  sub handler {
     }      }
   
     my %values=&Apache::lonnet::dump('environment',$cdom,$cnum);      my %values=&Apache::lonnet::dump('environment',$cdom,$cnum);
       my %courselti=&Apache::lonnet::dump('lti',$cdom,$cnum,undef,undef,undef,1);
       if ($courselti{'lock'}) {
           delete($courselti{'lock'});
       }
       $values{'linkprotection'} = \%courselti;
     my @prefs_order = ('courseinfo','localization','feedback','discussion',      my @prefs_order = ('courseinfo','localization','feedback','discussion',
                        'classlists','appearance','grading','printouts',                         'classlists','appearance','grading','printouts',
                        'spreadsheet','bridgetasks','other');                         'menuitems','linkprotection','spreadsheet','bridgetasks',
                          'other');
   
     my %prefs = (      my %prefs = (
         'courseinfo' =>          'courseinfo' =>
Line 528  sub handler { Line 534  sub handler {
                         suppress_embed_prompt => 'Hide upload references prompt if uploading file to portfolio',                          suppress_embed_prompt => 'Hide upload references prompt if uploading file to portfolio',
                                 },                                  },
                   },                    },
           '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',
                                    },
                      },
           'linkprotection' =>
                      {
                        text => 'Link protection',
                        help => 'Course_Prefs_Linkprotection',
                        header => [{col1 => 'Item',
                                    col2 => 'Settings',
                                   }],
                      },
         'other' =>          'other' =>
                   { text => 'Other settings',                    { text => 'Other settings',
                     help => 'Course_Prefs_Other',                      help => 'Course_Prefs_Other',
Line 543  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 620  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 645  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 723  sub print_config_box { Line 760  sub print_config_box {
         $output .= &print_spreadsheet($cdom,$settings,$ordered,$itemtext,\$rowtotal,$crstype,$noedit);          $output .= &print_spreadsheet($cdom,$settings,$ordered,$itemtext,\$rowtotal,$crstype,$noedit);
     } elsif ($action eq 'bridgetasks') {      } elsif ($action eq 'bridgetasks') {
         $output .= &print_bridgetasks($cdom,$settings,$ordered,$itemtext,\$rowtotal,$crstype,$noedit);          $output .= &print_bridgetasks($cdom,$settings,$ordered,$itemtext,\$rowtotal,$crstype,$noedit);
       } elsif ($action eq 'menuitems') {
           $output .= &print_menuitems('bottom',$cdom,$settings,$itemtext,\$rowtotal,$crstype,$noedit);
       } elsif ($action eq 'linkprotection') {
           $output .= &print_linkprotection($cdom,$settings,\$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 735  sub print_config_box { Line 776  sub print_config_box {
 }  }
   
 sub process_changes {  sub process_changes {
     my ($cdom,$action,$values,$item,$changes,$allitems,$disallowed,$crstype) = @_;      my ($cdom,$cnum,$action,$values,$item,$changes,$allitems,$disallowed,$crstype) = @_;
     my %newvalues;      my (%newvalues,%courselti,$errors);
     if (ref($item) eq 'HASH') {      if (ref($item) eq 'HASH') {
         if (ref($changes) eq 'HASH') {          if (ref($changes) eq 'HASH') {
             my @ordered;              my @ordered;
Line 753  sub process_changes { Line 794  sub process_changes {
                         }                          }
                     }                      }
                 }                  }
               } elsif ($action eq 'linkprotection') {
                   if (ref($values->{'linkprotection'}) eq 'HASH') {
                       foreach my $id (keys(%{$values->{'linkprotection'}})) {
                           if ($id =~ /^\d+$/) {
                               push(@ordered,$id);
                               unless (ref($values->{'linkprotection'}->{$id}) eq 'HASH') {
                                   $courselti{$id} = '';
                               }
                           }
                       }
                   }
                   @ordered = sort { $a <=> $b } @ordered;
                   if (($env{'form.linkprot_add'}) && ($env{'form.linkprot_maxnum'} =~ /^\d+$/)) {
                       push(@ordered,$env{'form.linkprot_maxnum'});
                   }
             } elsif (ref($item->{'ordered'}) eq 'ARRAY') {              } elsif (ref($item->{'ordered'}) eq 'ARRAY') {
                 if ($action eq 'courseinfo') {                  if ($action eq 'courseinfo') {
                     my ($can_toggle_cat,$can_categorize) =                      my ($can_toggle_cat,$can_categorize) =
Line 815  sub process_changes { Line 871  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'} = '';
                       }
                   } elsif ($action eq 'linkprotection') {
                       my %menutitles = &ltimenu_titles();
                       my (@items,%deletions,%itemids,%haschanges);
                       if ($env{'form.linkprot_add'}) {
                           my $name = $env{'form.linkprot_name_add'};
                           $name =~ s/(`)/'/g;
                           my ($newid,$error) = &get_courselti_id($cdom,$cnum,$name);
                           if ($newid) {
                               $itemids{'add'} = $newid;
                               push(@items,'add');
                               $haschanges{$newid} = 1;
                           } else {
                               $errors .= '<span class="LC_error">'.
                                          &mt('Failed to acquire unique ID for link protection').
                                          '</span>';
                           }
                       }
                       if (ref($values->{'linkprotection'}) eq 'HASH') {
                           my @todelete = &Apache::loncommon::get_env_multiple('form.linkprot_del');
                           my $maxnum = $env{'form.linkprot_maxnum'};
                           for (my $i=0; $i<=$maxnum; $i++) {
                               my $itemid = $env{'form.linkprot_id_'.$i};
                               $itemid =~ s/\D+//g;
                               if ($itemid) {
                                   if (ref($values->{'linkprotection'}->{$itemid}) eq 'HASH') {
                                       push(@items,$i);
                                       $itemids{$i} = $itemid;
                                       if ((@todelete > 0) && (grep(/^$i$/,@todelete))) {
                                           $deletions{$itemid} = $values->{'linkprotection'}->{$itemid}->{'name'};
                                       }
                                   }
                               }
                           }
                       }
                       foreach my $idx (@items) {
                           my $itemid = $itemids{$idx};
                           next unless ($itemid);
                           if (exists($deletions{$itemid})) {
                               $courselti{$itemid} = $deletions{$itemid};
                               $haschanges{$itemid} = 1;
                               next;
                           }
                           my %current;
                           if (ref($values->{'linkprotection'}) eq 'HASH') {
                               if (ref($values->{'linkprotection'}->{$itemid}) eq 'HASH') {
                                   foreach my $key (keys(%{$values->{'linkprotection'}->{$itemid}})) {
                                       $current{$key} = $values->{'linkprotection'}->{$itemid}->{$key};
                                   }
                               }
                           }
                           foreach my $inner ('name','key','secret','lifetime','version') {
                               my $formitem = 'form.linkprot_'.$inner.'_'.$idx;
                               $env{$formitem} =~ s/(`)/'/g;
                               if ($inner eq 'lifetime') {
                                   $env{$formitem} =~ s/[^\d.]//g;
                               }
                               unless ($idx eq 'add') {
                                   if ($current{$inner} ne $env{$formitem}) {
                                       $haschanges{$itemid} = 1;
                                   }
                               }
                               if ($env{$formitem} ne '') {
                                   $courselti{$itemid}{$inner} = $env{$formitem};
                               }
                           }
                       }
                       if (keys(%haschanges)) {
                           foreach my $entry (keys(%haschanges)) {
                               $changes->{$entry} = $courselti{$entry};
                           }
                       }
                 } else {                  } else {
                     foreach my $entry (@ordered) {                      foreach my $entry (@ordered) {
                         if ($entry eq 'cloners') {                          if ($entry eq 'cloners') {
Line 855  sub process_changes { Line 1057  sub process_changes {
                                     my $clonedom = $env{'form.cloners_newdom'};                                      my $clonedom = $env{'form.cloners_newdom'};
                                     if (&check_clone($clonedom,$disallowed) eq 'ok') {                                      if (&check_clone($clonedom,$disallowed) eq 'ok') {
                                         my $newdom = '*:'.$env{'form.cloners_newdom'};                                          my $newdom = '*:'.$env{'form.cloners_newdom'};
                                         if (@clonedoms) {                                           if (@clonedoms) {
                                             if (!grep(/^\Q$newdom\E$/,@clonedoms)) {                                              if (!grep(/^\Q$newdom\E$/,@clonedoms)) {
                                                 $newvalues{$entry} .= ','.$newdom;                                                  $newvalues{$entry} .= ','.$newdom;
                                             }                                              }
Line 1267  sub process_changes { Line 1469  sub process_changes {
             }              }
         }          }
     }      }
     return;      return $errors;
   }
   
   sub get_courselti_id {
       my ($cdom,$cnum,$name) = @_;
       # get lock on lti db in course
       my $lockhash = {
                         lock => $env{'user.name'}.
                                 ':'.$env{'user.domain'},
                      };
       my $tries = 0;
       my $gotlock = &Apache::lonnet::newput('lti',$lockhash,$cdom,$cnum);
       my ($id,$error);
       while (($gotlock ne 'ok') && ($tries<10)) {
           $tries ++;
           sleep (0.1);
           $gotlock = &Apache::lonnet::newput('lti',$lockhash,$cdom,$cnum);
       }
       if ($gotlock eq 'ok') {
           my %currids  = &Apache::lonnet::dump('lti',$cdom,$cnum,undef,undef,undef,1);
           if ($currids{'lock'}) {
               delete($currids{'lock'});
               if (keys(%currids)) {
                   my @curr = sort { $a <=> $b } keys(%currids);
                   if ($curr[-1] =~ /^\d+$/) {
                       $id = 1 + $curr[-1];
                   } else {
                       $id = 1;
                   }
               } else {
                   $id = 1;
               }
               if ($id) {
                   unless (&Apache::lonnet::newput('lti',{ $id => $name },$cdom,$cnum) eq 'ok') {
                       $error = 'nostore';
                   }
               } else {
                   $error = 'nonumber';
               }
           }
           my $dellockoutcome = &Apache::lonnet::del('lti',['lock'],$cdom,$cnum);
       } else {
           $error = 'nolock';
       }
       return ($id,$error);
 }  }
   
 sub get_sec_str {  sub get_sec_str {
Line 1312  sub check_clone { Line 1558  sub check_clone {
 sub store_changes {  sub store_changes {
     my ($cdom,$cnum,$prefs_order,$actions,$prefs,$values,$changes,$crstype) = @_;      my ($cdom,$cnum,$prefs_order,$actions,$prefs,$values,$changes,$crstype) = @_;
     my ($chome,$output);      my ($chome,$output);
     my (%storehash,@delkeys,@need_env_update,@oldcloner);      my (%storehash,@delkeys,@need_env_update,@oldcloner,%oldlinkprot);
     if ((ref($values) eq 'HASH') && (ref($changes) eq 'HASH')) {      if ((ref($values) eq 'HASH') && (ref($changes) eq 'HASH')) {
           if (ref($values->{'linkprotection'}) eq 'HASH') {
               %oldlinkprot = %{$values->{'linkprotection'}};
           }
           delete($values->{'linkprotection'});
         %storehash = %{$values};          %storehash = %{$values};
     } else {      } else {
         if ($crstype eq 'Community') {          if ($crstype eq 'Community') {
Line 1323  sub store_changes { Line 1573  sub store_changes {
         }          }
         return $output;          return $output;
     }      }
       my ($numchanges,$skipstore);
       if (ref($changes) eq 'HASH') {
           $numchanges = scalar(keys(%{$changes}));
           if (($numchanges == 1) && (exists($changes->{'linkprotection'}))) {
               $skipstore = 1;
           } elsif (!$numchanges) {
               if ($crstype eq 'Community') {
                   $output = &mt('No changes made to community settings.');
               } else {
                   $output = &mt('No changes made to course settings.');
               }
               return $output;
           }
       }
     my %yesno = (      my %yesno = (
                  hidefromcat           => '1',                   hidefromcat           => '1',
                  problem_stream_switch => '1',                   problem_stream_switch => '1',
Line 1335  sub store_changes { Line 1599  sub store_changes {
         if (grep(/^\Q$item\E$/,@{$actions})) {          if (grep(/^\Q$item\E$/,@{$actions})) {
             $output .= '<h3>'.&mt($prefs->{$item}{'text'}).'</h3>';              $output .= '<h3>'.&mt($prefs->{$item}{'text'}).'</h3>';
             if (ref($changes->{$item}) eq 'HASH') {              if (ref($changes->{$item}) eq 'HASH') {
                 if (keys(%{$changes->{$item}}) > 0) {                  if ((keys(%{$changes->{$item}}) > 0) || ($item eq 'linkprotection')) {
                     $output .= &mt('Changes made:').'<ul style="list-style:none;">';                      $output .= &mt('Changes made:').'<ul style="list-style:none;">';
                     if ($item eq 'other') {                      if ($item eq 'other') {
                         foreach my $key (sort(keys(%{$changes->{$item}}))) {                          foreach my $key (sort(keys(%{$changes->{$item}}))) {
Line 1348  sub store_changes { Line 1612  sub store_changes {
                                            "'$storehash{$key}'")).'</li>';                                             "'$storehash{$key}'")).'</li>';
                             }                              }
                         }                          }
                       } elsif ($item eq 'linkprotection') {
                           if (&Apache::lonnet::put('lti',$changes->{'linkprotection'},$cdom,$cnum,1) eq 'ok') {
                               my $hashid=$cdom.'_'.$cnum;
                               &Apache::lonnet::devalidate_cache_new('courselti',$hashid);
                               foreach my $itemid (sort { $a <=> $b } %{$changes->{'linkprotection'}}) {
                                   if (ref($changes->{'linkprotection'}->{$itemid}) eq 'HASH') {
                                       my %values = %{$changes->{'linkprotection'}->{$itemid}};
                                       my %desc = &linkprot_names();
                                       my $display;
                                       foreach my $title ('name','lifetime','version','key','secret') {
                                           if ($title eq 'secret') {
                                               my $length = length($values{$title});
                                               $display .= $desc{$title}.': '.('*' x $length);
                                           } elsif ($title eq 'version') {
                                               if ($values{$title} eq 'LTI-1p0') {
                                                   $display .= $desc{$title}.': 1.1, ';
                                               }
                                           } else {
                                               $display .= $desc{$title}.': '.$values{$title}.', ';
                                           }
                                       }
                                       $output .= '<li>'.&Apache::lonhtmlcommon::confirm_success(&mt('[_1] set to [_2]','<i>'.$itemid.'</i>',
                                                  "'$display'")).'</li>';
                                   } elsif (ref($oldlinkprot{$itemid}) eq 'HASH') {
                                       my $oldname = $oldlinkprot{$itemid}{'name'};
                                       $output .= '<li>'.&Apache::lonhtmlcommon::confirm_success(&mt('Deleted setting for [_1]','<i>'."$itemid ($oldname)".'</i>')).'</li>';
                                   }
                               }
                           } else {
                               $output .= '<li>'.
                                          '<span class="LC_error">'.
                                          &mt('An error occurred when saving changes to link protection settings, which remain unchanged.').
                                          '</span>'.
                                          '</li>';
                           }
                     } else {                      } else {
                         if (ref($prefs->{$item}->{'ordered'}) eq 'ARRAY') {                          if (ref($prefs->{$item}->{'ordered'}) eq 'ARRAY') {
                             my @settings = @{$prefs->{$item}->{'ordered'}};                              my @settings = @{$prefs->{$item}->{'ordered'}};
Line 1464  sub store_changes { Line 1763  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 1527  sub store_changes { Line 1836  sub store_changes {
                                         }                                          }
                                     } elsif ($changes->{$item}{$key} eq '') {                                      } elsif ($changes->{$item}{$key} eq '') {
                                         push(@delkeys,$key);                                          push(@delkeys,$key);
                                         $output .= '<li>'.&Apache::lonhtmlcommon::confirm_success(&mt('Deleted setting for [_1]',                                          if ($item eq 'menuitems') {
                                                    '<i>'.$displayname.'</i>')).'</li>';                                              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 {
                                               $output .= '<li>'.&Apache::lonhtmlcommon::confirm_success(&mt('Deleted setting for [_1]',
                                                          '<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 1584  sub store_changes { Line 1904  sub store_changes {
             }              }
         }          }
     }      }
       if ($skipstore) {
           return $output;
       }
     if (&Apache::lonnet::put('environment',\%storehash,$cdom,$cnum) eq 'ok') {      if (&Apache::lonnet::put('environment',\%storehash,$cdom,$cnum) eq 'ok') {
         if (ref($changes) eq 'HASH') {          if (ref($changes) eq 'HASH') {
             if (ref($changes->{'courseinfo'}) eq 'HASH') {              if (ref($changes->{'courseinfo'}) eq 'HASH') {
Line 1754  sub get_course { Line 2077  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 1880  function syllabusinfo() { Line 2203  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 4212  sub print_bridgetasks { Line 4618  sub print_bridgetasks {
     return &make_item_rows($cdom,\%items,$ordered,$settings,$rowtotal,$crstype,'bridgetasks',$noedit);      return &make_item_rows($cdom,\%items,$ordered,$settings,$rowtotal,$crstype,'bridgetasks',$noedit);
 }  }
   
   sub ltimenu_titles {
       return &Apache::lonlocal::texthash(
                                           fullname    => 'Full name',
                                           coursetitle => 'Course title',
                                           role        => 'Role',
                                           logout      => 'Logout',
                                           grades      => 'Grades',
       );
   }
   
   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 'foot') || ($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";
                                   if ($category eq 'text') {
                                       $datatable .= '<i>'.&mt('Header').'</i><br />';
                                   }
                                   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.' />'.
                                                     $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','foot','main'],
                          text  => ['name','role','crs','disc','fdbk'],
                          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  => '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',
                  foot => 'Display footer',
                  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',
                  disc => 'Discussion',
                  fdbk => 'Feedback',
                  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 'foot') || ($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";
                           if ($category eq 'text') {
                               $output .= '<b>'.&mt('Header Text').'</b><br /><br />';
                           }
                           foreach my $field (@{$categories{$category}}) {
                               if ($field eq 'disc') {
                                   $output .= '<br /><b>'.&mt('Footer Text').'</b><br /><br />';
                               }
                               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_linkprotection {
       my ($cdom,$settings,$rowtotal,$crstype,$noedit) = @_;
       unless (ref($settings) eq 'HASH') {
           return;
       }
   
       my %linkprotection;
       my $count = 0;
       my $next = 1;
       my ($datatable,$disabled,$css_class);
       if ($noedit) {
           $disabled = ' disabled="disabled"';
       }
       my %lt = &linkprot_names();
       my $itemcount = 0;
   
       if (ref($settings->{'linkprotection'}) eq 'HASH') {
           if (keys(%{$settings->{'linkprotection'}})) {
               my @current = sort { $a <=> $b } keys(%{$settings->{'linkprotection'}});
               $next += $current[-1];
               for (my $i=0; $i<@current; $i++) {
                   my $num = $current[$i];
                   my %values;
                   if (ref($settings->{'linkprotection'}->{$num}) eq 'HASH') {
                       %values = %{$settings->{'linkprotection'}->{$num}};
                   } else {
                       next;
                   }
                   my $selected;
                   if (($values{'version'} eq 'LTI-1p0') || ($values{'version'} eq '')) {
                       $selected = ' selected="selected"';
                   }
                   $css_class = $itemcount%2?' class="LC_odd_row"':'';
                   $datatable .=
                       '<tr '.$css_class.'><td><span class="LC_nobreak">'.
                       '<label><input type="checkbox" name="linkprot_del" value="'.$i.'"'.$disabled.' />'.
                       &mt('Delete?').'</label></span></td>'.
                       '<td><span class="LC_nobreak">'.$lt{'name'}.
                       ':<input type="text" size="15" name="linkprot_name_'.$i.'" value="'.$values{'name'}.'"'.$disabled.' /></span> '.
                       ('&nbsp;'x2).
                       '<span class="LC_nobreak">'.$lt{'version'}.':<select name="linkprot_version_'.$i.'">'.
                       '<option value="LTI-1p0" '.$selected.'>1.1</option></select></span> '."\n".
                       ('&nbsp;'x2).
                       '<span class="LC_nobreak">'.$lt{'lifetime'}.':<input type="text" name="linkprot_lifetime_'.$i.'"'.
                       'value="'.$values{'lifetime'}.'" size="3"'.$disabled.' /></span>'.
                       '<br /><br />'.
                       '<span class="LC_nobreak">'.$lt{'key'}.
                       ':<input type="text" size="25" name="linkprot_key_'.$i.'" value="'.$values{'key'}.'"'.$disabled.' /></span> '.
                       ('&nbsp;'x2).
                       '<span class="LC_nobreak">'.$lt{'secret'}.':'.
                       '<input type="password" size="20" name="linkprot_secret_'.$i.'" value="'.$values{'secret'}.'"'.$disabled.' />'.
                       '<label><input type="checkbox" name="visible" onclick="if (this.checked) { this.form.linkprot_secret_'.$i.'.type='."'text'".' } else { this.form.linkprot_secret_'.$i.'.type='."'password'".' }" />'.&mt('Visible input').'</label>'.
                       '<input type="hidden" name="linkprot_id_'.$i.'" value="'.$num.'" /></span>'.
                       '</td></tr>';
                   $itemcount ++;
               }
           }
       }
       $css_class = $itemcount%2?' class="LC_odd_row"':'';
       $datatable .= '<tr '.$css_class.'><td><span class="LC_nobreak">'."\n".
                     '<input type="hidden" name="linkprot_maxnum" value="'.$next.'" />'."\n".
                     '<input type="checkbox" name="linkprot_add" value="1" />'.&mt('Add').'</span></td>'."\n".
                     '<td>'.
                     '<span class="LC_nobreak">'.$lt{'name'}.
                     ':<input type="text" size="15" name="linkprot_name_add" value="" /></span> '."\n".
                     ('&nbsp;'x2).
                     '<span class="LC_nobreak">'.$lt{'version'}.':<select name="linkprot_version_add">'.
                     '<option value="LTI-1p0" selected="selected">1.1</option></select></span> '."\n".
                     ('&nbsp;'x2).
                     '<span class="LC_nobreak">'.$lt{'lifetime'}.':<input type="text" size="3" name="linkprot_lifetime_add" value="300" /></span> '."\n".
                     '<br /><br />'.
                     '<span class="LC_nobreak">'.$lt{'key'}.':<input type="text" size="25" name="linkprot_key_add" value="" /></span> '."\n".
                     ('&nbsp;'x2).
                     '<span class="LC_nobreak">'.$lt{'secret'}.':<input type="password" size="20" name="linkprot_secret_add" value="" />'.
                     '<label><input type="checkbox" name="visible" onclick="if (this.checked) { this.form.linkprot_secret_add.type='."'text'".' } else { this.form.linkprot_secret_add.type='."'password'".' }" />'.&mt('Visible input').'</label></span> '."\n".
                     '</td></tr>';
       $$rowtotal ++;
       return $datatable;;
   }
   
   sub linkprot_names {
       my %lt = &Apache::lonlocal::texthash(
                                             'version'   => 'LTI Version',
                                             'key'       => 'Key',
                                             'lifetime'  => 'Nonce lifetime (s)',
                                             'name'      => 'Launcher Application Name',
                                             'secret'    => 'Secret',
                                           );
       return %lt;
   }
   
 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 4263  sub get_other_items { Line 5027  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 4314  sub yesno_radio { Line 5084  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 4330  sub select_from_options { Line 5100  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 4414  sub make_item_rows { Line 5187  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.49.2.28  
changed lines
  Added in v.1.49.2.28.2.1

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