--- trunk/Estraier.pm	2006/05/10 13:45:08	139
+++ trunk/Estraier.pm	2006/05/15 22:26:08	150
@@ -4,7 +4,7 @@
 use strict;
 use warnings;
 
-our $VERSION = '0.06_1';
+our $VERSION = '0.07_1';
 
 =head1 NAME
 
@@ -951,10 +951,7 @@
 	};
 
 	if ($self->{create}) {
-		eval {
-			$self->name;
-		};
-		if ($@) {
+		if (! eval { $self->name } || $@) {
 			my $name = $1 if ($self->{url} =~ m#/node/([^/]+)/*#);
 			croak "can't find node name in '$self->{url}'" unless ($name);
 			my $label = $self->{label} || $name;
@@ -1087,11 +1084,15 @@
 	my $id = shift || return;
 	return unless ($self->{url});
 	croak "id must be number, not '$id'" unless ($id =~ m/^\d+$/);
-	$self->shuttle_url( $self->{url} . '/out_doc',
+	if ($self->shuttle_url( $self->{url} . '/out_doc',
 		'application/x-www-form-urlencoded',
 		"id=$id",
 		undef
-	) == 200;
+	) == 200) {
+		$self->_set_info;
+		return $id;
+	}
+	return undef;
 }
 
 
@@ -1109,11 +1110,15 @@
 	my $self = shift;
 	my $uri = shift || return;
 	return unless ($self->{url});
-	$self->shuttle_url( $self->{url} . '/out_doc',
+	if ($self->shuttle_url( $self->{url} . '/out_doc',
 		'application/x-www-form-urlencoded',
 		"uri=" . uri_escape($uri),
 		undef
-	) == 200;
+	) == 200) {
+		$self->_set_info;
+		return $uri;
+	}
+	return undef;
 }
 
 
@@ -1685,6 +1690,7 @@
 		$self->_set_info;
 		return 1;
 	}
+	return undef;
 }
 
 =head2 admins
@@ -1831,6 +1837,10 @@
 	) or confess "shuttle_url failed";
 
 	if ($status == $rest->{status}) {
+
+		# refresh node info after sync
+		$self->_set_info if ($action eq 'sync');
+
 		if ($rest->{returns} && wantarray) {
 
 			my @results;