|
Lines 67-73
sub target_syntax {
Link Here
|
| 67 |
if (ref($atom)) { |
67 |
if (ref($atom)) { |
| 68 |
$atom_content = $atom->target_syntax($server); |
68 |
$atom_content = $atom->target_syntax($server); |
| 69 |
if ($atom_content) { |
69 |
if ($atom_content) { |
| 70 |
$atom_content =~ s/"/\\"/g; |
|
|
| 71 |
$pqf .= ' @or ' x (scalar(@fields) - 1); |
70 |
$pqf .= ' @or ' x (scalar(@fields) - 1); |
| 72 |
foreach my $attributes (@fields) { |
71 |
foreach my $attributes (@fields) { |
| 73 |
$attributes->{'attr_string'} ||= ''; |
72 |
$attributes->{'attr_string'} ||= ''; |