loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

-version 1.122, 2003/03/28 18:26:28
+version 1.124, 2003/03/28 23:16:25
  Line 1843  sub getchat {
  	@entries=map { $_.':'.$hash{$_} } sort keys %hash;
  	untie %hash;
      }
-     return @entries;
+     my @participants=();
+     $cutoff=time-60;
+     if (tie(%hash,'GDBM_File',"$proname/nohist_inchatroom.db",
+ 	    &GDBM_WRCREAT(),0640)) {
+         $hash{$uname.':'.$udom}=time;
+         foreach (sort keys %hash) {
+ 	    if ($hash{$_}>$cutoff) {
+ 		$participants[$#participants+1]='active_participant:'.$_;
+             }
+         }
+         untie %hash;
+     }
+     return (@participants,@entries);
  }
  sub chatadd {