bug_tracker::project_delete (public)

 bug_tracker::project_delete project_id

Defined in packages/bug-tracker/tcl/bug-tracker-procs.tcl

Delete a Bug Tracker project and all its data.

Parameters:

project_id

Author:

Peter Marklund

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

Testcases:

No testcase defined.

Source code:

    #manually delete all bugs to avoid weird integrity constraints
    while { [set bug_id [db_string min_bug_id {}]] > 0 } {
        bug_tracker::bug::delete $bug_id
    }
    db_exec_plsql delete_project {}

Generic XQL file:

<fullquery name="bug_tracker::project_delete.min_bug_id">
    <querytext>
        select min(bug_id)
        from   bt_bugs
        where  project_id = :project_id
    </querytext>
</fullquery>

packages/bug-tracker/tcl/bug-tracker-procs.xql

PostgreSQL XQL file:

<fullquery name="bug_tracker::project_delete.delete_project">
    <querytext>
        select bt_project__delete(:project_id);
    </querytext>
</fullquery>

packages/bug-tracker/tcl/bug-tracker-procs-postgresql.xql

Oracle XQL file:

<fullquery name="bug_tracker::project_delete.delete_project">
    <querytext>
        begin
             bt_project.del(:project_id);
        end;
     </querytext>
</fullquery>

packages/bug-tracker/tcl/bug-tracker-procs-oracle.xql