--- trunk/lib/WebPAC/Output/EstraierNative.pm	2006/09/11 20:49:37	673
+++ trunk/lib/WebPAC/Output/EstraierNative.pm	2006/09/12 14:47:25	674
@@ -95,7 +95,9 @@
 	my $path = 'casket';
 	$path =~ s!/+$!!;
 
-	$self->{_casket_path} = $path;
+	$path .= '/' . $self->{database};
+
+	$self->{path} = $path;
 
 	$path .= '.tmp';
 	if (-e $path) {
@@ -267,7 +269,7 @@
 
 	$self->{db}->close || $log->logdie("can't close index");
 
-	my $path = $self->{_casket_path} || $log->logdie("no _casket_path?");
+	my $path = $self->{path} || $log->logdie("no path?");
 
 	if (-e $path) {
 		$log->warn("removing old $path");