Return to db.cgi CVS log | Up to [Local Repository] / db / prgsrc |
version 1.49, 2001/12/11 12:19:31 | version 1.50, 2001/12/11 12:30:23 |
---|---|
Line 70 sub GetTournament { | Line 70 sub GetTournament { |
$sth->execute; | $sth->execute; |
@arr = $sth->fetchrow; | @arr = $sth->fetchrow; |
$sth->finish; | |
my($i, $name) = 0; | my($i, $name) = 0; |
foreach $name (@{$sth->{NAME}}) { | foreach $name (@{$sth->{NAME}}) { |
$Tournament{$name} = $arr[$i++]; | $Tournament{$name} = $arr[$i++]; |
} | } |
$sth->finish; | |
return %Tournament; | return %Tournament; |
} | } |