get the right field for bad spotters!

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index f03a610327cdccf0c77e361ce6c77868ff70b99e..99fc85ce7e3c42723bec9a8c5da038f2d540beb9 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -336,7 +336,7 @@ sub normal
                        }
                        
                        # if this is a 'bad spotter' user then ignore it
-                       if ($badspotter->in($field[7])) {
+                       if ($badspotter->in($field[6])) {
                                dbg('chan', "PCPROT: Bad Spotter, dropped");
                                return;
                        }