2 ################################################################################
4 # File: $RCSfile: modifyentries.cgi,v $
5 # Revision: $Revision: 1.1 $
6 # Description: Modify list entries
7 # Author: Andrew@DeFaria.com
8 # Created: Mon Jan 16 20:25:32 PST 2006
9 # Modified: $Date: 2013/06/12 14:05:47 $
12 # (c) Copyright 2000-2006, Andrew@DeFaria.com, all rights reserved.
14 ################################################################################
19 $0 = $FindBin::Script;
21 use lib $FindBin::Bin;
27 use CGI qw/:standard/;
28 use CGI::Carp 'fatalsToBrowser';
30 my $userid = cookie ('MAPSUser');
31 my $type = param ('type');
32 my $next = param ('next');
34 $userid ||= $ENV{USER};
36 sub ReturnSequenceNbrs {
42 push @sequence_nbrs, $1;
46 return @sequence_nbrs;
47 } # ReturnSequenceNbrs
52 foreach (ReturnSequenceNbrs) {
59 param ("hit_count$_"),
65 print redirect ("/maps/php/list.php?type=$type&next=$next&message=Unable to update entries");
67 print redirect ("/maps/php/list.php?type=$type&next=$next&message=Modified entry");
69 print redirect ("/maps/php/list.php?type=$type&next=$next&message=Modified entries");