--- loncom/cgi/userstatus.pl	2003/09/01 03:37:27	1.7
+++ loncom/cgi/userstatus.pl	2003/10/30 22:52:25	1.8
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 $|=1;
 # User Status
-# $Id: userstatus.pl,v 1.7 2003/09/01 03:37:27 albertel Exp $
+# $Id: userstatus.pl,v 1.8 2003/10/30 22:52:25 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -50,7 +50,7 @@ sub analyze_time {
     my $userclass=$actl[0];
     if ($since>300) { $color="#222222"; }
     if ($since>600) { $color="#444444"; }
-    if ($since>3600) { $color="#666666"; $userclass=$actl[1]; }
+    if ($since>1800) { $color="#666666"; $userclass=$actl[1]; }
     if ($since>7200) { $color="#888888"; }
     if ($since>21600) { $color="#AAAAAA"; $userclass=$actl[2]; }
     return ($color,$userclass);