--- trunk/lib/WebPAC/Output/Estraier.pm	2005/12/05 17:47:23	213
+++ trunk/lib/WebPAC/Output/Estraier.pm	2005/12/14 18:55:38	238
@@ -214,6 +214,21 @@
 	nodedel => [ qw/name/ ],
 };
 
+sub est_ua {
+	my $self = shift;
+
+	return $self->{_master_ua} if ($self->{_master_ua});
+
+	$self->{_master_ua} = LWP::UserAgent->new( ) || sub {
+		my $log = $self->_get_logger;
+		$log->logdie("can't create LWP::UserAgent: $!");
+	};
+
+	$self->{_master_ua}->credentials('localhost:1978','Super User', $self->{user} => $self->{passwd});
+
+	return $self->{_master_ua};
+}
+
 sub est_master {
 	my $self = shift;
 	my $args = {@_};
@@ -234,12 +249,7 @@
 
 	$log->debug("calling $url");
 
-	if (! $self->{_master_ua}) {
-		$self->{_master_ua} = LWP::UserAgent->new( ) || $log->logdie("can't create LWP::UserAgent: $!");
-		$self->{_master_ua}->credentials('localhost:1978','Super User', $self->{user} => $self->{passwd});
-	}
-
-	my $res = $self->{_master_ua}->get($url);
+	my $res = $self->est_ua()->get($url);
 
 	if ($res->is_success) {
 		#$log->debug( $res->content );
@@ -247,7 +257,6 @@
 		return $res->content;
 	} else {
 		$log->warn("unable to call $url: " . $res->status_line);
-		#$log->debug(Dumper($res, $self->{'_master_ua'}));
 		return;
 	}