Index: openacs-4/packages/download/www/archive-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/archive-add-2.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/download/www/archive-add-2.tcl	20 Jan 2018 22:42:17 -0000	1.9
+++ openacs-4/packages/download/www/archive-add-2.tcl	12 Feb 2019 18:00:04 -0000	1.10
@@ -32,10 +32,10 @@
 # check for write permission on this repository
 permission::require_permission -object_id $repository_id -privilege write
 
-set approved_p [ad_decode $admin_p 0 [db_null] "t"]
-set approved_date [ad_decode $admin_p 0 [db_null] "sysdate"]
-set approved_user [ad_decode $admin_p 0 [db_null] ":user_id"]
-set approved_comment [ad_decode $admin_p 0 [db_null] "Automatic approval, add by admin."]
+set approved_p [ad_decode $admin_p 0 "" "t"]
+set approved_date [ad_decode $admin_p 0 "" "sysdate"]
+set approved_user [ad_decode $admin_p 0 "" ":user_id"]
+set approved_comment [ad_decode $admin_p 0 "" "Automatic approval, add by admin."]
 
 # get the ip
 set creation_ip [ad_conn peeraddr]