Index: openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl,v
diff -u -N -r1.40 -r1.41
--- openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	17 Apr 2012 18:05:46 -0000	1.40
+++ openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	29 Jul 2013 07:45:26 -0000	1.41
@@ -563,6 +563,7 @@
     @author Gustaf Neumann
     @cvs-id $Id$
   }
+
   Users ad_proc active {-full:switch}  {
     Return a list of lists containing information about current 
     users. If the switch 'full' is used this list contains 
@@ -614,8 +615,12 @@
     }
     return [list $ip $auth]
   }
+  Users ad_proc user_is_active {uid} {
+    @return boolean value whether user is active
+  } {
+    my exists pa($uid)
+  }
 
-
   Users ad_proc hits {uid} {
     @param uid request key
     @return Number of hits by this user (in time window)
@@ -1155,6 +1160,7 @@
 throttle forward purge_access_stats      %self do Users %proc
 throttle forward users                   %self do Users
 throttle forward views_per_minute        %self do Users %proc
+throttle forward user_is_active          %self do Users %proc
 
 ####
 # the next procs are for the filters (registered from the -init file)