From 3c073b8470348284de7187e0e9609079773c2be6 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@luxion>
Date: Sat, 27 Dec 2008 11:38:15 +0000
Subject: =?UTF-8?q?forse=20i=20feed=20funzionano=E2=80=A6=20non=20testato?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: svn://luxion/repos/WebCoso/trunk@394 fcb26f47-9200-0410-b104-b98ab5b095f3
---
 lib/WebCoso/XSLT.pm | 29 ++++++++++++++++++++++++++++-
 1 file changed, 28 insertions(+), 1 deletion(-)

(limited to 'lib/WebCoso/XSLT.pm')

diff --git a/lib/WebCoso/XSLT.pm b/lib/WebCoso/XSLT.pm
index 70efc62..c47377a 100644
--- a/lib/WebCoso/XSLT.pm
+++ b/lib/WebCoso/XSLT.pm
@@ -43,7 +43,29 @@ sub new {
         my $xslt=file($deps->[-1])->parent->file('du2html.xsl');
         $xslt=$self->{fc}->get($xslt);
         if (@$deps>1) {
-            INFO("xml tagging as $deps->[0]");
+            INFO("xml tag source from as $deps->[0]");
+            $self->setXMLTagsSource($self->{fc}->get($deps->[0]));
+        } else {
+            $self->setXMLTagsSource(undef);
+        }
+        my $out=$xslt->transform($du,
+                                 XML::LibXSLT::xpath_to_string(
+                                     path => $matches->[0],
+                                     language => $matches->[1],
+                                     filename => $deps->[-1],
+                                 ));
+        $self->{fc}->put($target,$xslt->output_string($out));
+    };
+
+    $self->{fillFeed}=sub {
+        my ($maker,$target,$deps,$matches)=@_;
+        DEBUG("fillFeed($maker,$target,(@$deps),(@$matches))");
+
+        my $du=$self->{fc}->get($deps->[-1]);
+        my $xslt=file($deps->[-1])->parent->file('fillFeed.xsl');
+        $xslt=$self->{fc}->get($xslt);
+        if (@$deps>1) {
+            INFO("xml tag source from $deps->[0]");
             $self->setXMLTagsSource($self->{fc}->get($deps->[0]));
         } else {
             $self->setXMLTagsSource(undef);
@@ -65,6 +87,11 @@ sub du2html {
     return $self->{du2html};
 }
 
+sub fillFeed {
+    my ($self)=@_;
+    return $self->{fillFeed};
+}
+
 sub setXMLTagsSource {
     my ($self,$source)=@_;
     $self->{tags_source}=$source;
-- 
cgit v1.2.3