category-links-procs.tcl

Does not contain a contract.

Location:
/packages/categories/tcl/category-links-procs.tcl

File Contents

ad_library {
    category-links procs for the site-wide categorization package.

    @author Timo Hentschel (timo@timohentschel.de)

    @creation-date 04 February 2004
    @cvs-id $Id: category-links-procs.tcl,v 1.3 2017/08/07 23:48:05 gustafn Exp $
}

namespace eval category_link {}

d_proc -public category_link::add {
    {-from_category_id:required}
    {-to_category_id:required}
} {
    Insert a new category link.

    @option from_category_id category_id the links comes from.
    @option to_category_id category_id the link goes to.
    @return link_id
    @author Timo Hentschel (timo@timohentschel.de)
} {
    db_transaction {
    set link_id [db_exec_plsql insert_category_link ""]
    }
    return $link_id
}

ad_proc -public category_link::delete { link_id } {
    Deletes a category link.

    @param link_id category link to be deleted.
    @author Timo Hentschel (timo@timohentschel.de)
} {
    db_exec_plsql delete_category_link ""
}

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

category-links-procs.tcl

Related Files

File Contents