version 1.3, 2000/10/18 21:25:34
|
version 1.6, 2002/11/10 16:15:45
|
Line 15 This script will dump the current inform
|
Line 15 This script will dump the current inform
|
tree to the standard output or I<output_file> in the format |
tree to the standard output or I<output_file> in the format |
ç|I<file> N*tabstops I<Name> |
ç|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 |
is the name of the group/tournament |
|
|
=head1 BUGS |
=head1 BUGS |
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'}||$Tournament{'Type'} eq 'ç') { |
for (my $i=0; $i<=$depth; $i++) { |
for (my $i=0; $i<=$depth; $i++) { |
print "\t"; |
print "\t"; |
} |
} |
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"; |