Fixed import/export list

[clearscm.git] / maps / bin / processaction.cgi

diff --git a/maps/bin/processaction.cgi b/maps/bin/processaction.cgi
index 539572e..f5ef9c6 100755 (executable)
--- a/maps/bin/processaction.cgi
+++ b/maps/bin/processaction.cgi
@@ -40,16 +40,12 @@ sub ReturnSequenceNbrs {
   my @names = param;
   my @sequence_nbrs;
 
-  Debug "Entered ReturnSequenceNbrs";
-
   foreach (@names) {
     if (/action(\d+)/) {
       push @sequence_nbrs, $1;
     } # if
   } # foreach
 
-  Debug "Returning sequence nbrs " . join ' ', @sequence_nbrs;
-
   return @sequence_nbrs;
 } # ReturnSequenceNbrs
 
@@ -93,7 +89,7 @@ sub PrintInputLine ($$$$$) {
       ($pattern, $domain) = split /\@/, $email;
     } # if
 
-    $hit_count = param "hit_count$email_nbr";
+    $hit_count = CountMsg $email;
   } # if
 
   print Tr [