- Fixed dealing with invalid dependency types

tcl/intranet-ms-project-procs.tcl

@@ -34,13 +34,14 @@ ad_proc -public im_ms_project_calculate_actualstart {
         WHERE  ttd.task_id_one = :task_id and ttd.task_id_two = p.project_id and
                ttd.task_id_two <> :task_id
     } {
-	if {9650 eq $dependency_type_id} { set dependency_type_id 9660 }
+	if {9650 eq $dependency_type_id} { set dependency_type_id 9662 }
         switch $dependency_type_id {
             9660 {
+		# Finish-to-Finish
                 set actual_start_date ""
             }
             9662 {
-                # Finish to start
+                # Finish-to-Start
                 set actual_start_date [db_string actual_start_date "
                                 SELECT  p2.end_date::date || 'T' || p2.end_date::time as end_date
                                 FROM
@@ -48,10 +49,11 @@ ad_proc -public im_ms_project_calculate_actualstart {
                         " -default ""]
             }
             9664 {
+		# Start-to-Finish
                 set actual_start_date ""
             }
             9666 {
-                # start to start
+                # Start-to-Start
                 set actual_start_date [db_string actual_start_date "
                                 SELECT  p2.end_date::date || 'T' || p2.end_date::time as end_date
                                 FROM