diff options
Diffstat (limited to 'lib/WebCoso/XSLT.pm')
| -rw-r--r-- | lib/WebCoso/XSLT.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/WebCoso/XSLT.pm b/lib/WebCoso/XSLT.pm index 1f9208a..0d36652 100644 --- a/lib/WebCoso/XSLT.pm +++ b/lib/WebCoso/XSLT.pm @@ -6,6 +6,7 @@ use Path::Class; use XML::LibXML; use XML::LibXSLT; use DateTime::Format::Strptime; +use Log::Log4perl ':easy'; my $NS='http://webcoso.thenautilus.net/'; @@ -33,12 +34,13 @@ sub new { $self->{du2html}=sub { my ($maker,$target,$deps,$matches)=@_; + DEBUG("du2html($maker,$target,(@$deps),(@$matches))"); my $du=$self->{fc}->get($deps->[-1]); my $xslt=file($deps->[-1])->parent->file('du2html.xsl'); $xslt=$self->{fc}->get($xslt); if (@$deps>1) { - warn "xml tagging as $deps->[0]\n"; + INFO("xml tagging as $deps->[0]"); $self->setXMLTagsSource($self->{fc}->get($deps->[0])); } else { $self->setXMLTagsSource(undef); @@ -69,8 +71,6 @@ sub getTagsXML { my $doc=XML::LibXML::Document->new(); return $doc unless defined $self->{tags_source}; - warn "getTagsXML()\n"; - my $de=$doc->createElementNS($NS,'wc:tags'); $doc->setDocumentElement($de); my ($tagname,$doclist); |