category::relation::add_meta_category (public)

 category::relation::add_meta_category -category_id_one category_id_one \
    -category_id_two category_id_two [ -user_id user_id ]

Defined in packages/categories/tcl/category-relation-procs.tcl

Creates a new meta category by creating a relation between category_id_one and category_id_two. This relation is also related to the user_id.

Switches:
-category_id_one (required)
-category_id_two (required)
-user_id (optional)
Options:
-user_id
user that will be related to the meta category.
-category_id_one
one of the two category_id's to be related.
-category_id_two
the other category_id to be related.
Authors:
Miguel Marin <miguelmarin@viaro.net>
Viaro Networks www.viaro.net

Partial Call Graph (max 5 caller/called nodes):
%3 test_category_tree_procs category_tree_procs (test categories) category::relation::add_meta_category category::relation::add_meta_category test_category_tree_procs->category::relation::add_meta_category ad_conn ad_conn (public) category::relation::add_meta_category->ad_conn db_exec_plsql db_exec_plsql (public) category::relation::add_meta_category->db_exec_plsql db_string db_string (public) category::relation::add_meta_category->db_string

Testcases:
category_tree_procs
Source code:
    if { $user_id eq "" } {
        set user_id [ad_conn user_id]
    }

    # First we check if the relation exist, if it does, we don't create a new one
    set meta_category_id [db_string get_meta_relation_id {} -default ""]
    if { $meta_category_id eq "" } {
        set meta_category_id [db_exec_plsql add_meta_relation {}]
    }

    # Now we check if the user already has the meta category associated,
    # if it does, we don't create a new one
    set user_meta_category_id [db_string get_user_meta_relation_id {} -default ""]
    if { $user_meta_category_id eq "" } {
        return [db_exec_plsql add_user_meta_relation {}]
    } else {
        return $user_meta_category_id
    }
XQL Not present:
Oracle
Generic XQL file:
<fullquery name="category::relation::add_meta_category.get_meta_relation_id">
    <querytext>
        select 
		rel_id
        from   
		acs_rels 
        where  
		rel_type = 'meta_category_rel'
        	and object_id_one = :category_id_one
        	and object_id_two = :category_id_two
    </querytext>
</fullquery>

<fullquery name="category::relation::add_meta_category.get_user_meta_relation_id">
    <querytext>
        select 
		rel_id
        from   
		acs_rels 
        where  
		rel_type = 'user_meta_category_rel'
        	and object_id_one = :meta_category_id
        	and object_id_two = :user_id
    </querytext>
</fullquery>
packages/categories/tcl/category-relation-procs.xql

PostgreSQL XQL file:
<fullquery name="category::relation::add_meta_category.add_meta_relation">
    <querytext>
	 select acs_rel__new ( null, 'meta_category_rel', :category_id_one, :category_id_two, null, null, null )
    </querytext>
</fullquery>

<fullquery name="category::relation::add_meta_category.add_user_meta_relation">
    <querytext>
	 select acs_rel__new ( null, 'user_meta_category_rel', :meta_category_id, :user_id, null, null, null )
    </querytext>
</fullquery>
packages/categories/tcl/category-relation-procs-postgresql.xql

[ hide source ] | [ make this the default ]
Show another procedure: