[popfile-commit] engine/UI HTML.pm,1.80,1.81

[<sta...@us...>]

Update of /cvsroot/popfile/engine/UI
In directory sc8-pr-cvs1:/tmp/cvs-serv12470

Modified Files:
	HTML.pm 
Log Message:
D. Smith amp fix for History page messages list

Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.80
retrieving revision 1.81
diff -C2 -d -r1.80 -r1.81
*** HTML.pm	23 Feb 2003 20:56:32 -0000	1.80
--- HTML.pm	24 Feb 2003 18:12:17 -0000	1.81
***************
*** 2736,2749 ****
              $from =~ s/</&lt;/g;
              $from =~ s/>/&gt;/g;
! 
              $short_from =~ s/</&lt;/g;
              $short_from =~ s/>/&gt;/g;
! 
              $subject =~ s/</&lt;/g;
              $subject =~ s/>/&gt;/g;
! 
              $short_subject =~ s/</&lt;/g;
              $short_subject =~ s/>/&gt;/g;
! 
              $body .= "<tr";
              if ( ( ( defined($self->{form}{view}) ) && ( $self->{form}{view} eq $mail_file ) ) || ( ( defined($self->{form}{file}) && ( $self->{form}{file} eq $mail_file ) ) ) || ( $highlight_message eq $mail_file ) ) {
--- 2736,2753 ----
              $from =~ s/</&lt;/g;
              $from =~ s/>/&gt;/g;
!             $from =~ s/&/&amp;/g;
!             
              $short_from =~ s/</&lt;/g;
              $short_from =~ s/>/&gt;/g;
!             $short_from =~ s/&/&amp;/g;
!             
              $subject =~ s/</&lt;/g;
              $subject =~ s/>/&gt;/g;
!             $subject =~ s/&/&amp;/g;
!             
              $short_subject =~ s/</&lt;/g;
              $short_subject =~ s/>/&gt;/g;
!             $short_subject =~ s/&/&amp;/g;
!             
              $body .= "<tr";
              if ( ( ( defined($self->{form}{view}) ) && ( $self->{form}{view} eq $mail_file ) ) || ( ( defined($self->{form}{file}) && ( $self->{form}{file} eq $mail_file ) ) ) || ( $highlight_message eq $mail_file ) ) {