--- db/prgsrc/createindex.pl	2000/10/18 21:25:34	1.3
+++ db/prgsrc/createindex.pl	2000/10/19 03:06:00	1.4
@@ -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.4 2000/10/19 03:06:00 boris Exp $
 
 =cut
 
@@ -61,7 +61,7 @@ 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 'ç') {
 	    for (my $i=0; $i<=$depth; $i++) {
@@ -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";