Index: openacs-4/packages/download/www/admin/report-by-ip.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/admin/report-by-ip.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/download/www/admin/report-by-ip.tcl 16 Jan 2003 13:46:20 -0000 1.7
+++ openacs-4/packages/download/www/admin/report-by-ip.tcl 12 Sep 2013 10:26:12 -0000 1.8
@@ -24,20 +24,28 @@
{all "all" {}}}}
}
-set table_def {
- {download_ip "From IP"
- {no_sort}
- {
$download_ip | }}
- {download_hostname "Hostname" {} {}}
- {num_downloads "# Downloads" {no_sort} {}}
-}
+template::list::create -name ips_list \
+ -multirow ips \
+ -html {width "90%" align center} \
+ -elements {
+ download_ip {
+ label "From IP"
+ link_url_col one_ip_url
+ }
+ download_hostname {
+ label "Hostname"
+ }
+ num_downloads {
+ label "# Downloads"
+ }
+ }
set dimensional_html [ad_dimensional $dimensional]
-set table [ad_table \
- -Ttable_extra_html { width="90%" align="center" } \
- -bind [ad_tcl_vars_to_ns_set repository_id downloaded] \
- download_table { *SQL* } $table_def ]
+db_multirow -extend {one_ip_url} ips download_table { *SQL* } {
+ set one_ip_url [export_vars -base report-one-ip {download_ip downloaded}]
+}
+
# query users to spam
set user_id_list [db_list users_to_spam { *SQL* }]
set user_id_list_export [export_vars -form -sign user_id_list]