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 |
|
|
117 |
# retrieve the title and text |
# retrieve the title and text |
118 |
################################## |
################################## |
119 |
my $i = 1 + $start; |
my $i = 1 + $start; |
120 |
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); |
121 |
foreach my $id ( @display_results ){ |
foreach my $id ( @display_results ){ |
122 |
EPrints->id( $id ); |
EPrints->id( $id ); |
123 |
print "<p>$i. <b>", EPrints->lookup( 'title' ), "</b>"; |
print "<p>$i. <b>", EPrints->lookup( 'title' ), "</b>"; |