--- trunk/Estraier.pm	2006/05/15 22:11:22	149
+++ trunk/Estraier.pm	2006/05/15 22:26:08	150
@@ -1084,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;
 }
 
 
@@ -1106,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;
 }
 
 
@@ -1682,6 +1690,7 @@
 		$self->_set_info;
 		return 1;
 	}
+	return undef;
 }
 
 =head2 admins