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 |
|
|
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 |
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 |
|
|
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 |
} |
} |
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 |
|
|