Просмотр исходного кода

Fix the id generation of a project

Christian Egli 16 лет назад
Родитель
Сommit
d0556719b9
1 измененных файлов с 2 добавлено и 3 удалено
  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)