From 6ef2ff64a7489335489be54495d47d0ca232b937 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@luxion>
Date: Wed, 7 Jan 2009 14:11:50 +0000
Subject: pulizia dei path, ma non va proprio bene

git-svn-id: svn://luxion/repos/WebCoso/trunk@404 fcb26f47-9200-0410-b104-b98ab5b095f3
---
 lib/WebCoso/Common.pm | 12 ++++++++++--
 lib/WebCoso/TT.pm     |  2 ++
 2 files changed, 12 insertions(+), 2 deletions(-)

(limited to 'lib/WebCoso')

diff --git a/lib/WebCoso/Common.pm b/lib/WebCoso/Common.pm
index 46f63b6..6c9a433 100644
--- a/lib/WebCoso/Common.pm
+++ b/lib/WebCoso/Common.pm
@@ -15,6 +15,13 @@ our $DSTBASEURL='/';
 our @TMPLPATH=('common/');
 our $VERBOSITY=0;
 
+sub setpaths {
+    for my $path ($SRCPATH,$DSTPATH,@TMPLPATH) {
+        $path=file($path)->absolute()->stringify;
+    }
+    return;
+}
+
 my $xpath=XML::LibXML::XPathContext->new();
 $xpath->registerNs('x', 'http://www.w3.org/1999/xhtml');
 
@@ -49,7 +56,7 @@ sub dstUriFor {
     }
     if ($path) {
         $name=file($name)->absolute(file($path)->parent)->relative($SRCPATH);
-        $name="$SRCPATH/$name";
+        $name=dir("$SRCPATH/$name/")->cleanup->stringify . '/';
     }
     $name=~s{^\Q$SRCPATH\E/}{$DSTBASEURL};
     DEBUG("dstUriFor -> $name");
@@ -182,7 +189,8 @@ sub getTags {
 
     my %tagged;
     for my $doc_name (uniq(@docs)) {
-        my $doc=$fc->get($doc_name);
+        my $xml_name=typedAs($doc_name,'du.xml');
+        my $doc=$fc->get($xml_name);
         my @tags=map {$_->textContent}
             $xpath->findnodes(
                 q{/document/docinfo/field[field_name='tags']/field_body/*/list_item|/document/docinfo/field[field_name='tags']/field_body/paragraph},
diff --git a/lib/WebCoso/TT.pm b/lib/WebCoso/TT.pm
index 15e2072..50b28a3 100644
--- a/lib/WebCoso/TT.pm
+++ b/lib/WebCoso/TT.pm
@@ -39,6 +39,7 @@ sub new {
         dstUriFor => \&WebCoso::Common::dstUriFor,
         isLang => \&WebCoso::Common::isLang,
         atomIdFor => sub{WebCoso::Common::getAtomIdFor($self->{fc},@_)},
+        typedAs => \&WebCoso::Common::typedAs,
     };
 
     $self->{template_provider}=Template::Provider->new({
@@ -64,6 +65,7 @@ sub new {
         my $tmpl=$self->{fc}->get($deps->[-1]);
         my $vars={ path=> $matches->[0],
                    language => $matches->[1],
+                   filename => $deps->[-1],
                    %{$self->{stash}},
                };
         if (@$deps>1) {
-- 
cgit v1.2.3