some uniqs

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

1 files changed, 5 insertions, 1 deletions

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;