/[webpac-proto]/search/Search.cgi
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /search/Search.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.20 by dpavlin, Tue Jun 25 19:31:07 2002 UTC revision 1.21 by dpavlin, Tue Jun 25 19:46:16 2002 UTC
# Line 1984  sub bDisplayDocuments { Line 1984  sub bDisplayDocuments {
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/&lt;(\/?[bi])&gt;/<$1>/g;
1989                                                    
1990                          # Create a generic link for this document                          # Create a generic link for this document
1991                          $Value = "";                          $Value = "";
# Line 2014  sub bDisplayDocuments { Line 2016  sub bDisplayDocuments {
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;
# Line 2659  sub bsDisplaySearchResults { Line 2662  sub bsDisplaySearchResults {
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>&nbsp;");                                  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>&nbsp;");
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
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.26