[BACK]Return to lonwrapper.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat

Diff for /rat/lonwrapper.pm between versions 1.52 and 1.53

version 1.52, 2016/10/31 12:59:11 version 1.53, 2016/10/31 19:49:05
Line 54  sub wrapper { Line 54  sub wrapper {
                                         );                                          );
   
     my $anchor;      my $anchor;
     if (($is_ext) && ($env{'form.symb'})) {      if ($is_ext) {
         (undef,undef,my $res) = &Apache::lonnet::decode_symb($env{'form.symb'});          if ($env{'form.symb'}) {
         if ($res =~ /(#[^#]+)$/) {              (undef,undef,my $res) = &Apache::lonnet::decode_symb($env{'form.symb'});
             $anchor = $1;              if ($res =~ /(#[^#]+)$/) {
                   $anchor = $1;
               }
           } elsif ($env{'form.anchor'} ne '') {
               $anchor = '#'.$env{'form.anchor'};
         }          }
     }      }
   
Line 176  sub handler { Line 180  sub handler {
     }      }
     if (($is_ext) || ($exttool)) {      if (($is_ext) || ($exttool)) {
         &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},          &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
             ['forceedit','register','folderpath','symb','idx','title']);              ['forceedit','register','folderpath','symb','idx','title','anchor']);
         if (($env{'form.forceedit'}) &&          if (($env{'form.forceedit'}) &&
             (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) &&              (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) &&
             (($env{'form.folderpath'} =~ /^supplemental/) ||              (($env{'form.folderpath'} =~ /^supplemental/) ||
              ($env{'form.symb'} =~ /^uploaded/))) {               ($env{'form.symb'} =~ /^uploaded/))) {
             (undef,undef,my $res) = &Apache::lonnet::decode_symb($env{'form.symb'});              if ($env{'form.symb'}) {
             if ($res =~ /(#[^#]+)$/) {                  (undef,undef,my $res) = &Apache::lonnet::decode_symb($env{'form.symb'});
                  $url .= $1;                  if ($res =~ /(#[^#]+)$/) {
                       $url .= $1;
                   }
               } elsif ($env{'form.folderpath'} =~ /^supplemental/) {
                   if ($env{'form.anchor'} ne '') {
                       $url .= '#'.$env{'form.anchor'};
                   }
             }              }
             my $type = 'ext';              my $type = 'ext';
             my %ltitools;              my %ltitools;
Removed from v.1.52  
changed lines
  Added in v.1.53

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