X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=maps%2Fbin%2Fmodifyentries.cgi;h=4c58984c5d17aa0dae36cdea744b709d31b13696;hb=8ffd10a144f3547e035d18ebebb6a094f1cc8693;hp=b2624a1981c9a0ee8db4aa3973282118bbb73447;hpb=64cb05c445d480f29d266e70db6eb1d021d34456;p=clearscm.git

diff --git a/maps/bin/modifyentries.cgi b/maps/bin/modifyentries.cgi
index b2624a1..4c58984 100755
--- a/maps/bin/modifyentries.cgi
+++ b/maps/bin/modifyentries.cgi
@@ -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
@@ -50,16 +50,17 @@ sub ReturnSequenceNbrs {
 my $i = 0;
 
 foreach (ReturnSequenceNbrs) {
-  UpdateList
+  UpdateList(
     $userid,
     $type,
-    param ("pattern$_"),
-    param ("domain$_"),
-    param ("comment$_"),
-    param ("hit_count$_"),
-    $_;
+    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");