From d0556719b9bfb1330325f28717bc44a73f74c539 Mon Sep 17 00:00:00 2001 From: Christian Egli Date: Wed, 17 Mar 2010 15:05:10 +0100 Subject: [PATCH] Fix the id generation of a project --- lisp/org-taskjuggler.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lisp/org-taskjuggler.el b/lisp/org-taskjuggler.el index c32f3a186..42b7065d5 100644 --- a/lisp/org-taskjuggler.el +++ b/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)