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__;
Tournament Event
Event Type
Event Name
Home Team (Upper Bracket) __HTML__ print "\n"; print <<__HTML__;
Other Home Team $home_team __HTML__ if($event_info{"Home_Team"} == 0){ print "\n"; }else{ print "\n"; } print <<__HTML__;
Visiting Team (Lower Bracket) __HTML__ print "\n"; print <<__HTML__;
Other Away Team __HTML__ if($event_info{"Away_Team"} == 0){ print "\n"; }else{ print "\n"; } print <<__HTML__;
Date Click to insert Date
Start Time __HTML__ print "\n"; print "\n"; print "\n"; print <<__HTML__;
End Time __HTML__ print "\n"; print "\n"; print "\n"; print <<__HTML__;
Location
Other
Notes
__HTML__ print "\n"; } ################################################################# ## Print the Tournament Form ################################################################# sub print_tournament_only_calendar_event_form{ my $org_id = shift; my $league_id = shift; my $tournament_id = shift; my $round = shift; my $round_seed = shift; my $tournament_event_key = shift; @hours = (1,2,3,4,5,6,7,8,9,10,11,12); @min = (00,15,30,45); @ampm = ("AM", "PM"); %event_types = get_event_types(); %locations = get_locations($org_id); %teams = get_league_teams($league_id); $locations{"Other"} = 0; print <<__HTML__; __HTML__ print <<__HTML__;
Tournament Event
Event Type
Game Description
Home Team (Upper Bracket) __HTML__ print "\n"; print <<__HTML__;
Other Home Team
Visiting Team (Lower Bracket) __HTML__ print "\n"; print <<__HTML__;
Other Away Team
Date Click to insert Date
Start Time __HTML__ print "\n"; print "\n"; print "\n"; print <<__HTML__;
End Time __HTML__ print "\n"; print "\n"; print "\n"; print <<__HTML__;
Location
Other
Notes
__HTML__ print "\n"; } ################################################################# ## Print the Tournament Form ## Not sure if this sub is used, may be orphan code ################################################################# sub print_tournament_calendar_event_form{ my $org_id = shift; my $league_id = shift; my $tournament_id = shift; my $round = shift; my $round_seed = shift; my $tournament_event_key = shift; @hours = (1,2,3,4,5,6,7,8,9,10,11,12); @min = (00,15,30,45); @ampm = ("AM", "PM"); %event_types = get_event_types(); %locations = get_locations($org_id); %teams = get_league_teams($league_id); $locations{"Other"} = 0; print <<__HTML__; __HTML__ print <<__HTML__; ORG ID: $org_id
Tournament Event
Event Type
Game Description
Home Team (Upper Bracket) __HTML__ print "\n"; print <<__HTML__;
Visiting Team (Lower Bracket) __HTML__ print "\n"; print <<__HTML__;
Date Click to insert Date
Start Time __HTML__ print "\n"; print "\n"; print "\n"; print <<__HTML__;
End Time __HTML__ print "\n"; print "\n"; print "\n"; print <<__HTML__;
Location
Other
Notes
__HTML__ print "\n"; } sub print_update_alt_bracket_form{ my $event_id = shift; my %event_info = get_tournament_event_info($event_id); my $alt_top = $event_info{"ALT_TOP_BRACKET"}; my $alt_bottom = $event_info{"ALT_BOTTOM_BRACKET"}; print <<__HTML__;
Update Brackets
Top Bracket
Bottom Bracket
__HTML__ } sub get_tournament_event_info{ my $tournament_event_id = shift; my %return_hash; my $Key = ""; my $Tournament_ID = ""; my $Round = ""; my $Round_Seed = ""; my $Event_ID = ""; my $dbh = get_dbh(); # prepare and execute query my $query = "SELECT * FROM `Tournament_Events` WHERE `Key` = $tournament_event_id"; my $sth = $dbh->prepare($query); $sth->execute(); # assign fields to variables $sth->bind_columns(\$Key, \$Tournament_ID, \$Round, \$Round_Seed, \$Event_ID, \$Alt_Text, \$Alt_Top_Bracket, \$Alt_Bottom_Bracket); # output name list to the browser #print "Print Tourney Info

\n"; while($sth->fetch()) { $return_hash{"ID"}=$Tournament_ID; $return_hash{"ROUND"}=$Round; $return_hash{"ROUND_SEED"}=$Round_Seed; $return_hash{"EVENT_ID"}=$Event_ID; $return_hash{"ALT_TEXT"}=$Alt_Text; $return_hash{"ALT_TOP_BRACKET"}=$Alt_Top_Bracket; $return_hash{"ALT_BOTTOM_BRACKET"}=$Alt_Bottom_Bracket; } $sth->finish(); # disconnect from database $dbh->disconnect; return %return_hash; } sub print_update_winner_form{ my $event_id = shift; my $winner = get_tournament_winner($event_id); print <<__HTML__;

Update Winner
Winner
__HTML__ } sub get_tournament_winner{ my $tournament_id = shift; my $return_string = ""; my $Key = ""; my $Org_ID = ""; my $League_ID = ""; my $Tournament_Name = ""; my $Active = ""; my $Winner = ""; my $dbh = get_dbh(); # prepare and execute query my $query = "SELECT * FROM `Tournament_Info` WHERE `Key` = $tournament_id"; my $sth = $dbh->prepare($query); $sth->execute(); # assign fields to variables $sth->bind_columns(\$Key, \$Org_ID, \$League_ID, \$Tournament_Name, \$Active, \$Winner); while($sth->fetch()) { $return_string = $Winner; } $sth->finish(); # disconnect from database $dbh->disconnect; return $return_string; } sub get_display_time{ my $Start_Date = shift; ################################################ ## Parse Date String ################################################ my ($date, $time) = split(/\s+/, $Start_Date); my ($hour,$min,$sec) = split(/:/, $time); my ($current_year,$month,$day) = split(/-/, $date); my $shortened_notes = substr($Notes,0,20); my $leftover_notes = substr($Notes,20); ################################################ ## Convert to epoch seconds and back to get ## Day of week (ie Sat) and to get the Day ## without any leading zero's (ie 03) ################################################ #print "SD: $Start_Date
\n"; #print "SEC: $sec, Min: $min, Hour: $hour, Day: $day MONTH: $month YEAR: $current_year\n"; my $time_in_epoch = timelocal($sec,$min,$hour,$day,$month-1,$current_year-1900); my ($rsec, $rmin, $rhour, $current_day, $rmonth, $ryear, $wday, $yday, $isdst) = localtime($time_in_epoch); ################################################ ## Convert to Month Name (ie January) and ## Day of Week name (ie Sat) ################################################ my $day_name = get_day_name($wday); my $month_name = get_month_name_small($month); ################################################ ## Make conversions to display properly ################################################ if($rhour > 12){ $rhour = $rhour - 12; $am_pm = "PM"; }elsif($rhour == 0){ $rhour = 12; $am_pm = "AM"; }elsif($rhour == 12){ $am_pm = "PM"; }else{ $am_pm = "AM"; } $display_time = "$month_name $current_day ($day_name) $rhour:$min $am_pm"; return $display_time; } 1;