rel-type-remove-2.tcl

Removes the specified relation from the list of allowable ones

Location:
/packages/acs-subsite/www/admin/group-types/rel-type-remove-2.tcl
Author:
mbryzek@arsdigita.com
Created:
Sun Dec 10 16:45:32 2000
CVS ID:
$Id: rel-type-remove-2.tcl,v 1.6.2.1 2019/05/16 09:54:29 gustafn Exp $

Related Files

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {

    Removes the specified relation from the list of allowable ones

    @author mbryzek@arsdigita.com
    @creation-date Sun Dec 10 16:45:32 2000
    @cvs-id $Id: rel-type-remove-2.tcl,v 1.6.2.1 2019/05/16 09:54:29 gustafn Exp $

} {
    group_rel_type_id:naturalnum,notnull
    { return_url:localurl "" }
    { operation:trim "No, I want to cancel my request" }
}

if { $return_url eq "" } {
    # Pull out the group_type now as we may delete the row later
    db_1row select_group_type {
        select g.group_type
        from group_type_rels g
        where g.group_rel_type_id = :group_rel_type_id
    }
    set return_url [export_vars -base one {group_type}]
}

if {$operation eq "Yes, I really want to remove this relationship type"} {
    db_transaction {
        db_dml remove_relation {
            delete from group_type_rels where group_rel_type_id = :group_rel_type_id
        }
    }
}


ad_returnredirect $return_url
ad_script_abort

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