Hello,
The odd thing found in the db after the search result is showing X
in the search result page. X means small box with x mark which signs
broken grafic link. Could anyone tell me how to bring search result without x Mark eventhugh file does not exist? Below is the copy of the code.
my (%rec) = @_; # Load any defaults to put in the VALUE field.
$rec{$db_key} =~ s/<.?B>//g;
if (-e "$SAVE_DIRECTORY/$rec{$db_key}/$file") {
opendir (GRAPHIC, "$SAVE_DIRECTORY/$rec{$db_key}") or &cgierr("unable to open directory: $SAVE_DIRECTORY/$rec{$db_key}. Reason: $!");
@files = readdir(GRAPHIC);
closedir (GRAPHIC);
@photo = qw();
foreach $file (@files) {
next if ($file =~ /^\./); # Skip "." and ".." entries..
next if ($file =~ /^index/); # Skip index.htm type files..
push(@photo, $file);
}
}
<td rowspan="3"><img src= "$SAVE_DIRECTORY_URL/$rec{$db_key}/$photo[0]"> </td>