- fixed issues when logging hours on a particular project

www/hours/new.tcl

@@ -186,15 +186,15 @@ if {$timesheet_popup_installed_p} {
 # Remove funny "{" or "}" characters in list
 regsub -all {[\{\}]} $project_id_list "" project_id_list
 
+# ad_return_complaint 1 $project_id
+
 if {0 != $project_id} {
 
     # Project specified => only one project
     set one_project_only_p 1
 
     set project_sql "
-	select	p.project_id
-	from	im_projects p
-	where 	p.project_id = :project_id
+	select	:project_id::integer
     "
 
 } elseif {"" != $project_id_list} {
@@ -233,7 +233,6 @@ if {0 != $project_id} {
     "
 }
 
-
 # Determine how to show the tasks of projects.
 switch $task_visibility_scope {
     "main_project" {
@@ -317,10 +316,6 @@ switch $task_visibility_scope {
 }
 
 
-# ad_return_complaint 1 [db_list vis $task_visibility_sql]
-
-
-
 set children_sql "
 				$task_visibility_sql
 			    UNION
@@ -340,8 +335,6 @@ set children_sql "
 					and p.parent_id is null
 "
 
-
-
 # ---------------------------------------------------------
 # Build the main hierarchical SQL
 # ---------------------------------------------------------
@@ -418,7 +411,7 @@ set sql "
 # ---------------------------------------------------------
 
 set open_projects_sql "
-	select	p.project_id
+	select	p.project_id as open_project_id
 	from	im_projects p,
 		acs_rels r
 	where	r.object_id_two = :user_id
@@ -427,9 +420,10 @@ set open_projects_sql "
 "
 array set open_projects_hash {}
 db_foreach open_projects $open_projects_sql {
-	set open_projects_hash($project_id) 1
+	set open_projects_hash($open_project_id) 1
 }
 
+
 # ---------------------------------------------------------
 # Has-Children? This is used to disable super-projects with children
 # ---------------------------------------------------------