From: Andrew Ruthven <andrew@etc.gen.nz>
Date: Sat, 21 Feb 2009 07:24:02 +0000 (+1300)
Subject: Export the duration for tasks.
X-Git-Url: http://git.etc.gen.nz/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=da33f551e5729922d7d38a7308cdcb2dbae386f4;p=planner-tools.git

Export the duration for tasks.
---

diff --git a/planner2csv.pl b/planner2csv.pl
index ed3c5c3..ba9bdf0 100755
--- a/planner2csv.pl
+++ b/planner2csv.pl
@@ -25,7 +25,7 @@ my $root = $tree->getDocumentElement;
 
 my $csv = Text::CSV_XS->new(); 
 
-print 'id,description,allocated,start,end,"percent complete"' . "\n";
+print 'id,description,allocated,start,end,"duration (s)","percent complete"' . "\n";
 
 for my $tasks ($root->findnodes('/project/tasks')) {
   find_tasks($tasks);
@@ -49,6 +49,7 @@ sub find_tasks {
     push @fields, 
         date_convert($task->findvalue('@start')),
         date_convert($task->findvalue('@end')),
+        $task->findvalue('@work'),
         $task->findvalue('@percent-complete');
 
     $csv->combine (@fields);