require "bracket_manager.pm"; sub print_update_tournament_score_form{ my $event_id = shift; my $tournament_id = shift; my %event_info = get_event_info($event_id); my %teamsa = get_league_teams($event_info{"League_ID"}); my %tournament_event_info = get_tournament_event_info($tournament_id); my $home_team = ""; my $away_team = ""; foreach $key (keys %teamsa){ $teams{$teamsa{$key}} = $key; } if ($event_info{"Home_Team"} == 0) { $home_team = $tournament_event_info{"ALT_TOP_BRACKET"}; }else{ $home_team = $teams{$event_info{"Home_Team"}}; } if ($event_info{"Away_Team"} == 0) { $away_team = $tournament_event_info{"ALT_BOTTOM_BRACKET"}; }else{ $away_team = $teams{$event_info{"Away_Team"}}; } my $home_score = $event_info{"Home_Score"}; my $away_score = $event_info{"Away_Score"}; if($home_score == -1){ $home_score = ""; } if($away_score == -1){ $away_score = ""; } print <<__HTML__;