db/prgsrc/createindex.pl - diff

Return to createindex.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.3, 2000/10/18 21:25:34	version 1.5, 2002/11/09 04:11:49
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'} eq 'į') {
for (my $i=0; $i<=$depth; $i++) {	for (my $i=0; $i<=$depth; $i++) {
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";