X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=maps%2Fbin%2FMAPSDB.pm;h=5836e2a8dafbc1586810b3072c18332bf0317bc9;hb=842a2738bfac772cf226f08a9fa9753377e8a323;hp=ed0460c47143cc13ce3098df7a5677fb405e409f;hpb=8af32b28b56662686b6ceb59f2e00dc19cfc7a33;p=clearscm.git

diff --git a/maps/bin/MAPSDB.pm b/maps/bin/MAPSDB.pm
index ed0460c..5836e2a 100644
--- a/maps/bin/MAPSDB.pm
+++ b/maps/bin/MAPSDB.pm
@@ -214,7 +214,7 @@ sub CheckOnList ($$;$) {
   $update //= 1;
 
   my $status = 0;
-  my ($rule, $hit_count);
+  my ($rule, $sequence, $hit_count);
 
   my $statement = "select pattern, domain, comment, sequence, hit_count from list where userid = '$userid' and type = '$listtype'";
 
@@ -228,7 +228,7 @@ sub CheckOnList ($$;$) {
     last if !@row;
 
        $hit_count = pop (@row);
-    my $sequence  = pop (@row);
+       $sequence  = pop (@row);
     my $comment   = pop (@row);
     my $domain    = pop (@row);
     my $pattern   = pop (@row);
@@ -274,7 +274,7 @@ sub CheckOnList ($$;$) {
 
   $sth->finish;
 
-  return ($status, $rule, $hit_count);
+  return ($status, $rule, $sequence, $hit_count);
 } # CheckOnList
 
 sub CleanEmail ($) {