Index: openacs-4/packages/download/www/one-archive.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/one-archive.tcl,v
diff -u -N -r1.9 -r1.10
--- openacs-4/packages/download/www/one-archive.tcl	12 Sep 2013 10:26:12 -0000	1.9
+++ openacs-4/packages/download/www/one-archive.tcl	30 Sep 2013 11:05:49 -0000	1.10
@@ -15,7 +15,7 @@
 set admin_p [permission::permission_p -object_id $archive_id -privilege admin]
 set write_p [permission::permission_p -object_id $archive_id -privilege write]
 
-if ![db_0or1row archive_info_select {
+if {![db_0or1row archive_info_select {
    select da.archive_name, 
           da.summary,
           da.description, 
@@ -26,14 +26,14 @@
      from download_archives_obj da, cc_users u
     where da.archive_id = :archive_id
       and u.user_id = da.creation_user
-}] {
+}]} {
     ad_return_complaint 1 "[_ download.lt_The_archive_you_are_l]"
     return
 }
 
 
 
-if {[string eq $description_type {text/plain}]} { 
+if {$description_type eq "text/plain"} { 
     set description [ad_text_to_html -- $description]
 }
 
@@ -67,8 +67,7 @@
     set gc_link [general_comments_create_link -object_name $archive_name $archive_id [ad_conn url]?[ad_conn query]]
     set gc_comments [general_comments_get_comments $archive_id [ad_conn url]?[ad_conn query]]
 } error] } {
-    global errorInfo errorCode
-    ns_log Notice "gc_link: $errorInfo, $errorCode"
+    ns_log Notice "gc_link: $::errorInfo, $::errorCode"
 }