From da33f551e5729922d7d38a7308cdcb2dbae386f4 Mon Sep 17 00:00:00 2001
From: Andrew Ruthven <andrew@etc.gen.nz>
Date: Sat, 21 Feb 2009 20:24:02 +1300
Subject: [PATCH] Export the duration for tasks.

---
 planner2csv.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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);
-- 
2.30.2