ad_related_links_user_contributions

one of the documented procedures in this installation of the ACS
Usage:
ad_related_links_user_contributions   db   user_id   purpose
What it does:
Only produces a report for the site administrator; the assumption is that random users won't want to see out-of-context links
Defined in: /web/philip/tcl/ad-user-contributions-summary.tcl

Source code:


    if { $purpose != "site_admin" } {
	return [list]
    }
    set selection [ns_db select $db "select links.page_id, links.link_title, links.link_description, links.url, links.status, posting_time, page_title, url_stub
from links, static_pages sp
where links.page_id = sp.page_id
and links.user_id = $user_id
order by posting_time asc"]
    set items ""
    while { [ns_db getrow $db $selection] } {
	set_variables_after_query
	append items "<li>[util_AnsiDatetoPrettyDate $posting_time] 
to 
<a href=\"$url_stub\">$url_stub</a>: 
<ul>
<li>Url:  <a href=\"$url\">$url</a> ($link_title)
"
        if ![empty_string_p $link_description] {
	    append items "<li>Description:  $link_description\n"
	}
	append items "<li>Status:  $status
<li>Actions: &nbsp; &nbsp; <a href=\"/admin/links/edit?[export_url_vars url page_id]\">edit</a> &nbsp; &nbsp;  <a href=\"/admin/links/delete?[export_url_vars url page_id]\">delete</a>
</ul>
"
    }
    if [empty_string_p $items] {
	return [list]
    } else {
	return [list 1 "Related Links" "<ul>\n\n$items\n\n</ul>"]
    }


philg@mit.edu