[SVN] [42] Allow XSLT() to take params

[matt]

Revision: 42
Author:   matt
Date:     2006-08-05 01:31:23 +0000 (Sat, 05 Aug 2006)

Log Message:
-----------
Allow XSLT() to take params

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

Modified: trunk/lib/AxKit2/Processor.pm
===================================================================
--- trunk/lib/AxKit2/Processor.pm       2006-08-05 01:30:18 UTC (rev 41)
+++ trunk/lib/AxKit2/Processor.pm       2006-08-05 01:31:23 UTC (rev 42)
@@ -114,7 +114,7 @@
 
 sub XSLT {
     my $stylesheet = shift || die "XSLT requires a stylesheet";
-    return AxKit2::Transformer::XSLT->new($stylesheet);
+    return AxKit2::Transformer::XSLT->new($stylesheet, @_);
 }
 
 sub TAL {

Modified: trunk/lib/AxKit2/Transformer/XSLT.pm
===================================================================
--- trunk/lib/AxKit2/Transformer/XSLT.pm        2006-08-05 01:30:18 UTC (rev 41)
+++ trunk/lib/AxKit2/Transformer/XSLT.pm        2006-08-05 01:31:23 UTC (rev 42)
@@ -16,7 +16,9 @@
     
     my $stylesheet = shift;
     
-    return bless { stylesheet => $stylesheet }, $class;
+    my @params = @_;
+    
+    return bless { stylesheet => $stylesheet, params => [EMAIL PROTECTED] }, 
$class;
 }
 
 my %cache;
@@ -36,7 +38,7 @@
         $cache{$stylefile} = $stylesheet;
     }
     
-    my $results = $stylesheet->transform($dom);
+    my $results = $stylesheet->transform($dom, @{ $self->{params} });
     
     return $results, sub { $self->output(@_) };
 }