--- trunk/Estraier.pm	2006/01/07 00:00:15	60
+++ trunk/Estraier.pm	2006/01/07 23:48:16	65
@@ -4,7 +4,7 @@
 use strict;
 use warnings;
 
-our $VERSION = '0.01';
+our $VERSION = '0.02';
 
 =head1 NAME
 
@@ -525,9 +525,7 @@
 	my $self = {@_};
 	bless($self, $class);
 
-	foreach my $f (qw/uri attrs snippet keywords/) {
-		croak "missing $f for ResultDocument" unless defined($self->{$f});
-	}
+	croak "missing uri for ResultDocument" unless defined($self->{uri});
 
 	$self ? return $self : return undef;
 }
@@ -701,6 +699,10 @@
 
   my $node = new Search::HyperEstraier::Node;
 
+or optionally with C<url> as parametar
+
+  my $node = new Search::HyperEstraier::Node( 'http://localhost:1978/node/test' );
+
 =cut
 
 sub new {
@@ -718,10 +720,14 @@
 	};
 	bless($self, $class);
 
-	my $args = {@_};
+	if ($#_ == 0) {
+		$self->{url} = shift;
+	} else {
+		my $args = {@_};
 
-	$self->{debug} = $args->{debug};
-	warn "## Node debug on\n" if ($self->{debug});
+		$self->{debug} = $args->{debug};
+		warn "## Node debug on\n" if ($self->{debug});
+	}
 
 	$self ? return $self : return undef;
 }
@@ -1177,7 +1183,7 @@
 
 	my $rv = $self->shuttle_url( $self->{url} . '/search',
 		'application/x-www-form-urlencoded',
-		$self->cond_to_query( $cond ),
+		$self->cond_to_query( $cond, $depth ),
 		\$resbody,
 	);
 	return if ($rv != 200);
@@ -1271,7 +1277,7 @@
 
 Return URI encoded string generated from Search::Estraier::Condition
 
-  my $args = $node->cond_to_query( $cond );
+  my $args = $node->cond_to_query( $cond, $depth );
 
 =cut
 
@@ -1280,6 +1286,7 @@
 
 	my $cond = shift || return;
 	croak "condition must be Search::Estraier::Condition, not '$cond->isa'" unless ($cond->isa('Search::Estraier::Condition'));
+	my $depth = shift;
 
 	my @args;
 
@@ -1289,7 +1296,7 @@
 
 	if (my @attrs = $cond->attrs) {
 		for my $i ( 0 .. $#attrs ) {
-			push @args,'attr' . ($i+1) . '=' . uri_escape( $attrs[$i] );
+			push @args,'attr' . ($i+1) . '=' . uri_escape( $attrs[$i] ) if ($attrs[$i]);
 		}
 	}
 
@@ -1307,7 +1314,7 @@
 		push @args, 'options=' . $options;
 	}
 
-	push @args, 'depth=' . $self->{depth} if ($self->{depth});
+	push @args, 'depth=' . $depth if ($depth);
 	push @args, 'wwidth=' . $self->{wwidth};
 	push @args, 'hwidth=' . $self->{hwidth};
 	push @args, 'awidth=' . $self->{awidth};