slide-revisions.tcl

This file displays a list of revisions of a slide.

Location:
/packages/wp-slim/www/slide-revisions.tcl
Author:

Haolan Qin <hqin@arsdigita.com>

Created:

01/18/2001

CVS ID:

$Id: slide-revisions.tcl,v 1.9 2015/06/27 20:34:42 gustafn Exp $

File Contents

# /packages/wp/www/slide-revisions.tcl

ad_page_contract {

    This file displays a list of revisions of a slide.

    @author Haolan Qin (hqin@arsdigita.com)
    @creation-date 01/18/2001
    @cvs-id $Id: slide-revisions.tcl,v 1.9 2015/06/27 20:34:42 gustafn Exp $
} {
    slide_item_id:naturalnum,notnull
    pres_item_id:naturalnum,notnull
} -properties {
    pres_item_id
    context
    subsite_name
}

#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 subsite_name [ad_conn package_url]

set context [list [list [export_vars -base presentation-top {pres_item_id}] "[_ wp-slim.Presentation]"] "[_ wp-slim.Slide_Revisions]"]


db_multirow revisions revisions_get {
    select r.revision_id,
           ao.creation_date as creation_date,
           ao.creation_ip,
           i.live_revision,
           p.first_names || ' ' || p.last_name as full_name
    from cr_revisions r,
         cr_items i,
         acs_objects ao,
         persons p
    where r.item_id = :slide_item_id
    and   ao.object_id = r.revision_id
    and   i.item_id = r.item_id
    and   p.person_id = ao.creation_user
    order by creation_date
} {
    set creation_date [lc_time_fmt $creation_date "%X %Q"]
}

set return_url [ns_urlencode [export_vars -base slide-revisions {slide_item_id pres_item_id}]]

ad_return_template

slide-revisions.tcl

Related Files

File Contents