--- trunk/lib/WebPAC/Output/Estraier.pm 2005/12/14 23:04:59 245 +++ trunk/lib/WebPAC/Output/Estraier.pm 2005/12/14 23:08:11 246 @@ -214,6 +214,14 @@ nodedel => [ qw/name/ ], }; +=head2 est_ua + +Make C object with Super User priviledges + + my $ua = $self->est_ua( user => 'admin', passwd => 'admin' ); + +=cut + sub est_ua { my $self = shift;