Return to createindex.pl CVS log | Up to [Local Repository] / db / prgsrc |
version 1.2, 2000/10/18 18:46:30 | version 1.3, 2000/10/18 21:25:34 |
---|---|
Line 64 sub PrintAll { | Line 64 sub PrintAll { |
my (@Tours) = &GetTours($dbh, $Id); | my (@Tours) = &GetTours($dbh, $Id); |
if ($Id) { | if ($Id) { |
if ($Tournament{'Type'} eq 'ç') { | if ($Tournament{'Type'} eq 'ç') { |
for (my $i=0; $i<$depth; $i++) { | for (my $i=0; $i<=$depth; $i++) { |
print "\t"; | print "\t"; |
} | } |
print $Tournament{'Title'}, "\n"; | print $Tournament{'Title'}, "\n"; |