      (cdr (assoc org-redmine-property-id-name properties))
      (cdr (assoc org-redmine-property-updated-name properties)))))
 
-
+(defun org-redmine-entry-get-project-id ()
+  "Get project id from the tags and traslate it to redmine
+   format if necessary"
+  (let ((org-project-id (nth 1 (org-get-tags))))
+    (let ((redmine-project-id
+           (cdr (assoc org-project-id org-redmine-tag-to-project-id-table))))
+      (if redmine-project-id redmine-project-id org-project-id))))
 ;;------------------------------
 ;; org-redmine buffer function
 ;;------------------------------

    ("%v_n%"     "fixed_version" "name")
    ("%v_i%"     "fixed_version" "id")))


(defvar org-redmine-uri "http://redmine120.dev"
  "Target Redmine URI")

;; org-redmine read buffer functions
;;------------------------------
(defun org-redmine-cur-org-issue ()
  (make-org-redmine-issue-struct :subject (nth 4 (org-heading-components)) :project_id (org-redmine-entry-get-project-id)))

(defun org-redmine-jsonize-issue (issue)
  (concat "{ \"issue\": {"
