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

Diff for /loncom/interface/lonextresedit.pm between versions 1.5 and 1.7

version 1.5, 2013/02/13 04:41:35 version 1.7, 2014/01/06 12:52:45
Line 59  sub handler { Line 59  sub handler {
     my ($supplementalflag,$updated,$output,$errormsg,$residx,$url,$title,$symb);      my ($supplementalflag,$updated,$output,$errormsg,$residx,$url,$title,$symb);
     if (($env{'form.folderpath'} =~ /^supplemental/) && ($env{'form.suppurl'})) {      if (($env{'form.folderpath'} =~ /^supplemental/) && ($env{'form.suppurl'})) {
         $supplementalflag = 1;          $supplementalflag = 1;
     }       }
     if (($supplementalflag) || ($env{'form.symb'} =~ /^uploaded/)) {      if (($supplementalflag) || ($env{'form.symb'} =~ /^uploaded/)) {
         ($updated,$output,$errormsg,$residx,$url,$title,$symb) =           ($updated,$output,$errormsg,$residx,$url,$title,$symb) =
             &process_changes($supplementalflag,$cdom,$cnum,$chome);              &process_changes($supplementalflag,$cdom,$cnum,$chome);
         if ($supplementalflag) {          if ($supplementalflag) {
             if ($url ne $env{'form.suppurl'}) {              if ($url ne $env{'form.suppurl'}) {
Line 308  sub display_editor { Line 308  sub display_editor {
         (my $map,$residx,my $res) =          (my $map,$residx,my $res) =
             &Apache::lonnet::decode_symb($symb);              &Apache::lonnet::decode_symb($symb);
         $title = &Apache::lonnet::gettitle($symb);          $title = &Apache::lonnet::gettitle($symb);
         my $path = &Apache::lonnet::getdocspath($symb);          my $path = &Apache::loncommon::symb_to_docspath($symb);
         $pathitem = '<input type="hidden" name="folderpath" value="'.&HTML::Entities::encode($path,'<>&"').'" />';          $pathitem = '<input type="hidden" name="folderpath" value="'.&HTML::Entities::encode($path,'<>&"').'" />';
     }      }
     my $js = &Apache::lonhtmlcommon::scripttag(&extedit_javascript());      my $js = &Apache::lonhtmlcommon::scripttag(&extedit_javascript());
Line 346  function setExternal(extform,residx) { Line 346  function setExternal(extform,residx) {
     }      }
     if (regexp.test(url)) {      if (regexp.test(url)) {
         url = escape(url);          url = escape(url);
           title = escape(title);
         if (residx > 0) {          if (residx > 0) {
             eval("extform.importdetail.value=title+'='+url+'='+residx;extform.submit();");              eval("extform.importdetail.value=title+'='+url+'='+residx;extform.submit();");
         } else {          } else {
Removed from v.1.5  
changed lines
  Added in v.1.7

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