Browse Source

Fix the id generation of a project

Christian Egli 15 years ago
parent
commit
d0556719b9
1 changed files with 2 additions and 3 deletions
  1. 2 3
      lisp/org-taskjuggler.el

+ 2 - 3
lisp/org-taskjuggler.el

@@ -266,15 +266,14 @@
   (and id (replace-regexp-in-string "[^a-zA-Z0-9_]" "_" id)))
   (and id (replace-regexp-in-string "[^a-zA-Z0-9_]" "_" id)))
 
 
 (defun org-taskjuggler-open-project (project)
 (defun org-taskjuggler-open-project (project)
-  (let ((id (org-taskjuggler-clean-id (cdr (assoc "ID" project))))
+  (let ((unique-id (cdr (assoc "unique-id" project)))
 	(headline (cdr (assoc "headline" project)))
 	(headline (cdr (assoc "headline" project)))
 	(version (cdr (assoc "version" project)))
 	(version (cdr (assoc "version" project)))
 	(start (cdr (assoc "start" project)))
 	(start (cdr (assoc "start" project)))
 	(end (cdr (assoc "end" project))))
 	(end (cdr (assoc "end" project))))
     (insert 
     (insert 
      (concat 
      (concat 
-      "project " 
-      (or id "FIXME") 
+      "project " unique-id
       " \"" headline "\" \"" version "\" " start " - " end " {\n " "}\n"))))
       " \"" headline "\" \"" version "\" " start " - " end " {\n " "}\n"))))
 
 
 (defun org-taskjuggler-open-resource (resource)
 (defun org-taskjuggler-open-resource (resource)