Index: openacs-4/packages/views/tcl/views-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/views/tcl/views-procs.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/views/tcl/views-procs.tcl	4 Dec 2004 10:06:12 -0000	1.2
+++ openacs-4/packages/views/tcl/views-procs.tcl	10 Jan 2007 06:06:13 -0000	1.3
@@ -32,6 +32,16 @@
 ad_proc -public views::get { 
     -object_id
 } {
+
+    Return an array (which you have to set with "array set your_array [views::get -object_id $object_id]") with the elements:
+    <ul>
+    <li>views
+    <li>unique_views
+    <li>last_viewed
+    </ul>
+    
+    @param object_id ID of the object for which you want to return the views
+} {
     if {[db_0or1row views {
         SELECT views, unique_views, to_char(last_viewed,'YYYY-MM-DD HH24:MI:SS') as last_viewed
         FROM view_aggregates