sub validate_records {
# --------------------------------------------------------
# This routine takes a list of records to either delete, validate
# or modify and does the appropriate action.
#
my ($in, $db) = @_;
my (@delete_list, @modify_list, @validate_list, %links, %error, @alt_cats,
$error, $key, $id, $val, $record, $result, $lid, $alt, $field);

foreach $key ($in->param()) {
($in->param($key) =~ /^delete/) and push @delete_list, $key;
($in->param($key) eq "validate") and push @validate_list, $key;
($in->param($key) eq "modify") and push @modify_list, $key;
($key =~ /^(.*)-(\d+)$/) and $links{$2}{$1} = $in->param($key);
}