Index: openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/Attic/xowiki-portlet-procs.tcl,v
diff -u -r1.103 -r1.104
--- openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl	19 Oct 2007 14:34:38 -0000	1.103
+++ openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl	2 Nov 2007 11:20:28 -0000	1.104
@@ -805,9 +805,51 @@
   }
 }
 
+
 namespace eval ::xowiki::portlet {
   #############################################################################
   #
+  # list the most frequent visitors
+  #
+
+  ::xowiki::PortletClass create most-frequent-visitors \
+      -superclass ::xowiki::Portlet \
+      -parameter {
+        {title "Most Frequent Users"}
+        {parameter_declaration {
+          {-max_entries:integer "15"}
+        }}
+      }
+  
+  most-frequent-visitors instproc render {} {
+    my get_parameters
+    ::xo::Page requireCSS "/resources/acs-templating/lists.css"
+   
+    TableWidget t1 -volatile \
+        -columns {
+          Field user  -label Visitors -html { align right }
+          Field count -label Visits -html { align right }
+        }
+    db_foreach [my qn get_pages] \
+          [::xo::db::sql select \
+               -vars "sum(count) as sum, user_id"  \
+               -from "xowiki_last_visited"  \
+               -groupby "user_id" \
+               -orderby "sum desc" \
+               -limit $max_entries] {
+                 t1 add \
+                     -user [::xo::get_user_name $user_id] \
+                     -count $sum
+               }
+    return [t1 asHTML]
+  }
+
+}
+
+
+namespace eval ::xowiki::portlet {
+  #############################################################################
+  #
   # Display unread items
   #
   # Currently moderately useful