Index: openacs-4/packages/acs-admin/www/users/sessions-one-month.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/Attic/sessions-one-month.tcl,v
diff -u -N
--- openacs-4/packages/acs-admin/www/users/sessions-one-month.tcl	19 Jan 2018 21:23:51 -0000	1.5
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,60 +0,0 @@
-# $Id: sessions-one-month.tcl,v 1.5 2018/01/19 21:23:51 gustafn Exp $
-set_the_usual_form_variables
-
-# pretty_month, pretty_year
-
-append whole_page "[ad_admin_header "Sessions in $pretty_month, $pretty_year"]
-
-<h2>$pretty_month $pretty_year</h2>
-
-[ad_context_bar [list "./" "Users"] [list "session-history" "Session History"] "One Month"]
-
-<hr>
-
-<blockquote>
-
-<table>
-<tr>
-  <th>Date
-  <th>Sessions
-  <th>Repeats
-</tr>
-
-"
-
-
-set selection [ns_db select $db {
-    select entry_date, to_char(entry_date,'fmDD') as day_number, session_count, repeat_count
-    from session_statistics
-    where rtrim(to_char(entry_date,'Month')) = '$QQpretty_month'
-    and to_char(entry_date,'YYYY') = '$QQpretty_year'
-    order by entry_date
-}]
-
-while { [ns_db getrow $db $selection] } {
-    set_variables_after_query
-    append whole_page "
-<tr>
-  <td>$pretty_month $day_number
-  <td align=right>[util_commify_number $session_count]
-  <td align=right>[util_commify_number $repeat_count]
-</tr>
-"
-}
-
-append whole_page "
-
-</table>
-</blockquote>
-
-[ad_admin_footer]
-"
-db_release_unused_handles
-ns_return 200 text/html $whole_page
-ad_script_abort
-
-# Local variables:
-#    mode: tcl
-#    tcl-indent-level: 4
-#    indent-tabs-mode: nil
-# End: