X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=maps%2Fbin%2Fmodifyentries.cgi;h=4c58984c5d17aa0dae36cdea744b709d31b13696;hb=74259df4be30982ed2ec1b65b873336a421e53e0;hp=0d92c2757cf3b21652578621a239a7eaf0bed224;hpb=020a4a5ea2be725b155cae3a2cadc9aba3911b9b;p=clearscm.git

diff --git a/maps/bin/modifyentries.cgi b/maps/bin/modifyentries.cgi
index 0d92c27..4c58984 100755
--- a/maps/bin/modifyentries.cgi
+++ b/maps/bin/modifyentries.cgi
@@ -2,8 +2,8 @@
 ################################################################################
 #
 # File:         $RCSfile: modifyentries.cgi,v $
-# Revision:	$Revision: 1.1 $
-# Description:	Modify list entries
+# Revision:     $Revision: 1.1 $
+# Description:  Modify list entries
 # Author:       Andrew@DeFaria.com
 # Created:      Mon Jan 16 20:25:32 PST 2006
 # Modified:     $Date: 2013/06/12 14:05:47 $
@@ -18,7 +18,7 @@ use warnings;
 use FindBin;
 $0 = $FindBin::Script;
 
-use lib $FindBin::Bin;
+use lib "$FindBin::Bin/../lib";
 
 use MAPS;
 use MAPSLog;
@@ -27,9 +27,9 @@ use MAPSWeb;
 use CGI qw/:standard/;
 use CGI::Carp 'fatalsToBrowser';
 
-my $userid = cookie ('MAPSUser');
-my $type   = param ('type');
-my $next   = param ('next');
+my $userid = cookie('MAPSUser');
+my $type   = param('type');
+my $next   = param('next');
 
 $userid ||= $ENV{USER};
 
@@ -37,11 +37,11 @@ sub ReturnSequenceNbrs {
   my @names = param;
   my @sequence_nbrs;
 
-  foreach (@names) {
+  for (@names) {
     if (/pattern(\d+)/) {
       push @sequence_nbrs, $1;
     } # if
-  } # foreach
+  } # for
 
   return @sequence_nbrs;
 } # ReturnSequenceNbrs
@@ -49,17 +49,18 @@ sub ReturnSequenceNbrs {
 # Main
 my $i = 0;
 
-
 foreach (ReturnSequenceNbrs) {
-  UpdateList
+  UpdateList(
     $userid,
     $type,
-    param ("pattern$_"),
-    param ("domain$_"),
-    param ("comment$_"),
-    $_;
+    param("pattern$_"),
+    param("domain$_"),
+    param("comment$_"),
+    param("hit_count$_"),
+    $_,
+  );
   $i++;
-} # foreach
+} # for
 
 if ($i eq 0) {
   print redirect ("/maps/php/list.php?type=$type&next=$next&message=Unable to update entries");