callback::application-track::getSpecificInfo::impl::album (private)

 callback::application-track::getSpecificInfo::impl::album

Defined in packages/photo-album/tcl/photo-album-callback-procs.tcl

callback implementation

See Also:

• callback::application-track::getSpecificInfo::contract

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

    ::callback::application-track::getSpecificInfo::contract__arg_parser {*}$args

       
    upvar $query_name my_query
    upvar $elements_name my_elements

    set my_query {
    
        
        select distinct ac.title as name_album,p.user_filename as name,p.pa_photo_id as id,p.story as story,p1.photographer as photographer
            from acs_objects ac,acs_objects ac2,acs_objects ac1,acs_objects ac3,dotlrn_communities_all d,pa_albums p1,pa_photos p
            where p1.pa_album_id = ac.object_id
            and ac.context_id = ac1.object_id
            and ac1.context_id = ac2.object_id
            and ac2.context_id = ac3.object_id
            and ac3.context_id = d.package_id
            and d.community_id = :class_instance_id
            and p1.pa_album_id IN
            (select distinct p2.pa_album_id
            from pa_albums p2,cr_revisions c,cr_revisions c2, cr_items c1
                    where p.pa_photo_id = c.revision_id
                    and c.item_id = c1.item_id
                    and c2.revision_id = p2.pa_album_id
                    and c2.item_id = c1.parent_id)
                    
                
    }
    set my_elements {
    
        album_name {
                label "Album Name"
                display_col name_album                            
             html {align center}                         
        }
        photo_name {
                label "Photo name"
                display_col name                            
             html {align center}                         
        }
        photo_id {
                label "Photo_id"
                display_col id                            
             html {align center}                         
        }
        p_story {
            label "Story"
            display_col story                            
             html {align center}                         
        }
        p_photographer {
            label "Photographer"
            display_col photographer                            
             html {align center}                         
        }
              
            
    }

    return "OK"

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

packages/photo-album/tcl/photo-album-callback-procs.xql