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 " . join(" ", EPrints::slogovi( $query )); |
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 |
|
|