index.tcl

Top level admin page.

Location:

/packages/download/www/admin/index.tcl

Author:

jbank@arsdigita.com [jbank@arsdigita.com]

Created:

Tue Dec 12 15:11:08 2000

CVS ID:

$Id: index.tcl,v 1.3 2013/09/12 10:26:12 victorg Exp $

Related Files

• packages/download/www/admin/index.tcl
• packages/download/www/admin/index.adp

[ hide source ] | [ make this the default ]

File Contents

# /packages/download/www/admin/index.tcl
ad_page_contract {
     Top level admin page.
     @author jbank@arsdigita.com [jbank@arsdigita.com]
     @creation-date Tue Dec 12 15:11:08 2000
     @cvs-id $Id: index.tcl,v 1.3 2013/09/12 10:26:12 victorg Exp $
} {
}

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)

permission::require_permission -object_id $repository_id -privilege "admin"

ad_return_template