# $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"]
[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:
" 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 " Date Sessions Repeats " } append whole_page " $pretty_month $day_number [util_commify_number $session_count] [util_commify_number $repeat_count]