forse i feed vanno (tranne i body); cleaner non elimina i sorgenti dei feed

git-svn-id: svn://luxion/repos/WebCoso/trunk@397 fcb26f47-9200-0410-b104-b98ab5b095f3

1 files changed, 3 insertions, 1 deletions

diff --git a/lib/WebCoso/XSLT.pm b/lib/WebCoso/XSLT.pm
index c47377a..40c945b 100644
--- a/lib/WebCoso/XSLT.pm
+++ b/lib/WebCoso/XSLT.pm
@@ -23,6 +23,8 @@ sub new {
     $self->{xslt_proc}->register_function($NS,'tagged',sub{$self->getTagsXML});
     $self->{xslt_proc}->register_function($NS,'dates-for',
                                           sub{$self->getDatesXML(WebCoso::Common::getDatesFor($self->{fc},@_))});
+    $self->{xslt_proc}->register_function($NS,'document',
+                                          sub{$self->{fc}->get(WebCoso::Common::srcXMLFor(@_))});
     $self->{xslt_proc}->register_function($NS,'message',
                                           sub{DEBUG($_[0],' ',$_[1]->get_node(0)->toString());return ''});
     $self->{xslt_proc}->debug_callback(sub{DEBUG(@_)});
@@ -43,7 +45,7 @@ sub new {
         my $xslt=file($deps->[-1])->parent->file('du2html.xsl');
         $xslt=$self->{fc}->get($xslt);
         if (@$deps>1) {
-            INFO("xml tag source from as $deps->[0]");
+            INFO("xml tag source from $deps->[0]");
             $self->setXMLTagsSource($self->{fc}->get($deps->[0]));
         } else {
             $self->setXMLTagsSource(undef);