# Project type is optional: Main projects are assumed to be "Gantt Projects", while sub-project are assumed to be "Task"
set project_type_id [im_id_from_category [list$project_type]"Intranet Project Type"]
set project_type_id [im_id_from_category [list$project_type]"Intranet Project Type"]
if {"" == $project_type_id}{
if {"" == $project_type_id}{
if {$ns_write_p}{ ns_write "<li><font color=brown>Warning: Didn't find project type '$project_type', using default type 'Other'</font>\n"}
set project_type_id [im_project_type_gantt]
set project_type_id [im_project_type_gantt]
if {"" ne $parent_id}{ set project_type_id [im_project_type_task]}
if {$ns_write_p}{ ns_write "<li><font color=brown>Warning: Didn't find project type '$project_type', using default type '[im_category_from_id $project_type_id]'</font>\n"}
}
}
# start_date and end_date are required fields for projects, not tasks
# start_date and end_date are required fields for projects, not tasks