*** /cygdrive/e/HOME/src/hns-2.10-pl1/public_html/diary/lib/HNS/Diary.pm	Sun Jul 30 12:53:57 2000
--- /cygdrive/e/HOME/public_html/diary/lib/HNS/Diary.pm	Thu Apr  5 23:54:51 2001
***************
*** 35,41 ****
  
  #require 'jcode.pl';
  
! use vars qw(@ISA $Head $UserVar $Foot @WeekString);
  @ISA = qw(ObjectTemplate);
  
  
--- 35,42 ----
  
  #require 'jcode.pl';
  
! use vars qw(@ISA $Head $UserVar $Foot @WeekString $RawMode);
! $RawMode = 0;	### [0:Normal 1:RAW]
  @ISA = qw(ObjectTemplate);
  
  
***************
*** 398,403 ****
--- 399,412 ----
  
  sub HnfPrint ($){
     my $hnf_ = shift;
+ 
+    if( $hnf_ =~ /^<\!--RAW START-->/ ) { $RawMode = 1;}
+    if( $hnf_ =~ /^<\!--RAW END-->/ ) { $RawMode = 0;}
+    if( $RawMode == 1 ){
+        $hnf_ =~ s/&amp;/&/g;
+        $hnf_ =~ s/&lt;/</g;
+        $hnf_ =~ s/&gt;/>/g;
+    }
  
     if ($HNS::System::Caching) {
  	print X $hnf_;