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"
Index: openacs-4/contrib/packages/project-manager/www/process-task-add-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/process-task-add-edit-2.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/contrib/packages/project-manager/www/process-task-add-edit-2.tcl	3 Jun 2004 21:32:13 -0000	1.8
+++ openacs-4/contrib/packages/project-manager/www/process-task-add-edit-2.tcl	22 Jun 2004 00:25:55 -0000	1.9
@@ -92,7 +92,7 @@
 set edit_p [db_string editing_process_tasks_p { } -default "0"]
 
 
-if {[string equal $edit_p "0"]} {
+if {[string is false $edit_p]} {
 
     # -----------------------------
     # if we're adding process tasks
Index: openacs-4/contrib/packages/project-manager/www/process-task-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/process-task-add-edit.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/contrib/packages/project-manager/www/process-task-add-edit.tcl	27 Apr 2004 00:49:29 -0000	1.9
+++ openacs-4/contrib/packages/project-manager/www/process-task-add-edit.tcl	22 Jun 2004 00:25:55 -0000	1.10
@@ -122,7 +122,7 @@
 
 for {set i 1} {$i <= $number} {incr i} {
 
-    if {[string equal $edit_p "0"]} {
+    if {[string is false $edit_p]} {
         set process_task_id_tmp [db_nextval pm_process_task_seq]
     } else {
         set process_task_id_tmp [lindex $process_task_id [expr $i-1]]
Index: openacs-4/contrib/packages/project-manager/www/task-add-edit.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/task-add-edit.adp,v
diff -u -r1.17 -r1.18
--- openacs-4/contrib/packages/project-manager/www/task-add-edit.adp	14 May 2004 23:08:57 -0000	1.17
+++ openacs-4/contrib/packages/project-manager/www/task-add-edit.adp	22 Jun 2004 00:25:55 -0000	1.18
@@ -19,7 +19,7 @@
           </else>
 
           <td align="center" bgcolor="#ffffdd">
-            <if @edit_p@ eq f>
+            <if @edit_p@ false>
               &nbsp;#@num.rownum@&nbsp;&nbsp;
             </if>
             <else>
@@ -28,7 +28,7 @@
           </td>
 
           <td valign="top">
-            <if @using_process_p@ eq "t">
+            <if @using_process_p@ true>
               Skip this task?
             </if>
             
@@ -60,7 +60,7 @@
             </formwidget>
             <p />
 
-            <if @edit_p@ eq t>
+            <if @edit_p@ true>
               <b>Comment:</b><br />
             </if>
             <formwidget id="comment.@num.rownum@">
@@ -135,7 +135,7 @@
                   </td>
               </tr>
 
-            <if @edit_p@ eq t>
+            <if @edit_p@ true>
                 <tr class="form-element">
                   <td colspan="2" align="left"><p /><b>Log entry:</b><p />
                   </td>
Index: openacs-4/contrib/packages/project-manager/www/task-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/task-add-edit.tcl,v
diff -u -r1.37 -r1.38
--- openacs-4/contrib/packages/project-manager/www/task-add-edit.tcl	10 Jun 2004 20:23:12 -0000	1.37
+++ openacs-4/contrib/packages/project-manager/www/task-add-edit.tcl	22 Jun 2004 00:25:55 -0000	1.38
@@ -323,7 +323,7 @@
 # the SQL function that creates the new tasks. This works. I'm 
 # sure there must be a better way to do it.
 # ------------------------------------------------------- #
-if {[string equal $edit_p t] && [info exists comment]} {
+if {[string is true $edit_p] && [info exists comment]} {
 
     set searchToken [array startsearch comment]
 
@@ -719,7 +719,7 @@
     # any loops!
     # ---------------------------------------------------
     
-    if {[string equal $edit_p f]} {
+    if {[string is false $edit_p]} {
 
         # if we have a process, we need to bring in the dependencies
         # from the process.
Index: openacs-4/contrib/packages/project-manager/www/task-assign-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/task-assign-add-edit.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/contrib/packages/project-manager/www/task-assign-add-edit.tcl	21 Jun 2004 23:44:11 -0000	1.17
+++ openacs-4/contrib/packages/project-manager/www/task-assign-add-edit.tcl	22 Jun 2004 00:25:55 -0000	1.18
@@ -120,7 +120,7 @@
 
 # permissions
 
-if {[string equal $edit_p "t"]} {
+if {[string is true $edit_p]} {
     set title "Edit $task_term_lower assignments"
     set context [list "Edit $task_term assignments"]
 } else {