diff options
author | dakkar <dakkar@thenautilus.net> | 2009-08-17 13:48:11 +0200 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2009-08-17 13:48:11 +0200 |
commit | 0aa99246f129a4218464a2ffaecf88aa77dbd22e (patch) | |
tree | 75b429fedfb6b8ab39a9d0b41b19f2446989f83b /lib/WebCoso | |
parent | decode ReST files before parsing (diff) | |
download | WebCoso-0aa99246f129a4218464a2ffaecf88aa77dbd22e.tar.gz WebCoso-0aa99246f129a4218464a2ffaecf88aa77dbd22e.tar.bz2 WebCoso-0aa99246f129a4218464a2ffaecf88aa77dbd22e.zip |
some EXSLT functions missing from XML::LibXSLT
untested, and should really be in a separate distribution
Diffstat (limited to 'lib/WebCoso')
-rw-r--r-- | lib/WebCoso/XSLT.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/WebCoso/XSLT.pm b/lib/WebCoso/XSLT.pm index 28643c5..b52d596 100644 --- a/lib/WebCoso/XSLT.pm +++ b/lib/WebCoso/XSLT.pm @@ -8,6 +8,7 @@ use XML::LibXSLT; use DateTime::Format::Strptime; use Log::Log4perl ':easy'; use Data::Dumper; +use XML::LibXSLT::EXSLT; my $NS='http://webcoso.thenautilus.net/'; @@ -19,6 +20,8 @@ sub new { $self->{xml_parser}=XML::LibXML->new(); $self->{xslt_proc}=XML::LibXSLT->new(); + XML::LibXSLT::EXSLT->apply_to($self->{xslt_proc}); + $self->{xslt_proc}->register_function($NS,'title-for', sub{$self->getTitleForXML(@_)}); $self->{xslt_proc}->register_function($NS,'dst-uri-for', |