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

Diff for /loncom/interface/courseprefs.pm between versions 1.100 and 1.117

version 1.100, 2022/02/06 21:36:59 version 1.117, 2022/10/19 00:03:10
Line 52  This module is used for configuration of Line 52  This module is used for configuration of
   
 =item process_changes()  =item process_changes()
   
   =item process_linkprot()
   
 =item get_sec_str()  =item get_sec_str()
   
 =item check_clone()  =item check_clone()
   
 =item store_changes()  =item store_changes()
   
   =item store_linkprot()
   
 =item update_env()  =item update_env()
   
 =item display_disallowed()  =item display_disallowed()
Line 112  This module is used for configuration of Line 116  This module is used for configuration of
   
 =item item_table_row_end()  =item item_table_row_end()
   
 =item yes_no_radio()  =item yesno_radio()
   
 =item select_from_options()  =item select_from_options()
   
Line 220  use Apache::lonparmset; Line 224  use Apache::lonparmset;
 use Apache::courseclassifier;  use Apache::courseclassifier;
 use Apache::lonlocal;  use Apache::lonlocal;
 use LONCAPA qw(:DEFAULT :match);  use LONCAPA qw(:DEFAULT :match);
   use Crypt::CBC;
   
 my $registered_cleanup;  my $registered_cleanup;
 my $modified_courses;  my $modified_courses;
Line 288  sub handler { Line 293  sub handler {
                 excc => 'Exclude from community catalog',                  excc => 'Exclude from community catalog',
                 clon => 'Users allowed to clone community',                  clon => 'Users allowed to clone community',
                 rept => 'Replacement titles for standard community roles',                  rept => 'Replacement titles for standard community roles',
                 time => 'Timezone where the community is located',                  time => 'Time Zone where the community is located',
                 date => 'Locale used for community calendar',                  date => 'Locale used for community calendar',
                 coco => 'Community Content',                  coco => 'Community Content',
                 copo => 'Community Policy',                  copo => 'Community Policy',
Line 317  sub handler { Line 322  sub handler {
                 excc => 'Exclude from course catalog',                  excc => 'Exclude from course catalog',
                 clon => 'Users allowed to clone course',                  clon => 'Users allowed to clone course',
                 rept => 'Replacement titles for standard course roles',                  rept => 'Replacement titles for standard course roles',
                 time => 'Timezone in which the course takes place',                  time => 'Time Zone in which the course takes place',
                 date => 'Locale used for course calendar',                  date => 'Locale used for course calendar',
                 coco => 'Course Content',                  coco => 'Course Content',
                 copo => 'Course Policy',                  copo => 'Course Policy',
Line 365  sub handler { Line 370  sub handler {
     }      }
   
     my %values=&Apache::lonnet::dump('environment',$cdom,$cnum);      my %values=&Apache::lonnet::dump('environment',$cdom,$cnum);
     my %lti=&Apache::lonnet::dump('lti',$cdom,$cnum,undef,undef,undef,1);      my %linkprot=&Apache::lonnet::dump('lti',$cdom,$cnum,undef,undef,undef,1);
     my %ltienc = &Apache::lonnet::dump('nohist_ltienc',$cdom,$cnum,undef,undef,undef,1);      my %ltienc = &Apache::lonnet::dump('nohist_ltienc',$cdom,$cnum,undef,undef,undef,1);
     foreach my $id (keys(%lti)) {      foreach my $id (keys(%linkprot)) {
         if (ref($lti{$id}) eq 'HASH') {          if (ref($linkprot{$id}) eq 'HASH') {
             if (ref($ltienc{$id}) eq 'HASH') {              if (ref($ltienc{$id}) eq 'HASH') {
                 $values{'linkprotection'}{$id} = { %{$lti{$id}}, %{$ltienc{$id}} };                  $values{'linkprot'}{$id} = { %{$linkprot{$id}}, %{$ltienc{$id}} };
             } else {              } else {
                 $values{'linkprotection'}{$id} = $lti{$id};                  $values{'linkprot'}{$id} = $linkprot{$id};
             }              }
         }          }
         unless ($phase eq 'process') {          unless ($phase eq 'process') {
             if (ref($values{'linkprotection'}{$id}) eq 'HASH') {              if (ref($values{'linkprot'}{$id}) eq 'HASH') {
                 delete($values{'linkprotection'}{$id}{'secret'});                  delete($values{'linkprot'}{$id}{'secret'});
             }              }
         }          }
     }      }
     if ($lti{'lock'}) {      if ($linkprot{'lock'}) {
         delete($lti{'lock'});          delete($linkprot{'lock'});
     }      }
     my @prefs_order = ('courseinfo','localization','feedback','discussion',      my @prefs_order = ('courseinfo','localization','feedback','discussion',
                        'classlists','appearance','grading','printouts',                         'classlists','appearance','grading','printouts',
                        'menuitems','linkprotection','spreadsheet','bridgetasks',                         'menuitems','linkprot','spreadsheet','bridgetasks',
                        'lti','other');                         'lti','other');
   
     my %prefs = (      my %prefs = (
Line 487  sub handler { Line 492  sub handler {
                      help => 'Course_Prefs_Display',                       help => 'Course_Prefs_Display',
                      ordered => ['default_xml_style','pageseparators',                       ordered => ['default_xml_style','pageseparators',
                                  'disable_receipt_display','texengine',                                   'disable_receipt_display','texengine',
                                  'tthoptions','uselcmath','usejsme','inline_chem'],                                   'tthoptions','uselcmath','usejsme',
                                    'inline_chem','extresource'],
                       itemtext => {                        itemtext => {
                           default_xml_style       => 'Default XML style file',                            default_xml_style       => 'Default XML style file',
                           pageseparators          => 'Visibly Separate Items on Pages',                            pageseparators          => 'Visibly Separate Items on Pages',
Line 497  sub handler { Line 503  sub handler {
                           uselcmath               => 'Student formula entry uses inline preview, not DragMath pop-up',                            uselcmath               => 'Student formula entry uses inline preview, not DragMath pop-up',
                           usejsme                 => 'Molecule editor uses JSME (HTML5) in place of JME (Java)',                            usejsme                 => 'Molecule editor uses JSME (HTML5) in place of JME (Java)',
                           inline_chem             => 'Chemical reaction response uses inline preview, not pop-up',                            inline_chem             => 'Chemical reaction response uses inline preview, not pop-up',
                             extresource             => 'Display of external resources',   
                                   },                                    },
                   },                    },
         'grading' =>          'grading' =>
Line 578  sub handler { Line 585  sub handler {
                          menucollections => 'Menu collections',                           menucollections => 'Menu collections',
                                  },                                   },
                    },                     },
         'linkprotection' =>          'linkprot' =>
                    {                     {
                      text => 'Link protection',                       text => 'Link protection',
                      help => 'Course_Prefs_Linkprotection',                       help => 'Course_Prefs_Linkprotection',
Line 596  sub handler { Line 603  sub handler {
     );      );
     if (($phase eq 'process') && ($parm_permission->{'process'})) {      if (($phase eq 'process') && ($parm_permission->{'process'})) {
         my @allitems = &get_allitems(%prefs);          my @allitems = &get_allitems(%prefs);
         &Apache::lonconfigsettings::make_changes($r,$cdom,$phase,$context,          my $result = &Apache::lonconfigsettings::make_changes($r,$cdom,$phase,$context,
                                                  \@prefs_order,\%prefs,\%values,                                                                \@prefs_order,\%prefs,\%values,
                                                   $cnum,undef,\@allitems,                                                                $cnum,undef,\@allitems,
                                                   'coursepref',$parm_permission);                                                                'coursepref',$parm_permission);
           if ((ref($result) eq 'HASH') && (keys(%{$result}))) {
               $r->rflush();
               &devalidate_remote_courseprefs($cdom,$cnum,$result);
           }
     } elsif (($phase eq 'display') && ($parm_permission->{'display'})) {      } elsif (($phase eq 'display') && ($parm_permission->{'display'})) {
         my $noedit;          my $noedit;
         if (ref($parm_permission) eq 'HASH') {          if (ref($parm_permission) eq 'HASH') {
Line 793  sub print_config_box { Line 804  sub print_config_box {
         $output .= &print_lti($cdom,$settings,$ordered,$itemtext,\$rowtotal,$crstype,$noedit);          $output .= &print_lti($cdom,$settings,$ordered,$itemtext,\$rowtotal,$crstype,$noedit);
     } elsif ($action eq 'menuitems') {      } elsif ($action eq 'menuitems') {
         $output .= &print_menuitems('bottom',$cdom,$settings,$itemtext,\$rowtotal,$crstype,$noedit);          $output .= &print_menuitems('bottom',$cdom,$settings,$itemtext,\$rowtotal,$crstype,$noedit);
     } elsif ($action eq 'linkprotection') {      } elsif ($action eq 'linkprot') {
         $output .= &print_linkprotection($cdom,$cnum,$settings,\$rowtotal,$crstype,$noedit);          $output .= &print_linkprotection($cdom,$cnum,$settings,\$rowtotal,$crstype,$noedit,'course');
     } 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 807  sub print_config_box { Line 818  sub print_config_box {
 }  }
   
 sub process_changes {  sub process_changes {
     my ($cdom,$cnum,$action,$values,$item,$changes,$allitems,$disallowed,$crstype) = @_;      my ($cdom,$cnum,$action,$values,$item,$changes,$allitems,$disallowed,$crstype,$lastactref) = @_;
     my (%newvalues,%lti,%ltienc,$ltiauth,$errors);      my (%newvalues,$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 825  sub process_changes { Line 836  sub process_changes {
                         }                          }
                     }                      }
                 }                  }
             } elsif ($action eq 'linkprotection') {              } elsif ($action eq 'linkprot') {
                 if (ref($values->{$action}) eq 'HASH') {                  if (ref($values->{$action}) eq 'HASH') {
                     foreach my $id (keys(%{$values->{$action}})) {                      foreach my $id (keys(%{$values->{$action}})) {
                         if ($id =~ /^\d+$/) {                          if ($id =~ /^\d+$/) {
                             push(@ordered,$id);                              push(@ordered,$id);
                             unless (ref($values->{$action}->{$id}) eq 'HASH') {  
                                 $lti{$id} = '';  
                             }  
                         }                          }
                     }                      }
                 }                  }
Line 840  sub process_changes { Line 848  sub process_changes {
                 if (($env{'form.linkprot_add'}) && ($env{'form.linkprot_maxnum'} =~ /^\d+$/)) {                  if (($env{'form.linkprot_add'}) && ($env{'form.linkprot_maxnum'} =~ /^\d+$/)) {
                     push(@ordered,$env{'form.linkprot_maxnum'});                      push(@ordered,$env{'form.linkprot_maxnum'});
                 }                  }
                 if (exists($env{'course.'.$env{'request.course.id'}.'.internal.ltiauth'})) {  
                     $ltiauth = $env{'course.'.$env{'request.course.id'}.'.internal.ltiauth'};  
                 } else {  
                     my %domdefs = &Apache::lonnet::get_domain_defaults($cdom);  
                     $ltiauth = $domdefs{'crsltiauth'};  
                 }  
             } 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 983  sub process_changes { Line 985  sub process_changes {
                     } elsif ($values->{'menucollections'}) {                      } elsif ($values->{'menucollections'}) {
                         $changes->{'menucollections'} = '';                          $changes->{'menucollections'} = '';
                     }                      }
                 } elsif ($action eq 'linkprotection') {                  } elsif ($action eq 'linkprot') {
                     my %menutitles = &ltimenu_titles();                      if (ref($values) eq 'HASH') {
                     my $switchserver = &check_switchserver($cdom,$cnum);                          $errors = &process_linkprot($cdom,$cnum,$values->{$action},$changes,'course',$lastactref);
                     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->{$action}) 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->{$action}->{$itemid}) eq 'HASH') {  
                                     push(@items,$i);  
                                     $itemids{$i} = $itemid;  
                                     if ((@todelete > 0) && (grep(/^$i$/,@todelete))) {  
                                         $deletions{$itemid} = $values->{$action}->{$itemid}->{'name'};  
                                     }  
                                 }  
                             }  
                         }  
                     }  
   
                     foreach my $idx (@items) {  
                         my $itemid = $itemids{$idx};  
                         next unless ($itemid);  
                         if (exists($deletions{$itemid})) {  
                             $lti{$itemid} = $deletions{$itemid};  
                             $haschanges{$itemid} = 1;  
                             next;  
                         }  
                         my %current;  
                         if (ref($values->{$action}) eq 'HASH') {  
                             if (ref($values->{$action}->{$itemid}) eq 'HASH') {  
                                 foreach my $key (keys(%{$values->{$action}->{$itemid}})) {  
                                     $current{$key} = $values->{$action}->{$itemid}->{$key};  
                                 }  
                             }  
                         }  
                         foreach my $inner ('name','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 '') {  
                                 $lti{$itemid}{$inner} = $env{$formitem};  
                             }  
                         }  
                         if ($ltiauth) {  
                             my $reqitem = 'form.linkprot_requser_'.$idx;  
                             $env{$reqitem} =~ s/(`)/'/g;  
                             unless ($idx eq 'add') {  
                                 if ($current{'requser'} ne $env{$reqitem}) {  
                                     $haschanges{$itemid} = 1;  
                                 }  
                             }  
                             if ($env{$reqitem} ne '') {  
                                 $lti{$itemid}{'requser'} = $env{$reqitem};  
                                 foreach my $inner ('mapuser','notstudent') {  
                                     my $formitem = 'form.linkprot_'.$inner.'_'.$idx;  
                                     $env{$formitem} =~ s/(`)/'/g;  
                                     if ($inner eq 'mapuser') {  
                                         if ($env{$formitem} eq 'other') {  
                                             my $mapuser = $env{'form.linkprot_customuser_'.$idx};  
                                             $mapuser =~ s/(`)/'/g;  
                                             $mapuser =~ s/^\s+|\s+$//g;  
                                             if ($mapuser ne '') {  
                                                 $lti{$itemid}{$inner} = $mapuser;  
                                             } else {  
                                                 delete($lti{$itemid}{'requser'});  
                                                 last;  
                                             }  
                                         } elsif ($env{$formitem} eq 'sourcedid') {  
                                             $lti{$itemid}{$inner} = 'lis_person_sourcedid';  
                                         } elsif ($env{$formitem} eq 'email') {  
                                             $lti{$itemid}{$inner} = 'lis_person_contact_email_primary';  
                                         }  
                                     } else {  
                                         $lti{$itemid}{$inner} = $env{$formitem};  
                                     }  
                                     unless ($idx eq 'add') {  
                                         if ($current{$inner} ne $lti{$itemid}{$inner}) {  
                                             $haschanges{$itemid} = 1;  
                                         }  
                                     }  
                                 }  
                             }  
                         }  
                         unless ($switchserver) {  
                             my $keyitem = 'form.linkprot_key_'.$idx;  
                             $env{$keyitem} =~ s/(`)/'/g;  
                             unless ($idx eq 'add') {  
                                 if ($current{'key'} ne $env{$keyitem}) {  
                                     $haschanges{$itemid} = 1;  
                                 }  
                             }  
                             if ($env{$keyitem} ne '') {  
                                 $lti{$itemid}{'key'} = $env{$keyitem};  
                             }  
                             my $secretitem = 'form.linkprot_secret_'.$idx;  
                             $env{$secretitem} =~ s/(`)/'/g;  
                             if ($current{'usable'}) {  
                                 if ($env{'form.linkprot_changesecret_'.$idx}) {  
                                     if ($env{$secretitem} ne '') {  
                                         $lti{$itemid}{'secret'} = $env{$secretitem};  
                                         $haschanges{$itemid} = 1;  
                                     }  
                                 } else {  
                                     $lti{$itemid}{'secret'} = $current{'secret'};  
                                 }  
                             } elsif ($env{$secretitem} ne '') {  
                                 $lti{$itemid}{'secret'} = $env{$secretitem};  
                                 $haschanges{$itemid} = 1;  
                             }  
                         }  
                     }  
                     if (keys(%haschanges)) {  
                         foreach my $entry (keys(%haschanges)) {  
                             $changes->{$entry} = $lti{$entry};  
                         }  
                     }                      }
                 } else {                  } else {
                     foreach my $entry (@ordered) {                      foreach my $entry (@ordered) {
Line 1600  sub process_changes { Line 1466  sub process_changes {
                                     $newvalues{$entry} = '';                                      $newvalues{$entry} = '';
                                 }                                  }
                             }                              }
                           } elsif ($entry eq 'extresource') {
                               if ($env{'form.'.$entry} =~ /^iframe|tab|window$/) {
                                   $newvalues{$entry} = $env{'form.'.$entry};
                                   if ($env{'form.'.$entry} ne 'iframe') {
                                       if ($env{'form.extwintabreuse'}) {
                                           $newvalues{$entry} .= ':1';
                                       } else {
                                           $newvalues{$entry} .= ':0';
                                       }
                                       if ($env{'form.'.$entry} eq 'window') {
                                           foreach my $dim ('width','height') {
                                               $env{'form.extreswin'.$dim} =~ s/^\s+|\s+$//g;
                                               if ($env{'form.extreswin'.$dim} =~ /^\d+$/) {
                                                   $newvalues{$entry} .= ':'.$env{'form.extreswin'.$dim};
                                               } else {
                                                   $newvalues{$entry} .= ':';
                                               }
                                           }
                                       }
                                   }
                               }
                               unless (($newvalues{$entry} eq 'iframe') && ($values->{$entry} eq '')) {
                                   if ($newvalues{$entry} ne $values->{$entry}) {
                                       $changes->{$entry} = $newvalues{$entry};
                                   }
                               }
                           } elsif ($entry eq 'timezone') {
                               if ($env{'form.'.$entry}) {
                                   $newvalues{$entry} = $env{'form.'.$entry};
                                   if ($newvalues{$entry} ne $values->{$entry}) {
                                       $changes->{$entry} = $newvalues{$entry};
                                   }
                                   if ($env{'form.tzover'}) {
                                       $newvalues{'tzover'} = $env{'form.tzover'};
                                       if ($newvalues{'tzover'} ne $values->{'tzover'}) {
                                           $changes->{'tzover'} = $newvalues{'tzover'};
                                       }
                                   } elsif ($values->{'tzover'}) {
                                       $changes->{'tzover'} = '';
                                   }
                               } elsif ($values->{$entry}) {
                                   $changes->{$entry} = '';
                               }
                         } else {                          } else {
                             $newvalues{$entry} = $env{'form.'.$entry};                              $newvalues{$entry} = $env{'form.'.$entry};
                         }                          }
                         unless (($entry eq 'co-owners') || ($entry eq 'discussion_post_fonts')) {                          unless (($entry eq 'co-owners') || ($entry eq 'discussion_post_fonts') || 
                                   ($entry eq 'extresource') || ($entry eq 'timezone')) {
                             if ($newvalues{$entry} ne $values->{$entry}) {                              if ($newvalues{$entry} ne $values->{$entry}) {
                                 $changes->{$entry} = $newvalues{$entry};                                  $changes->{$entry} = $newvalues{$entry};
                             }                              }
Line 1616  sub process_changes { Line 1526  sub process_changes {
     return $errors;      return $errors;
 }  }
   
 sub get_courselti_id {  sub process_linkprot {
     my ($cdom,$cnum,$name) = @_;      my ($cdom,$cnum,$values,$changes,$context,$lastactref) = @_;
     # get lock on lti db in course      my ($home,$dest,$ltiauth,$privkey,$privnum,$cipher,$errors,%linkprot);
       if (ref($values) eq 'HASH') {
           foreach my $id (keys(%{$values})) {
               if ($id =~ /^\d+$/) {
                   unless (ref($values->{$id}) eq 'HASH') {
                       $linkprot{$id} = '';
                   }
               }
           }
       }
       my %domdefs = &Apache::lonnet::get_domain_defaults($cdom);
       my @ids=&Apache::lonnet::current_machine_ids();
       if ($context eq 'domain') {
           $home = &Apache::lonnet::domain($cdom,'primary');
       } else {
           $home = &Apache::lonnet::homeserver($cnum,$cdom);
       }
       if ((($context eq 'domain') && ($domdefs{'linkprotenc_dom'})) ||
           (($context eq 'course') && ($domdefs{'linkprotenc_crs'}))) {
           unless (($home eq 'no_host') || ($home eq '')) {
               if (grep(/^\Q$home\E$/,@ids)) {
                   if (ref($domdefs{'privhosts'}) eq 'ARRAY') {
                       if (grep(/^\Q$home\E$/,@{$domdefs{'privhosts'}})) {
                           my %privhash  = &Apache::lonnet::restore_dom('lti','private',$cdom,$home,1);
                           $privkey = $privhash{'key'};
                           $privnum = $privhash{'version'};
                           if (($privnum) && ($privkey ne '')) {
                               $cipher = Crypt::CBC->new({'key'     => $privkey,
                                                          'cipher'  => 'DES'});
                           }
                       }
                   }
               }
           }
       }
       if ($context eq 'domain') {
           $dest = '/adm/domainprefs';
           $ltiauth = 1;
       } else {
           $dest = '/adm/courseprefs';
           if (exists($env{'course.'.$env{'request.course.id'}.'.internal.ltiauth'})) {
               $ltiauth = $env{'course.'.$env{'request.course.id'}.'.internal.ltiauth'};
           } else {
               my %domdefs = &Apache::lonnet::get_domain_defaults($cdom);
               $ltiauth = $domdefs{'crsltiauth'};
           }
       }
       my $switchserver = &check_switchserver($cdom,$cnum,$context,$dest);
       my (@items,%deletions,%itemids,%haschanges);
       if ($env{'form.linkprot_add'}) {
           my $name = $env{'form.linkprot_name_add'};
           $name =~ s/(`)/'/g;
           my ($newid,$error) = &get_linkprot_id($cdom,$cnum,$name,$context);
           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) 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->{$itemid}) eq 'HASH') {
                       push(@items,$i);
                       $itemids{$i} = $itemid;
                       if ((@todelete > 0) && (grep(/^$i$/,@todelete))) {
                           $deletions{$itemid} = $values->{$itemid}->{'name'};
                       }
                   }
               }
           }
       }
       foreach my $idx (@items) {
           my $itemid = $itemids{$idx};
           next unless ($itemid);
           if (exists($deletions{$itemid})) {
               $linkprot{$itemid} = $deletions{$itemid};
               $haschanges{$itemid} = 1;
               next;
           }
           my %current;
           if (ref($values) eq 'HASH') {
               if (ref($values->{$itemid}) eq 'HASH') {
                   foreach my $key (keys(%{$values->{$itemid}})) {
                       $current{$key} = $values->{$itemid}->{$key};
                   }
               }
           }
           foreach my $inner ('name','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 '') {
                   $linkprot{$itemid}{$inner} = $env{$formitem};
               }
           }
           my $urlitem = 'form.linkprot_returnurl_'.$idx;
           my $urlparamname = 'form.linkprot_urlparam_'.$idx;
           if ($env{$urlitem} == 1) {
               $env{$urlparamname} =~ s/(`)/'/g;
           } elsif (exists($env{$urlparamname})) {
               $env{$urlparamname} = '';
           }
           unless ($idx eq 'add') {
               if ((!$current{'returnurl'} && ($env{$urlparamname} ne '')) ||
                   ($current{'returnurl'} && ($env{$urlparamname} eq ''))) {
                   $haschanges{$itemid} = 1;
               }
           }
           if ($env{$urlparamname} ne '') {
               $linkprot{$itemid}{'returnurl'} = $env{$urlparamname};
           }
           if ($ltiauth) {
               my $reqitem = 'form.linkprot_requser_'.$idx;
               $env{$reqitem} =~ s/(`)/'/g;
               unless ($idx eq 'add') {
                   if ((!$current{'requser'} && $env{$reqitem}) ||
                       ($current{'requser'} && !$env{$reqitem})) {
                       $haschanges{$itemid} = 1;
                   }
               }
               if ($env{$reqitem} == 1) {
                   $linkprot{$itemid}{'requser'} = $env{$reqitem};
                   foreach my $inner ('mapuser','notstudent') {
                       my $formitem = 'form.linkprot_'.$inner.'_'.$idx;
                       $env{$formitem} =~ s/(`)/'/g;
                       if ($inner eq 'mapuser') {
                           if ($env{$formitem} eq 'other') {
                               my $mapuser = $env{'form.linkprot_customuser_'.$idx};
                               $mapuser =~ s/(`)/'/g;
                               $mapuser =~ s/^\s+|\s+$//g;
                               if ($mapuser ne '') {
                                   $linkprot{$itemid}{$inner} = $mapuser;
                               } else {
                                   delete($linkprot{$itemid}{'requser'});
                                   last;
                               }
                           } elsif ($env{$formitem} eq 'sourcedid') {
                               $linkprot{$itemid}{$inner} = 'lis_person_sourcedid';
                           } elsif ($env{$formitem} eq 'email') {
                               $linkprot{$itemid}{$inner} = 'lis_person_contact_email_primary';
                           }
                       } else {
                           $linkprot{$itemid}{$inner} = $env{$formitem};
                       }
                       unless ($idx eq 'add') {
                           if ($current{$inner} ne $linkprot{$itemid}{$inner}) {
                               $haschanges{$itemid} = 1;
                           }
                       }
                   }
               }
           }
           unless ($switchserver) {
               my $keyitem = 'form.linkprot_key_'.$idx;
               $env{$keyitem} =~ s/(`)/'/g;
               unless ($idx eq 'add') {
                   if ($current{'key'} ne $env{$keyitem}) {
                       $haschanges{$itemid} = 1;
                   }
               }
               if ($env{$keyitem} ne '') {
                   $linkprot{$itemid}{'key'} = $env{$keyitem};
               }
               my $secretitem = 'form.linkprot_secret_'.$idx;
               $env{$secretitem} =~ s/(`)/'/g;
               if ($current{'usable'}) {
                   if ($env{'form.linkprot_changesecret_'.$idx}) {
                       if ($env{$secretitem} ne '') {
                           if ($privnum && $cipher) {
                               $linkprot{$itemid}{'secret'} = $cipher->encrypt_hex($env{$secretitem});
                               $linkprot{$itemid}{'cipher'} = $privnum;
                           } else {
                               $linkprot{$itemid}{'secret'} = $env{$secretitem};
                           }
                           $haschanges{$itemid} = 1;
                       }
                   } else {
                       $linkprot{$itemid}{'secret'} = $current{'secret'};
                       $linkprot{$itemid}{'cipher'} = $current{'cipher'};
                   }
               } elsif ($env{$secretitem} ne '') {
                   if ($privnum && $cipher) {
                       $linkprot{$itemid}{'secret'} = $cipher->encrypt_hex($env{$secretitem});
                       $linkprot{$itemid}{'cipher'} = $privnum;
                   } else {
                       $linkprot{$itemid}{'secret'} = $env{$secretitem};
                   }
                   $haschanges{$itemid} = 1;
               }
           }
       }
       if (keys(%haschanges)) {
           foreach my $entry (keys(%haschanges)) {
               $changes->{$entry} = $linkprot{$entry};
           }
           if (ref($lastactref) eq 'HASH') {
               $lastactref->{'courselti'} = 1;
           }
       }
       return $errors;
   }
   
   sub get_linkprot_id {
       my ($cdom,$cnum,$name,$context) = @_;
       # get lock on lti db in course or linkprot db in domain
     my $lockhash = {      my $lockhash = {
                       lock => $env{'user.name'}.                        lock => $env{'user.name'}.
                               ':'.$env{'user.domain'},                                ':'.$env{'user.domain'},
                    };                     };
     my $tries = 0;      my $tries = 0;
     my $gotlock = &Apache::lonnet::newput('lti',$lockhash,$cdom,$cnum);      my $gotlock;
       if ($context eq 'domain') {
           $gotlock = &Apache::lonnet::newput_dom('linkprot',$lockhash,$cdom);
       } else {
           $gotlock = &Apache::lonnet::newput('lti',$lockhash,$cdom,$cnum);
       }
     my ($id,$error);      my ($id,$error);
     while (($gotlock ne 'ok') && ($tries<10)) {      while (($gotlock ne 'ok') && ($tries<10)) {
         $tries ++;          $tries ++;
         sleep (0.1);          sleep (0.1);
         $gotlock = &Apache::lonnet::newput('lti',$lockhash,$cdom,$cnum);          if ($context eq 'domain') {
               $gotlock = &Apache::lonnet::newput_dom('linkprot',$lockhash,$cdom); 
           } else {
               $gotlock = &Apache::lonnet::newput('lti',$lockhash,$cdom,$cnum);
           }
     }      }
     if ($gotlock eq 'ok') {      if ($gotlock eq 'ok') {
         my %currids  = &Apache::lonnet::dump('lti',$cdom,$cnum,undef,undef,undef,1);          my %currids;
           if ($context eq 'domain') {
               %currids = &Apache::lonnet::dump_dom('linkprot',$cdom);
           } else {
               %currids  = &Apache::lonnet::dump('lti',$cdom,$cnum,undef,undef,undef,1);
           }
         if ($currids{'lock'}) {          if ($currids{'lock'}) {
             delete($currids{'lock'});              delete($currids{'lock'});
             if (keys(%currids)) {              if (keys(%currids)) {
Line 1646  sub get_courselti_id { Line 1790  sub get_courselti_id {
                 $id = 1;                  $id = 1;
             }              }
             if ($id) {              if ($id) {
                 unless (&Apache::lonnet::newput('lti',{ $id => $name },$cdom,$cnum) eq 'ok') {                  if ($context eq 'domain') {
                     $error = 'nostore';                       unless (&Apache::lonnet::newput_dom('linkprot',{ $id => $name },$cdom) eq 'ok') {
                            $error = 'nostore';
                        }
                   } else {
                       unless (&Apache::lonnet::newput('lti',{ $id => $name },$cdom,$cnum) eq 'ok') {
                           $error = 'nostore';
                       }
                 }                  }
             } else {              } else {
                 $error = 'nonumber';                  $error = 'nonumber';
             }              }
         }          }
         my $dellockoutcome = &Apache::lonnet::del('lti',['lock'],$cdom,$cnum);          my $dellockoutcome; 
           if ($context eq 'domain') {
               $dellockoutcome = &Apache::lonnet::del_dom('linkprot',['lock'],$cdom);
           } else {
               $dellockoutcome = &Apache::lonnet::del('lti',['lock'],$cdom,$cnum);
           }
     } else {      } else {
         $error = 'nolock';          $error = 'nolock';
     }      }
Line 1704  sub store_changes { Line 1859  sub store_changes {
     my ($chome,$output);      my ($chome,$output);
     my (%storehash,@delkeys,@need_env_update,@oldcloner,%oldlinkprot);      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') {          if (ref($values->{'linkprot'}) eq 'HASH') {
             %oldlinkprot = %{$values->{'linkprotection'}};              %oldlinkprot = %{$values->{'linkprot'}};
         }          }
         delete($values->{'linkprotection'});          delete($values->{'linkprot'});
         %storehash = %{$values};          %storehash = %{$values};
     } else {      } else {
         if ($crstype eq 'Community') {          if ($crstype eq 'Community') {
Line 1720  sub store_changes { Line 1875  sub store_changes {
     my ($numchanges,$skipstore);      my ($numchanges,$skipstore);
     if (ref($changes) eq 'HASH') {      if (ref($changes) eq 'HASH') {
         $numchanges = scalar(keys(%{$changes}));          $numchanges = scalar(keys(%{$changes}));
         if (($numchanges == 1) && (exists($changes->{'linkprotection'}))) {          if (($numchanges == 1) && (exists($changes->{'linkprot'}))) {
             $skipstore = 1;              $skipstore = 1;
         } elsif (!$numchanges) {          } elsif (!$numchanges) {
             if ($crstype eq 'Community') {              if ($crstype eq 'Community') {
Line 1756  sub store_changes { Line 1911  sub store_changes {
                                            "'$storehash{$key}'")).'</li>';                                             "'$storehash{$key}'")).'</li>';
                             }                              }
                         }                          }
                     } elsif ($item eq 'linkprotection') {                      } elsif ($item eq 'linkprot') {
                         my ($ltiauth,%ltienc,$lti_save_error);                          $output .= &store_linkprot($cdom,$cnum,'course',$changes->{$item},\%oldlinkprot);
                         if (exists($env{'course.'.$env{'request.course.id'}.'.internal.ltiauth'})) {  
                             $ltiauth = $env{'course.'.$env{'request.course.id'}.'.internal.ltiauth'};  
                         } else {  
                             my %domdefs = &Apache::lonnet::get_domain_defaults($cdom);  
                             $ltiauth = $domdefs{'crsltiauth'};  
                         }  
                         if (ref($changes->{$item}) eq 'HASH') {  
                             foreach my $id (sort { $a <=> $b } keys(%{$changes->{$item}})) {  
                                 if (ref($changes->{$item}->{$id}) eq 'HASH') {  
                                     if (exists($changes->{$item}->{$id}->{'key'})) {  
                                         $ltienc{$id}{'key'} = $changes->{$item}->{$id}->{'key'};  
                                         delete($changes->{$item}->{$id}->{'key'});  
                                     }  
                                     if (exists($changes->{$item}->{$id}->{'secret'})) {  
                                         $ltienc{$id}{'secret'} = $changes->{$item}->{$id}->{'secret'};  
                                         delete($changes->{$item}->{$id}->{'secret'});  
                                     } elsif (ref($oldlinkprot{$id}) eq 'HASH') {  
                                         if (exists($oldlinkprot{$id}{'usable'})) {  
                                             $changes->{$item}->{$id}->{'usable'} = 1;  
                                         }  
                                     }  
                                 }  
                             }  
                         }  
                         if (keys(%ltienc) > 0) {  
                             if (&Apache::lonnet::put('nohist_ltienc',\%ltienc,$cdom,$cnum,1) eq 'ok') {  
                                 foreach my $id (keys(%ltienc)) {  
                                     if (exists($ltienc{$id}{'secret'})) {  
                                         $changes->{$item}->{$id}->{'usable'} = 1;  
                                     }  
                                 }  
                             } else {  
                                 $lti_save_error = 1;  
                             }  
                         }  
                         unless ($lti_save_error) {  
                             if (&Apache::lonnet::put('lti',$changes->{$item},$cdom,$cnum,1) eq 'ok') {  
                                 my $hashid=$cdom.'_'.$cnum;  
                                 &Apache::lonnet::devalidate_cache_new('courselti',$hashid);  
                                 $chome = &Apache::lonnet::homeserver($cnum,$cdom);  
                                 unless (($chome eq 'no_host') || ($chome eq '')) {  
                                     my @ids=&Apache::lonnet::current_machine_ids();  
                                     if (grep(/^\Q$chome\E$/,@ids)) {  
                                         &Apache::lonnet::devalidate_cache_new('courseltienc',$hashid);  
                                     }  
                                 }  
                                 foreach my $id (sort { $a <=> $b } %{$changes->{$item}}) {  
                                     if (ref($changes->{$item}->{$id}) eq 'HASH') {  
                                         my %values = %{$changes->{$item}->{$id}};  
                                         my %desc = &linkprot_names();  
                                         my $display;  
                                         foreach my $title ('name','lifetime','version','key','secret') {  
                                             if (($title eq 'key') || ($title eq 'secret')) {  
                                                 if (ref($ltienc{$id}) eq 'HASH') {  
                                                     if (exists($ltienc{$id}{$title})) {  
                                                         if ($title eq 'secret') {  
                                                             my $length = length($ltienc{$id}{$title});  
                                                             $display .= $desc{$title}.': '.('*' x $length).', ';  
                                                         } else {  
                                                             $display .= $desc{$title}.': '.$ltienc{$id}{$title}.', ';  
                                                         }  
                                                     }  
                                                 }  
                                             } elsif ($title eq 'version') {  
                                                 if ($values{$title} eq 'LTI-1p0') {  
                                                     $display .= $desc{$title}.': 1.1, ';  
                                                 }  
                                             } else {  
                                                 $display .= $desc{$title}.': '.$values{$title}.', ';  
                                             }  
                                         }  
                                         if ($ltiauth) {  
                                             if (($values{'requser'}) && ($values{'mapuser'} ne '')) {  
                                                 if ($values{'mapuser'} eq 'lis_person_contact_email_primary') {  
                                                     $display .= &mt('Source of username: Email address [_1]',  
                                                                    '(lis_person_contact_email_primary)').', ';  
                                                 } elsif ($values{'mapuser'} eq 'lis_person_sourcedid') {  
                                                     $display .= &mt('Source of username: User ID [_1]',  
                                                                     '(lis_person_sourcedid)').', ';  
                                                 } else {  
                                                     $display .= &mt('Source of username: [_1]',$values{'mapuser'}).', ';  
                                                 }  
                                                 if ($values{'notstudent'} eq 'auth') {  
                                                     $display .= &mt('Display LON-CAPA login page if no match').', ';  
                                                 } elsif ($values{'notstudent'} eq 'reject') {  
                                                     $display .= &mt('Discontinue launch if no match').', ';  
                                                 }  
                                             }  
                                         }  
                                         $display =~ s/, $//;  
                                         $output .= '<li>'.&Apache::lonhtmlcommon::confirm_success(&mt('[_1] set to [_2]','<i>'.$id.'</i>',  
                                                    "'$display'")).'</li>';  
                                     } elsif (ref($oldlinkprot{$id}) eq 'HASH') {  
                                         my $oldname = $oldlinkprot{$id}{'name'};  
                                         $output .= '<li>'.&Apache::lonhtmlcommon::confirm_success(&mt('Deleted setting for [_1]','<i>'."$id ($oldname)".'</i>')).'</li>';  
                                     }  
                                 }  
                             } else {  
                                 $lti_save_error = 1;  
                             }  
                         }  
                         unless ($lti_save_error) {  
                             my @deletions;  
                             foreach my $id (sort { $a <=> $b } keys(%{$changes->{$item}})) {  
                                 unless (ref($changes->{$item}->{$id}) eq 'HASH') {  
                                     push (@deletions,$id);  
                                 }  
                             }  
                             if (@deletions) {  
                                 &Apache::lonnet::del('nohist_ltienc',\@deletions,$cdom,$cnum);  
                             }  
                         }  
                         if ($lti_save_error) {  
                             $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 1908  sub store_changes { Line 1944  sub store_changes {
                                     if ($msg ne '') {                                      if ($msg ne '') {
                                         $output .= '<li>'.&Apache::lonhtmlcommon::confirm_success(&mt($displayname)).'<ul class="LC_success">'.$msg.'</ul></li>';                                          $output .= '<li>'.&Apache::lonhtmlcommon::confirm_success(&mt($displayname)).'<ul class="LC_success">'.$msg.'</ul></li>';
                                     }                                      }
                                   } elsif ($key eq 'timezone') {
                                       next unless ((exists($changes->{$item}{$key})) || (exists($changes->{$item}{'tzover'})));
                                       my ($displayname,$text);
                                       $text = $prefs->{$item}->{'itemtext'}{$key};
                                       my $displayval;
                                       if (exists($changes->{$item}{$key})) {
                                           $displayname = &mt($text);
                                           $storehash{$key} = $changes->{$item}{$key};
                                           if ($changes->{$item}{$key} ne '') {
                                               $displayval = '<b>'.$changes->{$item}{$key}.'</b>';
                                           } else {
                                               push(@delkeys,$key);
                                               if (exists($values->{'tzover'})) {
                                                   push(@delkeys,'tzover');
                                               }
                                               $output .= '<li>'.&Apache::lonhtmlcommon::confirm_success(&mt('Deleted setting for [_1]',
                                                                                                         '<i>'.$displayname.'</i>')).'</li>';
                                           }
                                       }
                                       unless (grep(/^\Q$key\E$/,@delkeys)) {
                                           if (exists($changes->{$item}{'tzover'})) {
                                               $storehash{'tzover'} = $changes->{$item}{'tzover'};
                                               my $tzovertext;
                                               if ($changes->{$item}{'tzover'} ne '') {
                                                   $tzovertext = &mt('Course Time Zone overrides individual user preference');
                                               } else {
                                                   push(@delkeys,'tzover');
                                                   $tzovertext = &mt('Course Time Zone does not override individual user preference');
                                               }
                                               if ($displayval eq '') {
                                                   $output .= '<li>'.&Apache::lonhtmlcommon::confirm_success($tzovertext).'</li>';
                                               } else {
                                                   $displayval .= '<br />'.('&nbsp;'x5).$tzovertext;
                                               }
                                           }
                                           if ($displayval ne '') {
                                               $output .= '<li>'.&Apache::lonhtmlcommon::confirm_success(&mt('[_1] set to [_2]',
                                                                 '<i>'.$displayname.'</i>',$displayval)).'</li>';
                                           }
                                       }
                                 } else {                                  } else {
                                     next if (!exists($changes->{$item}{$key}));                                      next if (!exists($changes->{$item}{$key}));
                                     my ($displayname,$text);                                      my ($displayname,$text);
                                     $text = $prefs->{$item}->{'itemtext'}{$key};                                      $text = $prefs->{$item}->{'itemtext'}{$key};
                                     my $displayval;                                      my $displayval;
                                     unless (($key eq 'co-owners') || ($key eq 'discussion_post_fonts')) {                                      unless (($key eq 'co-owners') || ($key eq 'discussion_post_fonts') || ($key eq 'extresource')) {
                                         $displayval = $changes->{$item}{$key};                                          $displayval = $changes->{$item}{$key};
                                     }                                      }
                                     if ($item eq 'feedback') {                                      if ($item eq 'feedback') {
Line 2038  sub store_changes { Line 2114  sub store_changes {
                                         } elsif ($changes->{$item}{$key} eq '0') {                                          } elsif ($changes->{$item}{$key} eq '0') {
                                             $displayval = &mt('No');                                              $displayval = &mt('No');
                                         }                                          }
                                       } elsif ($key eq 'extresource') {
                                           if ($changes->{$item}{$key} eq 'iframe') {
                                               $displayval = &mt('In iframe');
                                           } else {
                                               my ($selected,$reuse,$width,$height) = split(/:/,$changes->{$item}{$key});
                                               if ($selected eq 'tab') {
                                                   if ($reuse) {
                                                       $displayval = &mt('[_1]In tab[_2],[_3] and tab re-used for different external resources in course',
                                                                         "'<b>","</b>'",'<br />');
                                                   } else {
                                                       $displayval = &mt('[_1]In tab[_2],[_3] with new tab for each external resource in course',
                                                                         "'<b>","</b>'",'<br />');
                                                   }
                                               } elsif ($selected eq 'window') {
                                                    if ($reuse) {
                                                        $displayval = &mt('[_1]In pop-up window[_2],[_3] and window re-used for different external resources in course',
                                                                          "'<b>","</b>'",'<br />');
                                                    } else {
                                                        $displayval = &mt('[_1]In pop-up window[_2],[_3] with new window for each external resource in course',
                                                                          "'<b>","</b>'",'<br />');
                                                    }
                                                    if (($width ne '') || ($height ne '')) {
                                                        if ($width ne '') {
                                                            $displayval .= '<br />'.&mt('Window width: [_1]px',$width);
                                                        }
                                                        if ($height ne '') {
                                                            $displayval .= '<br />'.&mt('Window height: [_1]px',$height);
                                                        }
                                                    }
                                               }
                                           }
                                     }                                      }
                                     if ($key eq 'co-owners') {                                      if ($key eq 'co-owners') {
                                         if (ref($changes->{$item}{$key}) eq 'HASH') {                                          if (ref($changes->{$item}{$key}) eq 'HASH') {
Line 2109  sub store_changes { Line 2216  sub store_changes {
                                         $output .= '<li>'.&Apache::lonhtmlcommon::confirm_success(&mt('Numbered menu collections:')).'<br />'.                                          $output .= '<li>'.&Apache::lonhtmlcommon::confirm_success(&mt('Numbered menu collections:')).'<br />'.
                                                    $displayval.'</li>';                                                     $displayval.'</li>';
                                     } else {                                      } else {
                                           unless (($key eq 'extresource') && ($changes->{$item}{$key} ne 'iframe')) {
                                               $displayval = "'<b>$displayval</b>'";
                                           }
                                         $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>',$displayval));
                                                    "'<b>$displayval</b>'"));  
                                         if ($key eq 'url') {                                          if ($key eq 'url') {
                                             my $bkuptime=time;                                              my $bkuptime=time;
                                             $output .= ('&nbsp;'x2).&mt('(Previous URL backed up)').': '.                                              $output .= ('&nbsp;'x2).&mt('(Previous URL backed up)').': '.
Line 2210  sub store_changes { Line 2319  sub store_changes {
     return $output;      return $output;
 }  }
   
   sub store_linkprot {
       my ($cdom,$cnum,$context,$changes,$oldlinkprot) = @_;
       my ($ltiauth,$home,$lti_save_error,$output,$error,%ltienc,@deletions);
       if ($context eq 'domain') {
           $ltiauth = 1;
           $home = &Apache::lonnet::domain($cdom,'primary');
       } else {
           $home = &Apache::lonnet::homeserver($cnum,$cdom);
           if (exists($env{'course.'.$env{'request.course.id'}.'.internal.ltiauth'})) {
               $ltiauth = $env{'course.'.$env{'request.course.id'}.'.internal.ltiauth'};
           } else {
               my %domdefs = &Apache::lonnet::get_domain_defaults($cdom);
               $ltiauth = $domdefs{'crsltiauth'};
           }
       }
       if (ref($changes) eq 'HASH') {
           foreach my $id (sort { $a <=> $b } keys(%{$changes})) {
               if (ref($changes->{$id}) eq 'HASH') {
                   if (exists($changes->{$id}->{'key'})) {
                       $ltienc{$id}{'key'} = $changes->{$id}->{'key'};
                       delete($changes->{$id}->{'key'});
                   }
                   if (exists($changes->{$id}->{'secret'})) {
                       $ltienc{$id}{'secret'} = $changes->{$id}->{'secret'};
                       delete($changes->{$id}->{'secret'});
                   } elsif (ref($oldlinkprot->{$id}) eq 'HASH') {
                       if (exists($oldlinkprot->{$id}{'usable'})) {
                           $changes->{$id}->{'usable'} = 1;
                       }
                       if (exists($oldlinkprot->{$id}{'cipher'})) {
                           $changes->{$id}->{'cipher'} = $oldlinkprot->{$id}{'cipher'};
                       }
                   }
               }
           }
       }
       my @ids=&Apache::lonnet::current_machine_ids();
       if (keys(%ltienc) > 0) {
           if ($context eq 'domain') {
               foreach my $id (keys(%ltienc)) {
                   if (exists($ltienc{$id}{'secret'})) {
                       $changes->{$id}->{'usable'} = 1;
                   }
               }
           } else {
               unless (($home eq 'no_host') || ($home eq '')) {
                   my $allowed;
                   foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }
                   if ($allowed) {
                       if (&Apache::lonnet::put('nohist_ltienc',\%ltienc,$cdom,$cnum,1) eq 'ok') {
                           foreach my $id (keys(%ltienc)) {
                               if (exists($ltienc{$id}{'secret'})) {
                                   $changes->{$id}->{'usable'} = 1;
                               }
                           }
                       } else {
                           $lti_save_error = 1;
                       }
                   }
               }
           }
       }
       unless ($lti_save_error) {
           if ($context eq 'course') {
               if (&Apache::lonnet::put('lti',$changes,$cdom,$cnum,1) eq 'ok') {
                   my $hashid=$cdom.'_'.$cnum;
                   &Apache::lonnet::devalidate_cache_new('courselti',$hashid);
                   unless (($home eq 'no_host') || ($home eq '')) {
                       if (grep(/^\Q$home\E$/,@ids)) {
                           &Apache::lonnet::devalidate_cache_new('courseltienc',$hashid);
                       }
                   }
               } else {
                   $lti_save_error = 1;
               }
           }
           unless ($lti_save_error) {
               foreach my $id (sort { $a <=> $b } %{$changes}) {
                   if (ref($changes->{$id}) eq 'HASH') {
                       my %values = %{$changes->{$id}};
                       my %desc = &linkprot_names();
                       my $display;
                       foreach my $title ('name','lifetime','version','key','secret','returnurl') {
                           if (($title eq 'key') || ($title eq 'secret')) {
                               if (ref($ltienc{$id}) eq 'HASH') {
                                   if (exists($ltienc{$id}{$title})) {
                                       if ($title eq 'secret') {
                                           my $length = length($ltienc{$id}{$title});
                                           $display .= $desc{$title}.': ['.&mt('not shown').'], ';
                                       } else {
                                           $display .= $desc{$title}.': '.$ltienc{$id}{$title}.', ';
                                       }
                                   }
                               }
                           } elsif ($title eq 'version') {
                               if ($values{$title} eq 'LTI-1p0') {
                                   $display .= $desc{$title}.': 1.1, ';
                               }
                           } elsif ($title eq 'returnurl') {
                               if ($values{$title}) {
                                   $display .= &mt('Return URL parameter').': '.$values{$title}.', '; 
                               }
                           } else {
                               $display .= $desc{$title}.': '.$values{$title}.', ';
                           }
                       }
                       if ($ltiauth) {
                           if (($values{'requser'}) && ($values{'mapuser'} ne '')) {
                               if ($values{'mapuser'} eq 'lis_person_contact_email_primary') {
                                   $display .= &mt('Source of username: Email address [_1]',
                                                   '(lis_person_contact_email_primary)').', ';
                               } elsif ($values{'mapuser'} eq 'lis_person_sourcedid') {
                                   $display .= &mt('Source of username: User ID [_1]',
                                                   '(lis_person_sourcedid)').', ';
                               } else {
                                   $display .= &mt('Source of username: [_1]',$values{'mapuser'}).', ';
                               }
                               if ($values{'notstudent'} eq 'auth') {
                                   $display .= &mt('Display LON-CAPA login page if no match').', ';
                               } elsif ($values{'notstudent'} eq 'reject') {
                                   $display .= &mt('Discontinue launch if no match').', ';
                               }
                           }
                       }
                       $display =~ s/, $//;
                       $output .= '<li>'.&Apache::lonhtmlcommon::confirm_success(&mt('[_1] set to [_2]','<i>'.$id.'</i>',
                                                                                 "'$display'")).'</li>';
                   } elsif (ref($oldlinkprot->{$id}) eq 'HASH') {
                       my $oldname = $oldlinkprot->{$id}{'name'};
                       $output .= '<li>'.&Apache::lonhtmlcommon::confirm_success(&mt('Deleted setting for [_1]','<i>'."$id ($oldname)".'</i>')).'</li>';
                   }
               }
           } else {
               $lti_save_error = 1;
           }
       }
       unless ($lti_save_error) {
           foreach my $id (sort { $a <=> $b } keys(%{$changes})) {
               unless (ref($changes->{$id}) eq 'HASH') {
                   push(@deletions,$id);
               }
           }
           if (@deletions) {
               if ($context eq 'course') {
                   &Apache::lonnet::del('nohist_ltienc',\@deletions,$cdom,$cnum);
               }
           }
       }
       if ($lti_save_error) {
           $output .= '<li>'.
                      '<span class="LC_error">'.
                      &mt('An error occurred when saving changes to link protection settings, which remain unchanged.').
                      '</span>'.
                      '</li>';
       }
       return $output;
   }
   
 sub update_env {  sub update_env {
     my ($cnum,$cdom,$chome,$need_env_update,$storehash)  = @_;      my ($cnum,$cdom,$chome,$need_env_update,$storehash)  = @_;
     my $count = 0;      my $count = 0;
Line 2342  sub get_course { Line 2609  sub get_course {
 sub get_jscript {  sub get_jscript {
     my ($cid,$cdom,$phase,$crstype,$settings,$noedit) = @_;      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,$extresource_js,$localization_js);
     my $stubrowse_js = &Apache::loncommon::studentbrowser_javascript();      my $stubrowse_js = &Apache::loncommon::studentbrowser_javascript();
     my $browse_js = &Apache::loncommon::browser_and_searcher_javascript('parmset');      my $browse_js = &Apache::loncommon::browser_and_searcher_javascript('parmset');
     my $cloners_js = &cloners_javascript($phase);      my $cloners_js = &cloners_javascript($phase);
Line 2549  function toggleAddmenucoll() { Line 2816  function toggleAddmenucoll() {
 }  }
 ENDSCRIPT  ENDSCRIPT
     }      }
     my $linkprotector_js = <<"ENDSCRIPT";      $extresource_js = <<"ENDSCRIPT";
 function toggleLTI(form,num,item) {  function toggleExtRes() {
     var radioname = '';      if (document.getElementById('LC_extresource')) {
     var currdivid = '';          var extressel = document.getElementById('LC_extresource').value;
     var newdivid = '';          if (document.getElementById('LC_extresreusediv')) {
     if ((document.getElementById('linkprot_divcurr'+item+'_'+num)) &&              var extresreuse = document.getElementById('LC_extresreusediv');
         (document.getElementById('linkprot_divchg'+item+'_'+num))) {              if (document.getElementById('LC_extressize')) {
         currdivid = document.getElementById('linkprot_divcurr'+item+'_'+num);                  var extressize = document.getElementById('LC_extressize');
         newdivid = document.getElementById('linkprot_divchg'+item+'_'+num);  
         radioname = form.elements['linkprot_change'+item+'_'+num];  
         if (radioname) {  
             if (radioname.length > 0) {  
                 var setvis;                  var setvis;
                 for (var i=0; i<radioname.length; i++) {                  if ((extressel == 'tab') || (extressel == 'window')) {
                     if (radioname[i].checked == true) {                      extresreuse.style.display = 'inline-block';
                         if (radioname[i].value == 1) {                      setvis = 1;
                             newdivid.style.display = 'inline-block';                      if (extressel == 'window') {
                             currdivid.style.display = 'none';                          extressize.style.display = 'inline-block';
                             setvis = 1;                      } else {
                         }                          extressize.style.display = 'none';
                         break;  
                     }                      }
                 }                  }
                 if (!setvis) {                  if (!setvis) {
                     newdivid.style.display = 'none';                      extresreuse.style.display = 'none';
                     currdivid.style.display = 'inline-block';                      extressize.style.display = 'none';
                 }                  }
             }              }
         }          }
     }      }
     return;  
 }  }
   ENDSCRIPT
 function toggleLTIReqUser(form,item,extra,valon,styleon,num) {      $localization_js = <<"ENDSCRIPT";
     if (document.getElementById('linkprot_'+extra+'_'+num)) {  function toggleTimeZone() {
         var extraid = document.getElementById('linkprot_'+extra+'_'+num);      if (document.getElementById('LC_set_timezone')) {
         var itemname = form.elements['linkprot_'+item+'_'+num];          var timezonesel = document.getElementById('LC_set_timezone').value;
         if (itemname) {          if (document.getElementById('LC_tzoverdiv')) {
             if (itemname.length > 0) {              var tzoverdiv = document.getElementById('LC_tzoverdiv');
                 var setvis;              if (timezonesel == '') {
                 for (var i=0; i<itemname.length; i++) {                  tzoverdiv.style.display = 'none';
                     if (itemname[i].checked == true) {              } else {
                         if (itemname[i].value == valon) {                  tzoverdiv.style.display = 'block';
                             extraid.style.display = styleon;  
                             setvis = 1;  
                         }  
                         break;  
                     }  
                 }  
                 if (!setvis) {  
                     extraid.style.display = 'none';  
                 }  
             }              }
         }          }
     }      }
     return;  
 }  }
 ENDSCRIPT  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."\n".$localization_js."\n".
                $syllabus_js."\n".$menuitems_js."\n".                 $syllabus_js."\n".$menuitems_js."\n".$extresource_js."\n".
                $linkprotector_js."\n".'//]]>'."\n".                 &linkprot_javascript()."\n".'//]]>'."\n".
                '</script>'."\n".$stubrowse_js."\n";                 '</script>'."\n".$stubrowse_js."\n";
     return $jscript;      return $jscript;
 }  }
Line 2698  function getIndexByName(item) { Line 2949  function getIndexByName(item) {
 ENDSCRIPT  ENDSCRIPT
 }  }
   
   sub linkprot_javascript {
       return <<"ENDSCRIPT";
   function toggleLinkProt(form,num,item) {
       var radioname = '';
       var currdivid = '';
       var newdivid = '';
       if ((document.getElementById('linkprot_divcurr'+item+'_'+num)) &&
           (document.getElementById('linkprot_divchg'+item+'_'+num))) {
           currdivid = document.getElementById('linkprot_divcurr'+item+'_'+num);
           newdivid = document.getElementById('linkprot_divchg'+item+'_'+num);
           radioname = form.elements['linkprot_change'+item+'_'+num];
           if (radioname) {
               if (radioname.length > 0) {
                   var setvis;
                   for (var i=0; i<radioname.length; i++) {
                       if (radioname[i].checked == true) {
                           if (radioname[i].value == 1) {
                               newdivid.style.display = 'inline-block';
                               currdivid.style.display = 'none';
                               setvis = 1;
                           }
                           break;
                       }
                   }
                   if (!setvis) {
                       newdivid.style.display = 'none';
                       currdivid.style.display = 'inline-block';
                   }
               }
           }
       }
       return;
   }
   
   function toggleLinkProtExtra(form,item,extra,valon,styleon,num) {
       if (document.getElementById('linkprot_'+extra+'_'+num)) {
           var extraid = document.getElementById('linkprot_'+extra+'_'+num);
           var itemname = form.elements['linkprot_'+item+'_'+num];
           if (itemname) {
               if (itemname.length > 0) {
                   var setvis;
                   for (var i=0; i<itemname.length; i++) {
                       if (itemname[i].checked == true) {
                           if (itemname[i].value == valon) {
                               extraid.style.display = styleon;
                               setvis = 1;
                           }
                           break;
                       }
                   }
                   if (!setvis) {
                       extraid.style.display = 'none';
                   }
               }
           }
       }
       return;
   }
   
   function uncheckLinkProtMakeVis(item,num) {
       if (document.getElementById('linkprot_'+item+'_'+num)) {
           var currtype = document.getElementById('linkprot_'+item+'_'+num).type;
           if (currtype.toLowerCase() == 'checkbox') {
               document.getElementById('linkprot_'+item+'_'+num).checked = false;
           }
       }
       return;
   }
   ENDSCRIPT
   
   }
   
   
 sub print_courseinfo {  sub print_courseinfo {
     my ($cdom,$settings,$ordered,$itemtext,$rowtotal,$crstype,$noedit) = @_;      my ($cdom,$settings,$ordered,$itemtext,$rowtotal,$crstype,$noedit) = @_;
Line 3683  sub display_loncaparev_constraints { Line 4006  sub display_loncaparev_constraints {
             }              }
         }          }
     }      }
     my $suppmap = 'supplemental.sequence';      my $supptools = &Apache::lonnet::count_supptools($cnum,$cdom,1,1);
     my ($suppcount,$supptools,$errors) = (0,0,0);  
     ($suppcount,$supptools,$errors) = &Apache::loncommon::recurse_supplemental($cnum,$cdom,  
                                                       $suppmap,$suppcount,$supptools,$errors);  
     my $mapres_header = '<h4>'.      my $mapres_header = '<h4>'.
                         &mt('Requirements for specific folders or resources').                          &mt('Requirements for specific folders or resources').
                         '</h4>';                          '</h4>';
Line 4193  sub print_localization { Line 4513  sub print_localization {
         if ($item eq 'timezone') {          if ($item eq 'timezone') {
             my $includeempty = 1;              my $includeempty = 1;
             my $timezone = &Apache::lonlocal::gettimezone();              my $timezone = &Apache::lonlocal::gettimezone();
               my $onchange;
               unless ($noedit) {
                  $onchange = ' onchange="javascript:toggleTimeZone();"';
               }
               my $id = ' id="LC_set_timezone"';
             $datatable .=               $datatable .= 
                 &Apache::loncommon::select_timezone($item,$timezone,undef,                  &Apache::loncommon::select_timezone($item,$timezone,$onchange,
                                                     $includeempty,$disabled);                                                      $includeempty,$id,$disabled);
               my $tzsty = 'none';
               if ($timezone ne '') {
                   $tzsty = 'block';
               }
               $datatable .= '<div id="LC_tzoverdiv" style="display:'.$tzsty.';">'.
                             '<span class="LC_nobreak">'.
                             &mt('Override individual user preference?').
                             &yesno_radio('tzover',$settings,undef,1,'',$noedit).
                             '</span></div>';
         } elsif ($item eq 'datelocale') {          } elsif ($item eq 'datelocale') {
             my $includeempty = 1;              my $includeempty = 1;
             my $locale_obj = &Apache::lonlocal::getdatelocale();              my $locale_obj = &Apache::lonlocal::getdatelocale();
Line 4914  sub print_appearance { Line 5248  sub print_appearance {
                    text => '<b>'.&mt($itemtext->{'inline_chem'}).'</b>',                     text => '<b>'.&mt($itemtext->{'inline_chem'}).'</b>',
                    input => 'radio',                     input => 'radio',
                  },                   },
            'extresource' => {
                      text => '<b>'.&mt($itemtext->{'extresource'}).'</b>',
                      input => 'selectbox',
                      options => {
                                   iframe => 'In iframe',
                                   tab    => 'In new tab',
                                   window => 'In pop-up window',
                                 },
                      order  => ['iframe','tab','window'],
                    },
     );      );
     return &make_item_rows($cdom,\%items,$ordered,$settings,$rowtotal,$crstype,'appearance',$noedit);      return &make_item_rows($cdom,\%items,$ordered,$settings,$rowtotal,$crstype,'appearance',$noedit);
 }  }
Line 5501  sub menucollections_display { Line 5845  sub menucollections_display {
 }  }
   
 sub print_linkprotection {  sub print_linkprotection {
     my ($cdom,$cnum,$settings,$rowtotal,$crstype,$noedit) = @_;      my ($cdom,$cnum,$settings,$rowtotal,$crstype,$noedit,$context) = @_;
     unless (ref($settings) eq 'HASH') {  
         return;  
     }  
   
     my %linkprotection;      my %linkprotection;
     my $count = 0;      my $count = 0;
     my $next = 1;      my $next = 1;
     my ($datatable,$disabled,$css_class);      my ($datatable,$disabled,$css_class,$dest);
     if ($noedit) {      if ($noedit) {
         $disabled = ' disabled="disabled"';          $disabled = ' disabled="disabled"';
     }      }
Line 5521  sub print_linkprotection { Line 5862  sub print_linkprotection {
     my $itemcount = 0;      my $itemcount = 0;
   
     my $ltiauth;      my $ltiauth;
     if (exists($env{'course.'.$env{'request.course.id'}.'.internal.ltiauth'})) {      if ($context eq 'domain') {
         $ltiauth = $env{'course.'.$env{'request.course.id'}.'.internal.ltiauth'};          $ltiauth = 1;
       } else {
           if (exists($env{'course.'.$env{'request.course.id'}.'.internal.ltiauth'})) {
               $ltiauth = $env{'course.'.$env{'request.course.id'}.'.internal.ltiauth'};
           } else {
               my %domdefs = &Apache::lonnet::get_domain_defaults($cdom);
               $ltiauth = $domdefs{'crsltiauth'};
           }
       }
       if ($context eq 'domain') {
           $dest = '/adm/domainprefs';
     } else {      } else {
         my %domdefs = &Apache::lonnet::get_domain_defaults($cdom);          $dest = '/adm/courseprefs';
         $ltiauth = $domdefs{'crsltiauth'};      }
       
       my ($switchserver,$switchmessage);
       $switchserver = &check_switchserver($cdom,$cnum,$context,$dest);
       if ($switchserver) {
           if ($context eq 'domain') {
               $switchmessage = &mt("submit from domain's primary library server: [_1].",$switchserver);  
           } elsif ($crstype eq 'Community') {
              $switchmessage = &mt("submit from community's home server: [_1].",$switchserver);
           } else {
               $switchmessage = &mt("submit from course's home server: [_1].",$switchserver);
           }
     }      }
     my $switchserver = &check_switchserver($cdom,$cnum);  
   
     if (ref($settings->{'linkprotection'}) eq 'HASH') {      if ((ref($settings) eq 'HASH') && (ref($settings->{'linkprot'}) eq 'HASH')) {
         if (keys(%{$settings->{'linkprotection'}})) {          if (keys(%{$settings->{'linkprot'}})) {
             my @current = sort { $a <=> $b } keys(%{$settings->{'linkprotection'}});              my @current = sort { $a <=> $b } keys(%{$settings->{'linkprot'}});
             $next += $current[-1];              $next += $current[-1];
             for (my $i=0; $i<@current; $i++) {              for (my $i=0; $i<@current; $i++) {
                 my $num = $current[$i];                  my $num = $current[$i];
                 my %values;                  my %values;
                 if (ref($settings->{'linkprotection'}->{$num}) eq 'HASH') {                  if (ref($settings->{'linkprot'}->{$num}) eq 'HASH') {
                     %values = %{$settings->{'linkprotection'}->{$num}};                      %values = %{$settings->{'linkprot'}->{$num}};
                 } else {                  } else {
                     next;                      next;
                 }                  }
Line 5550  sub print_linkprotection { Line 5911  sub print_linkprotection {
                     '<tr '.$css_class.'><td><span class="LC_nobreak">'.                      '<tr '.$css_class.'><td><span class="LC_nobreak">'.
                     '<label><input type="checkbox" name="linkprot_del" value="'.$i.'"'.$disabled.' />'.                      '<label><input type="checkbox" name="linkprot_del" value="'.$i.'"'.$disabled.' />'.
                     &mt('Delete?').'</label></span></td><td>';                      &mt('Delete?').'</label></span></td><td>';
                 my ($usersty,$onclickrequser,%checkedrequser);                  my ($usersty,$onclickrequser,%checkedrequser,$onclickreturnurl,%checkedreturnurl);
                 if ($ltiauth) {                  if ($ltiauth) {
                     $usersty = 'display:none';                      $usersty = 'display:none';
                     $onclickrequser = ' onclick="toggleLTIReqUser(this.form,'."'requser','optional','1','block','$i'".');"';                      $onclickrequser = ' onclick="toggleLinkProtExtra(this.form,'."'requser','optional','1','block','$i'".');"';
                     %checkedrequser = (                      %checkedrequser = (
                         no => ' checked="checked"',                          no => ' checked="checked"',
                         yes  => '',                          yes  => '',
Line 5567  sub print_linkprotection { Line 5928  sub print_linkprotection {
                         $usersty = 'display:inline-block';                          $usersty = 'display:inline-block';
                     }                      }
                 }                  }
                   $onclickreturnurl = ' onclick="toggleLinkProtExtra(this.form,'."'returnurl','divurlparam','1','inline-block','$i'".');"';
                   %checkedreturnurl = (
                       no => ' checked="checked"',
                       yes  => '',
                   );
                   if ($values{'returnurl'} ne '') {
                       $checkedreturnurl{'yes'} = $checkedreturnurl{'no'};
                       $checkedreturnurl{'no'} = '';
                   }
                 $datatable .=                  $datatable .=
                     '<span class="LC_nobreak">'.$desc{'name'}.                      '<span class="LC_nobreak">'.$desc{'name'}.
                     ':<input type="text" size="15" name="linkprot_name_'.$i.'" value="'.$values{'name'}.'" autocomplete="off"'.$disabled.' /></span> '.                      ':<input type="text" size="15" name="linkprot_name_'.$i.'" value="'.$values{'name'}.'" autocomplete="off"'.$disabled.' /></span> '.
Line 5575  sub print_linkprotection { Line 5945  sub print_linkprotection {
                     '<option value="LTI-1p0" '.$selected.'>1.1</option></select></span> '."\n".                      '<option value="LTI-1p0" '.$selected.'>1.1</option></select></span> '."\n".
                     ('&nbsp;'x2).                      ('&nbsp;'x2).
                     '<span class="LC_nobreak">'.$desc{'lifetime'}.':<input type="text" name="linkprot_lifetime_'.$i.'"'.                      '<span class="LC_nobreak">'.$desc{'lifetime'}.':<input type="text" name="linkprot_lifetime_'.$i.'"'.
                     ' value="'.$values{'lifetime'}.'" size="3"'.$disabled.' /></span>';                      ' value="'.$values{'lifetime'}.'" size="3"'.$disabled.' /></span><br /><br />';
                 if ($ltiauth) {  
                     $datatable .= ('&nbsp;'x2).'<span class="LC_nobreak">'.$desc{'requser'}.'?'.  
                                   '<label><input type="radio" name="linkprot_requser_'.$i.'" value="0"'.  
                                   $onclickrequser.$checkedrequser{'no'}.$disabled.' />'.&mt('No').'</label>&nbsp;'.  
                                   '<label><input type="radio" name="linkprot_requser_'.$i.'" value="1"'.  
                                   $onclickrequser.$checkedrequser{'yes'}.$disabled.' />'.&mt('Yes').'</label></span>'.  
                                   '<br /><br />';  
                 }  
                 if ($values{'key'} ne '') {                  if ($values{'key'} ne '') {
                     $datatable .= '<span class="LC_nobreak">'.$desc{'key'};                      $datatable .= '<span class="LC_nobreak">'.$desc{'key'};
                     if ($noedit) {                      if ($noedit) {
Line 5604  sub print_linkprotection { Line 5966  sub print_linkprotection {
                         $datatable .= '<div id="linkprot_divcurrsecret_'.$i.'" style="display:inline-block" /><span class="LC_nobreak">'.                          $datatable .= '<div id="linkprot_divcurrsecret_'.$i.'" style="display:inline-block" /><span class="LC_nobreak">'.
                                       $desc{'secret'}.': ['.&mt('not shown').'] '.('&nbsp;'x2).'</span></div>'.                                        $desc{'secret'}.': ['.&mt('not shown').'] '.('&nbsp;'x2).'</span></div>'.
                                       '<span class="LC_nobreak">'.&mt('Change secret?').                                        '<span class="LC_nobreak">'.&mt('Change secret?').
                                       '<label><input type="radio" value="0" name="linkprot_changesecret_'.$i.'" onclick="javascript:toggleLTI(this.form,'."'$i','secret'".');" checked="checked"'.$disabled.' />'.&mt('No').'</label>'.                                        '<label><input type="radio" value="0" name="linkprot_changesecret_'.$i.'" onclick="javascript:toggleLinkProt(this.form,'."'$i','secret'".');" checked="checked"'.$disabled.' />'.&mt('No').'</label>'.
                                       ('&nbsp;'x2).                                        ('&nbsp;'x2).
                                       '<label><input type="radio" value="1" name="linkprot_changesecret_'.$i.'" onclick="javascript:toggleLTI(this.form,'."'$i','secret'".');" '.$disabled.' />'.&mt('Yes').'</label>'.('&nbsp;'x2).                                        '<label><input type="radio" value="1" name="linkprot_changesecret_'.$i.'" onclick="javascript:toggleLinkProt(this.form,'."'$i','secret'".');" '.$disabled.' />'.&mt('Yes').'</label>'.('&nbsp;'x2).
                                       '</span><div id="linkprot_divchgsecret_'.$i.'" style="display:none" />'.                                        '</span><div id="linkprot_divchgsecret_'.$i.'" style="display:none" />'.
                                       '<span class="LC_nobreak"> - '.&mt("submit from course's home server: [_1].",$switchserver).'</span>'.                                        '<span class="LC_nobreak"> - '.$switchmessage.'</span>'.
                                       '</div>';                                        '</div>';
                     } elsif ($values{'key'} eq '') {                      } elsif ($values{'key'} eq '') {
                         $datatable .= '<span class="LC_nobreak">'.&mt('Key and Secret are required').' - '.&mt("submit from course's home server: [_1].",$switchserver).'</span>'."\n";                          $datatable .= '<span class="LC_nobreak">'.&mt('Key and Secret are required').' - '.$switchmessage.'</span>'."\n";
                     } else {                      } else {
                         $datatable .= '<span class="LC_nobreak">'.&mt('Secret required').' - '.&mt("submit from course's home server: [_1].",$switchserver).'</span>'."\n";                          $datatable .= '<span class="LC_nobreak">'.&mt('Secret required').' - '.$switchmessage.'</span>'."\n";
                     }                      }
                       $datatable .= '<input type="hidden" name="linkprot_id_'.$i.'" value="'.$num.'" />';
                 } else {                  } else {
                     if ($values{'usable'} ne '') {                      if ($values{'usable'} ne '') {
                         $datatable .= '<div id="linkprot_divcurrsecret_'.$i.'" style="display:inline-block" /><span class="LC_nobreak">'.                          $datatable .= '<div id="linkprot_divcurrsecret_'.$i.'" style="display:inline-block" /><span class="LC_nobreak">'.
                                       $desc{'secret'}.': ['.&mt('not shown').'] '.('&nbsp;'x2).'</span></div>'.                                        $desc{'secret'}.': ['.&mt('not shown').'] '.('&nbsp;'x2).'</span></div>'.
                                       '<span class="LC_nobreak">'.&mt('Change?').                                        '<span class="LC_nobreak">'.&mt('Change?').
                                       '<label><input type="radio" value="0" name="linkprot_changesecret_'.$i.'" onclick="javascript:toggleLTI(this.form,'."'$i','secret'".');" checked="checked"'.$disabled.' />'.&mt('No').'</label>'.                                        '<label><input type="radio" value="0" name="linkprot_changesecret_'.$i.'" onclick="javascript:toggleLinkProt(this.form,'."'$i','secret'".');" checked="checked"'.$disabled.' />'.&mt('No').'</label>'.
                                       ('&nbsp;'x2).                                        ('&nbsp;'x2).
                                       '<label><input type="radio" value="1" name="linkprot_changesecret_'.$i.'" onclick="javascript:toggleLTI(this.form,'."'$i','secret'".');"'.$disabled.' />'.&mt('Yes').                                        '<label><input type="radio" value="1" name="linkprot_changesecret_'.$i.'" onclick="javascript:toggleLinkProt(this.form,'."'$i','secret'".');"'.$disabled.' />'.&mt('Yes').
                                       '</label>&nbsp;&nbsp;</span><div id="linkprot_divchgsecret_'.$i.'" style="display:none" />'.                                        '</label>&nbsp;&nbsp;</span><div id="linkprot_divchgsecret_'.$i.'" style="display:none" />'.
                                       '<span class="LC_nobreak">'.&mt('New Secret').':'.                                        '<span class="LC_nobreak">'.&mt('New Secret').':'.
                                       '<input type="password" size="20" name="linkprot_secret_'.$i.'" value="" autocomplete="off"'.$disabled.' />'.                                        '<input type="password" size="20" name="linkprot_secret_'.$i.'" value="" autocomplete="new-password"'.$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'".' }"'.$disabled.' />'.&mt('Visible input').'</label>'.                                        '<label><input type="checkbox" name="linkprot_visible_'.$i.'" id="linkprot_visible_'.$i.'" onclick="if (this.checked) { this.form.linkprot_secret_'.$i.'.type='."'text'".' } else { this.form.linkprot_secret_'.$i.'.type='."'password'".' }"'.$disabled.' />'.&mt('Visible input').'</label>'.
                                       '<input type="hidden" name="linkprot_id_'.$i.'" value="'.$num.'" /></span></div>';                                        '<input type="hidden" name="linkprot_id_'.$i.'" value="'.$num.'" /></span></div>';
                     } else {                      } else {
                         $datatable .=                          $datatable .=
                             '<span class="LC_nobreak">'.$desc{'secret'}.':'.                              '<span class="LC_nobreak">'.$desc{'secret'}.':'.
                             '<input type="password" size="20" name="linkprot_secret_'.$i.'" value="" autocomplete="off"'.$disabled.' />'.                              '<input type="password" size="20" name="linkprot_secret_'.$i.'" value="" autocomplete="new-password"'.$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'".' }"'.$disabled.' />'.&mt('Visible input').'</label>'.                              '<label><input type="checkbox" name="linkprot_visible_'.$i.'" id="linkprot_visible_'.$i.'" onclick="if (this.checked) { this.form.linkprot_secret_'.$i.'.type='."'text'".' } else { this.form.linkprot_secret_'.$i.'.type='."'password'".' }"'.$disabled.' />'.&mt('Visible input').'</label>'.
                             '<input type="hidden" name="linkprot_id_'.$i.'" value="'.$num.'" /></span>';                              '<input type="hidden" name="linkprot_id_'.$i.'" value="'.$num.'" /></span>';
                     }                      }
                 }                  }
                   $datatable .= '<br /><br />'.
                                 '<span class="LC_nobreak">'.$desc{'returnurl'}.'?'.
                                 '<label><input type="radio" name="linkprot_returnurl_'.$i.'" value="0"'.
                                 $onclickreturnurl.$checkedreturnurl{'no'}.$disabled.' />'.&mt('No').'</label>&nbsp;'.
                                 '<label><input type="radio" name="linkprot_returnurl_'.$i.'" value="1"'.
                                 $onclickreturnurl.$checkedreturnurl{'yes'}.$disabled.' />'.&mt('Yes').'</label></span>'.
                                 '&nbsp;&nbsp;</span><div id="linkprot_divurlparam_'.$i.'" style="display:none" />'.
                                 '<span class="LC_nobreak">'.&mt('Parameter name').':'.
                                 '<input type="text" size="15" name="linkprot_urlparam_'.$i.'" value="'.$values{'returnurl'}.'" autocomplete="off"'.$disabled.' />'.
                                 '</span></div> ';
                 if ($ltiauth) {                  if ($ltiauth) {
                     $datatable .=                       $datatable .= ('&nbsp;'x2).'<span class="LC_nobreak">'.$desc{'requser'}.'?'.
                                     '<label><input type="radio" name="linkprot_requser_'.$i.'" value="0"'.
                                     $onclickrequser.$checkedrequser{'no'}.$disabled.' />'.&mt('No').'</label>&nbsp;'.
                                     '<label><input type="radio" name="linkprot_requser_'.$i.'" value="1"'.
                                     $onclickrequser.$checkedrequser{'yes'}.$disabled.' />'.&mt('Yes').'</label></span>'.
                         '</fieldset>'.                          '</fieldset>'.
                         '<fieldset id="linkprot_optional_'.$i.'" style="'.$usersty.'"><legend>'.$lt{'opti'}.'</legend>'.                          '<fieldset id="linkprot_optional_'.$i.'" style="'.$usersty.'"><legend>'.$lt{'opti'}.'</legend>'.
                         &linkprot_options($i,$itemcount,$disabled,\%values,\%desc).                          &linkprot_options($i,$itemcount,$disabled,\%values,\%desc).
Line 5652  sub print_linkprotection { Line 6029  sub print_linkprotection {
     $datatable .= '<tr '.$css_class.'><td><span class="LC_nobreak">'."\n".      $datatable .= '<tr '.$css_class.'><td><span class="LC_nobreak">'."\n".
                   '<input type="hidden" name="linkprot_maxnum" value="'.$next.'" />'."\n".                    '<input type="hidden" name="linkprot_maxnum" value="'.$next.'" />'."\n".
                   '<input type="checkbox" name="linkprot_add" value="1"'.$disabled.' />'.&mt('Add').'</span></td>'."\n".                    '<input type="checkbox" name="linkprot_add" value="1"'.$disabled.' />'.&mt('Add').'</span></td>'."\n".
                   '<td>';                    '<td width="100%">';
     my ($usersty,$onclickrequser,%checkedrequser);      my ($usersty,$onclickrequser,%checkedrequser,$onclickreturnurl,%checkedreturnurl);
     if ($ltiauth) {      if ($ltiauth) {
         $usersty = 'display:none';          $usersty = 'display:none';
         $onclickrequser = ' onclick="toggleLTIReqUser(this.form,'."'requser','optional','1','block','add'".');"';          $onclickrequser = ' onclick="toggleLinkProtExtra(this.form,'."'requser','optional','1','block','add'".');"';
         %checkedrequser = (          %checkedrequser = (
             no => ' checked="checked"',              no => ' checked="checked"',
             yes  => '',              yes  => '',
         );          );
         $datatable .= '<fieldset><legend>'.$lt{'requ'}.'</legend>';          $datatable .= '<fieldset><legend>'.$lt{'requ'}.'</legend>';
     }      }
       $onclickreturnurl = ' onclick="toggleLinkProtExtra(this.form,'."'returnurl','divurlparam','1','inline-block','add'".');"';
       %checkedreturnurl = (
           no => ' checked="checked"',
           yes => '',
       );
     $datatable .= '<span class="LC_nobreak">'.$desc{'name'}.      $datatable .= '<span class="LC_nobreak">'.$desc{'name'}.
                   ':<input type="text" size="15" name="linkprot_name_add" value="" autocomplete="off"'.$disabled.' /></span> '."\n".                    ':<input type="text" size="15" name="linkprot_name_add" value="" autocomplete="off"'.$disabled.' /></span> '."\n".
                   ('&nbsp;'x2).                    ('&nbsp;'x2).
                   '<span class="LC_nobreak">'.$desc{'version'}.':<select name="linkprot_version_add"'.$disabled.'>'.                    '<span class="LC_nobreak">'.$desc{'version'}.':<select name="linkprot_version_add"'.$disabled.'>'.
                   '<option value="LTI-1p0" selected="selected">1.1</option></select></span> '."\n".                    '<option value="LTI-1p0" selected="selected">1.1</option></select></span> '."\n".
                   ('&nbsp;'x2).                    ('&nbsp;'x2).
                   '<span class="LC_nobreak">'.$desc{'lifetime'}.':<input type="text" size="3" name="linkprot_lifetime_add" value="300"'.$disabled.' /></span> '."\n";                    '<span class="LC_nobreak">'.$desc{'lifetime'}.':<input type="text" size="3" name="linkprot_lifetime_add" value="300"'.$disabled.' /></span> '."\n".
     if ($ltiauth) {                    '<br /><br />';
         $datatable .= ('&nbsp;'x2).'<span class="LC_nobreak">'.$desc{'requser'}.'?'.  
                       '<label><input type="radio" name="linkprot_requser_add" value="0"'.  
                       $onclickrequser.$checkedrequser{'no'}.$disabled.' />'.&mt('No').'</label>&nbsp;'.  
                       '<label><input type="radio" name="linkprot_requser_add" value="1"'.  
                       $onclickrequser.$checkedrequser{'yes'}.$disabled.' />'.&mt('Yes').'</label></span>';  
     }  
     $datatable .= '<br /><br />';  
     if ($switchserver) {      if ($switchserver) {
         $datatable .= '<span class="LC_nobreak">'.&mt('Key and Secret are required').' - '.&mt("submit from course's home server: [_1].",$switchserver).'</span>'."\n";          $datatable .= '<span class="LC_nobreak">'.&mt('Key and Secret are required').' - '.$switchmessage.'</span>'."\n";
     } else {      } else {
         $datatable .= '<span class="LC_nobreak">'.$desc{'key'}.':<input type="text" size="25" name="linkprot_key_add" value="" autocomplete="off"'.$disabled.' /></span> '."\n".          $datatable .= '<span class="LC_nobreak">'.$desc{'key'}.':<input type="text" size="25" name="linkprot_key_add" value="" autocomplete="off"'.$disabled.' /></span> '."\n".
                       ('&nbsp;'x2).                        ('&nbsp;'x2).
                       '<span class="LC_nobreak">'.$desc{'secret'}.':<input type="password" size="20" name="linkprot_secret_add" value="" autocomplete="off"'.$disabled.' />'.                        '<span class="LC_nobreak">'.$desc{'secret'}.':<input type="password" size="20" name="linkprot_secret_add" value="" autocomplete="new-password"'.$disabled.' />'.
                       '<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'".' }"'.$disabled.' />'.&mt('Visible input').'</label></span> '."\n";                        '<label><input type="checkbox" name="linkprot_visible_add" id="linkprot_visible_add" onclick="if (this.checked) { this.form.linkprot_secret_add.type='."'text'".' } else { this.form.linkprot_secret_add.type='."'password'".' }"'.$disabled.' />'.&mt('Visible input').'</label></span> '."\n";
     }      }
       $datatable .= '<br /><br />'.
                     '<span class="LC_nobreak">'.$desc{'returnurl'}.'?'.
                     '<label><input type="radio" name="linkprot_returnurl_add" value="0"'.
                     $onclickreturnurl.$checkedreturnurl{'no'}.$disabled.' />'.&mt('No').'</label>&nbsp;'.
                     '<label><input type="radio" name="linkprot_returnurl_add" value="1"'.
                     $onclickreturnurl.$checkedreturnurl{'yes'}.$disabled.' />'.&mt('Yes').'</label></span>'.
                     '&nbsp;&nbsp;</span><div id="linkprot_divurlparam_add" style="display:none" />'.
                     '<span class="LC_nobreak">'.&mt('Parameter name').':'.
                     '<input type="text" size="15" name="linkprot_urlparam_add" value="" autocomplete="off"'.$disabled.' />'.
                     '</span></div> ';
     if ($ltiauth) {      if ($ltiauth) {
         $datatable .= '</fieldset>'.          $datatable .= ('&nbsp;'x2).'<span class="LC_nobreak">'.$desc{'requser'}.'?'.
                         '<label><input type="radio" name="linkprot_requser_add" value="0"'.
                         $onclickrequser.$checkedrequser{'no'}.$disabled.' />'.&mt('No').'</label>&nbsp;'.
                         '<label><input type="radio" name="linkprot_requser_add" value="1"'.
                         $onclickrequser.$checkedrequser{'yes'}.$disabled.' />'.&mt('Yes').'</label></span>'.
                         '</fieldset>'.
                       '<fieldset id="linkprot_optional_add" style="'.$usersty.'"><legend>'.$lt{'opti'}.'</legend>'.                        '<fieldset id="linkprot_optional_add" style="'.$usersty.'"><legend>'.$lt{'opti'}.'</legend>'.
                       &linkprot_options('add',$itemcount,$disabled,{},\%desc).                        &linkprot_options('add',$itemcount,$disabled,{},\%desc).
                      '</fieldset>';                       '</fieldset>';
     }      }
     $datatable .= '</td></tr>';      $datatable .= '</td></tr>';
     $$rowtotal ++;      $$rowtotal ++;
     return $datatable;;      return $datatable;
 }  }
   
 sub linkprot_names {  sub linkprot_names {
Line 5704  sub linkprot_names { Line 6094  sub linkprot_names {
                                           'lifetime'  => 'Nonce lifetime (s)',                                            'lifetime'  => 'Nonce lifetime (s)',
                                           'name'      => 'Launcher Application',                                            'name'      => 'Launcher Application',
                                           'secret'    => 'Secret',                                            'secret'    => 'Secret',
                                             'returnurl' => 'Launcher return URL',
                                           'requser'   => 'Use identity',                                            'requser'   => 'Use identity',
                                           'email'     => 'Email address',                                            'email'     => 'Email address',
                                           'sourcedid' => 'User ID',                                            'sourcedid' => 'User ID',
Line 5714  sub linkprot_names { Line 6105  sub linkprot_names {
 }  }
   
 sub check_switchserver {  sub check_switchserver {
     my ($cdom,$cnum) = @_;      my ($cdom,$cnum,$context,$dest) = @_;
     my ($allowed,$switchserver);      my ($allowed,$switchserver,$home);
     my $home = &Apache::lonnet::homeserver($cnum,$cdom);      if ($context eq 'domain') {
     unless ($home eq 'no_host') {          $home = &Apache::lonnet::domain($cdom,'primary');
       } else {
           $home = &Apache::lonnet::homeserver($cnum,$cdom);
       }
       unless (($home eq 'no_host') || ($home eq '')) {
         my @ids=&Apache::lonnet::current_machine_ids();          my @ids=&Apache::lonnet::current_machine_ids();
         foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }          foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }
         if (!$allowed) {          if (!$allowed) {
             $switchserver='<a href="/adm/switchserver?otherserver='.$home.'&amp;role='.              $switchserver='<a href="/adm/switchserver?otherserver='.$home.'&amp;role='.
                           &HTML::Entities::encode($env{'request.role'},'\'<>"&').                            &HTML::Entities::encode($env{'request.role'},'\'<>"&').
                           '&amp;destinationurl=/adm/courseprefs">'.&mt('Switch Server').'</a>';                            '&amp;destinationurl='.$dest.'">'.&mt('Switch Server').'</a>';
         }          }
     }      }
     return $switchserver;      return $switchserver;
Line 5755  sub linkprot_options { Line 6150  sub linkprot_options {
             $checked{'auth'} = ' checked="checked"';              $checked{'auth'} = ' checked="checked"';
         }          }
     }      }
     my $onclickuser = ' onclick="toggleLTIReqUser(this.form,'."'mapuser','userfield','other','inline-block','$num'".');"';      my $onclickuser = ' onclick="toggleLinkProtExtra(this.form,'."'mapuser','userfield','other','inline-block','$num'".');"';
     my $output = '<div class="LC_floatleft"><span class="LC_nobreak">'.      my $output = '<div class="LC_floatleft"><span class="LC_nobreak">'.
                  &mt('Source of LON-CAPA username in LTI request').':&nbsp;';                   &mt('Source of LON-CAPA username in LTI request').':&nbsp;';
     foreach my $option ('sourcedid','email','other') {      foreach my $option ('sourcedid','email','other') {
Line 5779  sub linkprot_options { Line 6174  sub linkprot_options {
     return $output;      return $output;
 }  }
   
   sub print_extresource_row {
       my ($item,$config,$curr,$noedit) = @_;
       my $onchange;
       unless ($noedit) {
           $onchange = ' onchange="javascript:toggleExtRes();"';
       }
       my $id = 'LC_'.$item;
       my ($selected,$reuse,$width,$height) = split(/:/,$curr);
       my $output = &select_from_options($item,$config->{'order'},
                                         $config->{'options'},$selected,
                                         $config->{'nullval'},
                                         undef,undef,$onchange,$noedit,$id);
       my ($checked,$reusesty,$sizesty); 
       if ($reuse) {
           $checked = ' checked="checked"';
       }
       $reusesty = 'none';
       $sizesty = 'none';
       if (($selected eq 'window') || ($selected eq 'tab')) {
           $reusesty = 'inline-block';
           if ($selected eq 'window') {
               $sizesty = 'inline-block';
           }
       }
       $output .= '<div id="LC_extresreusediv" style="display:'.$reusesty.';">'.
                  '<span class="LC_nobreak">'.
                  '<label><input type="checkbox" name="extwintabreuse" value="1"'.$checked.'>'.
                  &mt('Re-use tab/window').'</label>'.
                  '</span></div>'.
                  '<fieldset id="LC_extressize" style="display:'.$sizesty.';">'.
                  '<legend>'.&mt('Window size (optional)').'</legend>'.
                  '<span class="LC_nobreak">'.
                  &mt('width').':<input type="text" name="extreswinwidth" value="'.$width.'" size="3" />px'.
                  ('&nbsp;' x 3).
                  &mt('height').':<input type="text" name="extreswinheight" value="'.$height.'" size="3" />px'.
                  '</span></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 5950  sub make_item_rows { Line 6384  sub make_item_rows {
                 (($caller eq 'printouts') && ($item ne 'print_header_format'))) {                  (($caller eq 'printouts') && ($item ne 'print_header_format'))) {
                 $colspan = 2;                  $colspan = 2;
             }              }
               my $rowdesc;
               if ($caller eq 'appearance') {
                   $rowdesc = '<span class="LC_nobreak">'.$items->{$item}{text}.'</span>';
               } else {
                   $rowdesc = $items->{$item}{text};
               }
             if (exists $items->{$item}{advanced} && $items->{$item}{advanced} == 1) {              if (exists $items->{$item}{advanced} && $items->{$item}{advanced} == 1) {
                 $datatable .= &item_table_row_start($items->{$item}{text},$count,"advanced",$colspan);                  $datatable .= &item_table_row_start($rowdesc,$count,"advanced",$colspan);
             } else {              } else {
                 $datatable .= &item_table_row_start($items->{$item}{text},$count,undef,$colspan);                  $datatable .= &item_table_row_start($rowdesc,$count,undef,$colspan);
             }              }
             if ($item eq 'defaultcredits') {              if ($item eq 'defaultcredits') {
                 my $defaultcredits = $env{'course.'.$env{'request.course.id'}.'.internal.defaultcredits'};                  my $defaultcredits = $env{'course.'.$env{'request.course.id'}.'.internal.defaultcredits'};
Line 5972  sub make_item_rows { Line 6412  sub make_item_rows {
                 $datatable .= &print_hdrfmt_row($item,$settings,$noedit);                  $datatable .= &print_hdrfmt_row($item,$settings,$noedit);
             } elsif ($item eq 'lti.lcmenu') {              } elsif ($item eq 'lti.lcmenu') {
                 $datatable .= &lcmenu_checkboxes($cdom,$item,$settings,$crstype,$noedit);                  $datatable .= &lcmenu_checkboxes($cdom,$item,$settings,$crstype,$noedit);
               } elsif ($item eq 'extresource') {
                   $datatable .= &print_extresource_row($item,$items->{$item},$settings->{$item},$noedit);
             } elsif ($items->{$item}{input} eq 'dates') {              } elsif ($items->{$item}{input} eq 'dates') {
                my $disabled;                 my $disabled;
                if ($noedit) {                 if ($noedit) {
Line 6398  sub change_clone { Line 6840  sub change_clone {
             }              }
         }          }
     }      }
       return;
   }
   
   sub devalidate_remote_courseprefs {
       my ($cdom,$cnum,$cachekeys) = @_;
       return unless (ref($cachekeys) eq 'HASH');
       my %servers = &Apache::lonnet::internet_dom_servers($cdom);
       my %thismachine;
       map { $thismachine{$_} = 1; } &Apache::lonnet::current_machine_ids();
       my @posscached = ('courselti');
       if (keys(%servers)) {
           foreach my $server (keys(%servers)) {
               next if ($thismachine{$server});
               my @cached;
               foreach my $name (@posscached) {
                   if ($cachekeys->{$name}) {
                       push(@cached,&escape($name).':'.&escape($cdom.'_'.$cnum));
                   }
               }
               if (@cached) {
                   &Apache::lonnet::remote_devalidate_cache($server,\@cached);
               }
           }
       }
     return;      return;
 }  }
   
Removed from v.1.100  
changed lines
  Added in v.1.117

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