175 |
my ($s,$se,$d,$i,$il) = (1,0,1,0,0); |
my ($s,$se,$d,$i,$il) = (1,0,1,0,0); |
176 |
$s = 0 if (lc($x->{type}) eq "display"); |
$s = 0 if (lc($x->{type}) eq "display"); |
177 |
$d = 0 if (lc($x->{type}) eq "swish"); |
$d = 0 if (lc($x->{type}) eq "swish"); |
178 |
$se = 1 if (lc($x->{type}) eq "swish_exact"); |
($s,$se,$d,$i) = (0,0,0,1) if (lc($x->{type}) eq "index"); |
179 |
($s,$d,$i) = (0,0,1) if (lc($x->{type}) eq "index"); |
($s,$se,$d,$i) = (0,1,0,0) if (lc($x->{type}) eq "swish_exact"); |
180 |
$il = 1 if (lc($x->{type}) =~ /^lookup/); |
$il = 1 if (lc($x->{type}) =~ /^lookup/); |
181 |
|
|
|
|
|
182 |
# what will separate last line from this one? |
# what will separate last line from this one? |
183 |
if ($display_data && $x->{append} && $x->{append} eq "1") { |
if ($display_data && $x->{append} && $x->{append} eq "1") { |
184 |
$line_delimiter = ' '; |
$line_delimiter = ' '; |