mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-25 05:32:51 +00:00
Code Releases Activity

Fix the id generation of a project

Browse source
This commit is contained in:
Christian Egli 2010-03-17 15:05:10 +01:00
parent e0e433f1d7
commit d0556719b9
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/org-taskjuggler.el
View file

@ -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 " "project " unique-id
(or id "FIXME")
" \"" headline "\" \"" version "\" " start " - " end " {\n " "}\n")))) " \"" headline "\" \"" version "\" " start " - " end " {\n " "}\n"))))
(defun org-taskjuggler-open-resource (resource) (defun org-taskjuggler-open-resource (resource)