In db.cgi, replace
sub build_html_record with the following:
Code:
sub build_html_record {
# --------------------------------------------------------
# Builds a record based on the config information.
#
my (%rec) = @_;
my ($output, $field, $url);
$output = "<p><table border=0 width=450>";
foreach $field (@db_cols) {
next if ($db_form_len{$field} == -1);
next if (($db_form_len{$field} == -2) && (!$per_admin));
$rec{$field} =~ s/\n/<BR>/g; # Keeps formatting in textarea fields
$output .= qq~<tr><td align=right valign=top width=20%><$font>$field:</font></td>~;
if ($rec{$field} =~ /^http:/) { # Creates clickable URLs
$url = $rec{$field};
$url =~ s/<\/?B>//g;
print qq~<td width=80%><a href="$url"><$font>$rec{$field}</font></a></td></tr>~;
}
elsif ($rec{$field} =~ /.+\@.+\..+/) { # Creates clickable email addresses
$url = $rec{$field};
$url =~ s/<\/?B>//g;
print qq~<td width=80%><a href="mailto:$url"><$font>$rec{$field}</font></a></td></tr>~;
}
else {
print qq~<td width=80%><$font>$rec{$field}</font></td></tr>~;
}
}
$output .= "</table></p>\n";
return $output;
}
Be very careful when you replace the subroutine, that you are replacing the correct one -- make sure the names match exactly -- and that you only replace one subroutine.
If you get an error after you add this, you will know that you made a mistake.
Be sure to keep your old db.cgi file until you know that you have installed this correctly.
------------------
JPD
