ad_general_links_list

one of the documented procedures in this installation of the ACS
Usage:
ad_general_links_list   db   on_what_id   on_which_table   item   { module "" }   { submodule "" }   { return_url "" }
What it does:
Generates the list of links for this item with the appropriate add/edit links for the general links system.
Defined in: /web/philip/tcl/ad-general-links.tcl

Source code:



    set user_id [ad_get_user_id]
    if [empty_string_p $return_url] {
	set return_url [ns_conn url]?[export_ns_set_vars "url"]
    }
    set approved_clause "and slm.approved_p = 't' and gl.approved_p = 't'"

    set return_string ""

    set selection [ns_db select $db "select gl.link_id, gl.url, link_title, link_description, slm.map_id, slm.creation_time, first_names || ' ' || last_name as linker_name, u.user_id as link_user_id
    from general_links gl, site_wide_link_map slm, users u
    where gl.link_id = slm.link_id 
    and on_what_id = $on_what_id
    and on_which_table = '[DoubleApos $on_which_table]' $approved_clause
    and slm.creation_user = u.user_id"]

    set first_iteration_p 1
    while {[ns_db getrow $db $selection]} {
	set_variables_after_query
	if $first_iteration_p {
	    append return_string "<h4>Links</h4>\n"
	    set first_iteration_p 0
	}
	
	append return_string "<blockquote>\n[ad_general_link_format $link_id $url $link_title $link_description]"
		
	append return_string "<br><br>-- <a href=\"/shared/community-member?user_id=$link_user_id\">$linker_name</a>"
   
	if { !$first_iteration_p } {
	    append return_string "</blockquote>\n"
	}
    }

    append return_string "
    <center>
    <A HREF=\"/general-links/link-add?[export_url_vars on_which_table on_what_id item module return_url]\">Add a link</a>
    </center>
    "


philg@mit.edu