Listing 1: posting.tcl

ad_page_contract {

    @author Reuven M. Lerner (<reuven@lerner.co.il>)
    @creation-date 2002-September-18
} {
} -properties {
  postings:multirow
}

# Get all postings until now
set sql "SELECT PE.first_names || ' ' ||
         PE.last_name
         as user_name,
            PA.email, PO.posting, PO.entry_date
         FROM Persons PE, Parties PA,
           atf_hello_postings PO
         WHERE PE.person_id = PA.party_id
         AND PE.person_id = PO.user_id
         ORDER BY PO.entry_date DESC"

db_multirow postings get_postings $sql

ad_return_template