1177 |
|
|
1178 |
my $rv = $self->shuttle_url( $self->{url} . '/search', |
my $rv = $self->shuttle_url( $self->{url} . '/search', |
1179 |
'application/x-www-form-urlencoded', |
'application/x-www-form-urlencoded', |
1180 |
$self->cond_to_query( $cond ), |
$self->cond_to_query( $cond, $depth ), |
1181 |
\$resbody, |
\$resbody, |
1182 |
); |
); |
1183 |
return if ($rv != 200); |
return if ($rv != 200); |
1271 |
|
|
1272 |
Return URI encoded string generated from Search::Estraier::Condition |
Return URI encoded string generated from Search::Estraier::Condition |
1273 |
|
|
1274 |
my $args = $node->cond_to_query( $cond ); |
my $args = $node->cond_to_query( $cond, $depth ); |
1275 |
|
|
1276 |
=cut |
=cut |
1277 |
|
|
1280 |
|
|
1281 |
my $cond = shift || return; |
my $cond = shift || return; |
1282 |
croak "condition must be Search::Estraier::Condition, not '$cond->isa'" unless ($cond->isa('Search::Estraier::Condition')); |
croak "condition must be Search::Estraier::Condition, not '$cond->isa'" unless ($cond->isa('Search::Estraier::Condition')); |
1283 |
|
my $depth = shift; |
1284 |
|
|
1285 |
my @args; |
my @args; |
1286 |
|
|
1308 |
push @args, 'options=' . $options; |
push @args, 'options=' . $options; |
1309 |
} |
} |
1310 |
|
|
1311 |
push @args, 'depth=' . $self->{depth} if ($self->{depth}); |
push @args, 'depth=' . $depth if ($depth); |
1312 |
push @args, 'wwidth=' . $self->{wwidth}; |
push @args, 'wwidth=' . $self->{wwidth}; |
1313 |
push @args, 'hwidth=' . $self->{hwidth}; |
push @args, 'hwidth=' . $self->{hwidth}; |
1314 |
push @args, 'awidth=' . $self->{awidth}; |
push @args, 'awidth=' . $self->{awidth}; |