Index: openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/tcl/Attic/task-procs.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl	11 Jun 2004 22:36:36 -0000	1.12
+++ openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl	22 Jun 2004 00:25:55 -0000	1.13
@@ -106,7 +106,7 @@
 
     set dependency_options_full "{\"--None--\" \"\"} "
 
-    if {[string equal $edit_p t] || [string equal $edit_p 1]} {
+    if {[string is true $edit_p]} {
         # Do nothing
     } else {
 
@@ -122,7 +122,7 @@
     # for editing tasks, we skip ourselves (because depending on
     # ourselves just sometimes isn't an option)
 
-    if {[string equal $edit_p t] || [string equal $edit_p 1]} {
+    if {[string is true $edit_p]} {
         foreach key $keys {
 
             # make sure we're not dependent on ourselves
@@ -1500,7 +1500,7 @@
     }
 
 
-    if {[string equal $edit_p "t"]} {
+    if {[string is true $edit_p]} {
         set subject_out "Edited $task_term \#$task_item_id: $subject"
         set intro_text "$mod_username edited this $task_term_lower"
     } else {
@@ -1524,7 +1524,7 @@
     set description [ad_html_text_convert -from $description_mime_type -to "text/plain" $description]
     set old_description [ad_html_text_convert -from $old_description_mime_type -to "text/plain" $old_description]
 
-    if {![string equal $description $old_description] && [string equal $edit_p t]} {
+    if {![string equal $description $old_description] && [string is true $edit_p]} {
         set description_out "$description \n\n-------\nOld description:\n-------\n\n$old_description"
 
         append intro_text "\nSee below to see the changes in the description"