clipboard-view.tcl

display the images in a given clipboard

Location:
/packages/photo-album/www/clipboard-view.tcl
Author:

Jeff Davis <davis@xarg.net>

Created:

2002-10-30

CVS ID:

$Id: clipboard-view.tcl,v 1.8 2014/08/07 07:59:50 gustafn Exp $

File Contents

ad_page_contract {
    display the images in a given clipboard

    @author Jeff Davis (davis@xarg.net)
    @creation-date 2002-10-30
    @cvs-id $Id: clipboard-view.tcl,v 1.8 2014/08/07 07:59:50 gustafn Exp $
} { 
    collection_id:naturalnum,notnull
} -properties { 
    context:onevalue
    title:onevalue
    owner_id:onevalue
    owner_name:onevalue
    user_id:onevalue
    base_url:onevalue
    images:multirow
    shutterfly_p:onevalue
}

set user_id [ad_conn user_id]

if {![db_0or1row collection {select first_names || ' ' || last_name as owner_name, owner_id, pa_collections.title from pa_collections, cc_users where collection_id = :collection_id and owner_id = user_id}] } {
    ad_return_complaint 1 "<#_<li> invalid clipboard#>"
    ad_script_abort
} 

# Check that the user is permissioned for this collection.
permission::require_permission -party_id $user_id -object_id $collection_id -privilege read

set context [list [list clipboards Clipboards] $title]

db_multirow images get_images {
    select m.photo_id, p.image_id, p.height, p.width, p.caption, to_char(p.date_taken, 'Mon FMDD, YYYY') as taken, f.width as base_width, f.image_id as base_id, f.height as base_height
      from pa_collection_photo_map m, 
           all_photo_images p,
           all_photo_images f
 where collection_id = :collection_id
   and p.item_id = m.photo_id
   and p.relation_tag = 'thumb'
   and f.item_id = m.photo_id
   and f.relation_tag = 'base'
}

set shutterfly_p [parameter::get -parameter ShowShutterflyLinkP -default f]

set returnurl "[ad_url][ad_conn package_url]"
set base_url  "[ad_url][ad_conn package_url]images/"

clipboard-view.tcl

Related Files

File Contents