--- loncom/interface/lonextresedit.pm 2012/12/03 14:47:30 1.4 +++ loncom/interface/lonextresedit.pm 2015/06/09 21:22:56 1.8 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: lonextresedit.pm,v 1.4 2012/12/03 14:47:30 raeburn Exp $ +# $Id: lonextresedit.pm,v 1.8 2015/06/09 21:22:56 damieng Exp $ # # Copyright Michigan State University Board of Trustees # @@ -57,10 +57,11 @@ sub handler { my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; my $chome = $env{'course.'.$env{'request.course.id'}.'.home'}; my ($supplementalflag,$updated,$output,$errormsg,$residx,$url,$title,$symb); - if ((($env{'form.folderpath'} =~ /^supplemental/) && ($env{'form.suppurl'})) || - ($env{'form.symb'} =~ /^uploaded/)) { - $supplementalflag = 1; - ($updated,$output,$errormsg,$residx,$url,$title,$symb) = + if (($env{'form.folderpath'} =~ /^supplemental/) && ($env{'form.suppurl'})) { + $supplementalflag = 1; + } + if (($supplementalflag) || ($env{'form.symb'} =~ /^uploaded/)) { + ($updated,$output,$errormsg,$residx,$url,$title,$symb) = &process_changes($supplementalflag,$cdom,$cnum,$chome); if ($supplementalflag) { if ($url ne $env{'form.suppurl'}) { @@ -69,6 +70,7 @@ sub handler { if ($title ne $env{'form.title'}) { $env{'form.title'} = $title; } + $env{'form.idx'} = $residx; } else { if ($symb ne $env{'form.symb'}) { $env{'form.symb'} = $symb; @@ -99,20 +101,14 @@ sub handler { sub process_changes { my ($supplementalflag,$cdom,$cnum,$chome) = @_; my ($folder,$container,$output,$errormsg,$updated,$symb,$oldidx,$oldurl, - $oldtitle,$residx,$newurl,$newtitle); + $oldtitle,$newidx,$newurl,$newtitle,$residx,$url,$title); if ($env{'form.symb'}) { $symb = $env{'form.symb'}; - (my $map,$oldidx,my $url)=&Apache::lonnet::decode_symb($symb); + (my $map,$oldidx,$oldurl)=&Apache::lonnet::decode_symb($symb); if ($map =~ m{^uploaded/$cdom/$cnum/(default(_\d+|))\.(sequence|page)$}) { $folder = $1; $container = $3; } - if ($url =~ m{^ext/(.+)$}) { - $oldurl = $1; - if ($oldurl !~ m{^https://}) { - $oldurl = 'http://'.$oldurl; - } - } $oldtitle = &Apache::lonnet::gettitle($env{'form.symb'}); } elsif ($env{'form.folderpath'}) { $folder = &unescape( (split('&',$env{'form.folderpath'}))[-2] ); @@ -121,18 +117,33 @@ sub process_changes { $container = 'sequence'; $supplementalflag = 1; } + if ($oldurl =~ m{^ext/(.+)$}) { + my $external = $1; + if ($external =~ m{^https://}) { + $oldurl = $external; + } else { + $oldurl = 'http://'.$oldurl; + } + } + $url = $oldurl; + $title = $oldtitle; + if ($env{'form.importdetail'}) { + ($newtitle,$newurl,$newidx) = + map {&unescape($_)} split(/\=/,$env{'form.importdetail'}); + } + if ($supplementalflag) { + $residx = $newidx; + } else { + $residx = $oldidx; + } if ($folder && $container) { if ($env{'form.importdetail'}) { - my ($errtext,$fatal,$mismatchedid); - ($newtitle,$newurl, $residx) = - map {&unescape($_)} split(/\=/,$env{'form.importdetail'}); - if (!$supplementalflag && $oldidx) { - if ($oldidx != $residx) { - $mismatchedid = 1; - $residx = $oldidx; - } + my ($errtext,$fatal,$mismatchedid,@imports); + if (!$supplementalflag) { + if (($oldidx) && ($oldidx != $newidx)) { + $mismatchedid = 1; + } } - my @imports; if ($mismatchedid) { $errormsg = 'Wrong item identifier'; } elsif (($newtitle eq $oldtitle) && ($newurl eq $oldurl)) { @@ -152,9 +163,15 @@ sub process_changes { $errormsg = &mt('Update failed: [_1].',$errtext); } else { $updated = 1; + $title = $newtitle; + if ($newurl ne $oldurl) { + $url = $newurl; + $newurl =~ s{^http://}{}; + $newurl = "ext/$newurl"; + } if (!$supplementalflag) { if ($newurl ne $oldurl) { - $symb = &Apache::lonnet::encode_symb($map,$residx,"ext/$newurl"); + $symb = &Apache::lonnet::encode_symb($map,$residx,$newurl); } else { $symb = $env{'form.symb'}; if ($symb) { @@ -162,12 +179,14 @@ sub process_changes { } } } - my ($furl,$ferr) = &Apache::lonuserstate::readmap("$cdom/$cnum"); + my ($furl,$ferr) = + &Apache::lonuserstate::readmap("$cdom/$cnum"); if ($ferr) { $errormsg = &mt('Reload failed: [_1].',$ferr); } else { - &Apache::loncommon::update_content_constraints($cdom,$cnum,$chome, - $cdom.'_'.$cnum); + unless ($supplementalflag) { + &Apache::loncommon::update_content_constraints($cdom,$cnum,$chome,$cdom.'_'.$cnum); + } } } } @@ -178,11 +197,7 @@ sub process_changes { } else { $errormsg = &mt('Information about current external resource is incomplete.'); } - if ($updated) { - return ($updated,$output,$errormsg,$residx,$newurl,$newtitle,$symb); - } else { - return ($updated,$output,$errormsg,$residx,$oldurl,$oldtitle,$symb); - } + return ($updated,$output,$errormsg,$residx,$url,$title,$symb); } sub extedit_form { @@ -293,7 +308,7 @@ sub display_editor { (my $map,$residx,my $res) = &Apache::lonnet::decode_symb($symb); $title = &Apache::lonnet::gettitle($symb); - my $path = &Apache::lonnet::getdocspath($symb); + my $path = &Apache::loncommon::symb_to_docspath($symb); $pathitem = ''; } my $js = &Apache::lonhtmlcommon::scripttag(&extedit_javascript()); @@ -306,10 +321,11 @@ sub display_editor { } sub extedit_javascript { - my %lt = &Apache::lonlocal::texthash( + my %js_lt = &Apache::lonlocal::texthash( invurl => 'Invalid URL', titbl => 'Title is blank', ); + &js_escape(\%js_lt); my $urlregexp = <<'ENDREGEXP'; /^([a-z]([a-z]|\d|\+|-|\.)*):(\/\/(((([a-z]|\d|-|\.|_|~|[\u00A0-\uD7FF\uF900-\uFDCF\uFDF0-\uFFEF])|(%[\da-f]{2})|[!\$&'\(\)\*\+,;=]|:)*@)?((\[(|(v[\da-f]{1,}\.(([a-z]|\d|-|\.|_|~)|[!\$&'\(\)\*\+,;=]|:)+))\])|((\d|[1-9]\d|1\d\d|2[0-4]\d|25[0-5])\.(\d|[1-9]\d|1\d\d|2[0-4]\d|25[0-5])\.(\d|[1-9]\d|1\d\d|2[0-4]\d|25[0-5])\.(\d|[1-9]\d|1\d\d|2[0-4]\d|25[0-5]))|(([a-z]|\d|-|\.|_|~|[\u00A0-\uD7FF\uF900-\uFDCF\uFDF0-\uFFEF])|(%[\da-f]{2})|[!\$&'\(\)\*\+,;=])*)(:\d*)?)(\/(([a-z]|\d|-|\.|_|~|[\u00A0-\uD7FF\uF900-\uFDCF\uFDF0-\uFFEF])|(%[\da-f]{2})|[!\$&'\(\)\*\+,;=]|:|@)*)*|(\/((([a-z]|\d|-|\.|_|~|[\u00A0-\uD7FF\uF900-\uFDCF\uFDF0-\uFFEF])|(%[\da-f]{2})|[!\$&'\(\)\*\+,;=]|:|@)+(\/(([a-z]|\d|-|\.|_|~|[\u00A0-\uD7FF\uF900-\uFDCF\uFDF0-\uFFEF])|(%[\da-f]{2})|[!\$&'\(\)\*\+,;=]|:|@)*)*)?)|((([a-z]|\d|-|\.|_|~|[\u00A0-\uD7FF\uF900-\uFDCF\uFDF0-\uFFEF])|(%[\da-f]{2})|[!\$&'\(\)\*\+,;=]|:|@)+(\/(([a-z]|\d|-|\.|_|~|[\u00A0-\uD7FF\uF900-\uFDCF\uFDF0-\uFFEF])|(%[\da-f]{2})|[!\$&'\(\)\*\+,;=]|:|@)*)*)|((([a-z]|\d|-|\.|_|~|[\u00A0-\uD7FF\uF900-\uFDCF\uFDF0-\uFFEF])|(%[\da-f]{2})|[!\$&'\(\)\*\+,;=]|:|@)){0})(\?((([a-z]|\d|-|\.|_|~|[\u00A0-\uD7FF\uF900-\uFDCF\uFDF0-\uFFEF])|(%[\da-f]{2})|[!\$&'\(\)\*\+,;=]|:|@)|[\uE000-\uF8FF]|\/|\?)*)?(\#((([a-z]|\d|-|\.|_|~|[\u00A0-\uD7FF\uF900-\uFDCF\uFDF0-\uFFEF])|(%[\da-f]{2})|[!\$&'\(\)\*\+,;=]|:|@)|\/|\?)*)?$/i @@ -325,19 +341,20 @@ function setExternal(extform,residx) { String.prototype.trim = function() {return this.replace(\/^\\s+|\\s+$\/g, "");}; } var url=extform.exturl.value; if (title == null || title.trim()=="") { - alert("$lt{'titbl'}"); + alert("$js_lt{'titbl'}"); extform.exttitle.focus(); return; } if (regexp.test(url)) { url = escape(url); + title = escape(title); if (residx > 0) { eval("extform.importdetail.value=title+'='+url+'='+residx;extform.submit();"); } else { eval("extform.importdetail.value=title+'='+url;extform.submit();"); } } else { - alert("$lt{'invurl'}"); + alert("$js_lt{'invurl'}"); extform.exturl.focus(); return; } @@ -363,7 +380,7 @@ function extUrlPreview(caller) { if (regexp.test(url)) { openMyModal(url,500,400,'yes'); } else { - alert("$lt{'invurl'}"); + alert("$js_lt{'invurl'}"); } } }