loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.71, 2004/06/02 16:41:46
+version 1.72, 2004/06/03 14:28:39
  Line 896  sub htmlareaactive {
  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
  sub htmlareablocked {