callback::pm::project_new::impl::forums (private)

 callback::pm::project_new::impl::forums -package_id package_id \
    -project_id project_id -data data

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

Create a new forum for each new project.

Switches:

-package_id

(required)

-project_id

(required)

-data

(required)

See Also:

• callback::pm::project_new::contract

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

Testcases:

No testcase defined.

Source code:

    ::callback::pm::project_new::contract__arg_parser {*}$args

    set pm_name [pm::project::name -project_item_id $project_id]

    foreach forum_package_id [application_link::get_linked -from_package_id $package_id -to_package_key "forums"] {
        set forum_id [forum::new  -name $pm_name  -package_id $forum_package_id  -no_callback]

        # Automatically allow new threads on this forum
        db_dml query {
            update forums_forums set
            new_questions_allowed_p = true
            where forum_id = :forum_id
        }

        application_data_link::new -this_object_id $project_id -target_object_id $forum_id
    }

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

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