--- trunk/lib/WebPAC/Output/Estraier.pm	2005/12/20 00:02:27	306
+++ trunk/lib/WebPAC/Output/Estraier.pm	2005/12/20 00:03:04	307
@@ -17,11 +17,11 @@
 
 =head1 VERSION
 
-Version 0.07
+Version 0.08
 
 =cut
 
-our $VERSION = '0.07';
+our $VERSION = '0.08';
 
 =head1 SYNOPSIS
 
@@ -40,6 +40,7 @@
 	passwd => 'admin',
 	database => 'demo',
 	encoding => 'iso-8859-2',
+	clean => 1,
  );
 
 Options are:
@@ -90,7 +91,12 @@
 	my $url = $self->{masterurl} . '/node/' . $self->{database};
 	$self->{url} = $url;
 
-	$log->debug("opening index $self->{url}");
+	if ($self->{clean}) {
+		$log->debug("nodedel $self->{database}");
+		$self->master( action => 'nodedel', name => $self->{database} );
+	} else {
+		$log->debug("opening index $self->{url}");
+	}
 
 	my $nodes = $self->master( action => 'nodelist' );
 
@@ -265,7 +271,7 @@
 
 	@labels = grep(/^$args->{to}\t/, @labels);
 	my $label = shift @labels;
-	$label = split(/\t/, $label)->[1] if ($label);
+	(undef,$label) = split(/\t/, $label) if ($label);
 
 	if (! $label) {
 		$log->warn("can't find label for $args->{to}, skipping link creaton");