Made modifications to products.pl here is the error and the pl file. I the end of file on products and products1 is the same at line 1443 and 1444. Can someone help?
CGI ERROR
==========================================
Error Message : Error loading required libraries.
Check that they exist, permissions are set correctly and that they compile.
Reason: Missing right bracket at ./products.pl line 1443, at end of line
syntax error at ./products.pl line 1443, at EOF
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="Verdana, Arial, Helvetica" Size=2 Color=#000000';
my $font = 'Font face="Verdana, Arial, Helvetica" Size=2';
print qq|
<table border="0" cellpadding="0" cellspacing="0">|;
if ($rec{'Price'}) {
print qq|
<tr>
<td width="100%" align="center"><$font>PRICE: $rec{'Price'}</font></td>
</tr>
|;
}
print qq| |;
if ($rec{'Image'}) {
print qq|
<tr>
<td width="100%" align="center"><img border="2" src="http://www.absolutedesire.com/images/products/$rec{'Image'}" width="150" alt="Click on image to add this product to your shopping cart"></td>
</tr>
|;
}
print qq| |;
if ($rec{'Name'}) {
print qq|
<tr>
<td width="100%" align="center"><$font>$rec{'Name'}</font></td>
</tr>
</table>
|;
}
thanks
queticon
[This message has been edited by JPDeni (edited April 03, 2000).]
CGI ERROR
==========================================
Error Message : Error loading required libraries.
Check that they exist, permissions are set correctly and that they compile.
Reason: Missing right bracket at ./products.pl line 1443, at end of line
syntax error at ./products.pl line 1443, at EOF
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="Verdana, Arial, Helvetica" Size=2 Color=#000000';
my $font = 'Font face="Verdana, Arial, Helvetica" Size=2';
print qq|
<table border="0" cellpadding="0" cellspacing="0">|;
if ($rec{'Price'}) {
print qq|
<tr>
<td width="100%" align="center"><$font>PRICE: $rec{'Price'}</font></td>
</tr>
|;
}
print qq| |;
if ($rec{'Image'}) {
print qq|
<tr>
<td width="100%" align="center"><img border="2" src="http://www.absolutedesire.com/images/products/$rec{'Image'}" width="150" alt="Click on image to add this product to your shopping cart"></td>
</tr>
|;
}
print qq| |;
if ($rec{'Name'}) {
print qq|
<tr>
<td width="100%" align="center"><$font>$rec{'Name'}</font></td>
</tr>
</table>
|;
}
thanks
queticon
[This message has been edited by JPDeni (edited April 03, 2000).]