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

Diff for /loncom/interface/lonextresedit.pm between versions 1.17 and 1.18

version 1.17, 2017/05/06 15:47:48 version 1.18, 2017/05/08 14:20:20
Line 60  sub handler { Line 60  sub handler {
         $symb,$type);          $symb,$type);
     if (($env{'form.folderpath'} =~ /^supplemental/) && ($env{'form.suppurl'})) {      if (($env{'form.folderpath'} =~ /^supplemental/) && ($env{'form.suppurl'})) {
         $supplementalflag = 1;          $supplementalflag = 1;
         if (&unescape($env{'form.suppurl'}) =~ m{^/adm/$cdom/$cnum/\d+/exttools?$}) {          if (&unescape($env{'form.suppurl'}) =~ m{^/adm/$cdom/$cnum/\d+/ext\.tool$}) {
             $type = 'tool';              $type = 'tool';
         }          }
     }      }
Line 79  sub handler { Line 79  sub handler {
             if ($symb ne $env{'form.symb'}) {              if ($symb ne $env{'form.symb'}) {
                 $env{'form.symb'} = $symb;                  $env{'form.symb'} = $symb;
             }              }
             if ($url =~ m{/adm/$cdom/$cnum/\d+/exttools?$}) {              if ($url =~ m{/adm/$cdom/$cnum/\d+/ext\.tool$}) {
                 $type = 'tool';                  $type = 'tool';
             }              }
         }          }
Line 146  sub process_changes { Line 146  sub process_changes {
         $oldtitle = &unescape($env{'form.title'});          $oldtitle = &unescape($env{'form.title'});
         $container = 'sequence';          $container = 'sequence';
         $supplementalflag = 1;          $supplementalflag = 1;
         if ($oldurl =~ m{^/adm/$cdom/$cnum/\d+/exttools?$}) {          if ($oldurl =~ m{^/adm/$cdom/$cnum/\d+/ext\.tool$}) {
             $type = 'tool';              $type = 'tool';
         } else {          } else {
             $type = 'ext';              $type = 'ext';
Line 157  sub process_changes { Line 157  sub process_changes {
     if ($env{'form.importdetail'}) {      if ($env{'form.importdetail'}) {
         ($newtitle,$newurl,$newidx) =          ($newtitle,$newurl,$newidx) =
             map {&unescape($_)} split(/\=/,$env{'form.importdetail'});              map {&unescape($_)} split(/\=/,$env{'form.importdetail'});
         if ($newurl =~ m{^(/adm/$cdom/$cnum/(\d+)/exttools?)\:?(.*)$}) {          if ($newurl =~ m{^(/adm/$cdom/$cnum/(\d+)/ext\.tool)\:?(.*)$}) {
             $newurl = $1;              $newurl = $1;
             $marker = $2;              $marker = $2;
             $args = $3;              $args = $3;
Line 418  sub extedit_form { Line 418  sub extedit_form {
         } else {          } else {
             $orig_title = $lt{'et'};              $orig_title = $lt{'et'};
             $save = $lt{'at'};              $save = $lt{'at'};
             $orig_url = "/adm/$cdom/$cnum/new/exttool";               $orig_url = "/adm/$cdom/$cnum/new/ext\.tool"; 
         }          }
         $pathitem .= '<br />';          $pathitem .= '<br />';
     }      }
Line 429  sub extedit_form { Line 429  sub extedit_form {
         my $class = 'LC_nobreak';          my $class = 'LC_nobreak';
         if ($residx) {          if ($residx) {
             $class = 'LC_docs_ext_edit LC_nobreak';               $class = 'LC_docs_ext_edit LC_nobreak'; 
             if ($orig_url =~ m{^/adm/$cdom/$cnum/(\d+)/exttools?$}) {              if ($orig_url =~ m{^/adm/$cdom/$cnum/(\d+)/ext\.tool$}) {
                 my $marker = $1;                  my $marker = $1;
                 my %toolhash=&Apache::lonnet::dump('exttool_'.$marker,$cdom,$cnum);                  my %toolhash=&Apache::lonnet::dump('exttool_'.$marker,$cdom,$cnum);
                 if ($toolhash{'id'}) {                  if ($toolhash{'id'}) {
Removed from v.1.17  
changed lines
  Added in v.1.18

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