version 1.71, 2004/06/02 16:41:46
|
version 1.72, 2004/06/03 14:28:39
|
Line 896 sub htmlareaactive {
|
Line 896 sub htmlareaactive {
|
ENDSCRIPT |
ENDSCRIPT |
} |
} |
|
|
|
# ----------------------------------------- Script to activate only some fields |
|
|
|
sub htmlareaselectactive { |
|
if (&htmlareablocked()) { return ''; } |
|
my $output='<script type="text/javascript" defer="1">'; |
|
foreach(@_) { |
|
$output.="\nHTMLArea.replace('$_');"; |
|
} |
|
$output.="\n</script>"; |
|
return $output; |
|
} |
|
|
# --------------------------------------------------------------------- Blocked |
# --------------------------------------------------------------------- Blocked |
|
|
sub htmlareablocked { |
sub htmlareablocked { |