pending-list-chunk.tcl

Moderate a Forum

Location:

/packages/forums/lib/message/pending-list-chunk.tcl

Author:

Ben Adida <ben@openforce.net>

Created:

2002-05-24

CVS ID:

$Id: pending-list-chunk.tcl,v 1.4 2018/04/07 19:07:31 gustafn Exp $

Related Files

• packages/forums/lib/message/pending-list-chunk.tcl
• packages/forums/lib/message/pending-list-chunk.adp
• packages/forums/lib/message/pending-list-chunk-postgresql.xql
• packages/forums/lib/message/pending-list-chunk-oracle.xql

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {

    Moderate a Forum

    @author Ben Adida (ben@openforce.net)
    @creation-date 2002-05-24
    @cvs-id $Id: pending-list-chunk.tcl,v 1.4 2018/04/07 19:07:31 gustafn Exp $

}

# Get the threads that need approval
db_multirow pending_threads select_pending_threads {}

if {[info exists alt_template] && $alt_template ne ""} {
  ad_return_template $alt_template
}

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: