summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristian Egli <christian.egli@alumni.ethz.ch>2013-04-24 10:20:54 +0200
committerChristian Egli <christian.egli@alumni.ethz.ch>2013-04-24 10:20:54 +0200
commit7187fdcb9de4bd2d61f794feaedd026f5632c168 (patch)
tree3cf051fa69861bfcc488b55e4341c3cdd6fd98e3
parentfea4b5c3adee820cde4b1257dee603c0d29ea8b2 (diff)
downloadorg-mode-7187fdcb9de4bd2d61f794feaedd026f5632c168.tar.gz
Use both scheduled and the start property to determine start
* ox-taskjuggler.el (org-taskjuggler-get-start): Use both the scheduled and the start property (if it is in org-taskjuggler-valid-resource-attributes) to determine the start of a task or the project. Thanks to John Hendy for the report and thorough analysis.
-rw-r--r--contrib/lisp/ox-taskjuggler.el5
1 files changed, 4 insertions, 1 deletions
diff --git a/contrib/lisp/ox-taskjuggler.el b/contrib/lisp/ox-taskjuggler.el
index e1f82bb..3fdef64 100644
--- a/contrib/lisp/ox-taskjuggler.el
+++ b/contrib/lisp/ox-taskjuggler.el
@@ -458,7 +458,10 @@ ITEM is a headline. Return value is a string."
ITEM is a headline. Return value is a string or nil if ITEM
doesn't have any start date defined.."
(let ((scheduled (org-element-property :scheduled item)))
- (and scheduled (org-timestamp-format scheduled "%Y-%02m-%02d"))))
+ (or
+ (and scheduled (org-timestamp-format scheduled "%Y-%02m-%02d"))
+ (and (member 'start org-taskjuggler-valid-resource-attributes)
+ (org-element-property :START item)))))
(defun org-taskjuggler-get-end (item)
"Return end date for task or resource ITEM.