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.2 -r1.3
--- openacs-4/packages/download/www/archive-add-2.tcl	10 Sep 2002 22:22:34 -0000	1.2
+++ openacs-4/packages/download/www/archive-add-2.tcl	24 Mar 2004 03:33:42 -0000	1.3
@@ -26,6 +26,7 @@
 ##Then do a download_archive_revision.new
 ##Then insert into the download_revision_data
 set user_id [ad_conn user_id]
+set package_id [ad_conn package_id]
 set admin_p [ad_permission_p $repository_id admin]
 
 # check for write permission on this repository
@@ -91,4 +92,4 @@
 
 }
 
-ad_returnredirect $return_url
\ No newline at end of file
+ad_returnredirect $return_url