Index: openacs-4/packages/xowiki/xowiki.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/xowiki.info,v
diff -u -r1.68 -r1.69
--- openacs-4/packages/xowiki/xowiki.info	12 Oct 2007 11:10:23 -0000	1.68
+++ openacs-4/packages/xowiki/xowiki.info	2 Nov 2007 11:20:28 -0000	1.69
@@ -8,7 +8,7 @@
     <singleton-p>f</singleton-p>
     <auto-mount>xowiki</auto-mount>
 
-    <version name="0.75" url="http://openacs.org/repository/download/apm/xowiki-0.75.apm">
+    <version name="0.76" url="http://openacs.org/repository/download/apm/xowiki-0.76.apm">
         <owner url="mailto:neumann@wu-wien.ac.at">Gustaf Neumann</owner>
         <summary>A more generic xotcl-based wikis example with object types
 and subtypes based on the content repository (with category support)</summary>
@@ -54,12 +54,12 @@
         <license>BSD-Style</license>
         <maturity>0</maturity>
 
-        <provides url="xowiki" version="0.75"/>
+        <provides url="xowiki" version="0.76"/>
         <requires url="acs-datetime" version="4.0"/>
         <requires url="categories" version="1.0d3"/>
         <requires url="file-storage" version="4.7d3"/>
         <requires url="general-comments" version="4.6.1"/>
-        <requires url="xotcl-core" version="0.75"/>
+        <requires url="xotcl-core" version="0.76"/>
 
         <callbacks>
             <callback type="after-install"  proc="::xowiki::after-install"/>
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
Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -r1.176 -r1.177
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	1 Nov 2007 16:50:31 -0000	1.176
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	2 Nov 2007 11:20:28 -0000	1.177
@@ -526,6 +526,7 @@
     }
     
     if {[catch {set html [$page render]} errorMsg]} {
+      set page_name [$page name]
       set html [my error_during_render [_ xowiki.error-includelet-error_during_render]]
     }
     #my log "--include portlet returns $html"
Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v
diff -u -r1.106 -r1.107
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	17 Oct 2007 10:49:12 -0000	1.106
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	2 Nov 2007 11:20:28 -0000	1.107
@@ -646,7 +646,7 @@
       } 
     }
     #my msg reduced_attributes=$reduced_attributes 
-    #my msg fields_from_from=[array names field_in_form]
+    #my msg fields_from_form=[array names field_in_form]
 
     set field_names [list _name]
     if {[$package_id show_page_order]}  { lappend field_names _page_order }