Okay, here we go again!!

I installed the validate mod and after I did, this is what I got:

CGI ERROR
==========================================
Error Message : Error loading required libraries.
Check that they exist, permissions are set correctly and that they compile.
Reason: syntax error at ./html.pl line 135, near "# $url{'Email'} =~ s/<"

Script Location : roster.cgi
Perl Version : 5.00404
Setup File : default.cfg


Here's the code I have:

sub html_record {
# --------------------------------------------------------
# How a record will be displayed. This is used primarily in
# returning search results and how it is formatted. The record to
# be displayed will be in the %rec hash.

my (%rec) = @_; # Load any defaults to put in the VALUE field.
($db_auto_generate and print &build_html_record(%rec) and return);

my $font_color = 'Font face="Arial" Size=2 Color=Navy';
my $font = 'Font face="Arial" Size=2';

$url{'Email'} = $rec{'Email'};
$url{'Email'} =~ s/<\/?B>//g;

print qq|
<TABLE WIDTH="525" CELLPADDING=0 CELLSPACING=0 BORDER=1 BGCOLOR="#FFFFCC">
<TR><TD ALIGN="Right" VALIGN="TOP" WIDTH="20%"><$font_color>First Name:</FONT></TD>

-------------------------------------------------

JPD, Elliot, or anyone who has better eyes than I - any idea as to why I'm getting this error?

Thanks,


Michael DeLong

I don't see anything wrong with those lines. It's probably something in sub html_record_form.

JPD
http://www.jpdeni.com/dbman/

Okay, here are the two subroutines in their complete form.


else {
print qq|<input type="hidden" name="$db_validated_field" value="$rec{$db_validated_field}">|;
}
print qq|
print qq|
</TABLE>
|;
}

sub html_record {
# --------------------------------------------------------
# How a record will be displayed. This is used primarily in
# returning search results and how it is formatted. The record to
# be displayed will be in the %rec hash.

my (%rec) = @_; # Load any defaults to put in the VALUE field.
($db_auto_generate and print &build_html_record(%rec) and return);

my $font_color = 'Font face="Arial" Size=2 Color=Navy';
my $font = 'Font face="Arial" Size=2';

$url{'Email'} = $rec{'Email'};
$url{'Email'} =~ s/<\/?B>//g;



Michael DeLong

You have two lines that are identical toward the end of sub html_record_form:

print qq|<input type="hidden" name="$db_validated_field"
value="$rec{$db_validated_field}">|;
}
print qq|
print qq|
</TABLE>
|;

Take out one of them.

JPD
http://www.jpdeni.com/dbman/

1. Why it didn't copy and paste everything, I do not know. I could have sworn it did. Anyway...

2. Lemme try that.....YES!!!! I told you you had better eyes than I. (I seem to use that excuse alot =-/ ). Anyway, thanks once again JPD.


Michael DeLong

You did. I deleted some of it to cut down on the scrolling.

You're welcome.

JPD
http://www.jpdeni.com/dbman/