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}{
ns_write "<li><font color=brown>Warning: Didn't find project type '$project_type', using default status 'Other'</font>\n"
ns_write "<li><font color=brown>Warning: Didn't find project type '$project_type', using default type 'Other'</font>\n"
set project_status_id [im_project_type_other]
set project_type_id [im_project_type_other]
}
}
# On track status can be NULL without problems
# On track status can be NULL without problems
set on_track_status_id [im_id_from_category [list$on_track_status]"Intranet Project On Track Status"]
set on_track_status_id [im_id_from_category [list$on_track_status]"Intranet Project On Track Status"]
# Priority has been introduced by department planner...
# Priority has been introduced by department planner...
set project_priority_id [im_id_from_category [list$project_priority]"Intranet Department Planner Project Priority"]
set project_priority_id [im_id_from_category [list$project_priority]"Intranet Department Planner Project Priority"]
ns_write "<li>priority=$project_priority_id for $project_priority\n"
# customer_id
# customer_id
if {"" == $customer_id }{ set customer_id [db_string cust "select company_id from im_companies where lower(company_name) = trim(lower(:customer_name))" -default ""]}
if {"" == $customer_id }{ set customer_id [db_string cust "select company_id from im_companies where lower(company_name) = trim(lower(:customer_name))" -default ""]}