[SVN] [47] we need to fixup_params for XSLT

[matt]

Revision: 47
Author:   matt
Date:     2006-08-05 23:28:25 +0000 (Sat, 05 Aug 2006)

Log Message:
-----------
we need to fixup_params for XSLT

Modified Paths:
--------------
    trunk/lib/AxKit2/Transformer/XSLT.pm

Modified: trunk/lib/AxKit2/Transformer/XSLT.pm
===================================================================
--- trunk/lib/AxKit2/Transformer/XSLT.pm        2006-08-05 14:58:26 UTC (rev 46)
+++ trunk/lib/AxKit2/Transformer/XSLT.pm        2006-08-05 23:28:25 UTC (rev 47)
@@ -38,11 +38,22 @@
         $cache{$stylefile} = $stylesheet;
     }
     
-    my $results = $stylesheet->transform($dom, @{ $self->{params} });
+    warn("transform with @{$self->{params}}\n");
+    my $results = $stylesheet->transform($dom, fixup_params(@{ $self->{params} 
}));
     
     return $results, sub { $self->output(@_) };
 }
 
+sub fixup_params {
+    my @results;
+    while (@_) {
+        push @results, XML::LibXSLT::xpath_to_string(
+                splice(@_, 0, 2)
+                );
+    }
+    return @results;
+}
+
 sub output {
     my ($self, $client, $dom) = @_;