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 -r1.1 -r1.2
--- openacs-4/packages/views/tcl/views-procs.tcl	20 May 2004 13:01:30 -0000	1.1
+++ openacs-4/packages/views/tcl/views-procs.tcl	4 Dec 2004 10:06:12 -0000	1.2
@@ -42,3 +42,18 @@
 
     return {views {} unique_views {} last_viewed {}}
 }
+
+ad_proc -public views::viewed_p { 
+    -object_id
+    {-user_id 0}
+} {
+    if {!$user_id} {
+        set user_id [ad_conn user_id]
+    }
+    return [db_string get_viewed_p {
+        select count(*)
+        from views
+        where object_id = :object_id
+              and viewer_id = :user_id
+    } -default 0]
+}