archive-add.tcl

Add a new archive.

Location:
/packages/download/www/archive-add.tcl
Author:
jbank@arsdigita.com [jbank@arsdigita.com]
Created:
Tue Dec 12 22:38:49 2000
CVS ID:
$Id: archive-add.tcl,v 1.6 2014/08/06 16:24:41 gustafn Exp $

Related Files

[ hide source ] | [ make this the default ]

File Contents

# /packages/download/www/archive-add.tcl
ad_page_contract {
     Add a new archive.
     @author jbank@arsdigita.com [jbank@arsdigita.com]
     @creation-date Tue Dec 12 22:38:49 2000
     @cvs-id $Id: archive-add.tcl,v 1.6 2014/08/06 16:24:41 gustafn Exp $
} {
    archive_type_id:naturalnum,notnull
    {return_url "[ad_conn package_url]"}
}

auth::require_login
set context {"Add an Archive"}
set user_id [ad_conn user_id]

array set repository [download_repository_info]
set repository_id $repository(repository_id)
set title $repository(title)
set description $repository(description)
set help_text $repository(help_text)

set admin_p [permission::permission_p -object_id $repository_id -privilege admin]

set extra_form_elts ""
db_foreach metadata {
    select 
      dam.metadata_id,
      dam.pretty_name,
      dam.data_type
    from download_archive_metadata dam
         where dam.repository_id = :repository_id and
               dam.computed_p = 'f' and
               (dam.archive_type_id = :archive_type_id or
                dam.archive_type_id is null)
    order by sort_key
} {
    append extra_form_elts [download_metadata_widget $data_type $pretty_name $metadata_id]
}

ad_return_template