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

Diff for /loncom/interface/londocs.pm between versions 1.693 and 1.697

version 1.693, 2023/01/19 16:43:49 version 1.697, 2023/03/23 22:54:38
Line 1210  sub docs_change_log { Line 1210  sub docs_change_log {
             my ($title,$url) = split(/\:/,$docslog{$id}{'logentry'}{'parameter_res'},3);              my ($title,$url) = split(/\:/,$docslog{$id}{'logentry'}{'parameter_res'},3);
             if ($title eq '') {              if ($title eq '') {
                 ($title) = ($url =~ m{/([^/]+)$});                  ($title) = ($url =~ m{/([^/]+)$});
               } elsif ($is_supp) {
                   $title = &Apache::loncommon::parse_supplemental_title($title);
             }              }
             $r->print(&LONCAPA::map::qtescape($title).':<ul>');              $r->print(&LONCAPA::map::qtescape($title).':<ul>');
     foreach my $parameter ('randompick','hiddenresource','encrypturl','randomorder','gradable') {      foreach my $parameter ('randompick','hiddenresource','encrypturl','randomorder','gradable') {
Line 4298  END Line 4300  END
                     $nomodal = 1;                      $nomodal = 1;
                 }                  }
             }              }
             my ($checkencrypt,$shownurl);              my $checkencrypt;
             if (!$env{'request.role.adv'}) {              if (!$env{'request.role.adv'}) {
                 if (((&LONCAPA::map::getparameter($orderidx,'parameter_encrypturl'))[0]=~/^yes$/i) ||                  if (((&LONCAPA::map::getparameter($orderidx,'parameter_encrypturl'))[0]=~/^yes$/i) ||
                     ($isencrypted) || (&Apache::lonnet::EXT('resource.0.encrypturl',$symb) =~ /^yes$/i)) {                      ($isencrypted) || (&Apache::lonnet::EXT('resource.0.encrypturl',$symb) =~ /^yes$/i)) {
Line 4318  END Line 4320  END
                 my $currenc = $env{'request.enc'};                  my $currenc = $env{'request.enc'};
                 $env{'request.enc'} = 1;                  $env{'request.enc'} = 1;
                 $shownsymb = &Apache::lonenc::encrypted($symb);                  $shownsymb = &Apache::lonenc::encrypted($symb);
                 $shownurl = &Apache::lonenc::encrypted($url);                  my $shownurl = &Apache::lonenc::encrypted($url);
                 if (&Apache::lonnet::symbverify($symb,$url)) {                  if (&Apache::lonnet::symbverify($symb,$url)) {
                     $url = $shownurl;                      $url = $shownurl;
                 } else {                  } else {
Line 4333  END Line 4335  END
                         $url = &Apache::lonnet::clutter($url);                          $url = &Apache::lonnet::clutter($url);
                     }                      }
                 }                  }
                 $shownurl = $url;              } else {
                   $url = '';
             }              }
             unless ($env{'request.role.adv'}) {              unless ($env{'request.role.adv'}) {
                 if ((&LONCAPA::map::getparameter($orderidx,'parameter_hiddenresource'))[0]=~/^yes$/i) {                  if ((&LONCAPA::map::getparameter($orderidx,'parameter_hiddenresource'))[0]=~/^yes$/i) {
Line 4344  END Line 4347  END
                     $hiddenres = 1;                      $hiddenres = 1;
                 }                  }
             }              }
             if ($url ne '') {              if (($url ne '') && ($shownsymb ne '')) {
                 $url = $shownurl.(($shownurl=~/\?/)?'&':'?').'symb='.&escape($shownsymb);                  $url .= (($url=~/\?/)?'&':'?').'symb='.&escape($shownsymb);
             }              }
  }   }
     } elsif ($supplementalflag) {      } elsif ($supplementalflag) {
Line 4650  $form_end; Line 4653  $form_end;
         my ($enctext,$hidtext,$formhidden,$formurlhidden);          my ($enctext,$hidtext,$formhidden,$formurlhidden);
         if ((&LONCAPA::map::getparameter($orderidx,'parameter_hiddenresource'))[0]=~/^yes$/i) {          if ((&LONCAPA::map::getparameter($orderidx,'parameter_hiddenresource'))[0]=~/^yes$/i) {
             $hidtext = ' checked="checked"';              $hidtext = ' checked="checked"';
             if (($ishash) && (ref($filtersref->{'randomorder'}) eq 'ARRAY')) {              if (($ishash) && (ref($filtersref->{'hiddenresource'}) eq 'ARRAY')) {
                 push(@{$filtersref->{'hiddenresource'}},$orderidx);                  push(@{$filtersref->{'hiddenresource'}},$orderidx);
             }              }
         }          }
Line 8043  function populateDirSelects(form,locsel, Line 8046  function populateDirSelects(form,locsel,
                                 selelem.options[selelem.options.length] = new Option(data.dirs[j],data.dirs[j]);                                  selelem.options[selelem.options.length] = new Option(data.dirs[j],data.dirs[j]);
                             }                              }
                             selelem.selectedIndex = 0;                              selelem.selectedIndex = 0;
                               if (len == 1) {
                                   toggleCrsResTitle();
                               }
                         }                          }
                     }                      }
                 }                  }
Removed from v.1.693  
changed lines
  Added in v.1.697

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