Explorar el Código

Fix the id generation of a project

Christian Egli hace 15 años
padre
commit
d0556719b9
Se han modificado 1 ficheros con 2 adiciones y 3 borrados
  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)))
 
 (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)))
 	(version (cdr (assoc "version" project)))
 	(start (cdr (assoc "start" project)))
 	(end (cdr (assoc "end" project))))
     (insert 
      (concat 
-      "project " 
-      (or id "FIXME") 
+      "project " unique-id
       " \"" headline "\" \"" version "\" " start " - " end " {\n " "}\n"))))
 
 (defun org-taskjuggler-open-resource (resource)