--- loncom/interface/lonextresedit.pm 2012/12/02 18:25:11 1.2 +++ loncom/interface/lonextresedit.pm 2018/07/04 13:55:27 1.26 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: lonextresedit.pm,v 1.2 2012/12/02 18:25:11 raeburn Exp $ +# $Id: lonextresedit.pm,v 1.26 2018/07/04 13:55:27 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -56,87 +56,162 @@ sub handler { my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; 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) = + my ($supplementalflag,$updated,$output,$errormsg,$residx,$url,$title, + $symb,$type); + if (($env{'form.folderpath'} =~ /^supplemental/) && ($env{'form.suppurl'})) { + $supplementalflag = 1; + if (&unescape($env{'form.suppurl'}) =~ m{^/adm/$cdom/$cnum/\d+/ext\.tool$}) { + $type = 'tool'; + } + } + 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'}) { + if ($url ne &unescape($env{'form.suppurl'})) { $env{'form.suppurl'} = $url; } 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; } + if ($url =~ m{/adm/$cdom/$cnum/\d+/ext\.tool$}) { + $type = 'tool'; + } } } else { $errormsg = &mt('Information about external resource to edit is missing.'); } if ($updated) { - $output = &Apache::lonhtmlcommon::confirm_success(&mt('External Resource updated')); + my $msg = &mt('External Resource updated'); + if ($type eq 'tool') { + $msg = &mt('External Tool updated'); + } + $output = &Apache::lonhtmlcommon::confirm_success($msg); } if ($errormsg) { $errormsg = '

'.$errormsg.'

'; } + my %ltitools; + if ($type eq 'tool') { + %ltitools = &Apache::lonnet::get_domain_lti($cdom,'consumer'); + } my $js = &Apache::lonhtmlcommon::scripttag(&extedit_javascript()); my $pathitem = ''; - $r->print(&Apache::loncommon::start_page('External Resource Editor',$js). + my $description = 'External Resource Editor'; + if ($type eq 'tool') { + $description = 'External Tool Editor'; + } + $r->print(&Apache::loncommon::start_page($description,$js). '
'. $output. $errormsg. &extedit_form($supplementalflag,$residx,$url,$title,$pathitem,undef, - 'direct',$env{'form.symb'}). + 'direct',$env{'form.symb'},$type,$cdom,$cnum,\%ltitools). '
'.&Apache::loncommon::end_page()); return OK; } sub process_changes { my ($supplementalflag,$cdom,$cnum,$chome) = @_; - my ($folder,$container,$output,$errormsg,$updated,$symb,$oldidx,$oldurl, - $oldtitle,$residx,$newurl,$newtitle); + my ($folder,$container,$output,$errormsg,$updated,$symb,$oldidx,$oldurl,$type, + $oldtitle,$newidx,$newurl,$newtitle,$residx,$url,$title,$marker,$args); 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://}) { + $oldtitle = &Apache::lonnet::gettitle($env{'form.symb'}); + if ($oldurl =~ m{^ext/(.+)$}) { + my $external = $1; + if ($external =~ m{^https://}) { + $oldurl = $external; + } else { $oldurl = 'http://'.$oldurl; } + $type = 'ext'; + } else { + $type = 'tool'; } - $oldtitle = &Apache::lonnet::gettitle($env{'form.symb'}); } elsif ($env{'form.folderpath'}) { $folder = &unescape( (split('&',$env{'form.folderpath'}))[-2] ); $oldurl = &unescape($env{'form.suppurl'}); $oldtitle = &unescape($env{'form.title'}); $container = 'sequence'; $supplementalflag = 1; + if ($oldurl =~ m{^/adm/$cdom/$cnum/\d+/ext\.tool$}) { + $type = 'tool'; + } else { + $type = 'ext'; + } + } + $url = $oldurl; + $title = $oldtitle; + if ($env{'form.importdetail'}) { + ($newtitle,$newurl,$newidx) = + map {&unescape($_)} split(/\=/,$env{'form.importdetail'}); + if ($newurl =~ m{^(/adm/$cdom/$cnum/(\d+)/ext\.tool)\:?(.*)$}) { + $newurl = $1; + $marker = $2; + $args = $3; + if ((!$symb) && (!$supplementalflag)) { + $symb = "uploaded/$cdom/$cnum/$folder.$container"."___$newidx"."___adm/$cdom/$cnum/$marker/ext.tool"; + } + } + } + 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,$needreload,$newgradable,@imports); + if (!$supplementalflag) { + if (($oldidx) && ($oldidx != $newidx)) { + $mismatchedid = 1; + } } - my @imports; if ($mismatchedid) { $errormsg = 'Wrong item identifier'; } elsif (($newtitle eq $oldtitle) && ($newurl eq $oldurl)) { - $output = &mt('No change'); + if ($type eq 'tool') { + if ($args) { + ($updated,$newgradable,$errormsg) = &update_exttool($marker,$cdom,$cnum, + $supplementalflag,$args); + if ($updated) { + if ($newgradable) { + my $map = "/uploaded/$cdom/$cnum/$folder.$container"; + my ($errtext,$fatal) = &LONCAPA::map::mapread($map); + if ($fatal) { + $errormsg = &mt('Update failed: [_1].',$errtext); + } else { + &LONCAPA::map::storeparameter($residx,'parameter_0_gradable', + $newgradable,'string_yesno'); + my ($outtext,$errtext) = &LONCAPA::map::storemap($map,1,1); + if ($errtext) { + $errormsg = &mt('Update failed: [_1].',$errtext); + } else { + $needreload = 1; + } + } + } + } else { + $output = &mt('No change'); + } + } else { + $output = &mt('No change'); + } + } else { + $output = &mt('No change'); + } } else { my $map = "/uploaded/$cdom/$cnum/$folder.$container"; my ($errtext,$fatal) = &LONCAPA::map::mapread($map); @@ -145,80 +220,215 @@ sub process_changes { } else { my $saveurl = &LONCAPA::map::qtunescape($newurl); my $savetitle = &LONCAPA::map::qtunescape($newtitle); + my $ext = 'true'; + if ($type eq 'tool') { + if ($args) { + ($updated,$newgradable,$errormsg) = &update_exttool($marker,$cdom,$cnum, + $supplementalflag,$args); + if ($newgradable) { + &LONCAPA::map::storeparameter($residx,'parameter_0_gradable',$newgradable, + 'string_yesno'); + $needreload = 1; + } + } + $ext = 'false'; + } + my $dotimeupdate; + unless ($supplementalflag) { + if (($newgradable) || ($newurl ne $oldurl)) { + $dotimeupdate = 1; + } + } $LONCAPA::map::resources[$residx] = - join(':', ($savetitle,$saveurl,'true','normal','res')); - my ($outtext,$errtext) = &LONCAPA::map::storemap($map,1); + join(':', ($savetitle,$saveurl,$ext,'normal','res')); + my ($outtext,$errtext) = &LONCAPA::map::storemap($map,1,$dotimeupdate); if ($errtext) { $errormsg = &mt('Update failed: [_1].',$errtext); } else { $updated = 1; + $title = $newtitle; + if ($newurl ne $oldurl) { + $url = $newurl; + if ($ext eq 'true') { + $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) { &Apache::lonnet::devalidate_title_cache($symb); } } - } - 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); + $needreload = 1; } } } } + if ($needreload) { + 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); + } + } + if (($type eq 'tool') && ($newgradable)) { + my $uri = &Apache::lonnet::declutter($url); + &Apache::lonnet::devalidate_cache_new('meta',$uri); + } } else { $output = &mt('No change'); } } else { - $errormsg = &mt('Information about current external resource is incomplete.'); + if ($type eq 'tool') { + $errormsg = &mt('Information about current external tool is incomplete.'); + } 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 update_exttool { + my ($marker,$cdom,$cnum,$supplementalflag,$args) = @_; + my (%newhash,$changed,$newgradable,@deleted,$errormsg); + ($newhash{'target'},$newhash{'width'},$newhash{'height'},$newhash{'linktext'},$newhash{'explanation'}, + $newhash{'crslabel'},$newhash{'crstitle'},$newhash{'crsappend'},$newhash{'gradable'}) = split(/:/,$args); + foreach my $item ('linktext','explanation','crslabel','crstitle','crsappend') { + $newhash{$item} = &unescape($newhash{$item}); + } + my %toolhash=&Apache::lonnet::dump('exttool_'.$marker,$cdom,$cnum); + foreach my $item ('target','width','height','linktext','explanation','crslabel','crstitle','crsappend','gradable') { + $newhash{$item} =~ s/^\s+//; + $newhash{$item} =~ s/\s+$//; + if (($item eq 'width') || ($item eq 'height') || ($item eq 'linktext') || ($item eq 'explanation')) { + if ($newhash{'target'} eq 'iframe') { + $newhash{$item} = ''; + } elsif ($newhash{'target'} eq 'tab') { + if (($item eq 'width') || ($item eq 'height')) { + $newhash{$item} = ''; + } + } + } elsif ($item eq 'gradable') { + unless ($newhash{$item} == 1) { + $newhash{$item} = ''; + } + } + if ($toolhash{$item} ne $newhash{$item}) { + if (($item eq 'gradable') && (!$supplementalflag)) { + if ($newhash{$item}) { + $newgradable = 'yes'; + } else { + $newgradable = 'no'; + } + } + if ($newhash{$item} eq '') { + unless (($item eq 'target') || + ((($item eq 'width') || ($item eq 'height')) && + (($newhash{'target'} eq 'window') || + (($newhash{'target'} eq '') && ($toolhash{'target'} eq 'window')))) || + ((($item eq 'linktext') || ($item eq 'explanation')) && + ((($newhash{'target'} =~ /^(window|tab)$/)) || + (($newhash{'target'} eq '') && ($toolhash{'target'} =~ /^(window|tab)$/))))) { + delete($toolhash{$item}); + push(@deleted,$item); + $changed = 1; + } + } else { + $toolhash{$item} = $newhash{$item}; + $changed = 1; + } + } } + if ($changed) { + my $putres = &Apache::lonnet::put('exttool_'.$marker,\%toolhash,$cdom,$cnum); + unless ($putres eq 'ok') { + $errormsg = &mt('Failed to save updated settings.').' '.&mt('Error: [_1].',$putres); + } + } + if (@deleted) { + &Apache::lonnet::del('exttool_'.$marker,\@deleted,$cdom,$cnum); + } + return ($changed,$newgradable,$errormsg); } sub extedit_form { - my ($supplementalflag,$residx,$orig_url,$orig_title,$pathitem,$helpitem,$caller,$symb) = @_; + my ($supplementalflag,$residx,$orig_url,$orig_title,$pathitem,$helpitem,$caller, + $symb,$type,$cdom,$cnum,$ltitools,$disabled) = @_; + if ($type ne 'tool') { + $type = 'ext'; + } my %lt = &Apache::lonlocal::texthash( ex => 'External Resource', + et => 'External Tool', ed => 'Edit', ee => 'External Resource Editor', + te => 'External Tool Editor', pr => 'Preview', sv => 'Save', ul => 'URL', ti => 'Title', al => 'Add Link', + at => 'Add Tool', ); - my $formname = 'newext'; my $tabid = 'aa'; - my $toggle = 'ext'; - my $fieldsetid = 'uploadextform'; - my $urlid = 'exturl'; my $size = 60; if ($supplementalflag) { - $formname = 'newsuppext'; $tabid = 'ee'; - $toggle = 'suppext'; - $fieldsetid = 'uploadsuppextform'; - $urlid = 'suppexturl'; } - my ($link,$legend,$active,$srcclass,$extsrc,$preview,$title,$save, - $fieldsetstyle,$action,$hiddenelem); + my ($formname,$formid,$toggle,$fieldsetid,$urlid,$dispdivstyle,$dimendivstyle, + $windivstyle,$linktextstyle,$explanationstyle,$labelstyle,$titlestyle, + $appendstyle,$gradablestyle,$legend,$urlelem,$toolelem,%toolattr); + $formname = 'new'.$type; + $toggle = $type; + $fieldsetid = 'external'.$type.'form'; + $urlid = $type.'url'; + map { $toolattr{$_} = $type.$_; } ('dispdiv','dimendiv','dimenwidth','dimenheight', + 'crstitlediv','crslabeldiv','crsappenddiv', + 'gradablediv','crstitle','crslabel','crsappend', + 'windiv','linktextdiv','explanationdiv', + 'linktext','explanation','providerurl'); + $dispdivstyle = 'display:none'; + $dimendivstyle = 'display:none'; + $windivstyle = 'display:none'; + $linktextstyle = 'display:none'; + $explanationstyle = 'display:none'; + $labelstyle = 'display:none'; + $titlestyle = 'display:none'; + $appendstyle = 'display:none'; + $gradablestyle = 'display:none'; + if ($supplementalflag) { + $formname = 'newsupp'.$type; + $toggle = 'supp'.$type; + $fieldsetid = 'externalsupp'.$type.'form'; + $urlid = 'supp'.$type.'url'; + map { $toolattr{$_} = 'supp'.$toolattr{$_}; } (keys(%toolattr)); + } + my ($link,$legend,$active,$srcclass,$extsrc,$preview,$title,$save,$crstitle,$crslabel, + $crsappend,$fieldsetstyle,$action,$hiddenelem,$form,$width,$height,$tooltarget, + $linktext,$explanation,$providerurl,$chkgrd,$chknogrd,%chkstate); $fieldsetstyle = 'display: none;'; $action = '/adm/coursedocs'; + my $protocol = ($ENV{'SERVER_PORT'} == 443?'https':'http'); + my $rows = 2; + my $cols = 20; if ($residx) { if ($caller eq 'direct') { $fieldsetstyle = 'display: block;'; $action = '/adm/extresedit'; - $legend = "$lt{'ee'}"; + $rows = 10; + $cols = 45; + if ($type eq 'tool') { + $legend = $lt{'ee'}; + } else { + $legend = $lt{'te'}; + } + $legend = ''.$legend.''; if ($symb) { $hiddenelem = ''; } elsif ($supplementalflag) { @@ -227,60 +437,238 @@ sub extedit_form { ''; } - } else { - $link = ''.$lt{'ed'}.''; + } else { + $link = ''.$lt{'ed'}.' '."\n"; $size = 40; - $active = ''; + $active = ''; } - $formname = "editext_$residx"; - $fieldsetid = "uploadext$residx"; - $urlid = "exturl_$residx"; + $formname = 'edit'.$type.'_'.$residx; + $fieldsetid = 'external'.$type.$residx; + $urlid = $type.'url_'.$residx; + map { $toolattr{$_} .= '_'.$residx; } (keys(%toolattr)); $srcclass = ' class="LC_nobreak"'; - $extsrc = ''.$lt{'ul'}.' '; - $preview = ' '.$lt{'pr'}.''; + if ($type eq 'ext') { + $extsrc = ''.$lt{'ul'}.' '; + $preview = ' '.$lt{'pr'}.''; + } $title = ''.$lt{'ti'}.' '; $save = $lt{'sv'}; } else { - $link = ''.$lt{'ex'}.''.$helpitem; - $legend = "$lt{'ex'}"; - $extsrc = $lt{'ul'}.':
'; + $link = $lt{'ex'}; + if ($type eq 'tool') { + $link = $lt{'et'}; + } + $link = ''.$link.''.$helpitem; + if ($type eq 'tool') { + $legend = $lt{'te'}; + } else { + $legend = $lt{'ee'}; + } + $legend = ''.$legend.''; $title = $lt{'ti'}.':
'; $residx = 0; - $orig_url = 'http://'; - $orig_title = $lt{'ex'}; - $preview = ''; - $save = $lt{'al'}; + if ($type eq 'ext') { + $orig_url = 'http://'; + $orig_title = $lt{'ex'}; + $extsrc = $lt{'ul'}.':
'; + $preview = ''; + $save = $lt{'al'}; + } else { + $orig_title = $lt{'et'}; + $save = $lt{'at'}; + $orig_url = "/adm/$cdom/$cnum/new/ext\.tool"; + } $pathitem .= '
'; } - return < -
-$legend -$active + $formid = $formname; + if ($type eq 'ext') { + $urlelem = ''; + } else { + my $class = 'LC_nobreak'; + if ($residx) { + $class = 'LC_docs_ext_edit LC_nobreak'; + if ($orig_url =~ m{^/adm/$cdom/$cnum/(\d+)/ext\.tool$}) { + my $marker = $1; + my %toolhash=&Apache::lonnet::dump('exttool_'.$marker,$cdom,$cnum); + if ($toolhash{'id'}) { + if (ref($ltitools) eq 'HASH') { + if (keys(%{$ltitools})) { + if (ref($ltitools->{$toolhash{'id'}}) eq 'HASH') { + my $tooltitle = $ltitools->{$toolhash{'id'}}->{'title'}; + my $icon = $ltitools->{$toolhash{'id'}}->{'image'}; + my $image; + if ($icon) { + $image = ''.$tooltitle.''; + } + if ($ltitools->{$toolhash{'id'}}->{'url'} =~ m{://}) { + (my $prot,my $host,$providerurl) = ($ltitools->{$toolhash{'id'}}->{'url'} =~ m{^([^/]+)://([^/]+)(|/.+)$}); + } else { + $providerurl = $ltitools->{$toolhash{'id'}}->{'url'}; + } + $tooltarget = $toolhash{'target'}; + if ($tooltarget eq 'window') { + $dimendivstyle = 'display:block'; + $windivstyle = 'display:block'; + $chkstate{'window'} = 'checked="checked" '; + } elsif ($tooltarget eq 'tab') { + $windivstyle = 'display:block'; + $chkstate{'tab'} = 'checked="checked" '; + } else { + $chkstate{'iframe'} = 'checked="checked" '; + } + $width = $toolhash{'width'}; + $height = $toolhash{'height'}; + $linktext = $toolhash{'linktext'}; + $explanation = $toolhash{'explanation'}; + if ($toolhash{'gradable'}) { + $chkgrd = ' checked="checked"'; + } else { + $chknogrd = ' checked="checked"'; + } + if (ref($ltitools->{$toolhash{'id'}}->{'crsconf'}) eq 'HASH') { + if ($ltitools->{$toolhash{'id'}}->{'crsconf'}->{'title'}) { + $crstitle = $toolhash{'crstitle'}; + $titlestyle = 'display:inline'; + } + if ($ltitools->{$toolhash{'id'}}->{'crsconf'}->{'label'}) { + $crslabel = $toolhash{'crslabel'}; + $labelstyle = 'display:inline'; + } + if ($ltitools->{$toolhash{'id'}}->{'crsconf'}->{'append'}) { + $crsappend = $toolhash{'crsappend'}; + $appendstyle = 'display:inline'; + } + if ($ltitools->{$toolhash{'id'}}->{'crsconf'}->{'target'}) { + $dispdivstyle = 'display:block'; + } + if ($ltitools->{$toolhash{'id'}}->{'crsconf'}->{'linktext'}) { + $linktextstyle = 'padding:0;display:inline'; + } + if ($ltitools->{$toolhash{'id'}}->{'crsconf'}->{'explanation'}) { + $explanationstyle = 'padding:0;display:inline'; + } + } + $toolelem = ''.$image.' '.$tooltitle.'
'; + $gradablestyle = 'display:inline'; + } + } + } + } + } + } else { + $toolelem = ''."\n". + '
'; + $crslabel = $env{'course.'.$cdom.'_'.$cnum.'.internal.coursecode'}; + $crstitle = $env{'course.'.$cdom.'_'.$cnum.'.description'}; + $crsappend = ''; + $chknogrd = ' checked="checked"'; + } + $toolelem .= '
'. + ''.&mt('Display target:').' '. + ''.(' 'x2). + ''.(' 'x2). + ''. + '
'. + &mt('Width').': '.(' 'x2). + &mt('Height').': '."\n". + '
'; + $toolelem .= '
'. + '
'. + ''.&mt('Link Text').'
'. + '
'. + ''.&mt('Explanation').'
'. + '
'. + '
'; + $toolelem .= '
'. + ''.&mt('Course label:').' '. + '
'. + '
'. + '
'. + ''.&mt('Course title:').' '. + '
'. + '
'. + '
'. + ''.&mt('Append to URL[_1]', + ' ('.$providerurl.')
'). + '
'. + '
'. + '
'. + ''.&mt('Gradable').' '. + ''.(' 'x2). + '
'; + } + my $chooser = $toolelem; + if ($type eq 'ext') { + $chooser = " +
$extsrc - +$urlelem $preview - -
+ +
+"; + } + $form = < +
+$legend +$active +$chooser +
$title - + $pathitem $hiddenelem - + +
ENDFORM - + if (wantarray) { + return ($link,$form); + } else { + return $link.$form; + } } sub display_editor { - my ($url,$folderpath,$symb,$idx) = @_; - my ($residx,$supplementalflag,$title,$pathitem,$output); + my ($url,$folderpath,$symb,$idx,$type,$cdom,$cnum,$hostname) = @_; + my ($residx,$supplementalflag,$title,$pathitem,$output,$js,$navmap); if ($folderpath =~ /^supplemental/) { $supplementalflag = 1; $residx = $idx; @@ -290,27 +678,97 @@ sub display_editor { (my $map,$residx,my $res) = &Apache::lonnet::decode_symb($symb); $title = &Apache::lonnet::gettitle($symb); - my $path = &Apache::lonnet::getdocspath($symb); - if ($map =~ /\.page$/) { - $pathitem = ''; - } else { - $pathitem = ''; - } + my $path = &Apache::loncommon::symb_to_docspath($symb,\$navmap); + $pathitem = ''; } - my $js = &Apache::lonhtmlcommon::scripttag(&extedit_javascript()); + my %ltitools; + if ($type eq 'tool') { + %ltitools = &Apache::lonnet::get_domain_lti($cdom,'consumer'); + } + $js = &Apache::lonhtmlcommon::scripttag(&extedit_javascript()); my $args = { 'force_register' => $env{'form.register'} }; - return &Apache::loncommon::start_page('External Resource Editor',$js,$args). + if ($hostname) { + $args->{'hostname'} = $hostname; + } + my $description = 'External Resource Editor'; + if ($type eq 'tool') { + $description = 'External Tool Editor'; + } + return &Apache::loncommon::start_page($description,$js,$args). '
'. - &extedit_form($supplementalflag,$residx,$url,$title,$pathitem,undef,'direct',$symb). + &extedit_form($supplementalflag,$residx,$url,$title,$pathitem,undef,'direct', + $symb,$type,$cdom,$cnum,\%ltitools). '
'. &Apache::loncommon::end_page(); } sub extedit_javascript { - my %lt = &Apache::lonlocal::texthash( + my ($toolsref) = @_; + my $toolsjs; + if (ref($toolsref) eq 'HASH') { + 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'}; + } + $providerurl = &LONCAPA::map::qtunescape($providerurl); + $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"; + } + + $i++; + } + } + } + my %js_lt = &Apache::lonlocal::texthash( invurl => 'Invalid URL', titbl => 'Title is blank', + invtool => 'Please select an external tool', ); + &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 @@ -320,51 +778,397 @@ ENDREGEXP var regexp = $urlregexp; -function setExternal(extform,residx) { +function setExternal(extform,residx,type,exttoolurl,supplementalflag) { var title=extform.exttitle.value; if (!String.trim) { 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); - if (residx > 0) { - eval("extform.importdetail.value=title+'='+url+'='+residx;extform.submit();"); + if (type == 'ext') { + var url=extform.exturl.value; + if (!regexp.test(url)) { + alert("$js_lt{'invurl'}"); + extform.exturl.focus(); + return; } else { - eval("extform.importdetail.value=title+'='+url;extform.submit();"); + 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'}"); - extform.exturl.focus(); - return; + title = escape(title); + var info = exttoolurl; + if (residx == 0) { + var toolid = parseInt(extform.exttoolid.options[extform.exttoolid.selectedIndex].value); + if (isNaN(toolid)) { + alert("$js_lt{'invtool'}"); + return; + } + info += ':'+toolid; + } + var prefix = ''; + if (supplementalflag == 1) { + prefix = 'supp'; + } + var dispdiv = prefix+'tooldispdiv'; + var windiv = prefix+'toolwindiv'; + if (residx > 0) { + dispdiv += '_'+residx; + windiv += '_'+residx; + } + if (document.getElementById(dispdiv)) { + if (document.getElementById(dispdiv).style.display == 'block') { + if (extform.exttooltarget.length) { + for (var i=0; i 0) { + linktextdiv += '_'+residx; + explanationdiv += '_'+residx; + } + if (document.getElementById(linktextdiv).style.display == 'inline') { + var linktext = extform.exttoollinktext.value; + linktext.trim(); + info += ':'+escape(linktext); + } else { + info += ':'; + } + if (document.getElementById(explanationdiv).style.display == 'inline') { + var explaintext = extform.exttoolexplanation.value; + explaintext.trim(); + info += ':'+escape(explaintext); + } else { + info += ':'; + } + } else { + info += '::'; + } + } else { + info += '::'; + } + var labelinput = prefix+'toolcrslabel'; + var titleinput = prefix+'toolcrstitle'; + var appendinput = prefix+'toolcrsappend'; + if (residx > 0) { + labelinput += '_'+residx; + titleinput += '_'+residx; + appendinput += '_'+residx; + } + if (document.getElementById(labelinput)) { + var crslabel = document.getElementById(labelinput).value; + crslabel.trim(); + info += ':'+escape(crslabel); + } else { + info += ':'; + } + if (document.getElementById(titleinput)) { + var crstitle = document.getElementById(titleinput).value; + crstitle.trim(); + info += ':'+escape(crstitle); + } else { + info += ':'; + } + if (document.getElementById(appendinput)) { + var crsappend = document.getElementById(appendinput).value; + crsappend.trim(); + info += ':'+escape(crsappend); + } 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) { + eval("extform.importdetail.value=title+'='+info+'='+residx;extform.submit();"); + } else { + eval("extform.importdetail.value=title+'='+info;extform.submit();"); + } } } -function editext(residx) { - if (document.getElementById('uploadext'+residx)) { - var curr = document.getElementById('uploadext'+residx).style.display; +function editext(residx,type) { + if (document.getElementById('upload'+type+residx)) { + var curr = document.getElementById('upload'+type+residx).style.display; if (curr == 'none') { disp = 'block'; } else { disp = 'none'; } - document.getElementById('uploadext'+residx).style.display=disp; + document.getElementById('upload'+type+residx).style.display=disp; } resize_scrollbox('contentscroll','1','1'); return; } -function extUrlPreview(caller) { +function extUrlPreview(caller,protocol) { if (document.getElementById(caller)) { var url = document.getElementById(caller).value; if (regexp.test(url)) { - openMyModal(url,500,400,'yes'); + var http_regex = /^http\:\/\//gi; + if ((protocol == 'https') && (http_regex.test(url))) { + window.open(url,"externalpreview","height=400,width=500,scrollbars=1,resizable=1,menubar=0,location=1"); + } else { + openMyModal(url,500,400,'yes'); + } } else { - alert("$lt{'invurl'}"); + alert("$js_lt{'invurl'}"); + } + } +} + +function updateExttool(caller,form,supplementalflag) { + var prefix = ''; + if (supplementalflag == 1) { + prefix = 'supp'; + } + dispdiv = prefix+'tooldispdiv'; + dimendiv = prefix+'tooldimendiv'; + widthinput = prefix+'tooldimenwidth'; + heightinput = prefix+'tooldimenheight'; + labeldiv = prefix+'toolcrslabeldiv'; + titlediv = prefix+'toolcrstitlediv'; + appenddiv = prefix+'toolcrsappenddiv'; + gradablediv = prefix+'toolgradablediv'; + providerurl = prefix+'toolproviderurl'; + labelinput = prefix+'toolcrslabel'; + titleinput = prefix+'toolcrstitle'; + appendinput = prefix+'toolcrsappend'; + windiv = prefix+'toolwindiv'; + linktextdiv = prefix+'toollinktextdiv'; + linktextinput = prefix+'toollinktext'; + explanationdiv = prefix+'toolexplanationdiv'; + explanationinput = prefix+'toolexplanation'; + if (document.getElementById(dispdiv)) { + var toolpick = caller.options[caller.selectedIndex].value; + $toolsjs + if (toolpick == '') { + if (document.getElementById(dispdiv)) { + document.getElementById(dispdiv).style.display = 'none'; + } + if (document.getElementById(dimendiv)) { + document.getElementById(dimendiv).style.display = 'none'; + } + if (document.getElementById(windiv)) { + document.getElementById(windiv).style.display = 'none'; + } + if (document.getElementById(linktextdiv)) { + document.getElementById(linktextdiv).style.display = 'none'; + } + if (document.getElementById(explanationdiv)) { + document.getElementById(explanationdiv).style.display = 'none'; + } + if (document.getElementById(labeldiv)) { + document.getElementById(labeldiv).style.display = 'none'; + } + if (document.getElementById(titlediv)) { + document.getElementById(titlediv).style.display = 'none'; + } + if (document.getElementById(appenddiv)) { + document.getElementById(appenddiv).style.display = 'none'; + } + if (document.getElementById(gradablediv)) { + document.getElementById(gradablediv).style.display = 'none'; + } + } else { + if (ltitools.length > 0) { + for (var j=0; j'; + } + } + } else { + document.getElementById(appenddiv).style.display = 'none'; + if (document.getElementById(providerurl)) { + document.getElementById(providerurl).innerHTML = ''; + } + } + } + if (document.getElementById(gradablediv)) { + if (supplementalflag != 1) { + document.getElementById(gradablediv).style.display = 'inline'; + } + } + break; + } + } + } + } + } +} + +function updateTooldim(form,dimendiv,windiv,widthinput,heightinput,linkinput,explaininput) { + if (form.exttooltarget.length) { + for (var i=0; i