Re: [htmltmpl] Extentions for TMPL_VAR ESCAPE=XXXXX

[Norikatsu Shigemura]

On Thu, 14 Nov 2002 20:37:25 +0900
I <[EMAIL PROTECTED]> wrote:

> +    } elsif ($type eq 'HTML::Template::BR' ) {
> +      $x++;
> +      *line = \$parse_stack[$x];
> +      if (defined($$line)) {
> +        my $toencode = $$line;
> +        $toencode=~s/(\r?\n)/<BR>$1/g;
> +        $result .= $toencode;
> +      }
> +      next;

        Sorry.  Change '\r?\n' to '\r?\n?'.  Because CR texts (made by
        Machintosh) are not converted.

> +    } elsif ($type eq 'HTML::Template::ESCAPE_BR') {
> +      $x++;
> +      *line = \$parse_stack[$x];
> +      if (defined($$line)) {
> +        my $toencode = $$line;
> +        # straight from the CGI.pm bible.
> +        $toencode=~s/&/&amp;/g;
> +        $toencode=~s/\"/&quot;/g; #"
> +        $toencode=~s/>/&gt;/g;
> +        $toencode=~s/</&lt;/g;
> +        $toencode=~s/'/&#39;/g; #'
> +        $toencode=~s/(\r?\n)/<BR>$1/g;
> +        $result .= $toencode;
> +      }
> +      next;

        Same reason.  Change to '\r?\n?'.


-------------------------------------------------------
This sf.net email is sponsored by: To learn the basics of securing 
your web site with SSL, click here to get a FREE TRIAL of a Thawte 
Server Certificate: http://www.gothawte.com/rd524.html
_______________________________________________
Html-template-users mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/html-template-users