Index: openacs-4/packages/evaluation/www/admin/evaluations/download-archive/index.vuh
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/evaluations/download-archive/index.vuh,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/evaluation/www/admin/evaluations/download-archive/index.vuh	27 Apr 2015 15:28:20 -0000	1.4
+++ openacs-4/packages/evaluation/www/admin/evaluations/download-archive/index.vuh	7 Aug 2017 23:48:10 -0000	1.5
@@ -11,10 +11,10 @@
     {task_id:integer,notnull,optional}
 }
 
-if { [exists_and_not_null task_id] } {
+if { ([info exists task_id] && $task_id ne "") } {
     set download_name [db_string task_name { *SQL* }]
     set ext [evaluation::get_archive_extension]
-    if {![empty_string_p $ext]} {
+    if {$ext ne ""} {
         append download_name ".${ext}"
     }
 
@@ -61,3 +61,9 @@
 # clean everything up
 file delete -force $in_path
 file delete -force $out_path
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: