Index: openacs-4/packages/project-manager/tcl/task-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/tcl/task-procs.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/project-manager/tcl/task-procs.tcl	12 Aug 2005 21:15:03 -0000	1.13
+++ openacs-4/packages/project-manager/tcl/task-procs.tcl	15 Sep 2005 22:58:48 -0000	1.14
@@ -1646,6 +1646,10 @@
         return 0
     }
 
+    if {$percent_complete == ""} {
+        set percent_complete 0
+    }
+
     if {[string equal $percent_complete 0]} {
         return [pm::task::estimated_hours_work \
                     -estimated_hours_work $estimated_hours_work \
@@ -1701,6 +1705,10 @@
         return 0
     }
 
+    if {$percent_complete == ""} {
+        set percent_complete 0
+    }
+
     if {[string equal $percent_complete 0]} {
         return [pm::task::estimated_days_work \
                     -estimated_hours_work $estimated_hours_work \
@@ -2772,4 +2780,4 @@
     pm::task::delete -task_item_id $task_item_id
 
     return $new_task_id
-}
\ No newline at end of file
+}