db/prgsrc/createindex.pl - diff

Return to createindex.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.4, 2000/10/19 03:06:00	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 63 sub PrintAll {	Line 63 sub PrintAll {
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";
}	}