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

Diff for /loncom/interface/lonextresedit.pm between versions 1.19 and 1.22

version 1.19, 2017/05/10 13:49:14 version 1.22, 2017/12/15 16:33:51
Line 98  sub handler { Line 98  sub handler {
     }      }
     my %ltitools;      my %ltitools;
     if ($type eq 'tool') {      if ($type eq 'tool') {
         %ltitools = &Apache::lonnet::get_domain_ltitools($cdom);          %ltitools = &Apache::lonnet::get_domain_lti($cdom,'consumer');
     }      }
     my $js = &Apache::lonhtmlcommon::scripttag(&extedit_javascript());      my $js = &Apache::lonhtmlcommon::scripttag(&extedit_javascript());
     my $pathitem = '<input type="hidden" name="folderpath" value="'.      my $pathitem = '<input type="hidden" name="folderpath" value="'.
Line 261  sub update_exttool { Line 261  sub update_exttool {
     my %toolhash=&Apache::lonnet::dump('exttool_'.$marker,$cdom,$cnum);      my %toolhash=&Apache::lonnet::dump('exttool_'.$marker,$cdom,$cnum);
     my (%newhash,$changed,@deleted,$errormsg);      my (%newhash,$changed,@deleted,$errormsg);
     ($newhash{'target'},$newhash{'width'},$newhash{'height'},$newhash{'linktext'},$newhash{'explanation'},      ($newhash{'target'},$newhash{'width'},$newhash{'height'},$newhash{'linktext'},$newhash{'explanation'},
      $newhash{'crslabel'},$newhash{'crstitle'}) = split(/:/,$args);       $newhash{'crslabel'},$newhash{'crstitle'},$newhash{'crsappend'}) = split(/:/,$args);
     foreach my $item ('linktext','explanation','crslabel','crstitle') {      foreach my $item ('linktext','explanation','crslabel','crstitle','crsappend') {
         $newhash{$item} = &unescape($newhash{$item});          $newhash{$item} = &unescape($newhash{$item});
     }      }
     my %toolhash=&Apache::lonnet::dump('exttool_'.$marker,$cdom,$cnum);      my %toolhash=&Apache::lonnet::dump('exttool_'.$marker,$cdom,$cnum);
     foreach my $item ('target','width','height','linktext','explanation','crslabel','crstitle') {      foreach my $item ('target','width','height','linktext','explanation','crslabel','crstitle','crsappend') {
         $newhash{$item} =~ s/^\s+//;          $newhash{$item} =~ s/^\s+//;
         $newhash{$item} =~ s/\s+$//;          $newhash{$item} =~ s/\s+$//;
         if (($item eq 'width') || ($item eq 'height') || ($item eq 'linktext') || ($item eq 'explanation')) {          if (($item eq 'width') || ($item eq 'height') || ($item eq 'linktext') || ($item eq 'explanation')) {
Line 335  sub extedit_form { Line 335  sub extedit_form {
     }      }
     my ($formname,$formid,$toggle,$fieldsetid,$urlid,$dispdivstyle,$dimendivstyle,      my ($formname,$formid,$toggle,$fieldsetid,$urlid,$dispdivstyle,$dimendivstyle,
         $windivstyle,$linktextstyle,$explanationstyle,$labelstyle,$titlestyle,          $windivstyle,$linktextstyle,$explanationstyle,$labelstyle,$titlestyle,
         $legend,$urlelem,$toolelem,%toolattr);          $appendstyle,$legend,$urlelem,$toolelem,%toolattr);
     $formname = 'new'.$type;      $formname = 'new'.$type;
     $toggle = $type;      $toggle = $type;
     $fieldsetid = 'upload'.$type.'form';      $fieldsetid = 'upload'.$type.'form';
     $urlid = $type.'url';      $urlid = $type.'url';
     map { $toolattr{$_} = $type.$_; } ('dispdiv','dimendiv','dimenwidth','dimenheight',      map { $toolattr{$_} = $type.$_; } ('dispdiv','dimendiv','dimenwidth','dimenheight',
                                        'crstitlediv','crslabeldiv','crstitle','crslabel',                                         'crstitlediv','crslabeldiv','crsappenddiv',
                                        'windiv','linktextdiv','explanationdiv','linktext',                                          'crstitle','crslabel','crsappend','windiv',
                                        'explanation');                                         'linktextdiv','explanationdiv','linktext',
                                          'explanation','providerurl'); 
     $dispdivstyle = 'display:none';      $dispdivstyle = 'display:none';
     $dimendivstyle = 'display:none';      $dimendivstyle = 'display:none';
     $windivstyle = 'display:none';      $windivstyle = 'display:none';
Line 351  sub extedit_form { Line 352  sub extedit_form {
     $explanationstyle = 'display:none';      $explanationstyle = 'display:none';
     $labelstyle = 'display:none';      $labelstyle = 'display:none';
     $titlestyle = 'display:none';      $titlestyle = 'display:none';
       $appendstyle = 'display:none';
     if ($supplementalflag) {      if ($supplementalflag) {
         $formname = 'newsupp'.$type;          $formname = 'newsupp'.$type;
         $toggle = 'supp'.$type;          $toggle = 'supp'.$type;
Line 359  sub extedit_form { Line 361  sub extedit_form {
         map { $toolattr{$_} = 'supp'.$toolattr{$_}; } (keys(%toolattr));          map { $toolattr{$_} = 'supp'.$toolattr{$_}; } (keys(%toolattr));
     }      }
     my ($link,$legend,$active,$srcclass,$extsrc,$preview,$title,$save,$crstitle,$crslabel,      my ($link,$legend,$active,$srcclass,$extsrc,$preview,$title,$save,$crstitle,$crslabel,
         $fieldsetstyle,$action,$hiddenelem,$form,$width,$height,$tooltarget,          $crsappend,$fieldsetstyle,$action,$hiddenelem,$form,$width,$height,$tooltarget,
         $linktext,$explanation,%chkstate);          $linktext,$explanation,$providerurl,%chkstate);
     $fieldsetstyle = 'display: none;';      $fieldsetstyle = 'display: none;';
     $action = '/adm/coursedocs';      $action = '/adm/coursedocs';
     my $protocol = ($ENV{'SERVER_PORT'} == 443?'https':'http');      my $protocol = ($ENV{'SERVER_PORT'} == 443?'https':'http');
Line 449  sub extedit_form { Line 451  sub extedit_form {
                                 if ($icon) {                                  if ($icon) {
                                     $image = '<img src="'.$icon.'" alt="'.$tooltitle.'" />';                                      $image = '<img src="'.$icon.'" alt="'.$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'};                                  $tooltarget = $toolhash{'target'};
                                 if ($tooltarget eq 'window') {                                  if ($tooltarget eq 'window') {
                                     $dimendivstyle = 'display:block';                                      $dimendivstyle = 'display:block';
Line 473  sub extedit_form { Line 480  sub extedit_form {
                                         $crslabel = $toolhash{'crslabel'};                                          $crslabel = $toolhash{'crslabel'};
                                         $labelstyle = 'display:inline';                                          $labelstyle = 'display:inline';
                                     }                                      }
                                       if ($ltitools->{$toolhash{'id'}}->{'crsconf'}->{'append'}) {
                                           $crsappend = $toolhash{'crsappend'};
                                           $appendstyle = 'display:inline';
                                       }
                                     if ($ltitools->{$toolhash{'id'}}->{'crsconf'}->{'target'}) {                                      if ($ltitools->{$toolhash{'id'}}->{'crsconf'}->{'target'}) {
                                         $dispdivstyle = 'display:block';                                          $dispdivstyle = 'display:block';
                                     }                                      }
Line 515  sub extedit_form { Line 526  sub extedit_form {
             $toolelem .= '</select></span><br />';              $toolelem .= '</select></span><br />';
             $crslabel = $env{'course.'.$cdom.'_'.$cnum.'.internal.coursecode'};              $crslabel = $env{'course.'.$cdom.'_'.$cnum.'.internal.coursecode'};
             $crstitle = $env{'course.'.$cdom.'_'.$cnum.'.description'};              $crstitle = $env{'course.'.$cdom.'_'.$cnum.'.description'};
               $crsappend = '';
         }          }
         $toolelem .= '<div id="'.$toolattr{'dispdiv'}.'" style="'.$dispdivstyle.'">'.          $toolelem .= '<div id="'.$toolattr{'dispdiv'}.'" style="'.$dispdivstyle.'">'.
                     '<span class="'.$class.'">'.&mt('Display target:').'&nbsp;'.                      '<span class="'.$class.'">'.&mt('Display target:').'&nbsp;'.
Line 547  sub extedit_form { Line 559  sub extedit_form {
                     '<div id="'.$toolattr{'crstitlediv'}.'" style="'.$titlestyle.'">'.                      '<div id="'.$toolattr{'crstitlediv'}.'" style="'.$titlestyle.'">'.
                     '<span class="'.$class.'">'.&mt('Course title:').'&nbsp;'.                      '<span class="'.$class.'">'.&mt('Course title:').'&nbsp;'.
                     '<input type="text" id="'.$toolattr{'crstitle'}.'" name="exttooltitle" value="'.$crstitle.'"'.$disabled.' /></span><br />'.                      '<input type="text" id="'.$toolattr{'crstitle'}.'" name="exttooltitle" value="'.$crstitle.'"'.$disabled.' /></span><br />'.
                       '</div>'.
                       '<div id="'.$toolattr{'crsappenddiv'}.'" style="'.$appendstyle.'">'.
                       '<span class="'.$class.'">'.&mt('Append to URL[_1]',
                       '<span id="'.$toolattr{'providerurl'}.'">&nbsp;('.$providerurl.')<br /></span>').
                       '<input type="text" id="'.$toolattr{'crsappend'}.'" size="30" name="exttoolappend" value="'.$crsappend.'"'.$disabled.' /></span><br />'.
                     '</div>';                      '</div>';
     }      }
     my $chooser = $toolelem;      my $chooser = $toolelem;
Line 604  sub display_editor { Line 621  sub display_editor {
     }      }
     my %ltitools;      my %ltitools;
     if ($type eq 'tool') {      if ($type eq 'tool') {
         %ltitools = &Apache::lonnet::get_domain_ltitools($cdom);          %ltitools = &Apache::lonnet::get_domain_lti($cdom,'consumer');
     }      }
     $js = &Apache::lonhtmlcommon::scripttag(&extedit_javascript());      $js = &Apache::lonhtmlcommon::scripttag(&extedit_javascript());
     my $args = { 'force_register' => $env{'form.register'} };      my $args = { 'force_register' => $env{'form.register'} };
Line 629  sub extedit_javascript { Line 646  sub extedit_javascript {
     if (ref($toolsref) eq 'HASH') {      if (ref($toolsref) eq 'HASH') {
         my $num = scalar(keys(%{$toolsref}));          my $num = scalar(keys(%{$toolsref}));
         $toolsjs = "        var ltitools = new Array($num);\n".          $toolsjs = "        var ltitools = new Array($num);\n".
                      "        var ltitoolsUrl = new Array($num);\n".
                    "        var ltitoolsTarget = new Array($num);\n".                     "        var ltitoolsTarget = new Array($num);\n".
                    "        var ltitoolsWidth = new Array($num);\n".                     "        var ltitoolsWidth = new Array($num);\n".
                    "        var ltitoolsHeight = new Array($num);\n".                     "        var ltitoolsHeight = new Array($num);\n".
Line 639  sub extedit_javascript { Line 657  sub extedit_javascript {
                    "        var ltitoolsExplain = new Array($num);\n".                     "        var ltitoolsExplain = new Array($num);\n".
                    "        var ltitoolsLabel = new Array($num);\n".                     "        var ltitoolsLabel = new Array($num);\n".
                    "        var ltitoolsTitle = new Array($num);\n";                     "        var ltitoolsTitle = new Array($num);\n";
                      "        var ltitoolsAppend = new Array($num);\n";
         my $i = 0;          my $i = 0;
         foreach my $key (sort { $a <=> $b } keys(%{$toolsref})) {          foreach my $key (sort { $a <=> $b } keys(%{$toolsref})) {
             if (ref($toolsref->{$key}) eq 'HASH') {              if (ref($toolsref->{$key}) eq 'HASH') {
Line 648  sub extedit_javascript { Line 667  sub extedit_javascript {
                     my $height = $toolsref->{$key}->{'display'}->{'height'};                      my $height = $toolsref->{$key}->{'display'}->{'height'};
                     my $linkdef = $toolsref->{$key}->{'display'}->{'linktext'};                      my $linkdef = $toolsref->{$key}->{'display'}->{'linktext'};
                     my $explaindef = $toolsref->{$key}->{'display'}->{'explanation'};                      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".                      $toolsjs .= '        ltitools['.$i.'] = '."'$key';\n".
                                 '        ltitoolsTarget['.$i.'] = '."'$target';\n".                                  '        ltitoolsTarget['.$i.'] = '."'$target';\n".
                                 '        ltitoolsWidth['.$i.'] = '."'$width';\n".                                  '        ltitoolsWidth['.$i.'] = '."'$width';\n".
                                 '        ltitoolsHeight['.$i.'] = '."'$height';\n".                                  '        ltitoolsHeight['.$i.'] = '."'$height';\n".
                                 '        ltitoolsLinkDef['.$i.'] = '."'$linkdef';\n".                                  '        ltitoolsLinkDef['.$i.'] = '."'$linkdef';\n".
                                 '        ltitoolsExplainDef['.$i.'] = '."'$explaindef';\n";                                  '        ltitoolsExplainDef['.$i.'] = '."'$explaindef';\n".
                                   '        ltitoolsUrl['.$i.'] = '."'$providerurl';\n";
                 }                  }
                 if (ref($toolsref->{$key}->{'crsconf'}) eq 'HASH') {                  if (ref($toolsref->{$key}->{'crsconf'}) eq 'HASH') {
                     my $display = $toolsref->{$key}->{'crsconf'}->{'target'};                      my $display = $toolsref->{$key}->{'crsconf'}->{'target'};
Line 666  sub extedit_javascript { Line 693  sub extedit_javascript {
                     $toolsjs .= '         ltitoolsLabel['.$i.'] = '."'$label';\n";                      $toolsjs .= '         ltitoolsLabel['.$i.'] = '."'$label';\n";
                     my $title = $toolsref->{$key}->{'crsconf'}->{'title'};                      my $title = $toolsref->{$key}->{'crsconf'}->{'title'};
                     $toolsjs .= '         ltitoolsTitle['.$i.'] = '."'$title';\n";                      $toolsjs .= '         ltitoolsTitle['.$i.'] = '."'$title';\n";
                       my $append = $toolsref->{$key}->{'crsconf'}->{'append'};
                       $toolsjs .= '         ltitoolsAppend['.$i.'] = '."'$append';\n";
                 }                  }
   
                 $i++;                  $i++;
             }              }
         }          }
Line 786  function setExternal(extform,residx,type Line 816  function setExternal(extform,residx,type
         }          }
         var labelinput = prefix+'toolcrslabel';          var labelinput = prefix+'toolcrslabel';
         var titleinput = prefix+'toolcrstitle';          var titleinput = prefix+'toolcrstitle';
           var appendinput = prefix+'toolcrsappend';
         if (residx > 0) {          if (residx > 0) {
             labelinput += '_'+residx;              labelinput += '_'+residx;
             titleinput += '_'+residx;              titleinput += '_'+residx;
               appendinput += '_'+residx; 
         }          }
         if (document.getElementById(labelinput)) {          if (document.getElementById(labelinput)) {
             var crslabel = document.getElementById(labelinput).value;              var crslabel = document.getElementById(labelinput).value;
Line 804  function setExternal(extform,residx,type Line 836  function setExternal(extform,residx,type
         } else {          } else {
             info += ':';              info += ':';
         }          }
           if (document.getElementById(appendinput)) {
               var crsappend = document.getElementById(appendinput).value;
               crsappend.trim();
               info += ':'+escape(crsappend);
           } else {
               info += ':';
           }
         info=escape(info);          info=escape(info);
         if (residx > 0) {          if (residx > 0) {
             eval("extform.importdetail.value=title+'='+info+'='+residx;extform.submit();");              eval("extform.importdetail.value=title+'='+info+'='+residx;extform.submit();");
Line 854  function updateExttool(caller,form,suppl Line 893  function updateExttool(caller,form,suppl
     heightinput = prefix+'tooldimenheight';      heightinput = prefix+'tooldimenheight';
     labeldiv = prefix+'toolcrslabeldiv';      labeldiv = prefix+'toolcrslabeldiv';
     titlediv = prefix+'toolcrstitlediv';      titlediv = prefix+'toolcrstitlediv';
       appenddiv = prefix+'toolcrsappenddiv';
       providerurl = prefix+'toolproviderurl';
     labelinput = prefix+'toolcrslabel';      labelinput = prefix+'toolcrslabel';
     titleinput = prefix+'toolcrstitle';      titleinput = prefix+'toolcrstitle';
       appendinput = prefix+'toolcrsappend';
     windiv = prefix+'toolwindiv';        windiv = prefix+'toolwindiv';  
     linktextdiv = prefix+'toollinktextdiv';      linktextdiv = prefix+'toollinktextdiv';
     linktextinput = prefix+'toollinktext';      linktextinput = prefix+'toollinktext';
Line 886  function updateExttool(caller,form,suppl Line 928  function updateExttool(caller,form,suppl
             if (document.getElementById(titlediv)) {              if (document.getElementById(titlediv)) {
                 document.getElementById(titlediv).style.display = 'none';                  document.getElementById(titlediv).style.display = 'none';
             }              }
               if (document.getElementById(appenddiv)) {
                   document.getElementById(appenddiv).style.display = 'none';
               }
         } else {          } else {
             if (ltitools.length > 0) {              if (ltitools.length > 0) {
                 for (var j=0; j<ltitools.length; j++) {                  for (var j=0; j<ltitools.length; j++) {
Line 969  function updateExttool(caller,form,suppl Line 1014  function updateExttool(caller,form,suppl
                                 document.getElementById(titlediv).style.display = 'none';                                  document.getElementById(titlediv).style.display = 'none';
                             }                              }
                         }                          }
                           if (document.getElementById(appenddiv)) {
                               if (ltitoolsAppend[j]) {
                                   document.getElementById(appenddiv).style.display = 'inline';
                                   if (document.getElementById(providerurl)) {
                                       if ((ltitoolsUrl[j] != '') && (ltitoolsUrl[j] != null)) {
                                           document.getElementById(providerurl).innerHTML = '&nbsp;('+ltitoolsUrl[j]+')<br />';
                                       }
                                   }
                               } else {
                                   document.getElementById(appenddiv).style.display = 'none';
                                   if (document.getElementById(providerurl)) {
                                       document.getElementById(providerurl).innerHTML = '';
                                   }
                               }
                           }
                         break;                          break;
                     }                      }
                 }                  }
Removed from v.1.19  
changed lines
  Added in v.1.22

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