richter at apache
Aug 15, 2004, 11:48 PM
Post #1 of 1
(958 views)
Permalink
|
|
cvs commit: embperl/Embperl/Recipe EmbperlXSLT.pm
|
|
richter 2004/08/15 23:48:03
Modified: Embperl/Recipe EmbperlXSLT.pm
Log:
xml escape apostrophe in automatic xslt parameters
Revision Changes Path
1.5 +2 -2 embperl/Embperl/Recipe/EmbperlXSLT.pm
Index: EmbperlXSLT.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Recipe/EmbperlXSLT.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- EmbperlXSLT.pm 16 Aug 2004 05:58:30 -0000 1.4
+++ EmbperlXSLT.pm 16 Aug 2004 06:48:03 -0000 1.5
@@ -54,7 +54,7 @@
push @$ep, {'type' => 'eptostring' } ;
push @$ep, {'type' => $xsltproc . '-parse-xml', } ;
push @$ep, {'type' => $xsltproc, stylesheet => \@stylesheet, $param -> xsltparam?():
- (param => { map { $_ => "'$Embperl::fdat{$_}'" } keys %Embperl::fdat }) } ;
+ (param => { map { my $v = $Embperl::fdat{$_} ; $v =~ s/\'/'/g ; ($_ => "'$v'") } keys %Embperl::fdat }) } ;
return $ep ;
}
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe [at] perl
For additional commands, e-mail: embperl-cvs-help [at] perl
|
