Commit a7298c03 authored by Frank Bergmann's avatar Frank Bergmann

- Beautified error messages

parent 7c6fd25d
...@@ -42,6 +42,9 @@ set conf_project_options [im_project_options] ...@@ -42,6 +42,9 @@ set conf_project_options [im_project_options]
set conf_project_nr "" set conf_project_nr ""
if {[info exists conf_id]} { if {[info exists conf_id]} {
# Check if the conf_objbect exists
set conf_object_exists_p [db_string exists "select count(*) from im_timesheet_conf_objects where conf_id = :conf_id"]
# Add the conf_item's project to the options, if not already there # Add the conf_item's project to the options, if not already there
# Otherwise the component can't show the project's name # Otherwise the component can't show the project's name
set conf_project_id [db_string conf_pid "select conf_project_id from im_timesheet_conf_objects where conf_id = :conf_id" -default ""] set conf_project_id [db_string conf_pid "select conf_project_id from im_timesheet_conf_objects where conf_id = :conf_id" -default ""]
...@@ -139,11 +142,9 @@ ad_form \ ...@@ -139,11 +142,9 @@ ad_form \
ad_form -extend -name $form_id \ ad_form -extend -name $form_id \
-select_query { -select_query {
select * select *
from im_timesheet_conf_objects from im_timesheet_conf_objects
where conf_id = :conf_id where conf_id = :conf_id
} -new_data { } -new_data {
db_exec_plsql create_conf " db_exec_plsql create_conf "
SELECT im_conf__new( SELECT im_conf__new(
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment