use Time::Local;
################################################
## Return The Current Tournaments
################################################
sub get_current_tournaments{
my $league_id = shift;
my %return_hash;
$dbh = get_dbh();
# prepare and execute query
$query = "SELECT `Key`,`Tournament_Name` FROM `Tournament_Info` WHERE `League_ID` = $league_id AND `Active` = 1 ";
$sth = $dbh->prepare($query);
$sth->execute();
# assign fields to variables
$sth->bind_columns(\$Key, \$Tournament_Name);
################################################
## Loop through Tournaments Items
################################################
while($sth->fetch()) {
$return_hash{$Key} = $Tournament_Name;
}
# Finish Query
$sth->finish();
# disconnect from database
$dbh->disconnect;
return %return_hash;
}
sub print_calendar_update_tournament_only_event_form{
my $event_id = shift;
my $tournament_id = shift;
my %event_info = get_event_info($event_id);
my $update_notes = $event_info{"Notes"};
my %tournament_event_info = get_tournament_event_info($tournament_id);
my $alt_top = $tournament_event_info{"ALT_TOP_BRACKET"};
my $alt_bottom = $tournament_event_info{"ALT_BOTTOM_BRACKET"};
$update_notes =~ s/
/\n/g;
@hours = (1,2,3,4,5,6,7,8,9,10,11,12);
@min = ("00","15","30","45");
@ampm = ("AM", "PM");
($current_sdate, $current_stime) = split(/\s+/, $event_info{"Start_Date"});
($current_shour, $current_smin, $current_sampm) = convert_time_to_display($current_stime);
($current_edate, $current_etime) = split(/\s+/, $event_info{"End_Date"});
($current_ehour, $current_emin, $current_eampm) = convert_time_to_display($current_etime);
$current_sdate = convert_date_to_display($current_sdate);
%event_types = get_event_types();
%locations = get_locations($event_info{"Org_ID"});
%teams = get_league_teams($event_info{"League_ID"});
$locations{"Other"} = 0;
print <<__HTML__;
__HTML__
print <<__HTML__;