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

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

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

Modified Files:
	HTML.pm 
Log Message:
backing out 181 -- bug in amp fix -- dock the tester's pay 'n' perks

Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.81
retrieving revision 1.82
diff -C2 -d -r1.81 -r1.82
*** HTML.pm	24 Feb 2003 18:12:17 -0000	1.81
--- HTML.pm	24 Feb 2003 18:49:06 -0000	1.82
***************
*** 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 ) ) {
--- 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 ) ) {