37 |
my $start = $cgi->param( 'start' ) || 0; |
my $start = $cgi->param( 'start' ) || 0; |
38 |
my $query = $cgi->param( 'query' ) || ''; |
my $query = $cgi->param( 'query' ) || ''; |
39 |
my $similar = $cgi->param( 'similar' ) || ''; |
my $similar = $cgi->param( 'similar' ) || ''; |
40 |
my $slogovi = $cgi->param( 'slogovi' ); |
my $slogovi = $cgi->param( 'slogovi' ) || ''; |
41 |
my $stem = $cgi->param( 'stem' ); |
my $stem = $cgi->param( 'stem' ) || ''; |
42 |
|
|
43 |
my $charset='iso-8859-2'; |
my $charset='iso-8859-2'; |
44 |
|
|
45 |
my $full_query = $query; |
my $full_query = $query; |
46 |
$full_query .= " " . EPrints::slogovi( $query ) if ($slogovi); |
$full_query .= " " . EPrints->slogovi( $query ) if ($slogovi); |
47 |
$full_query .= " " . StemHR->stem( $query ) if ($stem); |
$full_query .= " " . StemHR->stem( $query ) if ($stem); |
48 |
|
|
49 |
############################## |
############################## |
61 |
<body> |
<body> |
62 |
<form method="get" action=""> |
<form method="get" action=""> |
63 |
<p> |
<p> |
64 |
<input type="text" name="query" value="$query" /> |
Enter bunch of related terms to documents you are trying to find: |
65 |
<input type="submit" /> |
<br/><input type="text" name="query" value="$query" size="80"> |
66 |
|
<br/><input type="submit" /> |
67 |
|, $cgi->checkbox( -name => 'stem' ), $cgi->checkbox( -name => 'slogovi' ), qq| |
|, $cgi->checkbox( -name => 'stem' ), $cgi->checkbox( -name => 'slogovi' ), qq| |
68 |
</p>\n|; |
</p>\n|; |
69 |
|
|
118 |
# retrieve the title and text |
# retrieve the title and text |
119 |
################################## |
################################## |
120 |
my $i = 1 + $start; |
my $i = 1 + $start; |
121 |
print $semantic->paginate( "?query=$query;similar=$similar", $start, scalar keys %$results, $RESULTS_TO_DISPLAY); |
print $semantic->paginate( "?query=$query;similar=$similar;stem=$stem;slogovi=$slogovi", $start, scalar keys %$results, $RESULTS_TO_DISPLAY); |
122 |
foreach my $id ( @display_results ){ |
foreach my $id ( @display_results ){ |
123 |
EPrints->id( $id ); |
EPrints->id( $id ); |
124 |
print "<p>$i. <b>", EPrints->lookup( 'title' ), "</b>"; |
print "<p>$i. <b>", EPrints->lookup( 'title' ), "</b>"; |