Index: openacs.org-dev/packages/download/www/admin/report-one-ip.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/download/www/admin/report-one-ip.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/download/www/admin/report-one-ip.tcl 9 Jul 2002 17:35:04 -0000 1.1.1.1
+++ openacs.org-dev/packages/download/www/admin/report-one-ip.tcl 8 Oct 2002 15:47:05 -0000 1.1.1.2
@@ -3,7 +3,7 @@
@author jbank@arsdigita.com [jbank@arsdigita.com]
@creation-date Thu Dec 14 16:11:49 2000
- @cvs-id
+ @cvs-id $Id$
} {
download_ip:notnull
{orderby "archive_name"}
@@ -25,13 +25,13 @@
set table_def {
{archive_name "Archive"
{archive_name $order}
- {
$archive_name | }}
+ {$archive_name | }}
{version_name "Version"
{version_name $order}
- {$version_name | }}
+ {$version_name | }}
{user_name "User Name"
{user_name}
- {$user_name | }}
+ {$user_name | }}
{download_date "Download Date"
{download_date}
{}}
@@ -62,14 +62,14 @@
[ad_order_by_from_sort_spec $orderby $table_def]
"
-set export_sql_query [export_vars -url -sign {sql_query}]
+set export_sql_query [export_vars -url -sign {downloaded repository_id dimensional}]
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 download_ip] \
download_table $sql_query $table_def ]
-set context_bar [list [list "report-by-ip" "Downloads by IP"] "$download_ip"]
+set context [list [list "report-by-ip" "Downloads by IP"] "$download_ip"]
ad_return_template