--- loncom/interface/lonhtmlcommon.pm 2004/05/10 18:57:43 1.70
+++ loncom/interface/lonhtmlcommon.pm 2004/06/03 16:42:02 1.73
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common html routines
#
-# $Id: lonhtmlcommon.pm,v 1.70 2004/05/10 18:57:43 matthew Exp $
+# $Id: lonhtmlcommon.pm,v 1.73 2004/06/03 16:42:02 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -868,25 +868,24 @@ sub crumbs {
# ------------------------------------------------- Output headers for HTMLArea
sub htmlareaheaders {
- unless (&htmlareablocked()) { return ''; }
+ if (&htmlareablocked()) { return ''; }
my $lang='en';
+ if (&mt('htmlarea_lang') ne 'htmlarea_lang') {
+ $lang=&mt('htmlarea_lang');
+ }
return (<
- _editor_url="/htmlarea/";
+_editor_url='/htmlarea/';
+_editor_lang='$lang';
-
-
-
ENDHEADERS
}
# ---------------------------------------------------------- Script to activate
sub htmlareaactive {
- unless (&htmlareablocked()) { return ''; }
+ if (&htmlareablocked()) { return ''; }
return (<
HTMLArea.replaceAll();
@@ -894,11 +893,24 @@ sub htmlareaactive {
ENDSCRIPT
}
+# ----------------------------------------- Script to activate only some fields
+
+sub htmlareaselectactive {
+ my @fields=@_;
+ if (&htmlareablocked()) { return ''; }
+ my $output='";
+ return $output;
+}
+
# --------------------------------------------------------------------- Blocked
sub htmlareablocked {
- unless (&htmlareabrowser()) { return ''; }
- return 1;
+ unless (&htmlareabrowser()) { return 1; }
+ return 0;
}
# ---------------------------------------- Browser capable of running HTMLArea?