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.8 -r1.9
--- openacs-4/packages/views/tcl/views-procs.tcl	7 Aug 2017 23:48:30 -0000	1.8
+++ openacs-4/packages/views/tcl/views-procs.tcl	10 Jul 2018 11:47:13 -0000	1.9
@@ -68,15 +68,22 @@
     {-user_id 0}
     {-type ""}
 } {
+    Returns whether an object was viewed by specified user.
+
+    @param object_id viewed object id
+    @param user_id viewing user id
+    @param type filter results by type
+
+    @return boolean value
+} {
     if {!$user_id} {
         set user_id [ad_conn user_id]
     }
     if { $type ne "" } {
-		return [db_string get_viewed_by_type_p { } -default 0]
+        return [db_string get_viewed_by_type_p {} -default 0]
     } else {
-		return [db_string get_viewed_p { } -default 0]
+        return [db_string get_viewed_p {} -default 0]
     }
-
 }
 
 # Local variables: