forum::valid_forum_id_p (public)

 forum::valid_forum_id_p -forum_id forum_id [ -package_id package_id ]

Defined in packages/forums/tcl/forums-procs.tcl

checks forum_id

Switches:

-forum_id

(required)

-package_id

(optional)

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

Testcases:

forum_new, web_forums_message_and_reply

Source code:

    if {[info exists package_id] && [db_0or1row check_forum_id {
        select forum_id from forums_forums where forum_id = :forum_id and package_id = :package_id
    }]} {
        set result true
    } elseif {![info exists package_id] && [db_0or1row check_forum_id {
        select forum_id from forums_forums where forum_id = :forum_id
    }]} {
        set result true
    } else {
        set result false
    }

    return $result

Generic XQL file:

packages/forums/tcl/forums-procs.xql

PostgreSQL XQL file:

packages/forums/tcl/forums-procs-postgresql.xql

Oracle XQL file:

packages/forums/tcl/forums-procs-oracle.xql