--- trunk2/lib/WebPAC/Index.pm	2004/10/10 19:32:33	510
+++ trunk2/lib/WebPAC/Index.pm	2004/10/17 17:35:32	511
@@ -24,11 +24,15 @@
 
  my $thes = new WebPAC::Index(
  	log => 'log4perl.conf',
+	name => 'index name',
  );
 
 C<log> is optional parametar which specify filename of L<Log::Log4Perl>
 config file. Default is C<log.conf>.
 
+C<name> is optional parametar used to mark lines in log file with index
+name.
+
 Default sort function is my C<headline>, non case sensitive. It can't be
 changed right now without editing of source.
 
@@ -71,7 +75,10 @@
 
 	push @{$self->{'index'}}, $data;
 
-	$log->debug("stored ",$data->{'mfn'},": ",$data->{'headline'});
+	my $name = '';
+	$name = $self->{'name'}." " if ($self->{'name'});
+
+	$log->debug("stored ",$name,$data->{'mfn'},": ",$data->{'headline'});
 
 }