/[Semantic-Engine]/EPrints/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 /EPrints/search.cgi

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

revision 3 by dpavlin, Fri Jun 29 09:21:11 2007 UTC revision 5 by dpavlin, Fri Jun 29 10:01:31 2007 UTC
# Line 22  $abs_path =~ s!/[^/]*$!/!;  #!fix-vim Line 22  $abs_path =~ s!/[^/]*$!/!;  #!fix-vim
22  #############################################################  #############################################################
23  my $COLLECTION = 'EPrints';  my $COLLECTION = 'EPrints';
24  my ( @TERMS, @RESULTS );  my ( @TERMS, @RESULTS );
25  my ( $RESULTS_TO_DISPLAY, $TERMS_TO_DISPLAY ) = ( 10, 10 );  my ( $RESULTS_TO_DISPLAY, $TERMS_TO_DISPLAY ) = ( 20, 20 );
26  #############################################################  #############################################################
27    
28    
# Line 33  my $cgi = new CGI; Line 33  my $cgi = new CGI;
33  my $start = $cgi->param( 'start' ) || 0;  my $start = $cgi->param( 'start' ) || 0;
34  my $query = $cgi->param( 'query' ) || '';  my $query = $cgi->param( 'query' ) || '';
35  my $similar = $cgi->param( 'similar' ) || '';  my $similar = $cgi->param( 'similar' ) || '';
36    my $slogovi = $cgi->param( 'slogovi' );
37    
38  my $charset='iso-8859-2';  my $charset='iso-8859-2';
39    
40    my $full_query = $query;
41    $full_query .= " " . join(" ", EPrints::slogovi( $query )) if ($slogovi);
42    
43  ##############################  ##############################
44  #       Start the HTML output  #       Start the HTML output
# Line 54  print qq|<?xml version="1.0" encoding="$ Line 57  print qq|<?xml version="1.0" encoding="$
57      <p>      <p>
58        <input type="text" name="query" value="$query" />        <input type="text" name="query" value="$query" />
59        <input type="submit" />        <input type="submit" />
60              |, $cgi->checkbox( -name => 'slogovi' ), qq|
61      </p>\n|;      </p>\n|;
62    
63    
# Line 70  if( $query || $similar ) { Line 74  if( $query || $similar ) {
74    
75      my ($results, $terms);      my ($results, $terms);
76          if ( $query ) {          if ( $query ) {
77          ($results, $terms) = $semantic->semantic_search( $query );          ($results, $terms) = $semantic->semantic_search( $full_query );
78          } else {          } else {
79          ($results, $terms) = $semantic->find_similar( $similar );          ($results, $terms) = $semantic->find_similar( $similar );
80          }          }
# Line 84  warn "terms = ",dump( $terms ); Line 88  warn "terms = ",dump( $terms );
88          my @sorted_terms = sort { $terms->{$b} <=> $terms->{$a} } keys %$terms;          my @sorted_terms = sort { $terms->{$b} <=> $terms->{$a} } keys %$terms;
89          my @top_terms = splice( @sorted_terms, $start, $TERMS_TO_DISPLAY );          my @top_terms = splice( @sorted_terms, $start, $TERMS_TO_DISPLAY );
90                    
91            print "<p>Full query: $full_query</p>\n";
92          print "<p>Related Terms: ". ( join ", ", @top_terms ) ."</p>\n";          print "<p>Related Terms: ". ( join ", ", @top_terms ) ."</p>\n";
93          print "<hr />\n";          print "<hr />\n";
94    
Legend:
Removed from v.3  
changed lines
  Added in v.5
  ViewVC Help
Powered by ViewVC 1.1.26