Index: openacs-4/packages/acs-tcl/tcl/whos-online-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/whos-online-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-tcl/tcl/whos-online-procs.tcl	10 Jan 2007 21:22:12 -0000	1.4
+++ openacs-4/packages/acs-tcl/tcl/whos-online-procs.tcl	7 Aug 2017 23:48:00 -0000	1.5
@@ -26,7 +26,7 @@
 }
 
 ad_proc -private whos_online::flush {} {
-    Removing all user_ids from the last_hit (nsv_set) wich have a time Stamp older than 
+    Removing all user_ids from the last_hit (nsv_set) which have a time Stamp older than 
     the number of seconds indicated by the proc whos_online::interval.
 
     @author Bjoern Kiesbye
@@ -127,7 +127,7 @@
 ad_proc -public whos_online::user_ids {
     {-all:boolean}
 } {
-    This function returns a list of user_ids from users wich have requested a page 
+    This function returns a list of user_ids from users which have requested a page 
     from this Server in the last 10 min.And aren't set to invisible. 
 
     @param all Set this flag if you want to include invisible users.
@@ -191,9 +191,15 @@
 }
 
 ad_proc -public whos_online::all_invisible_user_ids {} {
-    This function returns a list with all user_ids wich are set to invisible
+    This function returns a list with all user_ids which are set to invisible
 
     @author Bjoern Kiesbye
 } {   
     return [nsv_array names invisible_users]
 }
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: