--- db/prgsrc/createindex.pl	2000/10/19 03:06:00	1.4
+++ db/prgsrc/createindex.pl	2002/11/10 16:15:45	1.6
@@ -15,7 +15,7 @@ This script will dump the current inform
 tree to the standard output or I<output_file> in the format
   ç|I<file> N*tabstops  I<Name>
 
-where ç is for groups, I<file> is for packages, N is the depth+2, I<Name>
+where  ç is for groups, I<file> is for packages, N is the depth+2, I<Name>
 is the name of the group/tournament
 
 =head1 BUGS
@@ -26,7 +26,7 @@ The database, user and password are hard
 
 Boris Veytsman
 
-=head1 $Id: createindex.pl,v 1.4 2000/10/19 03:06:00 boris Exp $
+=head1 $Id: createindex.pl,v 1.6 2002/11/10 16:15:45 roma7 Exp $
 
 =cut
 
@@ -63,7 +63,7 @@ sub PrintAll {
     my (%Tournament) = &GetTournament($dbh, $Id);
     my (@Tours) = &GetTours($dbh, $Id); 
     if ($Id) {
-	if ($Tournament{'Type'} eq 'ç') {
+	if (!$Tournament{'Type'}||$Tournament{'Type'} eq 'ç') {
 	    for (my $i=0; $i<=$depth; $i++) {
 		print "\t";
 	    }