--- loncom/interface/lonhtmlcommon.pm 2004/06/03 14:28:39 1.72 +++ loncom/interface/lonhtmlcommon.pm 2004/06/04 16:05:47 1.74 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common html routines # -# $Id: lonhtmlcommon.pm,v 1.72 2004/06/03 14:28:39 www Exp $ +# $Id: lonhtmlcommon.pm,v 1.74 2004/06/04 16:05:47 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -875,23 +875,43 @@ sub htmlareaheaders { } return (< - _editor_url="/htmlarea/"; - - - + + ENDHEADERS } +# ------------------------------------------------- Activate additional buttons + +sub htmlareaaddbuttons { + if (&htmlareablocked()) { return ''; } + return (<\$','\$'); + } + ); + config.registerButton('ed_math_eqn','LaTeX Equation', + '/htmlarea/images/ed_math_eqn.gif',false, + function(editor,id) { + editor.surroundHTML('
\\\\[','\\\\]
'); + } + ); + config.toolbar.push(['ed_math','ed_math_eqn']); +ENDADDBUTTON +} # ---------------------------------------------------------- Script to activate sub htmlareaactive { if (&htmlareablocked()) { return ''; } + my $addbuttons=&htmlareaaddbuttons(); return (< - HTMLArea.replaceAll(); + $addbuttons + HTMLArea.replaceAll(config); ENDSCRIPT } @@ -899,12 +919,14 @@ ENDSCRIPT # ----------------------------------------- Script to activate only some fields sub htmlareaselectactive { + my @fields=@_; if (&htmlareablocked()) { return ''; } - my $output='"; + $output.="\nwindow.status='Activated Editfields';\n"; return $output; }