sub modify_record_mult {
# --------------------------------------------------------
# Modifies one or more records at a time.
#
my ($rec_to_modify, %modify_list);
my ($line, @lines, @data, $output, $succstr, $errstr);

$rec_to_modify = 0;
foreach $key (keys %in) { # Build a hash of keys to modify.
if ($in{$key} eq "modify") {
$modify_list{$key} = 1;
$rec_to_modify = 1;
}
}
if (!$rec_to_modify) {
&html_modify_form_mult("You must mark at least one record to be modified.");
}
else {
open (DB, "<$db_file_name") or &cgierr("error in delete_records. unable to open db file:
$db_file_name. Reason: $!");
@lines = <DB>;
close DB;

LINE: foreach $line (@lines) {
if ($line =~ /^$/) { next LINE; }
if ($line =~ /^#/) { $output .= $line; next LINE; }
chomp ($line);
(@data) = &split_decode($line);
if ($modify_list{$data[$db_key_pos]}) {
foreach $key (keys %in) {
if ($key =~ /^\Q$data[$db_key_pos]\E-(.*)$/) {
$rec{$1} = $in{$key};
}
}
$status = &validate_multiple_records (%rec);

if ($status eq "ok") {
$output .= &join_encode (%rec);
$succstr .= "$rec{$db_cols[0]} ";
}
else {
$output .= $line . "\n";
$errstr .= "Record: $rec{$db_cols[0]} - $status<br>";
}
undef %rec;
}
else {
$output .= $line . "\n";
}
}
open (DB, ">$db_file_name") or &cgierr("error in modify_mult_records. unable to open db file:
$db_file_name. Reason: $!");
if ($db_use_flock) {
flock(DB, 2) or &cgierr("unable to get exclusive lock on $db_file_name.\nReason: $!");
}
print DB $output;
close DB;

&html_modify_form_mult($errstr, $succstr);
}
}

sub build_record_form_spreadsheet {
# --------------------------------------------------------
# Builds a record form based on the config information.
#
my (%rec) = @_;
my ($output, $field);

foreach $field (@db_cols) {
if ($db_select_fields{$field}) {
$output .= "<td><nobr>" . &build_select_field_2($field, $rec{$field}, $rec{$db_key}) . "</nobr></td>";
}
elsif ($db_radio_fields{$field}) {
$output .= "<td><nobr>" . &build_radio_field_2($field, $rec{$field}, $rec{$db_key}) . "</nobr></td>";
}
elsif ($db_checkbox_fields{$field}) {
$output .= "<td><nobr>" . &build_checkbox_field_2 ($field, $rec{$field}, $rec{$db_key}, $rec{$db_key})
. "</nobr></td>";
}
elsif ($db_form_len{$field} =~ /(\d+)x(\d+)/) {
$output .= qq~<td><nobr><textarea name="$rec{$db_key}-$field" cols="20" rows="3">$rec{$field}</textarea>
</nobr></td>~;
}
else {
$output .= qq~<td><nobr><input type=text name="$rec{$db_key}-$field" value="$rec{$field}" size="20"
maxlength="$db_lengths{$field}"></nobr></td>~;
}
}
return $output;
}

sub build_select_field_2 {
# --------------------------------------------------------
# Builds a SELECT field based on information found
# in the database definition for use in the multiple modify
# spreadsheet form. Parameters are the column to build,
# default value (optional) and the key value for the record.

my ($column, $value, $key) = @_;
my (@fields, $ouptut);

@fields = split (/\,/, $db_select_fields{$column});
if ($#fields == -1) {
$output = "error building select field: no select fields specified in config for field '$column'!";
}
else {
$output = qq|<SELECT NAME="$key-$column"><OPTION>---|;
foreach $field (@fields) {
$field eq $value ?
($output .= "<OPTION SELECTED>$field\n") :
($output .= "<OPTION>$field");
}
$output .= "</SELECT>";
}
return $output;
}
sub build_checkbox_field_2 {
# --------------------------------------------------------
# Builds a CHECKBOX field based on information found
# in the database definitionfor use in the multiple modify
# spreadsheet form. Parameters are the column to build,
# default value (optional) and the key value for the record.

my ($column, $values, $key) = @_;

if (!$db_checkbox_fields{$column}) {
return "error building checkboxes: no checkboxes specified in config for field '$column'";
}

my @names = split (/,/, $db_checkbox_fields{$column});
my @values = split (/\Q$db_delim\E/, $values);
my ($name, $output);

foreach $name (@names) {
(grep $_ eq $name, @values) ?
($output .= qq!<INPUT TYPE="CHECKBOX" NAME="$key-$column" VALUE="$name" CHECKED> $name\n!) :
($output .= qq!<INPUT TYPE="CHECKBOX" NAME="$key-$column" VALUE="$name"> $name\n!);
}
return $output;
}

sub build_radio_field_2 {
# --------------------------------------------------------
# Builds a RADIO Button field based on information found
# in the database definitionfor use in the multiple modify
# spreadsheet form. Parameters are the column to build,
# default value (optional) and the key value for the record.

my ($column, $value, $key) = @_;
my (@buttons, $button, $output);

@buttons = split (/,/, $db_radio_fields{$column});

if ($#buttons == -1) {
$output = "error building radio buttons: no radio fields specified in config for field '$column'!";
}
else {
foreach $button (@buttons) {
$value =~ /^\Q$button\E$/ ?
($output .= qq|<INPUT TYPE="RADIO" NAME="$key-$column" VALUE="$button" CHECKED> $button \n|) :
($output .= qq|<INPUT TYPE="RADIO" NAME="$key-$column" VALUE="$button"> $button \n|);
}
}
return $output;
}

sub validate_multiple_records {
# --------------------------------------------------------

my ($col, @input_err, $errstr, $err, $line, @lines, $id, @rest);
my (%record) = @_;

foreach $col (@db_cols) {
if ($record{$col} =~ /^\s*$/) { # entry is null or only whitespace
if ($db_not_null{$col}) { # entry is not allowed to be null.
push(@input_err, "$col (Missing)"); # so let's add it as an error
}
}
else { # else entry is not null.
if (defined($db_valid_types{$col}) && !($record{$col} =~ /$db_valid_types{$col}/)) {
push(@input_err, "$col (Invalid)"); # but has failed validation so add
} # it as an error.
if ($db_sort{$col} eq "date") {
push (@input_err, "$col (Invalid date format)") unless &date_to_unix($record{$col});
}
(length($record{$col}) > $db_lengths{$col}) and
push (@input_err, "$col (Too long. Max length: $db_lengths{$col})");
}
}
if ($#input_err+1 > 0) { # since there are errors, let's build
foreach $err (@input_err) { # a string listing the errors
$errstr .= "$err,"; # and return it.
}
chop $errstr;
return $errstr;
}
else {
return "ok"; # no errors, return ok.
}
}

elsif ($in{'modify_form'}) { if ($per_mod) { &html_modify_form; } else { &html_unauth; } }

elsif ($in{'modify_record_mult'}) { if ($per_admin) { &modify_record_mult; } else { &html_unauth; } }

if (($numhits == 1) and !$in{'nh'}) { $in{'modify'} = $hits[$db_key_pos]; &html_modify_form_record(); return; }

if ($per_admin) { &html_modify_form_mult; return; }

sub html_modify_form_mult {
# --------------------------------------------------------
# Allows modification of more then one record at a time.
#
my ($errstr, $succstr) = @_;

my ($status, @hits) = &query('mod');


my ($numhits) = ($#hits+1) / ($#db_cols+1);
my ($maxhits) = $db_max_hits;
$maxhits = $in{'mh'} if ($in{'mh'});

if ($numhits == 1) {
$in{'modify'} = $hits[0];
&html_modify_form_record();
return;
}

&html_print_headers;
print qq|
<html>
<head>
<title>$html_title: Modify Multiple Records.</title>
</head>

<body bgcolor="#DDDDDD">
<blockquote>
<table border=1 bgcolor="#FFFFFF" cellpadding=5 cellspacing=3 width=500 valign=top>
<tr><td bgcolor="navy">
<FONT FACE="MS Sans Serif, arial,helvetica" size=1 COLOR="#FFFFFF">
<b>$html_title: Modify Multiple Records</b>
</td></tr>
</table>
|;

if ($errstr) {
print qq|<font color=red><strong>$errstr</strong></font>|;
}
if ($succstr) {
print qq|The following records were successfully modified: <font color=red><strong>$succstr</strong></font>.|;
}
if ($status ne "ok") { # Error searching database!
print qq|<TR><TD><FONT COLOR="RED" SIZE=4>Error: $status</FONT></TD></TR>|;
}
else {
print qq| <P>
<p>Check which records you wish to modify and then press "Modify Records."
Your search returned <b>$db_total_hits</b> matches.</font>
|;
if ($db_next_hits) {
print "<br><$font>Pages: $db_next_hits</font>";
}
print qq|
<form action="$db_script_url" METHOD="POST">
<input type=hidden name="db" value="$db_setup">
<input type=hidden name="uid" value="$db_uid">
<TABLE BORDER=1>|;

# Print Column Headers
print "<tr><th>$db_key</th>";
foreach $col (@db_cols) {
print qq|<th>$col</th>|;
}
print "</tr>";

# Print Main Body.
for ($i = 0; $i < $numhits; $i++) {
%tmp = &array_to_hash ($i, @hits);
print qq|<TR><TD VALIGN=TOP><nobr>
<INPUT TYPE=CHECKBOX NAME="$tmp{$db_key}" VALUE="modify">$tmp{$db_key} </nobr></TD>
|;
print &build_record_form_spreadsheet (%tmp);
print "</TR>";
}
print "</table>";

print qq|
<P><INPUT TYPE="HIDDEN" NAME="modify_record_mult" VALUE="1">
<INPUT TYPE="SUBMIT" VALUE="Modify Record"> <INPUT TYPE="RESET" VALUE="Reset Form">
</FORM>
|;

if ($db_next_hits) {
print "<br><$font>Pages: $db_next_hits</font>";
}
}

&html_footer;
print qq|
</blockquote>
</body>
</html>
|;
}