20 |
my $CHARSET = 'ISO-8859-2'; |
my $CHARSET = 'ISO-8859-2'; |
21 |
my $SWISH = '/usr/bin/swish-e'; |
my $SWISH = '/usr/bin/swish-e'; |
22 |
my $INDEX = '/data/webpac/index/isis.index'; |
my $INDEX = '/data/webpac/index/isis.index'; |
23 |
my $MAX_HITS = 500; |
my $MAX_HITS = 0; |
24 |
my $ON_PAGE = 10; |
my $ON_PAGE = 10; |
25 |
|
|
26 |
Text::Iconv->raise_error(0); # Conversion errors raise exceptions |
Text::Iconv->raise_error(0); # Conversion errors raise exceptions |
75 |
my @path_arr = $q->param('path'); |
my @path_arr = $q->param('path'); |
76 |
my $full = $q->param('full'); |
my $full = $q->param('full'); |
77 |
|
|
78 |
for(my $i = 1; $i <=10; $i++) { |
for(my $i = 1; $i <=30; $i++) { |
79 |
|
|
80 |
return show_index($self, $i) if ($q->param("f".$i."_index")); |
return show_index($self, $i) if ($q->param("f".$i."_index")); |
|
next if (! $q->param("f$i")); |
|
81 |
next if (! $q->param("v$i")); |
next if (! $q->param("v$i")); |
82 |
|
next if (! $q->param("f$i")); |
83 |
|
|
84 |
# re-write query from +/- to and/and not |
# re-write query from +/- to and/and not |
85 |
my $s; |
my $s; |