--- loncom/interface/lonhtmlcommon.pm 2004/06/03 14:28:39 1.72
+++ loncom/interface/lonhtmlcommon.pm 2004/06/05 14:46:12 1.75
@@ -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.75 2004/06/05 14:46:12 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -875,23 +875,44 @@ 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 +920,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;
}