Select Code to Download

use autouse WQ_Finish => qw(EmailQuote QuotePage genHTMLquote genTextQ
+uote zoneBreak);

...
...

EmailQuote();    # Send quote to customer

local $crlf = "\x0d\x0a";

     $retval .= '<b><i>This quote is good for ' . $main::QteExpires . 
+' from the date above.</i></b><br><br>' . $crlf;
     if ($main::QtePostscript ne '') { $retval .= '<font size=-1>' . m
+ain::esc2HTML($main::QtePostscript) . '</font>' . $crlf; }

sub esc2HTML {                     # Convert plain text to HTML (&s, <
+s, >s, "s, double spaces, etc.)
     my $retval = shift;
...
     $retval =~ s/\n/\<br\>\<br\>\n/g;
     return $retval;
}