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>