[taskjuggler] small edits to org-taskjuggler.el for tj3

["Sullivan, Gregory (US SSA)" <gregory.sullivan@baesystems.com>]

Appended is a patch with a couple of small changes to org-taskjuggler.el, addressing the following issues:

General:

* in org-taskjuggler-open-project, the duration is never calculated (default is always used).

Specific to tj3:

* the reports need a "formats" attribute

* tj3 does not support the "utilization" and "freeload" columns in reports. 

* the "sorttasks startup" attribute in the default resourcereport does not make sense anymore. 

Not addressed in the patch:

* I wasn't sure about how best to maintain backwards compatibility with the default report strings, as I override the taskjuggler version in the .org file (not in my .emacs file).

* for tj3, I found that I needed to put a "scheduling" property in the top level task, with value "asap". 

Org-mode version 7.5 (release_7.5.134.gb869b.dirty)
TaskJuggler III v0.0.11

-- Greg
-- 
Greg Sullivan          gregory.sullivan@baesystems.com
(781)262-4553 (office) (978)430-3461 (cell)



--- ../../../git-org-mode-new/org-mode/lisp/org-taskjuggler.el	2011-04-04 13:12:56.758073400 -0400
+++ ./org-taskjuggler.el	2011-04-04 15:32:33.789346200 -0400
@@ -204,13 +204,14 @@
   columns hierarchindex, name, start, end, effort, duration, completed, chart
   timeformat \"%Y-%m-%d\"
   hideresource 1
+  formats html
   loadunit shortauto
 }"
 "resourcereport \"Resource Graph\" {
   headline \"Resource Allocation Graph\"
-  columns no, name, utilization, freeload, chart
+  columns no, name, effortleft, freetime, chart
   loadunit shortauto
-  sorttasks startup
+  formats html
   hidetask ~isleaf()
 }")
   "Default reports for the project."
@@ -553,11 +554,16 @@
 	(headline (cdr (assoc "headline" project)))
 	(version (cdr (assoc "version" project)))
 	(start (cdr (assoc "start" project)))
-	(end (cdr (assoc "end" project))))
+	(end (cdr (assoc "end" project)))
+	(duration (if (and start end)
+		      (- (time-to-days
+			  (date-to-time (format "%s 00:01:00" end)))
+			 (time-to-days
+			  (date-to-time (format "%s 00:01:00" start))))
+		    org-export-taskjuggler-default-project-duration)))
     (insert
      (format "project %s \"%s\" \"%s\" %s +%sd {\n }\n"
-	     unique-id headline version start
-	     org-export-taskjuggler-default-project-duration))))
+	     unique-id headline version start duration))))
 
 (defun org-taskjuggler-filter-and-join (items)
   "Filter all nil elements from ITEMS and join the remaining ones