one-archive.tcl

Display information about one archive.

Location:
/packages/download/www/one-archive.tcl
Author:
jbank@arsdigita.com [jbank@arsdigita.com]
Created:
Wed Dec 13 14:38:45 2000
CVS ID:
$Id: one-archive.tcl,v 1.11 2014/08/06 16:24:41 gustafn Exp $

Related Files

[ hide source ] | [ make this the default ]

File Contents

# /packages/download/www/one-archive.tcl
ad_page_contract {
     Display information about one archive.

     @author jbank@arsdigita.com [jbank@arsdigita.com]
     @creation-date Wed Dec 13 14:38:45 2000
     @cvs-id $Id: one-archive.tcl,v 1.11 2014/08/06 16:24:41 gustafn Exp $
} {
    archive_id:naturalnum,notnull
}

permission::require_permission -object_id $archive_id -privilege read

set master_admin_p [permission::permission_p -object_id [ad_conn package_id] -privilege admin]
set admin_p [permission::permission_p -object_id $archive_id -privilege admin]
set write_p [permission::permission_p -object_id $archive_id -privilege write]

if {![db_0or1row archive_info_select {
   select da.archive_name, 
          da.summary,
          da.description, 
          da.description_type, 
          u.last_name || ', ' || u.first_names as creation_user_name,
          da.creation_user, 
          to_char(da.creation_date,'Mon DD, YYYY') as creation_date
     from download_archives_obj da, cc_users u
    where da.archive_id = :archive_id
      and u.user_id = da.creation_user
}]} {
    ad_return_complaint 1 "[_ download.lt_The_archive_you_are_l]"
    return
}



if {$description_type eq "text/plain"} { 
    set description [ad_text_to_html -- $description]
}

set pending_count [db_string pending_count_select {
        select count(*)
          from download_arch_revisions_obj dar
         where dar.archive_id = :archive_id
           and approved_p is null
    }]

db_multirow revisions rep_get_revisions {
    select dar.file_name,
           dar.version_name,
           dar.revision_id,
           u.last_name || ', ' || u.first_names as creation_user_name,
           dar.creation_user, 
           to_char(dar.creation_date,'Mon DD, YYYY') as creation_date
           
    from download_arch_revisions_obj dar, cc_users u
    where dar.archive_id = :archive_id
          and approved_p = 't' and
          u.user_id = dar.creation_user
    order by version_name
}

set context [list $archive_name]

set gc_link ""
set gc_comments ""
if { [catch {
    set gc_link [general_comments_create_link -object_name $archive_name $archive_id [ad_conn url]?[ad_conn query]]
    set gc_comments [general_comments_get_comments $archive_id [ad_conn url]?[ad_conn query]]
} error] } {
    ns_log Notice "gc_link: $::errorInfo, $::errorCode"
}


ad_return_template