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

Diff for /loncom/interface/courseprefs.pm between versions 1.108 and 1.111

version 1.108, 2022/04/05 12:27:39 version 1.111, 2022/04/06 14:35:27
Line 1548  sub process_linkprot { Line 1548  sub process_linkprot {
     if (ref($values) eq 'HASH') {      if (ref($values) eq 'HASH') {
         my @todelete = &Apache::loncommon::get_env_multiple('form.linkprot_del');          my @todelete = &Apache::loncommon::get_env_multiple('form.linkprot_del');
         my $maxnum = $env{'form.linkprot_maxnum'};          my $maxnum = $env{'form.linkprot_maxnum'};
         for (my $i=0; $i<=$maxnum; $i++) {          for (my $i=0; $i<$maxnum; $i++) {
             my $itemid = $env{'form.linkprot_id_'.$i};              my $itemid = $env{'form.linkprot_id_'.$i};
             $itemid =~ s/\D+//g;              $itemid =~ s/\D+//g;
             if ($itemid) {              if ($itemid) {
Line 1678  sub process_linkprot { Line 1678  sub process_linkprot {
             $changes->{$entry} = $linkprot{$entry};              $changes->{$entry} = $linkprot{$entry};
         }          }
         if (ref($lastactref) eq 'HASH') {          if (ref($lastactref) eq 'HASH') {
             $lastactref->{'courselti'} = 1';              $lastactref->{'courselti'} = 1;
         }          }
     }      }
     return $errors;      return $errors;
Line 2213  sub store_linkprot { Line 2213  sub store_linkprot {
                     if (exists($oldlinkprot->{$id}{'usable'})) {                      if (exists($oldlinkprot->{$id}{'usable'})) {
                         $changes->{$id}->{'usable'} = 1;                          $changes->{$id}->{'usable'} = 1;
                     }                      }
                       if (exists($oldlinkprot->{$id}{'cipher'})) {
                           $changes->{$id}->{'cipher'} = $oldlinkprot->{$id}{'cipher'};
                       }
                 }                  }
             }              }
         }          }
Line 5771  sub print_linkprotection { Line 5774  sub print_linkprotection {
                     } else {                      } else {
                         $datatable .= '<span class="LC_nobreak">'.&mt('Secret required').' - '.$switchmessage.'</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">'.
Removed from v.1.108  
changed lines
  Added in v.1.111

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