Lines 54-59
sub target_syntax {
Link Here
|
54 |
if (@{$self->phrases}) { |
54 |
if (@{$self->phrases}) { |
55 |
foreach my $phrase (@{$self->phrases}) { |
55 |
foreach my $phrase (@{$self->phrases}) { |
56 |
if ($phrase) { |
56 |
if ($phrase) { |
|
|
57 |
$phrase =~ s/"/\\"/g; |
57 |
$pqf .= ' @or ' x (scalar(@fields) - 1); |
58 |
$pqf .= ' @or ' x (scalar(@fields) - 1); |
58 |
foreach my $attributes (@fields) { |
59 |
foreach my $attributes (@fields) { |
59 |
$pqf .= $attributes->{'attr_string'} . ($attributes->{'4'} ? '' : ' @attr 4=1') . ' "' . $phrase . '" '; |
60 |
$pqf .= $attributes->{'attr_string'} . ($attributes->{'4'} ? '' : ' @attr 4=1') . ' "' . $phrase . '" '; |
Lines 66-71
sub target_syntax {
Link Here
|
66 |
if (ref($atom)) { |
67 |
if (ref($atom)) { |
67 |
$atom_content = $atom->target_syntax($server); |
68 |
$atom_content = $atom->target_syntax($server); |
68 |
if ($atom_content) { |
69 |
if ($atom_content) { |
|
|
70 |
$atom_content =~ s/"/\\"/g; |
69 |
$pqf .= ' @or ' x (scalar(@fields) - 1); |
71 |
$pqf .= ' @or ' x (scalar(@fields) - 1); |
70 |
foreach my $attributes (@fields) { |
72 |
foreach my $attributes (@fields) { |
71 |
$attributes->{'attr_string'} ||= ''; |
73 |
$attributes->{'attr_string'} ||= ''; |
72 |
- |
|
|