[O] Including date in TaskJuggler exports

[Luke Crook]

The following small change to ox-taskjuggler.el will export the date stored 
in #+DATE:  


        Modified   site/org-mode/contrib/lisp/ox-taskjuggler.el
diff --git a/site/org-mode/contrib/lisp/ox-taskjuggler.el b/site/org-
mode/contrib/lisp/ox-taskjuggler.el
index 761e180..5a1895c 100644
--- a/site/org-mode/contrib/lisp/ox-taskjuggler.el
+++ b/site/org-mode/contrib/lisp/ox-taskjuggler.el
@@ -696,18 +696,30 @@ Return complete project plan as a string in 
TaskJuggler syntax."
               (mapconcat
                (lambda (report) (org-taskjuggler--build-report report 
info))
                main-reports "")
-           ;; insert title in default reports
+           ;; insert title and date in default reports
            (let* ((title (org-export-data (plist-get info :title) info))
                   (report-title (if (string= title "")
                                     (org-taskjuggler-get-name project)
-                                  title)))
-             (mapconcat
-              'org-element-normalize-string
-              (mapcar
-               (function
-                (lambda (report)
-                  (replace-regexp-in-string "%title" report-title  report t 
t)))
-               org-taskjuggler-default-reports) "")))))))))
+                                  title))
+                  (date (org-export-data (plist-get info :date) info))
+                  (report-date (if (string= date "")
+                                   (org-taskjuggler-get-name project)
+                                 date)))
+             (let* ((with-title (mapcar
+                                 (function
+                                  (lambda (report)
+                                    (replace-regexp-in-string "%title" 
report-title  report t t)))
+                                 org-taskjuggler-default-reports))
+                    (with-date (mapcar
+                                (function
+                                 (lambda (report)
+                                   (replace-regexp-in-string "%date" 
report-date  report t t)))
+                                with-title)))
+               
+               (mapconcat
+                'org-element-normalize-string
+                with-date
+                ""))))))))))