--- db/prgsrc/chronicles.pl	2003/03/17 15:38:55	1.2
+++ db/prgsrc/chronicles.pl	2003/03/17 15:47:22	1.3
@@ -23,7 +23,7 @@ The database, user and password are hard
 
 Boris Veytsman 
 
-=head1 $Id: chronicles.pl,v 1.2 2003/03/17 15:38:55 boris Exp $
+=head1 $Id: chronicles.pl,v 1.3 2003/03/17 15:47:22 boris Exp $
 
 =cut
 
@@ -69,7 +69,9 @@ while (my $file=readdir(DIR)) {
 }
 closedir DIR;
 foreach my $name (keys %dbtochronicles) {
-    print "$name -> $dbtochronicles{$name}\n";
+    if ($name =~ /boris/) {
+	print "$name -> $dbtochronicles{$name}\n";
+    }
 }
 
 exit 0;