version 1.2, 2000/10/18 18:46:30
|
version 1.4, 2000/10/19 03:06:00
|
Line 61 exit 0;
|
Line 61 exit 0;
|
sub PrintAll { |
sub PrintAll { |
my ($dbh, $Id, $depth) = @_; |
my ($dbh, $Id, $depth) = @_; |
my (%Tournament) = &GetTournament($dbh, $Id); |
my (%Tournament) = &GetTournament($dbh, $Id); |
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"; |
Line 77 sub PrintAll {
|
Line 77 sub PrintAll {
|
for (my $i=0; $i<$length; $i++) { |
for (my $i=0; $i<$length; $i++) { |
print " "; |
print " "; |
} |
} |
for (my $i=1; $i<$depth; $i++) { |
for (my $i=0; $i<$depth; $i++) { |
print "\t"; |
print "\t"; |
} |
} |
print $Tournament{'Title'}, "\n"; |
print $Tournament{'Title'}, "\n"; |