From 33aa584d604fa52fdb98b30d6003a74c34c117af Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@luxion>
Date: Wed, 1 Oct 2008 13:33:36 +0000
Subject: addded logging

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

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

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);
-- 
cgit v1.2.3