--- db/prgsrc/createindex.pl	2000/10/18 21:25:34	1.3
+++ 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.3 2000/10/18 21:25:34 boris Exp $
+=head1 $Id: createindex.pl,v 1.6 2002/11/10 16:15:45 roma7 Exp $
 
 =cut
 
@@ -61,9 +61,9 @@ exit 0;
 sub PrintAll {
     my ($dbh, $Id, $depth) = @_;
     my (%Tournament) = &GetTournament($dbh, $Id);
-    my (@Tours) = &GetTours($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";
 	    }
@@ -77,7 +77,7 @@ sub PrintAll {
 	    for (my $i=0; $i<$length; $i++) {
 		print " ";
 	    }
-	    for (my $i=1; $i<$depth; $i++) {
+	    for (my $i=0; $i<$depth; $i++) {
 		print "\t";
 	    }
 	    print $Tournament{'Title'}, "\n";