loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/londocs.pm between versions 1.679 and 1.681

-version 1.679, 2022/09/13 12:22:14
+version 1.681, 2022/09/29 03:59:29
  Line 1495  sub print_paste_buffer {
              }
              $pasteitems .= '<label><input type="checkbox" name="pasting" id="pasting_'.$suffix.'" value="'.$suffix.'" '.$onclick.'/>'.$buffer.'</label>';
              if ($nopaste) {
-                  $pasteitems .= $nopaste;
+                  $pasteitems .= ' <span class="LC_cusr_emph">'.$nopaste.'</span>';
              } else {
                  if ($othercrs) {
                      $pasteitems .= $othercrs;
  Line 2800  sub apply_fixups {
              $storefn =~ s/^((?:default|supplemental)_)(\d+)/$1$newsubdir{$key}/;
          }
          my $mapcontent = &Apache::lonnet::getfile($key);
+         if (($mapcontent eq '-1') && ($before{'map'} eq 'supplemental') &&
+             ($after{'map'} eq 'default') &&
+             ($key =~ m{^/uploaded/$match_domain/$match_courseid/supplemental_\d+\.sequence$})) {
+             $mapcontent = '<map>'."\n".
+                           '<resource id="1" src="" type="start" />'."\n".
+                           '<link from="1" to="2" index="1" />'."\n".
+                           '<resource id="2" src="" type="finish" />'."\n".
+                           '</map>';
+         }
          if ($mapcontent eq '-1') {
              if (ref($errors) eq 'HASH') {
                  $errors->{$key} = 1;
- Line 4241  END
+ Line 4250  END
                      $nomodal = 1;
                  }
              }
-             if (&Apache::lonnet::symbverify($symb,$url)) {
+             my ($checkencrypt,$shownurl);
-                 $shownsymb = $symb;
+             if (!$env{'request.role.adv'}) {
-                 if ($isexternal) {
-                     $url =~ s/\#[^#]+$//;
-                     if ($container eq 'page') {
-                         $url = &Apache::lonnet::clutter($url);
-                     }
-                 }
-                 unless ($env{'request.role.adv'}) {
-                     if ((&LONCAPA::map::getparameter($orderidx,'parameter_hiddenresource'))[0]=~/^yes$/i) {
-                         $url = '';
-                     }
-                     if (&Apache::lonnet::EXT('resource.0.hiddenresource',$symb) =~ /^yes$/i) {
-                         $url = '';
-                         $hiddenres = 1;
-                     }
-                 }
-                 if ($url ne '') {
-                     $url.=(($url=~/\?/)?'&':'?').'symb='.&escape($shownsymb);
-                 }
-             } elsif (!$env{'request.role.adv'}) {
-                 my $checkencrypt;
                  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)) {
                      $checkencrypt = 1;
                  } elsif (ref($navmapref)) {
                      unless (ref($$navmapref)) {
- Line 4272  END
+ Line 4261  END
                      }
                      if (ref($$navmapref)) {
                          if (lc($$navmapref->get_mapparam($symb,undef,"0.encrypturl")) eq 'yes') {
                              $checkencrypt = 1;
                          }
                      }
                  }
-                 if ($checkencrypt) {
+             }
-                     $shownsymb = &Apache::lonenc::encrypted($symb);
+             if ($checkencrypt) {
-                     my $shownurl = &Apache::lonenc::encrypted($url);
+                 my $currenc = $env{'request.enc'};
-                     if (&Apache::lonnet::symbverify($shownsymb,$shownurl)) {
+                 $env{'request.enc'} = 1;
-                         $url = $shownurl.(($shownurl=~/\?/)?'&':'?').'symb='.&escape($shownsymb);
+                 $shownsymb = &Apache::lonenc::encrypted($symb);
-                         if ($env{'request.enc'} ne '') {
+                 $shownurl = &Apache::lonenc::encrypted($url);
-                             delete($env{'request.enc'});
+                 if (&Apache::lonnet::symbverify($symb,$url)) {
-                         }
+                     $url = $shownurl;
-                     } else {
-                         $url='';
-                     }
                  } else {
-                     $url='';
+                     $url = '';
                  }
-             } else {
+                 $env{'request.enc'} = $currenc;
-                 $url='';
+             } elsif (&Apache::lonnet::symbverify($symb,$url)) {
+                 $shownsymb = $symb;
+                 if ($isexternal) {
+                     $url =~ s/\#[^#]+$//;
+                     if ($container eq 'page') {
+                         $url = &Apache::lonnet::clutter($url);
+                     }
+                 }
+                 $shownurl = $url;
+             }
+             unless ($env{'request.role.adv'}) {
+                 if ((&LONCAPA::map::getparameter($orderidx,'parameter_hiddenresource'))[0]=~/^yes$/i) {
+                     $url = '';
+                 }
+                 if (&Apache::lonnet::EXT('resource.0.hiddenresource',$symb) =~ /^yes$/i) {
+                     $url = '';
+                     $hiddenres = 1;
+                 }
+             }
+             if ($url ne '') {
+                 $url = $shownurl.(($shownurl=~/\?/)?'&':'?').'symb='.&escape($shownsymb);
              }
  	}
      } elsif ($supplementalflag) {

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

Removed from v.1.679
changed lines
	Added in v.1.681