Thank you. So close now !
I have assembled the whole output file thus:-
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.
$rec{$db_key} =~ s/<?.B>//g;
($db_auto_generate and print &build_html_record(%rec) and return);
my $font_color = 'Font face="tahoma, Helvetica" Size=2 Color=#003399';
my $font = 'Font face="tahoma, Helvetica" Size=2';
print qq|
<BODY>
<TABLE WIDTH="90%" BORDER="0">
<TR>
|;
if ($rec{'type'} eq "Tone") { print qq|<A
HREF="http://www.phonefx.org.uk/data/$url$rec{'filename'}"><IMG SRC="http://www.phonefx.org.uk/data/148.bmp"
ALT="DOWNLOAD" BORDER="0"></A>|;}
elsif ($rec{'type} eq "Grafix") { print qq|<A
HREF="http://www.phonefx.org.uk/data/$url$rec{'filename'}"><IMG
SRC="http://www.phonefx.org.uk/data/$url$rec{'filename'}"
ALT="DOWNLOAD" BORDER="0"></A>|;}
elsif ($rec{'type} eq "software") { print qq|<A
HREF="http://www.phonefx.org.uk/data/$url$rec{'filename'}"><IMG SRC="http://www.phonefx.org.uk/data/148.bmp"
ALT="DOWNLOAD" BORDER="0"></A>|;}print qq|
<TD WIDTH="150"><$font>$rec{'filename'}</font></TD>
<TD WIDTH="200"><$font>$rec{'description'}</font></TD>
<TD WIDTH="100"><$font>Bytes: $rec{'size'}</font></TD>
</TR>
</TABLE>|;
}
Ok, I can see what you've done and it looks good.
so now if the field 'type' contains either the phrase 'Tone' or 'Software' it should print the default graphic 148.bmp.
If 'Grafix' then the respective graphic image will display.
An error is reporting as a result.
But i'm not familiar with cgi/perl syntax. Have I missed something?
Paul
)