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.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++) {
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";