+
$title
@@ -884,35 +604,6 @@ ENDFORM
}
}
-sub ordered_tooloptions {
- my ($toolsref) = @_;
- my ($seloptions,@ids,@titles);
- if (ref($toolsref) eq 'HASH') {
- my %bynum;
- foreach my $id (keys(%{$toolsref})) {
- if (ref($toolsref->{$id}) eq 'HASH') {
- my $order = $toolsref->{$id}->{'order'};
- $bynum{$order} = [$id,$toolsref->{$id}];
- }
- }
- foreach my $item (sort { $a <=> $b } keys(%bynum)) {
- if (ref($bynum{$item}) eq 'ARRAY') {
- if (ref($bynum{$item}->[1]) eq 'HASH') {
- my $tooltitle = $bynum{$item}->[1]->{'title'};
- push(@titles,$tooltitle);
- push(@ids,$bynum{$item}->[0]);
- $seloptions .= ''."\n";
- }
- }
- }
- }
- if (wantarray) {
- return (\@ids,\@titles);
- } else {
- return $seloptions;
- }
-}
-
sub display_editor {
my ($url,$folderpath,$symb,$idx,$type,$cdom,$cnum,$hostname) = @_;
my ($residx,$supplementalflag,$title,$pathitem,$output,$js,$navmap);
@@ -928,20 +619,9 @@ sub display_editor {
my $path = &Apache::loncommon::symb_to_docspath($symb,\$navmap);
$pathitem = '';
}
- my (%ltitools,%tooltypes);
+ my %ltitools;
if ($type eq 'tool') {
- my (%domtools,%crstools);
- %tooltypes = &Apache::loncommon::usable_exttools();
- if ($tooltypes{'dom'}) {
- %domtools = &Apache::lonnet::get_domain_lti($cdom,'consumer');
- }
- if ($tooltypes{'crs'}) {
- %crstools = &Apache::lonnet::get_course_lti($cnum,$cdom,'consumer');
- }
- %ltitools = (
- dom => \%domtools,
- crs => \%crstools,
- );
+ %ltitools = &Apache::lonnet::get_domain_lti($cdom,'consumer');
}
$js = &Apache::lonhtmlcommon::scripttag(&extedit_javascript());
my $args = { 'force_register' => $env{'form.register'} };
@@ -962,133 +642,68 @@ sub display_editor {
sub extedit_javascript {
my ($toolsref) = @_;
- my ($toolsjs,$exttoolnums,$exttooloptions);
+ my $toolsjs;
if (ref($toolsref) eq 'HASH') {
- $toolsjs = " var ltitools = new Array();\n".
- " var ltitoolsProvider = new Array();\n".
- " var ltitoolsPath = new Array();\n".
- " var ltitoolsTarget = new Array();\n".
- " var ltitoolsWidth = new Array();\n".
- " var ltitoolsHeight = new Array();\n".
- " var ltitoolsLinkDef = new Array();\n".
- " var ltitoolsExplainDef = new Array();\n".
- " var ltitoolsDisplay = new Array();\n".
- " var ltitoolsLink = new Array();\n".
- " var ltitoolsExplain = new Array();\n".
- " var ltitoolsLabel = new Array();\n".
- " var ltitoolsTitle = new Array();\n".
- " var ltitoolsAppend = new Array();\n".
- " var ltitoolsReturnUrl = new Array();\n".
- " var ltitoolsDestUrl = new Array();\n".
- " var ltitoolsDefDest = new Array();\n".
- " var ltitoolsDefDelay = new Array();\n";
- $exttoolnums = " var ltitoolsnum = new Array();\n".
- " var tooloptval = new Array();\n".
- " var toolopttxt = new Array();\n";
- my $idx = 0;
- foreach my $type ('crs','dom') {
- if (ref($toolsref->{$type}) eq 'HASH') {
- my $num = scalar(keys(%{$toolsref->{$type}}));
- $toolsjs .= " ltitools[$idx] = new Array($num);\n".
- " ltitoolsProvider[$idx] = new Array($num);\n".
- " ltitoolsPath[$idx] = new Array($num);\n".
- " ltitoolsTarget[$idx] = new Array($num);\n".
- " ltitoolsWidth[$idx] = new Array($num);\n".
- " ltitoolsHeight[$idx] = new Array($num);\n".
- " ltitoolsLinkDef[$idx] = new Array($num);\n".
- " ltitoolsExplainDef[$idx] = new Array($num);\n".
- " ltitoolsDisplay[$idx] = new Array($num);\n".
- " ltitoolsLink[$idx] = new Array($num);\n".
- " ltitoolsExplain[$idx] = new Array($num);\n".
- " ltitoolsLabel[$idx] = new Array($num);\n".
- " ltitoolsTitle[$idx] = new Array($num);\n".
- " ltitoolsAppend[$idx] = new Array($num);\n".
- " ltitoolsReturnUrl[$idx] = new Array($num);\n".
- " ltitoolsDestUrl[$idx] = new Array($num);\n".
- " ltitoolsDefDest[$idx] = new Array($num);\n".
- " ltitoolsDefDelay[$idx] = new Array($num);\n";
- my $i=0;
- foreach my $key (sort { $a <=> $b } keys(%{$toolsref->{$type}})) {
- if (ref($toolsref->{$type}->{$key}) eq 'HASH') {
- if (ref($toolsref->{$type}->{$key}->{'display'}) eq 'HASH') {
- my $target = $toolsref->{$type}->{$key}->{'display'}->{'target'};
- my $width = $toolsref->{$type}->{$key}->{'display'}->{'width'};
- my $height = $toolsref->{$type}->{$key}->{'display'}->{'height'};
- my $linkdef = $toolsref->{$type}->{$key}->{'display'}->{'linktext'};
- my $explaindef = $toolsref->{$type}->{$key}->{'display'}->{'explanation'};
- my ($scheme,$provider,$path);
- if ($toolsref->{$type}->{$key}->{'url'} =~ m{^https?\://}) {
- ($scheme,$provider,$path) =
- ($toolsref->{$type}->{$key}->{'url'} =~ m{^(https?\://)([^/]+)(|/.+)$});
- } else {
- $path = $toolsref->{$type}->{$key}->{'url'};
- }
- $scheme = &LONCAPA::map::qtunescape($scheme);
- $provider = &LONCAPA::map::qtunescape($provider);
- $path = &LONCAPA::map::qtunescape($path);
- $toolsjs .= " ltitools[$idx][$i] = '$key';\n".
- " ltitoolsTarget[$idx][$i] = '$target';\n".
- " ltitoolsWidth[$idx][$i] = '$width';\n".
- " ltitoolsHeight[$idx][$i] = '$height';\n".
- " ltitoolsLinkDef[$idx][$i] = '$linkdef';\n".
- " ltitoolsExplainDef[$idx][$i] = '$explaindef';\n".
- " ltitoolsProvider[$idx][$i] = '$scheme$provider';\n".
- " ltitoolsPath[$idx][$i] = '$path';\n";
- }
- if (ref($toolsref->{$type}->{$key}->{'crsconf'}) eq 'HASH') {
- my $display = $toolsref->{$type}->{$key}->{'crsconf'}->{'target'};
- $toolsjs .= " ltitoolsDisplay[$idx][$i] = '$display';\n";
- my $linktext = $toolsref->{$type}->{$key}->{'crsconf'}->{'linktext'};
- $toolsjs .= " ltitoolsLink[$idx][$i] = '$linktext';\n";
- my $explanation = $toolsref->{$type}->{$key}->{'crsconf'}->{'explanation'};
- $toolsjs .= " ltitoolsExplain[$idx][$i] = '$explanation';\n";
- my $label = $toolsref->{$type}->{$key}->{'crsconf'}->{'label'};
- $toolsjs .= " ltitoolsLabel[$idx][$i] = '$label';\n";
- my $title = $toolsref->{$type}->{$key}->{'crsconf'}->{'title'};
- $toolsjs .= " ltitoolsTitle[$idx][$i] = '$title';\n";
- my $append = $toolsref->{$type}->{$key}->{'crsconf'}->{'append'};
- $toolsjs .= " ltitoolsAppend[$idx][$i] = '$append';\n";
- my $returnurl = $toolsref->{$type}->{$key}->{'crsconf'}->{'returnurl'};
- $toolsjs .= " ltitoolsReturnUrl[$idx][$i] = '$returnurl';\n";
- my $desturl = $toolsref->{$type}->{$key}->{'crsconf'}->{'desturl'};
- $toolsjs .= " ltitoolsDestUrl[$idx][$i] = '$desturl';\n";
- }
- my $defdest = $toolsref->{$type}->{$key}->{'defdest'};
- $toolsjs .= " ltitoolsDefDest[$idx][$i] = '$defdest';\n";
- my $defdelay = $toolsref->{$type}->{$key}->{'defdelay'};
- $toolsjs .= " ltitoolsDefDelay[$idx][$i] = '$defdelay';\n";
- }
- $i++;
- }
- my $firstoption = '';
- my ($idsref,$titlesref) = &ordered_tooloptions($toolsref->{$type});
- if ((ref($idsref) eq 'ARRAY') && (ref($titlesref) eq 'ARRAY')) {
- my $count = scalar(@{$idsref});
- $exttooloptions .= " tooloptval[$idx] = new Array($count);\n".
- " toolopttxt[$idx] = new Array($count);\n";
- for (my $n=0; $n<@{$idsref}; $n++) {
- my $id = $idsref->[$n];
- my $text = $titlesref->[$n];
- $exttooloptions .= " tooloptval[$idx][$n] = '$id';\n".
- " toolopttxt[$idx][$n] = '$text';\n";
+ my $num = scalar(keys(%{$toolsref}));
+ $toolsjs = " var ltitools = new Array($num);\n".
+ " var ltitoolsUrl = new Array($num);\n".
+ " var ltitoolsTarget = new Array($num);\n".
+ " var ltitoolsWidth = new Array($num);\n".
+ " var ltitoolsHeight = new Array($num);\n".
+ " var ltitoolsLinkDef = new Array($num);\n".
+ " var ltitoolsExplainDef = new Array($num);\n".
+ " var ltitoolsDisplay = new Array($num);\n".
+ " var ltitoolsLink = new Array($num);\n".
+ " var ltitoolsExplain = new Array($num);\n".
+ " var ltitoolsLabel = new Array($num);\n".
+ " var ltitoolsTitle = new Array($num);\n";
+ " var ltitoolsAppend = new Array($num);\n";
+ my $i = 0;
+ foreach my $key (sort { $a <=> $b } keys(%{$toolsref})) {
+ if (ref($toolsref->{$key}) eq 'HASH') {
+ if (ref($toolsref->{$key}->{'display'}) eq 'HASH') {
+ my $target = $toolsref->{$key}->{'display'}->{'target'};
+ my $width = $toolsref->{$key}->{'display'}->{'width'};
+ my $height = $toolsref->{$key}->{'display'}->{'height'};
+ my $linkdef = $toolsref->{$key}->{'display'}->{'linktext'};
+ my $explaindef = $toolsref->{$key}->{'display'}->{'explanation'};
+ my $providerurl;
+ if ($toolsref->{$key}->{'url'} =~ m{://}) {
+ (my $prot,my $host,$providerurl) = ($toolsref->{$key}->{'url'} =~ m{^([^/]+)://([^/]+)(|/.+)$});
+ } else {
+ $providerurl = $toolsref->{$key}->{'url'};
}
+ $toolsjs .= ' ltitools['.$i.'] = '."'$key';\n".
+ ' ltitoolsTarget['.$i.'] = '."'$target';\n".
+ ' ltitoolsWidth['.$i.'] = '."'$width';\n".
+ ' ltitoolsHeight['.$i.'] = '."'$height';\n".
+ ' ltitoolsLinkDef['.$i.'] = '."'$linkdef';\n".
+ ' ltitoolsExplainDef['.$i.'] = '."'$explaindef';\n".
+ ' ltitoolsUrl['.$i.'] = '."'$providerurl';\n";
+ }
+ if (ref($toolsref->{$key}->{'crsconf'}) eq 'HASH') {
+ my $display = $toolsref->{$key}->{'crsconf'}->{'target'};
+ $toolsjs .= ' ltitoolsDisplay['.$i.'] = '."'$display';\n";
+ my $linktext = $toolsref->{$key}->{'crsconf'}->{'linktext'};
+ $toolsjs .= ' ltitoolsLink['.$i.'] = '."'$linktext';\n";
+ my $explanation = $toolsref->{$key}->{'crsconf'}->{'explanation'};
+ $toolsjs .= ' ltitoolsExplain['.$i.'] = '."'$explanation';\n";
+ my $label = $toolsref->{$key}->{'crsconf'}->{'label'};
+ $toolsjs .= ' ltitoolsLabel['.$i.'] = '."'$label';\n";
+ my $title = $toolsref->{$key}->{'crsconf'}->{'title'};
+ $toolsjs .= ' ltitoolsTitle['.$i.'] = '."'$title';\n";
+ my $append = $toolsref->{$key}->{'crsconf'}->{'append'};
+ $toolsjs .= ' ltitoolsAppend['.$i.'] = '."'$append';\n";
}
- $exttoolnums .= " ltitoolsnum[$idx] = $i;\n";
+
+ $i++;
}
- $idx ++;
}
}
my %js_lt = &Apache::lonlocal::texthash(
invurl => 'Invalid URL',
titbl => 'Title is blank',
invtool => 'Please select an external tool',
- mixfra => 'Show preview in pop-up? (http in https page + no framing)',
- mixonly => 'Show preview in pop-up? (http in https page)',
- fraonly => 'Show preview in pop-up? (framing disallowed)',
- nopopup => 'Pop-up blocked',
- nopriv => 'Insufficient privileges to use preview',
- badurl => 'URL is not: http://hostname/path or https://hostname/path',
- sele => 'Select',
);
&js_escape(\%js_lt);
@@ -1127,29 +742,17 @@ function setExternal(extform,residx,type
} else {
title = escape(title);
var info = exttoolurl;
- var prefix = '';
- if (supplementalflag == 1) {
- prefix = 'supp';
- }
if (residx == 0) {
var toolid = parseInt(extform.exttoolid.options[extform.exttoolid.selectedIndex].value);
if (isNaN(toolid)) {
alert("$js_lt{'invtool'}");
return;
}
- var typeelem = extform.elements[prefix+'exttooltype'];
- if (typeelem.length) {
- for (var i=0; i 0) {
labelinput += '_'+residx;
titleinput += '_'+residx;
- appendinput += '_'+residx;
- customreturnurl += '_'+residx;
+ appendinput += '_'+residx;
}
if (document.getElementById(labelinput)) {
var crslabel = document.getElementById(labelinput).value;
@@ -1241,85 +842,6 @@ function setExternal(extform,residx,type
} else {
info += ':';
}
- var gradablediv = prefix+'toolgradablediv';
- if (residx > 0) {
- gradablediv += '_'+residx;
- }
- if (document.getElementById(gradablediv)) {
- if (document.getElementById(gradablediv).style.display == 'inline') {
- if (extform.exttoolgradable.length) {
- for (var i=0; i 0) {
- returnurldiv += '_'+residx;
- }
- if (document.getElementById(returnurldiv)) {
- if (document.getElementById(returnurldiv).style.display == 'inline') {
- if (extform.exttoolreturnurl.length) {
- for (var i=0; i 0) {
- desturldiv += '_'+residx;
- }
- if (document.getElementById(desturldiv)) {
- if (document.getElementById(desturldiv).style.display == 'inline') {
- if (extform.exttooldest.length) {
- for (var i=0; i 0) {
eval("extform.importdetail.value=title+'='+info+'='+residx;extform.submit();");
@@ -1348,145 +870,15 @@ function extUrlPreview(caller,protocol)
var url = document.getElementById(caller).value;
if (regexp.test(url)) {
var http_regex = /^http\:\/\//gi;
- var mixed = 0;
- var noiframe = 0;
- var nopriv = 0;
- var badurl = 0;
- var name = "externalpreview";
if ((protocol == 'https') && (http_regex.test(url))) {
- mixed = 1;
- }
- var http = new XMLHttpRequest();
- var lcurl = "/adm/exturlcheck";
- var params = "exturl="+url;
- http.open("POST",lcurl, true);
- http.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
- http.onreadystatechange = function() {
- if (http.readyState == 4) {
- if (http.status == 200) {
- if (http.responseText.length > 0) {
- if (http.responseText == 1) {
- noiframe = 1;
- } else if (http.responseText == -1) {
- nopriv = 1;
- } else if (http.responseText == 0) {
- badurl = 1;
- }
- }
- openPreviewWindow(url,name,noiframe,mixed,nopriv,badurl);
- }
- }
- }
- http.send(params);
- } else {
- alert("$js_lt{'invurl'}");
- }
- }
-}
-
-var previewLCWindow = null;
-function openPreviewWindow(url,name,noiframe,mixed,nopriv,badurl) {
- if (previewLCWindow !=null) {
- previewLCWindow.close();
- }
- if (badurl) {
- alert("$js_lt{'badurl'}");
- } else if (nopriv) {
- alert("$js_lt{'nopriv'}");
- } else if ((noiframe == 1) || (mixed == 1)) {
- var encurl = encodeURI(url);
- var msg;
- if (mixed == 1) {
- if (noiframe == 1) {
- msg = "$js_lt{'mixfra'}";
+ window.open(url,"externalpreview","height=400,width=500,scrollbars=1,resizable=1,menubar=0,location=1");
} else {
- msg = "$js_lt{'mixonly'}";
- }
- } else {
- msg = "$js_lt{'fraonly'}";
- }
- if (confirm(msg)) {
- previewLCWindow = window.open(url,name,"height=400,width=500,scrollbars=1,resizable=1,menubar=0,location=1");
- if (previewLCWindow != null) {
- previewLCWindow.focus();
- } else {
- alert("$js_lt{'nopopup'}");
- }
- }
- } else {
- openMyModal(url,500,400,'yes');
- }
-}
-
-function updateExttoolSel(form,radioname,supplementalflag) {
- var prefix = '';
- var typepick;
- var radelem = form.elements[radioname];
- if (radelem.length) {
- for (var i=0; i=0) {
- for (i = numopts; i >= 0; i--) {
- selelem.remove(i);
- }
- }
- if (ltitoolsnum[typepick]) {
- if ((Array.isArray(tooloptval[typepick])) && (Array.isArray(toolopttxt[typepick]))) {
- var len = tooloptval[typepick].length;
- if (len) {
- selelem.options[selelem.options.length] = new Option('$js_lt{sele}','',1,1);
- var j;
- for (j=0; j 0) {
- for (var j=0; j 0) {
+ for (var j=0; j';
+ }
}
- }
- if (document.getElementById(returnurldiv)) {
- if (ltitoolsReturnUrl[i][j]) {
- document.getElementById(returnurldiv).style.display = 'inline';
- } else {
- document.getElementById(returnurldiv).style.display = 'none';
+ } else {
+ document.getElementById(appenddiv).style.display = 'none';
+ if (document.getElementById(providerurl)) {
+ document.getElementById(providerurl).innerHTML.value = '';
}
}
- break;
- }
- }
- }
- }
- }
- }
-}
-
-function updateReturnUrl(form,typeid,divid,radioname) {
- if ((document.getElementById(typeid)) &&
- (document.getElementById(divid))) {
- if (document.getElementById(divid).style.display == 'inline') {
- var radelem = form.elements[radioname];
- var inputtype = 'hidden';
- if (radelem.length) {
- for (var i=0; i