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

elsif ($in{'modify_comments_form'}) { if ($per_mod) { &html_modify_comments_form; } else { &html_unauth; } }
elsif ($in{'modify_comments'}) { if ($per_mod) { &modify_mulitiple_comments; } else { &html_unauth; } }

sub modify_mulitiple_comments {
# --------------------------------------------------------
my ($key,%modify_list,$rec_to_modify,@lines,$line,@data,$output);

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};
}
}
$output .= &join_encode (%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_comments_result;
}

&modify_comments_form=1

sub html_modify_comments_form {
# --------------------------------------------------------

my ($status, @hits) = &query("mod");
my ($numhits) = ($#hits+1) / ($#db_cols+1);
my ($maxhits); $in{'mh'} ? ($maxhits = $in{'mh'}) : ($maxhits = $db_max_hits);
my (%tmp);

$page_title = "Modify Comments";
&html_page_top;

$submit_button = "Modify Comments";
$reset_button = "Reset Form";

if ($status ne "ok") { # There was an error searching!
print qq|<P><$font_error>Error: $status</FONT></P>|;
&html_footer;
&html_page_bottom;
}

else {
# < -- Start page text -- >
print qq|
<p><$font>
Modify the comment on each record you wish to change and click the checkbox by
that record. Then click the "Modify Comments" button:<br>
Your search returned <b>$db_total_hits</b> matches.</font>
|;
# < -- End page text -->

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">
|;

# Go through each hit and convert the array to hash and send to
# html_record for printing. Also add a checkbox with name=key and value=delete.

print "<P>";
for (0 .. $numhits - 1) {
%tmp = &array_to_hash($_, @hits);
print qq|<TABLE BORDER=0><TR><TD>
<INPUT TYPE=CHECKBOX NAME="$tmp{$db_key}" VALUE="modify"></TD><TD>|;
&html_record (%tmp);
print qq|</TD></TR><TR><TD> </TD><TD>
<input type=text name="$tmp{$db_key}-Comment" value="$tmp{'Comment'}" size="20"
maxlength="$db_lengths{'Comment'}"></td></tr>|;
foreach $column (@db_cols) {
unless ($column eq 'Comment') {
print qq|<input type="hidden" name="$tmp{$db_key}-$column" value="$tmp{$column}">|;
}
}
print qq|</TABLE>\n|;
}
print qq|
<p><center>
<INPUT TYPE="SUBMIT" name="modify_comments" VALUE="$submit_button">
<INPUT TYPE="RESET" VALUE="$reset_button">
</center></p></form>
|;

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

&html_footer;
&html_page_bottom;
}
}

sub html_modify_comments_result {
# --------------------------------------------------------
# This page let's the user know that the records were successfully
# deleted.

$page_title = "Comments Modified";
&html_page_top;

# < -- Start page text -- >
print qq|
<$font>Your comments have been modified.</font></p>
|;
# < -- End page text -->

&html_footer;
&html_page_bottom;
}

###################################################
#NEW Subroutine
sub html_modify_form_mult {
###################################################
# --------------------------------------------------------
# There was an error modifying the record. $message contains
# the reason why.

my ($message) = $_[0];

$page_title = "Unable to Modify Record";
&html_error_page_top;

# < -- Start page text -- >
print qq|
<$font>There were problems modifying the record:<BR>
<$error_color><B>$message</B></FONT>
<BR>Please Hit the "Back" button on your browser.
</font></p>
|;
# < -- End page text -->

&html_footer;
&html_page_bottom;
}

&html_modify_form_mult("You must mark at least one record to be modified.");

return;

# Go through each hit and convert the array to hash and send to
# html_record for printing. Also add a checkbox with name=key and value=delete.
print "<P>";
for (0 .. $numhits - 1) {
%tmp = &array_to_hash($_, @hits);
print qq|<TABLE BORDER=0><TR><TD>
<INPUT TYPE=CHECKBOX NAME="$tmp{$db_key}" VALUE="modify" checked></TD><TD>|;
&html_record (%tmp);
print qq|</TD></TR><TR><TD> </TD><TD>
<TEXTAREA name="$tmp{$db_key}-Comment" ROWS="5" COLS="55" WRAP="VIRTUAL" maxlength="$db_lengths{'Comment'}">$tmp{'Comment'}</TEXTAREA></td></tr>|;
foreach $column (@db_cols) {
unless ($column eq 'Comment') {
print qq|<input type="hidden" name="$tmp{$db_key}-$column" value="$tmp{$column}">|;
}
}
print qq|</TABLE>\n|;

<script>
<!--
function checkchars(cur){
//change max length to determine below
var maxlength=255
if (cur.chars.value.length>maxlength){
alert("This text exceeds the 255 character limit!")
return false
}
}
//-->
</script>

<form onsubmit="return checkchars(this)">
<strong>Comment must not exceed 255 characrtors in length:</strong><br><textarea rows="5" cols="55" name="comment"></textarea>
<br><input type="submit" value="SUBMIT">
</form>

<TEXTAREA name="$tmp{$db_key}-Comment" ROWS="5" COLS="55" WRAP="VIRTUAL" maxlength="$db_lengths{'Comment'}">$tmp{'Comment'}</TEXTAREA>

#following 3 lines to preserve text format
foreach $column (@db_cols) {
$rec{$column} =~ s/\n/<BR>/g;
}
#end text format

'ID' => [0, 'numer', 5, 5, 1, '', ''],
'Tea_Name' => [1, 'alpha', 20, 20,1, '', ''],
'Tea_Num' => [2, 'numer', 5, 5, 1, '', ''],
'CCNum' => [3, 'alpha', 10, 20,1, 'Period', ''],
'CComment' => [4, 'alpha', 50, 255,1, 'Comment', '']