im_groups_url

one of the documented procedures in this installation of the ACS
Usage:
im_groups_url {-db "" -section "" -group_id "" -short_name ""}
What it does:
Sets up the proper url for the /groups stuff in acs
Defined in: /web/philip/tcl/intranet-defs.tcl

Source code:

arg_parser_for_im_groups_url $args

    if { [empty_string_p $group_id] && [empty_string_p $short_name] } {
	ad_return_error "Missing group_id and short_name" "We need either the short name or the group id to set up the url for the /groups directory"
    }
    if { [empty_string_p $short_name] } {
	if { [empty_string_p $db] } {
	    set db [ns_db gethandle subquery]
	    set release_db 1
	} else {
	    set release_db 0
	}
	set short_name [database_to_tcl_string $db  "select short_name from user_groups where group_id=$group_id"]
	if { $release_db } {
	    ns_db releasehandle $db
	}
    }
    if { ![empty_string_p $section] } {
	set section "/$section"
    }
    return "/groups/[ad_urlencode $short_name]$section"


philg@mit.edu