loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/londefdef.pm between versions 1.442 and 1.456.2.1

-version 1.442, 2013/01/04 05:30:52
+version 1.456.2.1, 2016/08/10 00:29:06
  Line 572  sub start_body {
      if ($env{'request.state'} eq 'construct') {
          my $url=&Apache::lonnet::hreflocation('',$env{'request.filename'});
          &Apache::lonhtmlcommon::add_breadcrumb({
-             'text'  => 'Construction Space',
+             'text'  => 'Authoring Space',
              'href'  => &Apache::loncommon::authorspace($url),
          });
          &Apache::lonhtmlcommon::add_breadcrumb({
  Line 585  sub start_body {
          # FIXME Where are we?
      }
+         my $args = {'add_entries'    => $token->[2],
+                     'force_register' => 1,};
+         if ($target eq 'web') {
+             $args->{'print_suppress'} = 1;
+             if ($env{'request.use_absolute'}) {
+                 $args->{'use_absolute'} = $env{'request.use_absolute'};
+             }
+         }
  	$currentstring =
  	    &Apache::loncommon::start_page($Apache::londefdef::title,
  					   $Apache::londefdef::head
- 					      .$extra_head,
+ 					      .$extra_head,$args);
- 					   {'add_entries'    => $token->[2],
- #					    'no_title'       => 1,
- 					    'force_register' => 1});
          my $header = '';
          if ($env{'request.state'} ne 'published' &&
              $env{'request.state'} ne 'construct') {
              $header=&Apache::lonmenu::constspaceform();
          }
          if ($env{'request.state'} ne 'published') {
-             $header.=&edit_controls();
+             unless ($env{'form.inhibitmenu'} eq 'yes') {
+                 $header.=&edit_controls();
+             }
          }
          if ($env{'request.state'} eq 'construct') {
-             $currentstring.=&Apache::loncommon::head_subbox(
+             unless ($env{'form.inhibitmenu'} eq 'yes') {
-                                 &Apache::loncommon::CSTR_pageheader()
+                 $currentstring.=&Apache::loncommon::head_subbox(
-                                .$header);
+                                     &Apache::loncommon::CSTR_pageheader()
+                                    .$header);
+             }
          } elsif ($env{'request.state'} eq 'edit') {
              $currentstring.=&Apache::loncommon::head_subbox($header);
          }
- Line 633  sub edit_controls {
+ Line 641  sub edit_controls {
      if (($env{'request.course.id'}) && ($env{'form.forceedit'})) {
          my $url=&Apache::lonnet::hreflocation('',$env{'request.filename'});
          if ($url =~ /\.html?$/i) {
+             my ($cdom,$cnum);
              if ($env{'request.course.id'}) {
+                 $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+                 $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
                  if ($env{'request.filename'} =~ m{/userfiles/supplemental/default|\d+/}) {
                      if (&Apache::lonnet::is_course_upload($env{'request.filename'},
-                         $env{'course.'.$env{'request.course.id'}.'.num'},
+                                                           $cnum,$cdom)) {
-                         $env{'course.'.$env{'request.course.id'}.'.domain'})) {
                          &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                                                  ['folderpath','title']);
                      }
                  }
              }
-             my ($symb,$itemtitle,$displayfile) =
+             my ($symb,$itemtitle,$displayfile,$caller);
-                 &Apache::lonxml::get_courseupload_hierarchy($url,
+             if ($url =~ m{^/uploaded/$cdom/$cnum/portfolio/syllabus/}) {
-                                                             $env{'form.folderpath'},
+                 $itemtitle = &mt('Syllabus');
-                                                             $env{'form.title'});
+                 $caller = "/public/$cdom/$cnum/syllabus";
-             if (($symb ne '') || ($env{'httpref.'.$url} ne '')) {
+             } else {
+                 $caller = $url;
+                 ($symb,$itemtitle,$displayfile) =
+                     &Apache::lonxml::get_courseupload_hierarchy($url,
+                                                                 $env{'form.folderpath'},
+                                                                 $env{'form.title'});
+             }
+             if (($symb ne '') || ($env{'httpref.'.$url} ne '') ||
+                 ($url =~ m{^/uploaded/$cdom/$cnum/portfolio/syllabus/})) {
                    $result .= ('&nbsp;' x 3).
                               &Apache::lonhtmlcommon::dependencies_button()."\n".
                               &Apache::lonhtmlcommon::dependencycheck_js($symb,
-                                  $itemtitle,$url,$env{'form.folderpath'},$url)."\n";
+                                  $itemtitle,$url,$env{'form.folderpath'},$caller)."\n";
              }
          }
      }
- Line 1714  sub start_a {
+ Line 1732  sub start_a {
                      if (!&Apache::lonnet::allowed('bre',$linkurl)) {
                          if (&Apache::lonnet::is_on_map($url)) {
                              &Apache::lonxml::extlink($linkurl);
+                         } elsif ($env{'request.course.id'}) {
+                             my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+                             my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
+                             if ($linkurl =~ m{^([^/]|/uploaded/$cdom/$cnum/(docs|supplemental)/)}) {
+                                 my $cleanhref = &clean_docs_httpref($linkurl,$url,$cdom,$cnum);
+                                 if ($cleanhref) {
+                                     &Apache::lonxml::extlink($cleanhref);
+                                 }
+                             }
                          }
                      }
                  }
- Line 2036  sub end_dt {
+ Line 2063  sub end_dt {
  sub item_cleanup {
      my $item=&Apache::lonxml::endredirection();
-     $item=~s/\\begin{center}//g;
+     $item=~s/\\begin\{center}//g;
-     $item=~s/\\end{center}//g;
+     $item=~s/\\end\{center}//g;
      return $item;
  }
- Line 2726  sub start_img {
+ Line 2753  sub start_img {
  	my $inside = &Apache::lonxml::get_all_text("/img",$parser,$style);
  	return '';
      }
-     &Apache::lonxml::extlink($src);
+     unless ($src =~ m{^data\:image/gif;base64,}) {
+         &Apache::lonxml::extlink($src);
+     }
      my $currentstring = '';
      my $scaling = .3;
- Line 2736  sub start_img {
+ Line 2765  sub start_img {
          my $enc = ('yes' eq
                     lc(&Apache::lonxml::get_param('encrypturl',$parstack,
                        $safeeval)));
-         $currentstring.=&Apache::lonenc::encrypt_ref($token,{'src'=>$src},
+         unless ($src =~ m{^data\:image/gif;base64,}) {
-                          $enc);
+             $currentstring.=&Apache::lonenc::encrypt_ref($token,{'src'=>$src},
+                             $enc);
+         }
      # and render unto TeX that which is LaTeX
      } elsif ($target eq 'tex') {
- Line 2780  sub start_img {
+ Line 2811  sub start_img {
  	# &Apache::lonxml::debug("LaTeX rendering = $latex_rendering image file: $src");
- 	#if original bmp/gif/jpg/png file exist do following:
+ 	#if original bmp/gif/jpg/png/svg file exist do following:
  	my $origsrc=$src;
  	my ($path,$file) = &get_eps_image($src);
  	# &Apache::lonnet::logthis("Image source: $src result: $path $file");
- Line 3419  sub start_caption {
+ Line 3450  sub start_caption {
      my $currentstring = '';
      if ($target eq 'web' || $target eq 'webgrade') {
  	$currentstring = $token->[4];
      }
      return $currentstring;
  }
- Line 3427  sub end_caption {
+ Line 3458  sub end_caption {
      my ($target,$token) = @_;
      my $currentstring = '';
      if ($target eq 'web' || $target eq 'webgrade') {
  	$currentstring = $token->[2];
      }
      return $currentstring;
  }
- Line 3560  sub start_iframe {
+ Line 3591  sub start_iframe {
      my ($target,$token) = @_;
      my $currentstring = '';
      if ($target eq 'web' || $target eq 'webgrade') {
- 	$currentstring = $token->[4];
+         my ($src,$url,$query);
-     }
+         if ($token->[2]->{'src'}) {
+             $src = $token->[2]->{'src'};
+         } elsif ($token->[2]->{'SRC'}) {
+             $src = $token->[2]->{'SRC'};
+         }
+         if ($src) {
+             ($url,$query) = ($src =~ /^([^?]+)\??([^?]*)$/);
+             if ($query =~ /inhibitmenu=yes/) {
+                 $currentstring = $token->[4];
+             } else {
+                 my $inhibit;
+                 if ($url =~ m{^[^/.].*\.x?html?$}) {
+                     $inhibit = 1;
+                 } elsif ($url =~ m{^/(uploaded|res)/.*\.x?html?$}) {
+                     $inhibit = 1;
+                 }
+                 if ($inhibit) {
+                     $currentstring = '<iframe ';
+                     foreach my $attrib (@{$token->[3]}) {
+                         if (lc($attrib) eq 'src') {
+                             if ($query) {
+                                 $query.='&amp;inhibitmenu=yes';
+                             } else {
+                                 $query = 'inhibitmenu=yes';
+                             }
+                             $currentstring .= 'src="'.$url.'?'.$query.'" ';
+                         } else {
+                             $currentstring .= lc($attrib).'="'.$token->[2]->{$attrib}.'" ';
+                         }
+                     }
+                     $currentstring =~ s/\s+$//;
+                     if ($token->[4] =~ m{/>$}) {
+                         $currentstring .= ' />';
+                     } else {
+                         $currentstring .= '>';
+                     }
+                 } else {
+                     $currentstring = $token->[4];
+                 }
+             }
+             if (($url !~ m{^https?://}) && ($env{'request.course.id'})) {
+                 my $docuri = &Apache::lonnet::hreflocation('',$env{'request.filename'});
+                 my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+                 my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
+                 if ($url =~ m{^([^/]|/uploaded/)}) {
+                     my $cleanhref = &clean_docs_httpref($url,$docuri,$cdom,$cnum);
+                     if ($cleanhref) {
+                         &Apache::lonxml::extlink($cleanhref);
+                     }
+                 } elsif (($url =~ m{/res/$LONCAPA::domain_re/}) && ($docuri =~ m{^\Q/uploaded/$cdom/$cnum/docs/\E})) {
+                     if (!&Apache::lonnet::allowed('bre',$url)) {
+                         if (&Apache::lonnet::is_on_map($url)) {
+                             &Apache::lonxml::extlink($url);
+                         }
+                     }
+                 }
+             }
+         } else {
+             $currentstring = $token->[4];
+         }
+     }
      return $currentstring;
  }
- Line 4234  sub get_eps_image {
+ Line 4325  sub get_eps_image {
  	&Apache::lonnet::repcopy($orig_src); # Failure is not completely fatal.
      }
      &Apache::lonxml::debug("get_eps_image: Original image: $orig_src");
-     my ($spath, $sname, $sext) = &fileparse($src, qr/\.(bmp|gif|png|jpg|jpeg)/i);
+     my ($spath, $sname, $sext) = &fileparse($src, qr/\.(bmp|gif|png|jpg|jpeg|svg)/i);
-     $src=~s/\.(bmp|gif|png|jpg|jpeg)$/\.eps/i;
+     $src=~s/\.(bmp|gif|png|jpg|jpeg|svg)$/\.eps/i;
      $src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);
      &Apache::lonxml::debug("Filelocation gives: $src");
      if (! -e $src) {
- Line 4349  sub LATEX_length {
+ Line 4440  sub LATEX_length {
      $garbage=~s/^\s+(\S.*)/$1/;#space before
      $garbage=~s/(.*\S)\s+$/$1/;#space after
      $garbage=~s/(\s)+/$1/;#only one space
-     $garbage=~s/(\\begin{([^\}]+)}|\\end{([^\}]+)})//g;#remove LaTeX \begin{...} and \end{...}
+     $garbage=~s/(\\begin\{([^\}]+)}|\\end\{([^\}]+)})//g;#remove LaTeX \begin{...} and \end{...}
-     $garbage=~s/(\$\_\{|\$\_|\$\^{|\$\^|\}\$)//g;#remove $_{,$_,$^{,$^,}$
+     $garbage=~s/(\$\_\{|\$\_|\$\^\{|\$\^|\}\$)//g;#remove $_{,$_,$^{,$^,}$
      $garbage=~s/([^\\])\$/$1/g;#$
-     $garbage=~s/(\\ensuremath\{\_\{|\\ensuremath\{\_|\\ensuremath\{\^{|\\ensuremath\{\^|\})//g;#remove \ensuremath{...}
+     $garbage=~s/(\\ensuremath\{\_\{|\\ensuremath\{\_|\\ensuremath\{\^\{|\\ensuremath\{\^|\})//g;#remove \ensuremath{...}
     $garbage=~s/(\\alpha|\\beta|\\gamma|\\delta|\\epsilon|\\verepsilon|\\zeta|\\eta|\\theta|\\vartheta|\\iota|\\kappa|\\lambda|\\mu|\\nu|\\xi|\\pi|\\varpi|\\rho|\\varrho|\\sigma|\\varsigma|\\tau|\\upsilon|\\phi|\\varphi|\\chi|\\psi|\\omega|\\Gamma|\\Delta|\\Theta|\\Lambda|\\Xi|\\Pi|\\Sigma|\\Upsilon|\\Phi|\\Psi|\\Omega)/1/g;
      $garbage=~s/(\\pm|\\mp|\\times|\\div|\\cdot|\\ast|\\star|\\dagger|\\ddagger|\\amalg|\\cap|\\cup|\\uplus|\\sqcap|\\sqcup|\\vee|\\wedge|\\oplus|\\ominus|\\otimes|\\circ|\\bullet|\\diamond|\\lhd|\\rhd|\\unlhd|\\unrhd|\\oslash|\\odot|\\bigcirc|\\Box|\\Diamond|\\bigtriangleup|\\bigtriangledown|\\triangleleft|\\triangleright|\\setminus|\\wr)/1/g;
      $garbage=~s/(\\le|\\ll|\\leq|\\ge|\\geq|\\gg|\\neq|\\doreq|\\sim|\\simeq|\\subset|\\subseteq|\\sqsubset|\\sqsubseteq|\\in|\\vdash|\\models|\\supset|\\supseteq|\\sqsupset|\\sqsupseteq|\\ni|\\dash|\\perp|\\approx|\\cong|\\equiv|\\propto|\\prec|\\preceq|\\parallel|\\asymp|\\smile|\\frown|\\bowtie|\\succ|\\succeq|\\mid)/1/g;
      $garbage=~s/(\\not<|\\\\not\\le|\\not\\prec|\\not\\preceq|\\not\\subset|\\not\\subseteq|\\not\\sqsubseteq|\\not\\in|\\not>|\\not\\ge|\\not\\succ|\\notsucceq|\\not\\supset|\\notsupseteq|\\not\\sqsupseteq|\\notin|\\not=|\\not\\equiv|\\not\\sim|\\not\\simeq|\\not\\approx|\\not\\cong|\\not\\asymp)/1/g;
      $garbage=~s/(\\leftarrow|\\gets|\\Leftarrow|\\rightarrow|\\to|\\Rightarrow|\\leftrightarrow|\\Leftrightarrow|\\mapsto|\\hookleftarrow|\\leftharpoonup|\\leftkarpoondown|\\rightleftharpoons|\\longleftarrow|\\Longleftarrow|\\longrightarrow|\\Longrightarrow|\\longleftrightarrow|\\Longleftrightarrow|\\longmapsto|\\hookrightarrow|\\rightharpoonup|\\rightharpoondown|\\uparrow|\\Uparrow|\\downarrow|\\Downarrow|\\updownarrow|\\Updownarrow|\\nearrow|\\searrow|\\swarrow|\\nwarrow)/11/g;
      $garbage=~s/(\\aleph|\\hbar|\\imath|\\jmath|\\ell|\\wp|\\Re|\\Im|\\mho|\\prime|\\emptyset|\\nabla|\\surd|\\partial|\\top|\\bot|\\vdash|\\dashv|\\forall|\\exists|\\neg|\\flat|\\natural|\\sharp|\\\||\\angle|\\backslash|\\Box|\\Diamond|\\triangle|\\clubsuit|\\diamondsuit|\\heartsuit|\\spadesuit|\\Join|\\infty)/11/g;
-     $garbage=~s/(\\hat{([^}]+)}|\\check{([^}]+)}|\\dot{([^}]+)}|\\breve{([^}]+)}|\\acute{([^}]+)}|\\ddot{([^}]+)}|\\grave{([^}]+)}|\\tilde{([^}]+)}|\\mathring{([^}]+)}|\\bar{([^}]+)}|\\vec{([^}]+)})/$1/g;
+     $garbage=~s/(\\hat\{([^}]+)}|\\check\{([^}]+)}|\\dot\{([^}]+)}|\\breve\{([^}]+)}|\\acute\{([^}]+)}|\\ddot\{([^}]+)}|\\grave\{([^}]+)}|\\tilde\{([^}]+)}|\\mathring\{([^}]+)}|\\bar\{([^}]+)}|\\vec\{([^}]+)})/$1/g;
      #remove some other LaTeX command
      $garbage=~s|\\(\w+)\\|\\|g;
      $garbage=~s|\\(\w+)(\s*)|$2|g;
- Line 4509  sub latex_header {
+ Line 4600  sub latex_header {
  }
+ sub clean_docs_httpref {
+     my ($href,$docuri,$cdom,$cnum) = @_;
+     if ($docuri eq '') {
+         $docuri = &Apache::lonnet::hreflocation('',$env{'request.filename'});
+     }
+     if ($cdom eq '') {
+         $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+     }
+     if ($cnum eq '') {
+         $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
+     }
+     my $cleanhref;
+     if ($docuri =~ m{^(\Q/uploaded/$cdom/$cnum/\E(?:docs|supplemental)/)(.+/)[^/]+$}) {
+         my $prefix = $1;
+         my $relpath = $2;
+         my ($hrefpath,$fname);
+         if ($href =~ m{^/}) {
+             if ($href =~ m{^\Q$prefix\E(.+/)([^/]+)$}) {
+                 $hrefpath = $1;
+                 $fname = $2;
+             } else {
+                 return $cleanhref;
+             }
+         } else {
+             if ($href =~ m{/}) {
+                 (my $path,$fname) = ($href =~ m{^(.*)/([^/]*)$});
+                 $hrefpath = $relpath.$path;
+                 if ($path eq '') {
+                     $hrefpath =~ s{/$}{};
+                 }
+             } else {
+                 $fname = $href;
+                 $hrefpath = $relpath;
+                 $hrefpath =~ s{/$}{};
+             }
+         }
+         if ($fname ne '') {
+             my $cleanrelpath;
+             foreach my $dir (split(/\//,$hrefpath)) {
+                 next if ($dir eq '.');
+                 if ($dir eq '..') {
+                     $cleanrelpath =~ s{([^/]+/)$}{};
+                 } else {
+                     $cleanrelpath .= $dir.'/';
+                 }
+             }
+             if ($cleanrelpath ne '') {
+                 $cleanhref = $prefix.$cleanrelpath.$fname;
+             } else {
+                 $cleanhref = $prefix.$fname;
+             }
+         }
+     }
+     return $cleanhref;
+ }
  =pod
  =head1 NAME
- Line 4603  described at http://www.lon-capa.org.
+ Line 4750  described at http://www.lon-capa.org.
       	   I'm in a table....
       	}
+ =item clean_docs_httpref($href,$docuri,$cdom,$cnum)
+         HTML pages uploaded to a course which contain dependencies either from iframes,
+         javascript files or objects (FlashPlayerSwf, MediaSrc, XMPSrc, ConfigurationSrc,
+         and PosterImageSrc) for which dependency is another file uploaded to the same
+         course.
+         Required input:
+         href - dependency (either a relative URL, or an absolute URL)
+         Optional inputs:
+         docuri - URL of HTML page containing the dependency
+         cdom - Course domain
+         cnum - CourseID
+         Output:
+         returns an absolute URL constructed from the href provided, and the calling context.
+         (this will be null, if the URL does not begin: /uploaded/$cdom/$cnum/docs/ or
+         /uploaded/$cdom/$cnum/supplemental/).
  =back

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

Removed from v.1.442
changed lines
	Added in v.1.456.2.1