presentation-print-view.tcl

This generates a printer friendly view of a presentation, suitable for print-out thru' a browser.

Location:
/packages/wp-slim/www/presentation-print-view.tcl
Authors:
Samir Joshi(samir@symphinity.com)
Rocael HR <roc@viaro.net>
Created:
Thu 1 Apr 2003

Related Files

[ hide source ] | [ make this the default ]

File Contents

# /packages/wimpy-point/www/presentation-print-view.tcl
ad_page_contract {
This  generates a printer friendly view of a presentation, suitable for print-out thru' a browser.
    @author Samir Joshi(samir@symphinity.com)
    @author Rocael HR (roc@viaro.net)
    @creation-date Thu 1 Apr 2003

} {
   item_id:naturalnum,notnull
} -properties {
   pres_title:onevalue           
   page_signature:onevalue    
   copyright_notice:onevalue
   public_p:onevalue
   show_modified_p :onevalue
   audience:onevalue
   background:onevalue
    slides:multirow
    owner_name:onevalue
    owner_id : onevalue
}

set context [list "[_ wp-slim.Print_View]"]
set user_id [ad_conn user_id]
## permission checking roc@
permission::require_permission -party_id $user_id -object_id $item_id -privilege wp_view_presentation

set subsite_name [ad_conn package_url]
regexp {^(.+)/$} $subsite_name match subsite_name

set package_id [ad_conn package_id]
set pres_item_id  $item_id         
set url [ad_conn url]

db_1row get_owner_name {
}
    
db_1row get_presentation_data {
}

db_1row get_aud_data {
}

db_1row get_back_data {
}
    
db_multirow slides  get_slide_info {
}

ad_return_template