Forum OpenACS Development: Re: Flash with openacs

here is the code that hooks the sample flash slide show to the photo-album package

TCL
ad_page_contract {
} {
        album_id
}

db_multirow slides slides {
         select
  ci.item_id,
(select pp.caption from pa_photos pp where pp.pa_photo_id = ci.live_revision) as name
from cr_items ci,
  cr_child_rels ccr
where ci.latest_revision is not null
  and ci.content_type = 'pa_photo'
  and ccr.parent_id = :album_id
  and ci.item_id = ccr.child_id 
order by ccr.order_n
}

ADP
<SlideShow>
<multiple name="slides">
<Slide jpegURL="@slides.item_id@">@slides.name@</Slide>
</multiple>
</SlideShow>