Index: openacs.org-dev/packages/download/www/download-verify.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs.org-dev/packages/download/www/download-verify.tcl,v diff -u -r1.1 -r1.2 --- openacs.org-dev/packages/download/www/download-verify.tcl 9 Jul 2002 17:35:04 -0000 1.1 +++ openacs.org-dev/packages/download/www/download-verify.tcl 12 Jan 2003 21:27:24 -0000 1.2 @@ -3,15 +3,16 @@ @author jbank@arsdigita.com [jbank@arsdigita.com] @creation-date Wed Dec 13 00:23:21 2000 - @cvs-id + @cvs-id $Id$ } { revision_id:integer,notnull } set user_id [ad_verify_and_get_user_id] set repository_id [download_repository_id] - -ad_maybe_redirect_for_registration +# we don't want to force people to register to try out openacs +# daveb +#ad_maybe_redirect_for_registration ad_require_permission $revision_id "read" set admin_p [ad_permission_p $repository_id admin] @@ -39,7 +40,7 @@ return } -set context_bar [list [list "one-archive?archive_id=$archive_id" $archive_name] "Download $archive_name $version_name"] +set context [list [list "one-archive?archive_id=$archive_id" $archive_name] "Download $archive_name $version_name"] ##TODO Get version name set action "[ad_conn package_url]download/$file_name"