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 -r1.3 -r1.4 --- openacs-4/packages/acs-admin/www/users/sessions-one-month.tcl 18 Sep 2002 14:54:47 -0000 1.3 +++ openacs-4/packages/acs-admin/www/users/sessions-one-month.tcl 7 Aug 2017 23:47:45 -0000 1.4 @@ -23,15 +23,13 @@ " -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"] +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 @@ -53,3 +51,9 @@ " db_release_unused_handles ns_return 200 text/html $whole_page + +# Local variables: +# mode: tcl +# tcl-indent-level: 4 +# indent-tabs-mode: nil +# End: