changed pc50 logic

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index efe969b44a17222cbb32b5bd087db8a4329c83f0..61e72661270c41c552c61ae54027accb7879b890 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -776,7 +776,7 @@ sub process
                
                # send a pc50 out on this channel
                if ($t >= $dxchan->pc50_t + $DXProt::pc50_interval) {
-                       $dxchan->send(pc50());
+                       $dxchan->send(pc50(scalar DXChannel::get_all_users));
                        $dxchan->pc50_t($t);
                }