diff options
Diffstat (limited to 'lib/WebCoso/XSLT.pm')
-rw-r--r-- | lib/WebCoso/XSLT.pm | 6 |
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; |