Index: openacs-4/packages/evaluation/www/admin/grades/distribution-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/grades/distribution-edit.tcl,v
diff -u -r1.14 -r1.14.4.1
--- openacs-4/packages/evaluation/www/admin/grades/distribution-edit.tcl	10 Jun 2009 00:47:58 -0000	1.14
+++ openacs-4/packages/evaluation/www/admin/grades/distribution-edit.tcl	19 Aug 2014 07:35:56 -0000	1.14.4.1
@@ -27,7 +27,7 @@
 set grade_plural_name [lang::util::localize $grade_plural_name]
 set grade_plural_name_up [string toupper $grade_plural_name]
 
-if { ![empty_string_p $set_task_id_live] } {
+if { $set_task_id_live ne "" } {
     evaluation::set_live_task -task_item_id $set_task_id_live
 }
 
@@ -78,7 +78,7 @@
 
 set orderby [template::list::orderby_clause -orderby -name grades]
 
-if { [string equal $orderby ""] } {
+if {$orderby eq ""} {
     set orderby " order by task_name asc"
 }
 
@@ -88,15 +88,15 @@
     
     set task_weight [format  %0.2f $task_weight]
     
-    if { [string eq $requires_grade_p "t"] } {
+    if {$requires_grade_p == "t"} {
 	set radio_yes_checked "checked"
 	set radio_no_checked ""
     } else {
 	set radio_yes_checked ""
 	set radio_no_checked "checked"
     }    
 
-    if { [empty_string_p $live_revision] } {
+    if { $live_revision eq "" } {
 	set delete_template "<span style=\"font-style: italic; color: red; font-size: 9pt;\">[_ evaluation.Deleted]</span> <a href=[export_vars -base "distribution-edit" { grade_id {set_task_id_live $task_item_id} }]>[_ evaluation.make_it_live]</a>"
     } elseif { $simple_p } {
 	set delete_template "<a href=\"[export_vars -base "../tasks/task-delete" { task_id grade_id return_url }]\">[_ evaluation-portlet.Delete]</a>"