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

Diff for /loncom/interface/lonhtmlcommon.pm between versions 1.71 and 1.74

version 1.71, 2004/06/02 16:41:46 version 1.74, 2004/06/04 16:05:47
Line 875  sub htmlareaheaders { Line 875  sub htmlareaheaders {
     }      }
     return (<<ENDHEADERS);      return (<<ENDHEADERS);
 <script type="text/javascript">  <script type="text/javascript">
     _editor_url="/htmlarea/";  
 </script>  
 <script type="text/javascript" src="/htmlarea/htmlarea.js"></script>  
 <style type="text/javascript">  
 _editor_url='/htmlarea/';  _editor_url='/htmlarea/';
 _editor_lang='$lang';  _editor_lang='$lang';
 </style>  </script>
   <script type="text/javascript" src="/htmlarea/htmlarea.js"></script>
 ENDHEADERS  ENDHEADERS
 }  }
   
   # ------------------------------------------------- Activate additional buttons
   
   sub htmlareaaddbuttons {
       if (&htmlareablocked()) { return ''; }
       return (<<ENDADDBUTTON);
       var config=new HTMLArea.Config();
       config.registerButton('ed_math','LaTeX Inline',
     '/htmlarea/images/ed_math.gif',false,
       function(editor,id) {
         editor.surroundHTML('<m>\$','\$</m>');
       }
     );
       config.registerButton('ed_math_eqn','LaTeX Equation',
     '/htmlarea/images/ed_math_eqn.gif',false,
       function(editor,id) {
         editor.surroundHTML('<br /><m>\\\\[','\\\\]</m><br />');
       }
     );
       config.toolbar.push(['ed_math','ed_math_eqn']);
   ENDADDBUTTON
   }
 # ---------------------------------------------------------- Script to activate  # ---------------------------------------------------------- Script to activate
   
 sub htmlareaactive {  sub htmlareaactive {
     if (&htmlareablocked()) { return ''; }      if (&htmlareablocked()) { return ''; }
       my $addbuttons=&htmlareaaddbuttons();
     return (<<ENDSCRIPT);      return (<<ENDSCRIPT);
 <script type="text/javascript" defer="1">  <script type="text/javascript" defer="1">
     HTMLArea.replaceAll();      $addbuttons
       HTMLArea.replaceAll(config);
 </script>  </script>
 ENDSCRIPT  ENDSCRIPT
 }  }
   
   # ----------------------------------------- Script to activate only some fields
   
   sub htmlareaselectactive {
       my @fields=@_;
       if (&htmlareablocked()) { return ''; }
       my $output='<script type="text/javascript" defer="1">'.
    &htmlareaaddbuttons();
       foreach(@fields) {
    $output.="\nHTMLArea.replace('$_',config);";
       }
       $output.="\nwindow.status='Activated Editfields';\n</script>";
       return $output;
   }
   
 # --------------------------------------------------------------------- Blocked  # --------------------------------------------------------------------- Blocked
   
 sub htmlareablocked {  sub htmlareablocked {
Removed from v.1.71  
changed lines
  Added in v.1.74

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