version 1.51, 2004/02/16 23:27:03
|
version 1.52, 2004/02/18 08:07:16
|
Line 803 sub crumbs {
|
Line 803 sub crumbs {
|
return $output.'</font></b></tt><br />'; |
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; |
|
} |
|
|
1; |
1; |
|
|