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 => [EMAIL PROTECTED], $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: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
