1984 |
$Headline =~ s/ //gs; |
$Headline =~ s/ //gs; |
1985 |
$Headline =~ s/<.*?>//gs; |
$Headline =~ s/<.*?>//gs; |
1986 |
$Headline =~ s/\s+/ /gs; |
$Headline =~ s/\s+/ /gs; |
1987 |
|
# decode some basic html from headline <b> <i> |
1988 |
|
$Headline =~ s/<(\/?[bi])>/<$1>/g; |
1989 |
|
|
1990 |
# Create a generic link for this document |
# Create a generic link for this document |
1991 |
$Value = ""; |
$Value = ""; |
2016 |
|
|
2017 |
# Put up the headline and the score, this one links to the document |
# Put up the headline and the score, this one links to the document |
2018 |
if ( $HTML ) { |
if ( $HTML ) { |
2019 |
print("$SelectorText <A HREF=\"$LinkText\" OnMouseOver=\"self.status='Retrieve this document'; return true\"> $Headline <I> ( $main::DatabaseDescriptions{$Value{'Database'}} ) </I> </A> <BR>\n"); |
# print("$SelectorText <A HREF=\"$LinkText\" OnMouseOver=\"self.status='Retrieve this document'; return true\"> $Headline <I> ( $main::DatabaseDescriptions{$Value{'Database'}} ) </I> </A> <BR>\n"); |
2020 |
|
print("$SelectorText <A HREF=\"$LinkText\" OnMouseOver=\"self.status='Retrieve this document'; return true\"> $Headline </A> <BR>\n"); |
2021 |
|
|
2022 |
# if ( defined($URL) && ($URL ne "") ) { |
# if ( defined($URL) && ($URL ne "") ) { |
2023 |
# $Value = (length($URL) > $main::DefaultMaxVisibleUrlLength) ? substr($URL, 0, $main::DefaultMaxVisibleUrlLength) . "..." : $URL; |
# $Value = (length($URL) > $main::DefaultMaxVisibleUrlLength) ? substr($URL, 0, $main::DefaultMaxVisibleUrlLength) . "..." : $URL; |
2662 |
|
|
2663 |
print("<TR><TD ALIGN=LEFT VALIGN=TOP WIDTH=1%> $SelectorText </TD><TD ALIGN=LEFT VALIGN=TOP COLSPAN=2> <A HREF=\"$LinkText\" OnMouseOver=\"self.status='Retrieve this document'; return true\"> $Headline </A> <BR> <FONT SIZE=-2> "); |
print("<TR><TD ALIGN=LEFT VALIGN=TOP WIDTH=1%> $SelectorText </TD><TD ALIGN=LEFT VALIGN=TOP COLSPAN=2> <A HREF=\"$LinkText\" OnMouseOver=\"self.status='Retrieve this document'; return true\"> $Headline </A> <BR> <FONT SIZE=-2> "); |
2664 |
} else { |
} else { |
2665 |
printf("%3d $Headline ($main::DatabaseDescriptions{$Database})\n", $Score); |
printf("%3d $Headline \n", $Score); |
2666 |
} |
} |
2667 |
|
|
2668 |
if (0) { ## don't display description |
if (0) { ## don't display description |