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

Diff for /loncom/xml/lonxml.pm between versions 1.534 and 1.539

version 1.534, 2012/11/29 20:47:11 version 1.539, 2013/05/05 00:10:16
Line 1536  sub inserteditinfo { Line 1536  sub inserteditinfo {
 </script>  </script>
 FULLPAGE  FULLPAGE
       if ($filetype eq 'html') {        if ($filetype eq 'html') {
           if ($symb || $folderpath) {            my $context;
               $deps_button = &Apache::lonhtmlcommon::dependencies_button()."\n";            if ($env{'request.course.id'}) {
               $initialize .=                 my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                   &Apache::lonhtmlcommon::dependencycheck_js($symb,$itemtitle,                my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
                                                              undef,$folderpath,$uri)."\n";                if ($uri =~ m{^\Q/uploaded/$cdom/$cnum/portfolio/syllabus/\E}) {
                     $context = 'syllabus';
                     $deps_button = &Apache::lonhtmlcommon::dependencies_button()."\n";
                     $initialize .=
                         &Apache::lonhtmlcommon::dependencycheck_js(undef,&mt('Syllabus'),
                                                                    $uri,undef,
                                                                    "/public/$cdom/$cnum/syllabus").
                         "\n";
                 }
             }
             unless ($context eq 'syllabus') {
                 if ($symb || $folderpath) {
                     $deps_button = &Apache::lonhtmlcommon::dependencies_button()."\n";
                     $initialize .= 
                         &Apache::lonhtmlcommon::dependencycheck_js($symb,$itemtitle,
                                                                    undef,$folderpath,$uri)."\n";
                 }
           }            }
           $dragmath_button = '<span id="math_filecont">'.&Apache::lonhtmlcommon::dragmath_button('filecont',1).'</span>';            $dragmath_button = '<span id="math_filecont">'.&Apache::lonhtmlcommon::dragmath_button('filecont',1).'</span>';
           $initialize .= "\n".&Apache::lonhtmlcommon::dragmath_js('EditMathPopup');            $initialize .= "\n".&Apache::lonhtmlcommon::dragmath_js('EditMathPopup');
Line 1670  sub handler { Line 1686  sub handler {
     } else {      } else {
  $filetype='html';   $filetype='html';
     }      }
       unless ($env{'request.uri'}) {
           $env{'request.uri'}=$request->uri;
           &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                                   ['todocs']);
       }
     if ($filetype eq 'sty') {      if ($filetype eq 'sty') {
         $breadcrumbtext = 'Style File Editor';          $breadcrumbtext = 'Style File Editor';
     } elsif ($filetype eq 'js') {      } elsif ($filetype eq 'js') {
Line 1801  ENDNOTFOUND Line 1822  ENDNOTFOUND
                 if ($env{'request.course.id'}) {                  if ($env{'request.course.id'}) {
                     my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};                      my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                     my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};                      my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
                     if ($request->uri =~ m{^\Q/uploaded/$cdom/$cnum/\Esupplemental/}) {                      if ($request->uri =~ m{^\Q/uploaded/$cdom/$cnum/supplemental/\E}) {
                         &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},                          &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                                                 ['folderpath','title']);                                                                  ['folderpath','title']);
                       } elsif ($request->uri =~ m{^\Q/uploaded/$cdom/$cnum/portfolio/syllabus/\E(.+)$}) {
                           $displayfile = &mt('Syllabus file: [_1]',$1);
                           $itemtitle = &mt('Syllabus');
                     }                      }
                 }                  }
                 ($symb,$itemtitle,$displayfile) =                   unless ($itemtitle) {
                     &get_courseupload_hierarchy($request->uri,                      ($symb,$itemtitle,$displayfile) = 
                                                 $env{'form.folderpath'},$env{'form.title'});                          &get_courseupload_hierarchy($request->uri,
                                                       $env{'form.folderpath'},
                                                       $env{'form.title'});
                   }
             } else {              } else {
         $displayfile=~s/^\/[^\/]*//;          $displayfile=~s/^\/[^\/]*//;
             }              }
Line 1875  sub get_courseupload_hierarchy { Line 1902  sub get_courseupload_hierarchy {
             while (@folders) {              while (@folders) {
                 my $folder=shift(@folders);                  my $folder=shift(@folders);
                 my $foldername=shift(@folders);                  my $foldername=shift(@folders);
                   $foldername =~ s/\:(\d*)\:(\w*)\:(\w*):(\d*)\:?(\d*)$//;
                 push(@pathitems,&unescape($foldername));                  push(@pathitems,&unescape($foldername));
             }              }
             if ($title) {              if ($title) {
Line 2050  sub add_messages { Line 2078  sub add_messages {
 }  }
   
 sub get_param {  sub get_param {
     my ($param,$parstack,$safeeval,$context,$case_insensitive) = @_;      my ($param,$parstack,$safeeval,$context,$case_insensitive, $noelide) = @_;
   
     if ( ! $context ) { $context = -1; }      if ( ! $context ) { $context = -1; }
     my $args ='';      my $args ='';
     if ( $#$parstack > (-2-$context) ) { $args=$$parstack[$context]; }      if ( $#$parstack > (-2-$context) ) { $args=$$parstack[$context]; }
     if ( ! $Apache::lonxml::usestyle ) {      if ( ! $Apache::lonxml::usestyle ) {
  $args=$Apache::lonxml::style_values.$args;   $args=$Apache::lonxml::style_values.$args;
     }      }
   
   
       if ($noelide) {
   # $args =~ s/\\'/'/g;
    $args =~ s/'\$/'\\\$/g;
       }
   
     if ( ! $args ) { return undef; }      if ( ! $args ) { return undef; }
     if ( $case_insensitive ) {      if ( $case_insensitive ) {
  if ($args =~ s/(my (?:.*))(\$\Q$param\E[,\)])/$1.lc($2)/ei) {   if ($args =~ s/(my (?:.*))(\$\Q$param\E[,\)])/$1.lc($2)/ei) {
   
     return &Apache::run::run("{$args;".'return $'.$param.'}',      return &Apache::run::run("{$args;".'return $'.$param.'}',
                                      $safeeval); #'                                       $safeeval); #'
  } else {   } else {
Line 2067  sub get_param { Line 2104  sub get_param {
  }   }
     } else {      } else {
  if ( $args =~ /my .*\$\Q$param\E[,\)]/ ) {   if ( $args =~ /my .*\$\Q$param\E[,\)]/ ) {
       
     return &Apache::run::run("{$args;".'return $'.$param.'}',      return &Apache::run::run("{$args;".'return $'.$param.'}',
                                      $safeeval); #'                                       $safeeval); #'
  } else {   } else {
Removed from v.1.534  
changed lines
  Added in v.1.539

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