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

Diff for /loncom/interface/londocs.pm between versions 1.691 and 1.698

version 1.691, 2023/01/05 21:33:31 version 1.698, 2023/03/27 18:41:04
Line 1207  sub docs_change_log { Line 1207  sub docs_change_log {
  }   }
  $r->print('</ul>');   $r->print('</ul>');
  if ($docslog{$id}{'logentry'}{'parameter_res'}) {   if ($docslog{$id}{'logentry'}{'parameter_res'}) {
     $r->print(&LONCAPA::map::qtescape((split(/\:/,$docslog{$id}{'logentry'}{'parameter_res'}))[0]).':<ul>');              my ($title,$url) = split(/\:/,$docslog{$id}{'logentry'}{'parameter_res'},3);
               if ($title eq '') {
                   ($title) = ($url =~ m{/([^/]+)$});
               } elsif ($is_supp) {
                   $title = &Apache::loncommon::parse_supplemental_title($title);
               }
               $r->print(&LONCAPA::map::qtescape($title).':<ul>');
     foreach my $parameter ('randompick','hiddenresource','encrypturl','randomorder','gradable') {      foreach my $parameter ('randompick','hiddenresource','encrypturl','randomorder','gradable') {
  if ($docslog{$id}{'logentry'}{'parameter_action_'.$parameter}) {   if ($docslog{$id}{'logentry'}{'parameter_action_'.$parameter}) {
 # FIXME: internationalization seems wrong here  # FIXME: internationalization seems wrong here
Line 3109  sub update_parameter { Line 3115  sub update_parameter {
             my ($name,$url)=split(/\:/,$LONCAPA::map::resources[$res]);              my ($name,$url)=split(/\:/,$LONCAPA::map::resources[$res]);
             $name=&LONCAPA::map::qtescape($name);              $name=&LONCAPA::map::qtescape($name);
             $url=&LONCAPA::map::qtescape($url);              $url=&LONCAPA::map::qtescape($url);
             next unless ($name && $url);              next unless $url;
             my $is_map;              my $is_map;
             if ($url =~ m{/uploaded/.+\.(page|sequence)$}) {              if ($url =~ m{/uploaded/.+\.(page|sequence)$}) {
                 $is_map = 1;                  $is_map = 1;
Line 4294  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 4314  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 4329  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 4340  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 4646  $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 6156  sub handler { Line 6163  sub handler {
                 'dire' => 'Directory:',                  'dire' => 'Directory:',
                 'cate' => 'Category:',                  'cate' => 'Category:',
                 'tmpl' => 'Template:',                  'tmpl' => 'Template:',
                   'empd' => 'No resources found',
                 'comment' => 'Comment',                  'comment' => 'Comment',
                 'parse' => 'Upload embedded images/multimedia files if HTML file',                  'parse' => 'Upload embedded images/multimedia files if HTML file',
                 'bb5'      => 'Blackboard 5',                  'bb5'      => 'Blackboard 5',
Line 6304  SEDFFORM Line 6312  SEDFFORM
         <form action="/adm/coursedocs" method="post" name="crsresimportform" onsubmit="return validImportCrsRes();">          <form action="/adm/coursedocs" method="post" name="crsresimportform" onsubmit="return validImportCrsRes();">
         <fieldset id="importcrsresform" style="display: none;">          <fieldset id="importcrsresform" style="display: none;">
         <legend>$lt{'imcr'}</legend>          <legend>$lt{'imcr'}</legend>
           <div id="importcrsrescontent" style="display: none;">
         <input type="hidden" name="active" value="bb" />          <input type="hidden" name="active" value="bb" />
         $pickfile          $pickfile
         <p>          <p>
Line 6311  SEDFFORM Line 6320  SEDFFORM
         </p>          </p>
         <input type="hidden" name="importdetail" value="" />          <input type="hidden" name="importdetail" value="" />
         <input type="submit" name="crsres" value="$lt{'impo'}" $disabled /><br />          <input type="submit" name="crsres" value="$lt{'impo'}" $disabled /><br />
           </div>
           <div id="importcrsresempty" style="display: none;">
           <p>
           $lt{'empd'}
           </p>
           </div>
         </fieldset>          </fieldset>
         </form>          </form>
 CRSFORM  CRSFORM
Line 7956  function toggleImportCrsres(caller) { Line 7971  function toggleImportCrsres(caller) {
             var curr = document.getElementById('importcrsresform').style.display;              var curr = document.getElementById('importcrsresform').style.display;
             if (curr == 'none') {              if (curr == 'none') {
                 disp='block';                  disp='block';
                 populateCrsSelects(document.crsresimportform,'coursepath','coursefile',1,'',1,0,1,1);                  populateCrsSelects(document.crsresimportform,'coursepath','coursefile',1,'',1,0,1,1,0);
                   if ((document.getElementById('importcrsrescontent')) &&
                       (document.getElementById('importcrsresempty'))) {
                       var selelem = document.crsresimportform.elements['coursepath'];
                       var numdirs = 0;
                       if (selelem.options.length) {
                           numdirs = selelem.options.length - 1;
                       }
                       if (numdirs) {
                           document.getElementById('importcrsrescontent').style.display='block';
                           document.getElementById('importcrsresempty').style.display='none';
                       } else {
                           document.getElementById('importcrsrescontent').style.display='none';
                           document.getElementById('importcrsresempty').style.display='block';
                       }
                   }
             }              }
         }          }
         document.getElementById('importcrsresform').style.display=disp;          document.getElementById('importcrsresform').style.display=disp;
Line 8020  function populateDirSelects(form,locsel, Line 8050  function populateDirSelects(form,locsel,
             }              }
             var http = new XMLHttpRequest();              var http = new XMLHttpRequest();
             var url = "/adm/courseauthor";              var url = "/adm/courseauthor";
             var params = "role="+role+"&rec="+recurse+"&nonempty="+nonemptydir;              var params = "role="+role+"&rec="+recurse+"&nonempty="+nonemptydir+"&addtop=1";
             http.open("POST", url, true);              http.open("POST", url, true);
             http.setRequestHeader("Content-type", "application/x-www-form-urlencoded");              http.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
             http.onreadystatechange = function() {              http.onreadystatechange = function() {
Line 8039  function populateDirSelects(form,locsel, Line 8069  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.691  
changed lines
  Added in v.1.698

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