ad_related_links_user_contributions db user_id purposeWhat it does:
Only produces a report for the site administrator; the assumption is that random users won't want to see out-of-context linksDefined 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: <a href=\"/admin/links/edit?[export_url_vars url page_id]\">edit</a> <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>"] }