attach-list.tcl

# This file displays a complete list of attachments (and all # of the revisions) that are associated with a slide.

Location:
/packages/wp-slim/www/attach-list.tcl
Author:

Haolan Qin <hqin@arsdigita.com>

Created:

Fri Dec 8 13:17:49 2000

CVS ID:

$Id: attach-list.tcl,v 1.9 2015/06/27 20:34:41 gustafn Exp $

File Contents

# /packages/wp/www/attach-list.tcl

ad_page_contract {

    # This file displays a complete list of attachments (and all
    # of the revisions) that are associated with a slide.

     @author Haolan Qin (hqin@arsdigita.com)
     @creation-date Fri Dec 8 13:17:49 2000
     @cvs-id $Id: attach-list.tcl,v 1.9 2015/06/27 20:34:41 gustafn Exp $
} {
    slide_item_id:naturalnum,notnull
    pres_item_id:naturalnum,notnull
} -properties {
    slide_item_id
    context
    att:multirow
}

#added permission checking  roc@
set user_id [ad_conn user_id]
permission::require_permission -party_id $user_id -object_id $pres_item_id -privilege wp_edit_presentation


set pres_item_id [db_string pres_item_id_get {
    select parent_id
    from cr_items
    where content_type = 'cr_wp_slide'
    and   item_id = :slide_item_id
}]
set edit_slide 1
set context [list [list [export_vars -base presentation-top {pres_item_id }] "[_ wp-slim.Edit_Slide]"] "[_ wp-slim.List_Attachments]"]

db_multirow att attachments_get {
    select name, item_id
    from cr_items
    where content_type = 'cr_wp_attachment'
    and   parent_id = :slide_item_id
}

ad_return_template

attach-list.tcl

Related Files

File Contents