whitelistのSeq数値 二重カウント修正

diff --git a/CGI/cgi-bin/black-white.pl b/CGI/cgi-bin/black-white.pl
index 0829b099830a0e73e5e94edff80b0e82e912d47a..f31a890e646a870810bfe6c0603f35c48fc6428b 100755 (executable)
--- a/CGI/cgi-bin/black-white.pl
+++ b/CGI/cgi-bin/black-white.pl
@@ -7,7 +7,7 @@
 #    Copyright © 2026 ChovitsClub
 #    https://opensource.org/licenses/mit-license.php
 #    
 #    Copyright © 2026 ChovitsClub
 #    https://opensource.org/licenses/mit-license.php
 #    

-#  $Id: black-white.pl,v 1.2 2026/08/23 19:57:46 dev Exp $
+#  $Id: black-white.pl,v 1.3 2026/09/08 17:05:01 dev Exp $

 #
 ####################################################################################
 
 #
 ####################################################################################
 


@@ -214,7 +214,6 @@ for ( $i = 0;  $i < @{$response->{'Output'}} ; $i++ ){
            $wid++;
             $telno = $1;
             push( @whitelist, {'wid' => $wid, 'telno' => $telno, 'desc' => $desc} );
            $wid++;
             $telno = $1;
             push( @whitelist, {'wid' => $wid, 'telno' => $telno, 'desc' => $desc} );

-           $wid++;

         }
     }
 }
         }
     }
 }