loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.51, 2004/02/16 23:27:03
+version 1.52, 2004/02/18 08:07:16
  Line 803  sub crumbs {
      return $output.'</font></b></tt><br />';
  }
+ # ------------------------------------------------- Output headers for HTMLArea
+ sub htmlareaheaders {
+     unless (&htmlareabrowser()) { return ''; }
+     my $lang='en';
+     return (<<ENDHEADERS);
+ <script type="text/javascript" src="/htmlarea/htmlarea.js"></script>
+ <script type="text/javascript" src="/htmlarea/lang/$lang.js"></script>
+ <script type="text/javascript" src="/htmlarea/dialog.js"></script>
+ <style type="text/css">
+ \@import url(/htmlarea/htmlarea.css);
+ </style>
+ ENDHEADERS
+ }
+ # ---------------------------------------------------------- Script to activate
+ sub htmlareaactive {
+     unless (&htmlareabrowser()) { return ''; }
+     return (<<ENDSCRIPT);
+ <script type="text/javascript" defer="1">
+     HTMLArea.replaceAll();
+ </script>
+ ENDSCRIPT
+ }
+ # ---------------------------------------- Browser capable of running HTMLArea?
+ sub htmlareabrowser {
+     return 1;
+ }
 ;