From 0fb7944c058712bf47a5e428c063550b18dffabb Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@luxion>
Date: Wed, 1 Oct 2008 14:37:48 +0000
Subject: some uniqs

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

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

diff --git a/lib/WebCoso/XSLT.pm b/lib/WebCoso/XSLT.pm
index 0d36652..ea12b38 100644
--- a/lib/WebCoso/XSLT.pm
+++ b/lib/WebCoso/XSLT.pm
@@ -23,6 +23,9 @@ 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,'message',
+                                          sub{DEBUG($_[0],' ',$_[1]->get_node(0)->toString());return ''});
+    $self->{xslt_proc}->debug_callback(sub{DEBUG(@_)});
 
     $self->{fc}->add_parser(qr{\.xml$} =>
                                 sub { $self->{xml_parser}->parse_string($_[1],$_[0]) });
@@ -83,7 +86,7 @@ sub getTagsXML {
         my ($docurl,$langs);
         while (($docurl,$langs)=each %docs) {
             my $dle=$doc->createElementNS($NS,'wc:doc');
-            $dle->setAttribute('uri',$docurl);
+            $dle->setAttribute('uri',$docurl||'ERRORE');
             $te->appendChild($dle);
             for my $lang (@$langs) {
                 my $le=$doc->createElementNS($NS,'wc:lang');
@@ -114,4 +117,5 @@ sub getDatesXML {
     return $doc;
 }
 }
+
 1;
-- 
cgit v1.2.3