use Time::Local;

###############################################################
### Define any globals 
###############################################################
my $org_url = "lyaa";
my $method = "post";  #Use Post for production, it hides the parameters.
#my $paypal_url = "https://www.sandbox.paypal.com/cgi-bin/webscr";
#my $paypal_acc = "jeremyhlmclean\@yahoo.com";
#my $paypal_acc = "jeremy_1195331242_biz\@yahoo.com";
#my $paypal_acc = "jeremymclean\@gmail.com";
my $paypal_acc = "lyaaball\@comcast.net";
#my $page_url   = "devreg.html";
my $page_url   = "reg.html";

my $thanks_url = "https://www.hometeamzonline.com/lyaa/" . $page_url . "?action=pp";
my $ipn_url    = "http://www.hometeamzonline.com/pp/ipn.php";
my $base_reg_url = "https://www.hometeamzonline.com/$org_url/" . $page_url;
#my $paypal_acc = "jeremymclean\@gmail.com";
my $paypal_url = "https://www.paypal.com/cgi-bin/webscr";
#my $thanks_url = "https://www.hometeamzonline.com/$org_url/thanks.html?transaction=";

$phone_example = "<font style=\"font-size:8pt;color:black;\">Format 847-999-9999</font>";
################################################################
### This is the admin Sub routing for the home page 
################################################################
sub main_thanks{
    
    
$failed_login = 0;
###############################################################
### Get paramters 
###############################################################
$page      = param('page');
$sub       = param('sub');
$coach     = param('coach');
$newnews   = param('news');
$title     = param('title');
$date      = param('date');
$update    = param('update');
$obj_id    = param('obj_id');
$month     = param('month');
$year      = param('year');
$day       = param('day');
#$org_id    = param('org_id');
$league_id = param('league_id');
$user      = param('user');
$pass      = param('pass');
$filter    = param('filter');
$admin     = param('admin');
$info_id   = param('info_id');
$login     = param('login');
$personal  = param('personal');
$action    = param('action');
$newemail  = param('newemail');




###############################################################
### Print Header  
###############################################################



%site_info = get_site_info($org_id);
$site_info{"site_banner_image"} =~ s/\/home\/homete3\/public_html//;
$site_info{"site_logo"} =~ s/\/home\/homete3\/public_html//;

print header();
print_start_header_main();
print_style();


###############################################################
### Print Body of HTML doc 
###############################################################

print <<__HTML__;
<meta http-equiv="keywords" content="baseball league software, fundraising, build a league website, online league management, tournament brackets, park district websites, little league, youth athletics websites, youth baseball, basketball, league software, league websites, build a sports website, football, hockey, soccer, softball, umpire scheduling, field management, team fundraising, baseball scheduling software">
<meta http-equiv="description" content="Hometeamz.com - Specializes in online sports league websites, team websites, and league management software.  Manage team schedules, game results, automated standing, tournament brackets, field schedules, umpire scheduling, online registration, fundraising, sponsor ads, photos, news, and more.">
<!--
////////////////////////////////////////////////////////
// Load Calendar Related Scripts
////////////////////////////////////////////////////////
-->

<SCRIPT LANGUAGE="JavaScript" SRC="../jscripts/calendar/cCalendarPopup_reg2.js"></SCRIPT>
<!-- This javascript is only used for the show/hide source on my example page.
     It is not used by the Calendar Popup script -->
<SCRIPT LANGUAGE="JavaScript" SRC="../jscripts/calendar/common.js"></SCRIPT>

<!-- This prints out the default stylehseets used by the DIV style calendar.
     Only needed if you are using the DIV style popup -->
<SCRIPT LANGUAGE="JavaScript">document.write(getCalendarStyles());</SCRIPT>
<!--
////////////////////////////////////////////////////////
// END - Calendar Related Scripts
////////////////////////////////////////////////////////
-->
  </HEAD>
  <BODY>

__HTML__

    $active_id{"login"} = "";
    $active_id{"create"} = "";
    $active_id{"register"} = "";
    $active_id{"verify"} = "";
    $active_id{"pay"} = "";

    #ADDED this portion to show logout feature.
    my $email      = param('email');
    my $pw         = param('pw');
    my $session_id = check_reg_login($email, "$pw");
    if($session_id ne ""){
        $transaction_id = param("transaction");
        $valid = check_transaction_user($session_id, $transaction_id);
    }else{
        $valid = 0;
    }
    
    print_top($session_id);
    #print_right_border($org_id);
    #print_menu($org_id);
    print_reg_info();
    print "VALID: $valid<br>\n";
    
    $active_id{"complete"} = "id=current";
    print_steps();
    if($valid == 1){
        print_thanks($transaction_id);
    }else{
        print_show_purchase_invalid();
    }
}
sub check_transaction_user{
    my $session        = shift;
    my $transaction_id = shift;
    my $valid          = 0;
    my $session_user   = get_user_by_session($session);
    my $txn_user       = get_user_by_transaction($transaction_id);
    #print "SESSION USER: $session_user<br>\n";
    #print "TXN_USER: $txn_user<br>\n";
    if(($session_user != 0)&&($txn_user != 0)){
        if($session_user == $txn_user){
            $valid = 1;
        }
    }
	
    return $valid;

}
sub get_user_by_transaction{
    my $transaction_id = shift;
    my $dbh = get_dbh();
    my $return_key = 0;
    ################################################################
    # Query DB for tranasctions
    ################################################################
    my $query = "SELECT `Account_ID` FROM `TMP_PAYPAL` WHERE `Transaction_ID` = '$transaction_id'";
    my $sth = $dbh->prepare($query);
    #print "$query<br>\n";
    $sth->execute();
    $sth->bind_columns(\$Key);

    while($sth->fetch()) {
        $return_key = $Key;
    }
    $sth->finish();
    $dbh->disconnect;
    return $return_key;
    
}
sub get_user_by_session{
    my $session = shift;
    my $dbh = get_dbh();
    my $return_key = 0;
    ################################################################
    # Query DB for tranasctions
    ################################################################
    my $query = "SELECT `Key` FROM `Account_Info` WHERE `Last_Access_ID` = '$session'";
    my $sth = $dbh->prepare($query);
    #print "$query<br>\n";
    $sth->execute();
    $sth->bind_columns(\$Key);

    while($sth->fetch()) {
        $return_key = $Key;
    }
    $sth->finish();
    $dbh->disconnect;
    return $return_key;
    
}
################################################################
### This is the admin Sub routing for the home page 
################################################################
sub admin_registration{
    
    
    $failed_login = 0;
    ###############################################################
    ### Get paramters 
    ###############################################################
    $page      = param('page');
    $sub       = param('sub');
    $coach     = param('coach');
    $newnews   = param('news');
    $title     = param('title');
    $date      = param('date');
    $update    = param('update');
    $obj_id    = param('obj_id');
    $month     = param('month');
    $year      = param('year');
    $day       = param('day');
    #$org_id    = param('org_id');
    $league_id = param('league_id');
    $user      = param('user');
    $pass      = param('pass');
    $filter    = param('filter');
    $admin     = param('admin');
    $info_id   = param('info_id');
    $login     = param('login');
    $personal  = param('personal');
    $action    = param('action');
    $newemail  = param('newemail');
    
    
    
    
    ###############################################################
    ### Print Header  
    ###############################################################
    
    
    
    %site_info = get_site_info($org_id);
    $site_info{"site_banner_image"} =~ s/\/home\/homete3\/public_html//;
    $site_info{"site_logo"} =~ s/\/home\/homete3\/public_html//;
    
    print header();
    print_start_header_main();
    print_style2();
    
    
    ###############################################################
    ### Print Body of HTML doc 
    ###############################################################
    
    print <<__HTML__;
    <meta http-equiv="keywords" content="baseball league software, fundraising, build a league website, online league management, tournament brackets, park district websites, little league, youth athletics websites, youth baseball, basketball, league software, league websites, build a sports website, football, hockey, soccer, softball, umpire scheduling, field management, team fundraising, baseball scheduling software">
    <meta http-equiv="description" content="Hometeamz.com - Specializes in online sports league websites, team websites, and league management software.  Manage team schedules, game results, automated standing, tournament brackets, field schedules, umpire scheduling, online registration, fundraising, sponsor ads, photos, news, and more.">
    <!--
    ////////////////////////////////////////////////////////
    // Load Calendar Related Scripts
    ////////////////////////////////////////////////////////
    -->
    
    <SCRIPT LANGUAGE="JavaScript" SRC="../jscripts/calendar/cCalendarPopup_reg2.js"></SCRIPT>
    <!-- This javascript is only used for the show/hide source on my example page.
     It is not used by the Calendar Popup script -->
    <SCRIPT LANGUAGE="JavaScript" SRC="../jscripts/calendar/common.js"></SCRIPT>
    
    <!-- This prints out the default stylehseets used by the DIV style calendar.
    Only needed if you are using the DIV style popup -->
    <SCRIPT LANGUAGE="JavaScript">document.write(getCalendarStyles());</SCRIPT>
    <!--
    ////////////////////////////////////////////////////////
    // END - Calendar Related Scripts
    ////////////////////////////////////////////////////////
    -->
    </HEAD>
    <BODY>
    
__HTML__

    $active_id{"login"} = "";
    $active_id{"create"} = "";
    $active_id{"register"} = "";
    $active_id{"verify"} = "";
    $active_id{"pay"} = "";
    #ADDED this portion to show logout feature.
    my $email      = param('email');
    my $pw         = param('pw');
    if(!(defined($email))){
        $email = "";
        $pw    = "";
    }
	my $login, $failed_login, $admin = print_reg_admin2($email, $pw, $org_id, "NA", "NA", "NA");
    #my $session_id = check_reg_login($email, "$pw");
    #print "SESSION ID: $session_id<br>\n";

    #print_top($session_id);
    #print_right_border($org_id);
    #print_menu($org_id);
    #print_reg_info();
    #print_reg_admin($session_id);
}

################################################################
### Check to see if the user is logged in 
################################################################
sub check_valid_user_reg_admin{
    my $user       = shift;
    my $pass       = shift;
    my $org_id     = shift;
    my $league_id  = shift;
    my $info_id    = shift;
    my $page       = shift;

    my $success          = 0;
    my $login_success    = 0;
    my $session_id       = get_cookie();
    my $return_hash;
    $return_hash{"LOGIN_SUCCESS"} = 0;

    my $dbh = get_dbh(); 
    
    #print "<script>alert('$session_id');</script>\n";
    ################################################################
    # Check to see if there is a valid cookie
    ################################################################
    if($session_id eq ""){
    #print "<script>alert('Session = null');</script>\n";
	#print "<script>alert('USER: $user PASS: $pass');</script>\n";
        ################################################################
        # If not a valid cookie, check the to see if the user/pass
        # combination is correct
        ################################################################
        if(($user ne "") && ($pass ne "")){
            $query = "SELECT * FROM `Account_Info` WHERE (`Login` = '$user' OR `email` = '$user') AND `Password` = '$pass'";
#print "<script>alert('$query');</script>\n";
            $sth = $dbh->prepare($query);
            $sth->execute();
            $sth->bind_columns(\$Key, \$Login, \$Password,
                               \$email, \$League_ID, \$Last_Access,
                               \$Last_Access_ID, \$Firstname,
                               \$Lastname, \$Title,
                               \$Home_Phone, \$Work_Phone,
                               \$Zip_Code);
            ################################################################
            # Loop through what the db returned, if there is somthing there
            # it assumes success. It also checks to see that they are 
            # logging into the correct league.  
            # League 0 is all leagues.  
            ################################################################
            while($sth->fetch()) {
                $return_hash{"LOGIN_SUCCESS"} = 1;
                $return_hash{"EMAIL"}         = $email;
                $return_hash{"LOGIN_ID"}      = $Key;
                $return_hash{"LOGIN"}         = $Login;
                $return_hash{"FIRSTNAME"}     = $Firstname;
                $return_hash{"LASTNAME"}      = $Lastname;
                $return_hash{"TITLE"}         = $Title;
                $return_hash{"HOMEPHONE"}     = $Home_Phone;
                $return_hash{"WORKPHONE"}     = $Work_Phone;
                $return_hash{"ZIPCODE"}       = $Zip_Code;
                $test_hash{"ONE"} = 1; 
               
             
            }


            ################################################################
            # Login failed because incorrect Login or password 
            ################################################################
            if($return_hash{"LOGIN_SUCCESS"} == 0){
                
				$return_hash{"LOGIN_SUCCESS"} = -1;
                $session_id = ""; 
                #print "<script>alert('SUCCESS is now 0');</script>\n";
            }else{
                $current_date = get_date_time();
                $session_id   = generate_random_string(15);
                $update = "UPDATE `Account_Info` SET `Last_Access`='$current_date', `Last_Access_ID`='$session_id' WHERE `Key` = $Key;";
                ##print "QUERY: $update<br>\n";
                $sth = $dbh->prepare($update);
                $sth->execute();

                print <<__HTML__;
                <script>
                    Set_Cookie( 'SID', "$session_id", '5', '/', '', '' );
                    var thisCookie = ReadCookie('SID');
                    
                </script>
__HTML__

            }


        }else{
            ################################################################
            # Login failed because no Login or password 
            # Could be first time loggin in. 
            ################################################################
            $session_id = ""; 
        }

    }else{
    	#print "<script>alert('Session not null');</script>\n";
    	

            ################################################################
            # Query DB to verify Session
            ################################################################
            $query = "SELECT * FROM `Account_Info` WHERE `Last_Access_ID` = '$session_id'";

            $sth = $dbh->prepare($query);
            $sth->execute();
            $sth->bind_columns(\$Key, \$Login, \$Password,
                               \$email, \$League_ID, \$Last_Access,
                               \$Last_Access_ID, \$Firstname,
                               \$Lastname, \$Title,
                               \$Home_Phone, \$Work_Phone,
                               \$Zip_Code);
            ################################################################
            # Loop through what the db returned, if there is somthing there
            # it assumes success. It also checks to see that they are 
            # logging into the correct league.  
            # League 0 is all leagues.  
            ################################################################
            while($sth->fetch()) {
                $return_hash{"LOGIN_SUCCESS"} = 1;
                $return_hash{"EMAIL"}         = $email;
                $return_hash{"LOGIN_ID"}      = $Key;
                $return_hash{"FIRSTNAME"}     = $Firstname;
                $return_hash{"LASTNAME"}      = $Lastname;
                $return_hash{"TITLE"}         = $Title;
                $return_hash{"HOMEPHONE"}     = $Home_Phone;
                $return_hash{"WORKPHONE"}     = $Work_Phone;
                $return_hash{"ZIPCODE"}       = $Zip_Code;

            }

            #print "<script>alert('$return_hash{\"LOGIN_SUCCESS\"}');</script>\n";

            ################################################################
            # If we get to this point.  The cookie is invalid at least for
            # this league.
            ################################################################
            if($return_hash{"LOGIN_SUCCESS"} == 0){
                #print "<br><br><div class=message_text><center>Your Session has expired, <br>Please login again.</center></div>\n";
                print "<script>Delete_Cookie();</script>\n";
                $session_id = ""; 
            }else{


                ################################################################
                # Update DB to keep session active
                ################################################################
                
                $current_date = get_date_time();
                $update = "UPDATE `Account_Info` SET `Last_Access`='$current_date' WHERE `Key` = $Key;";
                ##print "QUERY: $update<br>\n";
                $sth = $dbh->prepare($update);
                $sth->execute();
    
                ################################################################
                # Update Cookie to keep session active
                ################################################################
                print <<__HTML__;
                <script>
                    Set_Cookie('SID',"$session_id",'5','/','','');
                    var thisCookie = ReadCookie('SID');
                    //alert("hello");
                </script>
__HTML__

            }
    }

    ################################################################
    # Close DB connection
    ################################################################
    $sth->finish();
    # disconnect from database
    $dbh->disconnect;

#print "<script>alert('$Firstname, $Lastname -KEY:$Key" . $return_hash{"LOGIN_ID"} ." ');</script>\n";
#            foreach $key (keys %return_hash){
#                print "<script>alert(\"$key, $return_hash{$key}\")</script>\n";
#            }
    $return_hash{"SESSION_ID"} = $session_id;
#    $return_hash{"TEST"} = "TEST";
    return %return_hash;
}

sub print_reg_admin2{
	my $user      = shift;
	my $pass      = shift;
	my $org_id    = shift;
	my $league_id = shift;
	my $info_id   = shift;
	my $page      = shift;
    my $access_level = 0;
    my $admin     = 1;
	my $login     = 1;
	my $failed_login = 0;
    %valid_user = check_valid_user_reg_admin($user,$pass,$org_id,$league_id,$info_id,$page);
    if($valid_user{"LOGIN_SUCCESS"} == 1){
	    ##################################
        # Check valid user access
        ##################################
        $access_level = check_permissions($valid_user{"LOGIN_ID"}, $org_id, $league_id, $info_id, $page);
		$login        = 0;
	    ##################################
        # if they are trying for a coach
		# or admin page, check verify permssions.
        ##################################
		#print "<script>alert(\"ACCESS: $access_level\");</script>\n";
		if($admin == 1){
            if(!($access_level >=3)){
				#print "<script>alert(\"You do not have Admin access to this page.\")</script>\n";
                $admin = 0;
			}
		}

	}elsif($valid_user{"LOGIN_SUCCESS"} == -1){
        $failed_login = 1;
		$login = 1;
	}else{
		##################################
        # if not valid user (ie. not logged in)
		# check if it was attempting a admin
		# or coach
        ##################################
		if(($coach == 1)||($admin == 1)){
			#print "<script>alert(\"You do not have Admin access to this page.\")</script>\n";
            #$coach = 0;
		    #$admin = 0;
			$login = 1;
		}
    }
	
	if($admin == 1){$session_id = "1234";}else{$session_id = "";}  #admin = 1 prints logout, admin != 1 prints log in.
    print_top_admin($session_id);  


	if($action eq "adminlogin"){     ##### Log in to verify USER Account information
        if($failed_login == 1){
			print "<script>Delete_Cookie();</script>\n";
            print_admin_login("Your username or password was incorrect.");
        }elsif($admin == 0){
			print "<script>Delete_Cookie();</script>\n";
			print_admin_login("You do not have access to this page.");
		}else{
            #print_show_reg($org_id);
            print_show_reg_user_in_line($org_id);
        }
    }elsif($action eq "logout"){
		print "<script>Delete_Cookie();</script>\n";
		print_admin_login("You have successfully logged out.");
	}else{
        if($failed_login == 1){
			print "<script>Delete_Cookie();</script>\n";
            print_admin_login("");
        }elsif($admin == 0){
			print "<script>Delete_Cookie();</script>\n";
			print_admin_login("");
		}elsif($login == 1){
			print "<script>Delete_Cookie();</script>\n";
			print_admin_login("");
		}else{
            #print_show_reg($org_id);
            print_show_reg_user_in_line($org_id);
        }
    }

	return $login, $failed_login, $admin;

}
################################################################
### Prints the top title bar 
################################################################
sub print_top_admin{
    $session_id = shift;
    if($session_id ne ""){
        $access_level =1;
    }
print <<__HTML__;
<DIV id="loginbar">

__HTML__
            print "<table border =0   width=98%><tr><td align=right valign=top id=login_font>\n";
            if($access_level == 1){
            #print "Welcome, $valid_user{\"FIRSTNAME\"}\n";
 
            
            #################################
            ## If Admin
            #################################
            if($access_level >= 3){
                print "&#160;&#160;&#160;<a href='$filename?org_id=$Org_ID&admin=1'>Control Panel</a>\n";
            }
            if($access_level >= 1){
                #print "&#160;&#160;&#160;<a href='$filename?org_id=$Org_ID&personal=1'>My Hometeamz</a>\n";
                print "&#160;&#160;&#160;<a href='regadmin.html?action=logout'>Logout</a>";
            }
        }else{
            #print "<a href='$page_url'>Login</a>";
        }

print <<__HTML__;
       </td></tr></table>
</div>
<DIV id="top">
<center>
<table border=0 width=99% id="top_image"><tr><td width=198 >&#160</td><td width=300>

<!--<img width=960 src="/pyb/images/banner1.jpg">-->
    <h1> $site_info{"site_banner_text"}</h1>
    <br>
</td><td>

<img src="$site_info{"site_banner_image"}"></td></tr></table>


</center>
</DIV>
<DIV id="top_lower"> </DIV>
</DIV>
    <DIV id="top_left_image"> 
        <img width=159 height=122 src="$hometeamz_dir/teamdata/hometeamz/top_left.gif">

</DIV>
        <DIV id="top_left_image2"> 
        <img width=115 height=115 src="$site_info{"site_logo"}" border=0>

</DIV>
__HTML__

}
sub get_transactions{
    my $transaction_id = shift;
    my %return_hash = ();
    my $dbh = get_dbh();
    ################################################################
    # Query DB for tranasctions
    ################################################################
    my $query = "SELECT `Key`, `Player_ID`, `Amount`, `Processed` FROM `TMP_PAYPAL` WHERE `Transaction_ID` = '$transaction_id'";
    #my $query = "SELECT `Key`, `Player_ID`, `Amount` FROM `TMP_PAYPAL` WHERE `Transaction_ID` = '$transaction_id' AND `Processed` = '1'";
    my $sth = $dbh->prepare($query);
    #print "$query<br>\n";
    $sth->execute();
    $sth->bind_columns(\$Key, \$Player_ID, \$Amount, \$Processed);

    while($sth->fetch()) {
        $return_hash{$Player_ID}{"AMOUNT"} = $Amount;
        $return_hash{$Player_ID}{"PROCESSED"} = $Processed;
    }
    $sth->finish();
    $dbh->disconnect;
    return %return_hash;
}

sub print_show_purchase_invalid{
    #my $transaction_id    = shift;
    #my %transactions      = get_transactions($transaction_id);
    #my %users             = get_users_by_org($org_id);
    #my %user_info         = get_account_info($user_key);
    #my %player_info       = get_player_info($user_key);
    #my %mod_player_info   = get_player_info_by_key($player_key);
    #my %division_selected = get_division_data();
     #print "<DIV id=\"middle\"><br><center>\n";
        
    $html = "<table id=step_choice_container cellpadding=6 cellmargin=4 width=600><tr><td>";
    $html .= "<div style=\"font-size:10pt;color:red;\">Invalid Transaction</div><div style=\"font-size:10pt;color:black;\">You have tried to view a transaction you do not have permissions for or have been logged out of your account. <br>Click <a href=https://www.hometeamzonline.com/lyaa/$page_url>HERE</a> to return to the registration page.</div><br><center>\n";
    

    $html .= "<br></td></tr></table>\n";

    print $html;
}
sub print_pay_partial_complete{
     #print "<DIV id=\"middle\"><br><center>\n";
    $active_id{"complete"} = "id=current";
    print_steps();
    $html = "<table id=step_choice_container cellpadding=6 cellmargin=4 width=600><tr><td>";
    $html .= "<div style=\"font-size:10pt;color:red;\">Step 6 : Order Complete</div><div style=\"font-size:10pt;color:black;\">
    Thank-you for registering for the Lakes Youth Athletic Association 2008 Season.\n <br><br>Your order is complete. If you require any assistance with the online registration process, or have any general questions regarding LYAA registration, please contact the board by emailing <a href=mailto:board\@lyaa.org>board\@lyaa.org</a>, or leaving a message at (847) 604-0270. </div><br><center><br>\n";

    $html .= "<div style=\"font-size:10pt;color:black;\"><a href=\"http://lyaa.org/home.pl?org_id=7&page=info&info_id=2756\">Return to LYAA Website</a></div>\n";

	
    

    $html .= "<br></td></tr></table>\n";

    print $html;
}
sub print_show_purchase{
    my $transaction_id    = shift;
    my %transactions      = get_transactions($transaction_id);
    #my %users             = get_users_by_org($org_id);
    #my %user_info         = get_account_info($user_key);
    #my %player_info       = get_player_info($user_key);
    #my %mod_player_info   = get_player_info_by_key($player_key);
    #my %division_selected = get_division_data();
     #print "<DIV id=\"middle\"><br><center>\n";
        
    $html = "<table id=step_choice_container cellpadding=6 cellmargin=4 width=600><tr><td>";
    $html .= "<div style=\"font-size:10pt;color:red;\">Step 6: Order Complete</div><div style=\"font-size:10pt;color:black;\"></div><br><center>\n";
    
    $html .= "<table style='border-collapse:collapse;border:0px solid black' width=95% cellpadding=0 cellspacing=0>\n";
    $user_header = "date_header";
    $player_header1 = "cal_events3";
    $player_header2 = "cal_events2";
    $currnet_header = 2;
    $html .= "<tr><td id=$user_header colspan=3><center>Receipt #$transaction_id</center></td></tr> \n";
    my $total = 0;
    my $count = 0;
    foreach my $player_key (keys %transactions) {
        $count++;
        my %player_info   = get_player_info_by_key($player_key);
        if($player_header eq $player_header1){
            $player_header = $player_header2;
        }else{
            $player_header = $player_header1;
        }
        if($transactions{"$player_key"}{"PROCESSED"} == 1){
            $processed = "Complete";
        }else{
            $processed = "Pending";
        }
        $html .= "<tr><td id=$player_header>$player_info{\"LASTNAME\"}, $player_info{\"FIRSTNAME\"}</td><td id=$player_header>\$$transactions{\"$player_key\"}{\"AMOUNT\"}</td><td id=$player_header>$processed</td></tr> \n";
        $total = $total + $transactions{"$player_key"}{"AMOUNT"};
    }
    if($count == 0){
        $html .= "<tr><td id=$player_header colspan=3 align=center>No Transaction Found</td></tr> \n";
    }

    $html .= "<tr><td id=$user_header align=right>Total&nbsp;</td><td id=$user_header>\$$total</td><td id=$user_header>&nbsp;</td></tr> \n";
    
    $html .= "</table><br>\n";

    $html .= "<center><br><div style=\"font-size:10pt;color:black;\"><a href=\"http://lyaa.org/home.pl?org_id=7&page=info&info_id=2756\">Return to LYAA Website</a></div></center></td></tr></table>\n";

    #<div style=\"font-size:10pt;color:black;\">Click <a href=https://www.hometeamzonline.com/lyaa/$page_url>HERE</a> to return to the registration page.</div>

    print $html;
}

sub print_thanks{
    $transaction_id = shift;

    print_show_purchase($transaction_id);
    #if($action eq "thankslogin"){     ##### Log in to verify USER Account information
    #    $email      = param('email');
    #    $pw         = param('pw');
    #    $session_id = check_reg_login($email, "$pw");
    #    if($session_id eq ""){
    #        print_admin_login("Your username or password was incorrect.");
    #    }else{
    #        print_show_reg($org_id);
    #    }
    #}else{

    #    print_admin_login();
    #}


    print "</div> <!--End Middle-->\n";
    print <<__HTML__;
    <DIV ID="testdiv1" STYLE="position:absolute;visibility:hidden;background-color:white;layer-background-color:white;z-index:999"></DIV>
    <IFRAME id=hideframe name=hideframe style="visibility:hidden; LEFT: 0px; POSITION: absolute; TOP: 0px;z-index:500;" src="https://www.hometeamzonline.com/lyaa/na.html" frameBorder="0" scrolling="no"></IFRAME>
__HTML__
    print "</body></html>\n";
}

sub print_reg_admin{
    $session_id = shift;

    if($action eq "adminlogin"){     ##### Log in to verify USER Account information
        if($session_id eq ""){
        print_admin_login("Your username or password was incorrect.");
        }else{
            #print_show_reg($org_id);
            print_show_reg_user_in_line($org_id);
        }
    }else{
        if($session_id eq ""){
            print_admin_login();
        }else{
            print_show_reg_user_in_line($org_id);
        }
    }


    print "</div> <!--End Middle2-->\n";
    print <<__HTML__;
    <DIV ID="testdiv1" STYLE="position:absolute;visibility:hidden;background-color:white;layer-background-color:white;z-index:999"></DIV>
    <IFRAME id=hideframe name=hideframe style="visibility:hidden; LEFT: 0px; POSITION: absolute; TOP: 0px;z-index:500;" src="https://www.hometeamzonline.com/lyaa/na.html" frameBorder="0" scrolling="no"></IFRAME>
__HTML__
    print "</body></html>\n";
}


sub get_player_header4{
    $player_header3 = "cal_events_head";
    my $player_header .= "<tr><td id=$player_header3 align=center>Player Last Name</td> \n";
    $player_header .= "<td id=$player_header3 align=center>Player First Name</td> \n";
    $player_header .= "<td id=$player_header3 align=center>Amount</td> \n";
    $player_header .= "<td id=$player_header3 align=center>Pay Pal ID</td> \n";
    $player_header .= "<td id=$player_header3 align=center>Date</td></tr> \n";

    return $player_header;
}

sub get_player_header5{
    $player_header3 = "cal_events_head";
    my $player_header .= "<tr><td id=$player_header3 align=center>Player Last Name</td> \n";
    $player_header .= "<td id=$player_header3 align=center>Player First Name</td> \n";
    $player_header .= "<td id=$player_header3 align=center>Amount</td> \n";
    $player_header .= "<td id=$player_header3 align=center>Notes / PayPal_ID / Check#</td> \n";
    $player_header .= "<td id=$player_header3 align=center>Date</td>\n";
	$player_header .= "<td id=$player_header3 align=center>Changed By</td></tr>  \n";

    return $player_header;
}

sub get_player_header3{
    $player_header3 = "cal_events_head";
    my $player_header .= "<tr><td id=$player_header3 align=center>Player Last Name</td> \n";
    $player_header .= "<td id=$player_header3 align=center>Player First Name</td> \n";
    $player_header .= "<td id=$player_header3 align=center>Total</td> \n";
    $player_header .= "<td id=$player_header3 align=center>Paid</td> \n";
    $player_header .= "<td id=$player_header3 align=center>Due</td></tr> \n";

    return $player_header;
}

sub get_player_header2{
    $player_header3 = "cal_events_head";
    my $player_header = "<tr><td id=$player_header3 align=center>Edit Player</td> \n";
    $player_header .= "<td id=$player_header3 align=center>Player Last Name</td> \n";
    $player_header .= "<td id=$player_header3 align=center>Player First Name</td> \n";
	$player_header .= "<td id=$player_header3 align=center>Registration Date</td> \n";
    $player_header .= "<td id=$player_header3 align=center>Total</td> \n";
    $player_header .= "<td id=$player_header3 align=center>Paid</td> \n";
    $player_header .= "<td id=$player_header3 align=center>Due</td> \n";
    $player_header .= "<td id=$player_header3 align=center>Gender</td> \n";
    $player_header .= "<td id=$player_header3 align=center>DOB<br>Player</td> \n";
    $player_header .= "<td id=$player_header3 align=center>Grade</td> \n";
    $player_header .= "<td id=$player_header3 align=center>School</td> \n";
    $player_header .= "<td id=$player_header3 align=center>Returning<br>Player</td> \n";
    $player_header .= "<td id=$player_header3 align=center>Play Up?</td> \n";
    $player_header .= "<td id=$player_header3 align=center>Account<br>Last Name</td> \n";
    $player_header .= "<td id=$player_header3 align=center>Account<br>First Name</td> \n";
    $player_header .= "<td id=$player_header3 align=center>Account<br>Phone</td></td> \n";
    $player_header .= "<td id=$player_header3 align=center>Account<br>Email</td></td></tr> \n";
    return $player_header;
}

sub get_player_header{
            $player_header3 = "cal_events_head";
            my $player_header = "<tr><td id=$player_header3>Name</td><td id=$player_header3>Paid</td> \n";
            $player_header .= "<td id=$player_header3>Division</td> \n";
            $player_header .= "<td id=$player_header3>DOB</td> \n";
            $player_header .= "<td id=$player_header3>Gender</td> \n";
            $player_header .= "<td id=$player_header3>School</td> \n";
            $player_header .= "<td id=$player_header3>Grade</td> \n";
            $player_header .= "<td id=$player_header3>Returning<br>Player</td> \n";
            $player_header .= "<td id=$player_header3>Play<br>Up</td> \n";
            $player_header .= "<td id=$player_header3>Emergency Contact</td> \n";
            $player_header .= "<td id=$player_header3>Emergency Phone</td> \n";
            $player_header .= "<td id=$player_header3>Emergency Secondary Phone</td> \n";
            $player_header .= "<td id=$player_header3>Hat Size</td> \n";
            $player_header .= "<td id=$player_header3>Hat Size</td></tr> \n";
    return $player_header;
}

#######################################
# This one shows the user in line with the player
#######################################
sub print_show_reg_user_in_line{
    my %users             = get_users_by_org($org_id);
    #my %user_info         = get_account_info($user_key);
    #my %player_info       = get_player_info($user_key);
    #my %mod_player_info   = get_player_info_by_key($player_key);
    #my %division_selected = get_division_data();
    print <<__HTML__;
    <style>
    #middle3 {
        position        : absolute;
        top             : 147px;
        height          : 100%;
        left            : 10px;
        width           : 950px;
        background-color: $site_info{"bg_color"};
        z-index         : 1;
        font-size       : 10pt; 
        font-weight     : bold; 
        font            : 16pt Tahoma;
        color       : #003366;
        border-bottom   : 1px solid #cccccc;
        border-left     : 1px solid #cccccc;
        border-right    : 1px solid #cccccc;

    }
#player_header {
        background-color: #006699;
        color           : #FFFFFF; 
        font-weight     : bold; 
        font            : 8pt Arial bold;
}
</style>

<script>
function edit_player(OrgId, PlayerKey) {
    var _x = 300;
    var _y = 200;
    del_event=window.open('$lib/update_reg_player.pl?org=' + OrgId + '&player_key=' + PlayerKey, 'edit_gallery', 'scrollbars=1,width=750,height=750,left=' + _x + ',top=' + _y);
}
function edit_paid(OrgId, PlayerKey) {
    var _x = 300;
    var _y = 200;
    del_event=window.open('$lib/update_reg_player_paid.pl?org=' + OrgId + '&player_key=' + PlayerKey, 'edit_gallery', 'scrollbars=1,width=450,height=550,left=' + _x + ',top=' + _y);
}
</script>
__HTML__

    print "<DIV id=\"middle3\" >\n";
    my $player_header_info = get_player_header2();
    #$table_header = "<table style='border-collapse:collapse;border:0px solid black' width=100% cellpadding=0 cellspacing=0>\n";
	#$table_header = "<form action=\"http://www.hometeamzonline.com/teamdev/test_db_update2.php\" method=post><input type=submit value=XLS></form><br><table style='border-collapse:collapse;border:0px solid black' width=100% cellpadding=0 cellspacing=0>\n";
    $table_header = "<table border=0 cellpadding=0 cellspacing=0 width=100%><tr valign=top><td align=right  id=cal_events3><a href=http://www.hometeamzonline.com/teamdev/test_db_update2.php><img src=xls.png border=0 width=25 height=25 >Export to Excel</a></td></tr></table><table style='border-collapse:collapse;border:0px solid black' width=100% cellpadding=0 cellspacing=0>\n";
	$user_header = "date_header";
    $player_header3 = "player_header";
    $player_header1 = "cal_events3";
    $player_header2 = "cal_events2";
    $currnet_header = 2;
    $full_user_info = "";
    %player_info = ();
    foreach my $user_key (keys %users) {
        $html_user = "<tr><td id=$user_header>$users{$user_key}{\"LASTNAME\"}, $users{$user_key}{\"FIRSTNAME\"}</td>\n";
        $html_user .= "<td id=$user_header>$users{$user_key}{\"HOMEPHONE\"}</td> \n";
        my %tmp_player_info       = get_player_info2($user_key);
        $paid = 0;
        $html = "";
        my $num_players       = 0;
        foreach my $player_key (sort {$a <=> $b}(keys %tmp_player_info)) {
            $player_info{$player_key}{"ULASTNAME"}  = $users{$user_key}{"LASTNAME"};
            $player_info{$player_key}{"UFIRSTNAME"} = $users{$user_key}{"FIRSTNAME"};
            $player_info{$player_key}{"UHOMEPHONE"} = $users{$user_key}{"HOMEPHONE"};
            $player_info{$player_key}{"UEMAIL"}     = $users{$user_key}{"EMAIL"};
            ##########################################################3
            # Calculate amount total, paid and due
            ###########################################################
            $num_players++;
            my $base_cost = is_older_than_cutoff($tmp_player_info{$player_key}{"DOB"},$tmp_player_info{$player_key}{"GENDER"});
            $amount_paid = $tmp_player_info{$player_key}{"PAID"};
            if($num_players > 2){$fundraiser_fee = 0; $fundraiser_string = "";}else{$fundraiser_fee = 30; $fundraiser_string = "+ \$30 Fundraiser";}
            if($num_players > 1){$discount = 15; $discount_string = "-\$15 multiplayer discount";}else{$discount = 0;$discount_string = "";}
            $player_total = $base_cost + $fundraiser_fee - $discount;
            $amount_due   = $player_total - $amount_paid;
		
            $tmp_player_info{$player_key}{"TOTAL_DUE"}  = $player_total;
            $tmp_player_info{$player_key}{"AMOUNT_DUE"} = $amount_due;
            foreach my $player_field (keys %{$tmp_player_info{$player_key}}){
                $player_info{$player_key}{"$player_field"} = $tmp_player_info{$player_key}{$player_field};
            }
        }
    }
    foreach my $player_key (sort {$player_info{$a}{"LASTNAME"} cmp $player_info{$b}{"LASTNAME"}} (keys %player_info)) {
        my @field_list = ("LASTNAME", "FIRSTNAME","HAT_SIZE", "TOTAL_DUE", "PAID", "AMOUNT_DUE" ,"GENDER","DOB","GRADE","SNAME","RETURNING","PLAY_UP","ULASTNAME","UFIRSTNAME","UHOMEPHONE","UEMAIL");
        if($player_header eq $player_header1){
            $player_header = $player_header2;
        }else{
            $player_header = $player_header1;
        }
        $paid = $paid + $player_info{$player_key}{"PAID"};
        $player_info = "<tr><td id=$player_header align=center><a href='javascript:void(0)' onclick='edit_player($org_id, $player_key);'>edit</a></td> \n";
        foreach(@field_list){
			if($_ eq "PAID"){
				$player_info .= "<td id=$player_header align=center><a href='javascript:void(0)' onclick='edit_paid($org_id, $player_key);'>$player_info{$player_key}{$_}</a></td> \n";
			}elsif($_ eq "HAT_SIZE"){
			    $display_date = convert_date_no_time_to_display($player_info{$player_key}{$_});
				$player_info .= "<td id=$player_header align=center>$display_date </td>\n";
			}else{
                $player_info .= "<td id=$player_header align=center>$player_info{$player_key}{$_} </td>\n";
			}
        }
        $player_info .= "</tr>";
        $full_user_info .= $player_info;
    }
            
    $full_user_info .= "</table>\n";
    print $table_header . $player_header_info . $full_user_info . "<br><br>&nbsp;";
    #$player_info .= "<td id=$player_header align=center>$player_info{$player_key}{\"LASTNAME\"}</td>\n";
        #$player_info .= "<td id=$player_header align=center>$player_info{$player_key}{\"FIRSTNAME\"}</td>\n";
        #$player_info .= "<td id=$player_header align=center>Register Date</td>\n";
        #$player_info .= "<td id=$player_header align=center>$player_info{$player_key}{\"PAID\"}</td> \n";
        #$player_info .= "<td id=$player_header align=center>$player_info{$player_key}{\"GENDER\"}</td> \n";
        #$player_info .= "<td id=$player_header align=center>$player_info{$player_key}{\"DOB\"}</td> \n";
        #$player_info .= "<td id=$player_header align=center>$player_info{$player_key}{\"GRADE\"}</td> \n";
        #$player_info .= "<td id=$player_header align=center>$player_info{$player_key}{\"SNAME\"}</td> \n";
        #$player_info .= "<td id=$player_header align=center>$player_info{$player_key}{\"RETURNING\"}</td> \n";
        #$player_info .= "<td id=$player_header align=center>$player_info{$player_key}{\"PLAY_UP\"}</td> \n";
        #$player_info .= "<td id=$player_header align=center>$users{$user_key}{\"LASTNAME\"}</td>\n";
        #$player_info .= "<td id=$player_header align=center>$users{$user_key}{\"FIRSTNAME\"}</td>\n";
        #player_info .= "<td id=$player_header align=center>$users{$user_key}{\"HOMEPHONE\"}</td>\n";
        #$player_info .= "<td id=$player_header align=center>$users{$user_key}{\"EMAIL\"}</td>\n";
        #$player_info .= "<td id=$player_header>$player_info{$player_key}{\"DIVISION\"}</td> \n";
        #$player_info .= "<td id=$player_header>$player_info{$player_key}{\"PAID\"}</td> \n";
        #$player_info .= "<td id=$player_header>$player_info{$player_key}{\"E_CONTACT_NAME\"}</td> \n";
        #$player_info .= "<td id=$player_header>$player_info{$player_key}{\"E_CONTACT_PHONE\"}</td> \n";
        #$player_info .= "<td id=$player_header>$player_info{$player_key}{\"E_CONTACT_SPHONE\"}</td> \n";
        #$player_info{$player_key}{"SHOE_SIZE"}        = $Shoe_Size;
        #$player_info{$player_key}{"JERSEY_PREF"}      = $Jersey_Pref;
        #$player_info{$player_key}{"DOB"}              = $DOB;
        #$player_info{$player_key}{"GENDER"}           = $Gender;
        #$player_info{$player_key}{"SNAME"}            = $School_Name;
        #$player_info{$player_key}{"GRADE"}            = $Grade;
        #$player_info{$player_key}{"AGE"}              = $Age;
        #$player_info{$player_key}{"HEIGHT"}           = $Height;
        #$player_info{$player_key}{"WEIGHT"}           = $Weight;
        #$player_info{$player_key}{"E_CONTACT_PHONE"}  = $E_Contact_Phone;
        #$player_info{$player_key}{"E_CONTACT_SPHONE"} = $E_Contact_SPhone;
        #$player_info{$player_key}{"E_CONTACT_NAME"}   = $E_Contact_Name;
        #$player_info{$player_key}{"E_CONTACT_REL"}    = $E_Contact_Relationship;
        #$player_info{$player_key}{"G_CONTACT_PHONE"}  = $G_Contact_Phone;
        #$player_info{$player_key}{"G_CONTACT_SPHONE"} = $G_Contact_SPhone;
        #$player_info{$player_key}{"G_CONTACT_NAME"}   = $G_Contact_Name;
        #$player_info{$player_key}{"G_CONTACT_REL"}    = $G_Contact_Relationship;
        #$player_info{$player_key}{"OG_CONTACT_PHONE"} = $OG_Contact_Phone;
        #$player_info{$player_key}{"OG_CONTACT_SPHONE"}= $OG_Contact_SPhone;
        #$player_info{$player_key}{"OG_CONTACT_NAME"}  = $OG_Contact_Name;
        #$player_info{$player_key}{"OG_CONTACT_REL"}   = $OG_Contact_Relationship;
        #$player_info{$player_key}{"PREF_DOC_NAME"}    = $Preferred_Doc_Name;
        #$player_info{$player_key}{"PREF_DOC_NUMB"}    = $Preferred_Doc_Number;
        #$player_info{$player_key}{"PREF_DENT_NAME"}   = $Preferred_Dentist_Name;
        #$player_info{$player_key}{"PREF_DENT_NUMB"}   = $Preferred_Dentist_Number;
        #$player_info{$player_key}{"PREF_HOSPITAL"}    = $Preferred_Hospital;
        #$player_info{$player_key}{"INSURANCE"}        = $Insurance_Carrier;
        #$player_info{$player_key}{"POLICY"}           = $Policy_Number;
        #$player_info{$player_key}{"MEDICAL"}          = $Medical_History;
        #$player_info{$player_key}{"RETURNING"}        = $Returning_Player;
        #$player_info{$player_key}{"PAID"}             = $Paid;
        #$player_info{$player_key}{"ACTIVE"}           = $Active;
        #$player_info{$player_key}{"CONSENT"}          = $Consent;
        #$player_info{$player_key}{"ACTIONSTO"}        = $Consent_Actions;
        #$player_info{$player_key}{"PLAY_UP"}          = $Play_Up;
    #$html_user .= "<td id=$user_header>$paid</td>\n";
    #$users{$user_key}{"HOMEPHONE"}    = $Home_Phone;
    #$users{$user_key}{"WORK_PHONE"}   = $Work_Phone;
    #$users{$user_key}{"MOBILE_PHONE"} = $Mobile_Phone;
    #$users{$user_key}{"ZIP_CODE"}     = $Zip_Code;
    #$users{$user_key}{"ADDRESS1"}     = $Address1;
    #$users{$user_key}{"ADDRESS2"}     = $Address2;
    #$users{$user_key}{"CITY"}         = $City;
    #$users{$user_key}{"STATE"}        = $State;
                
                

}

#######################################
# This one shows the user on top of the player
#######################################
sub print_show_reg{
    my %users             = get_users_by_org($org_id);
    #my %user_info         = get_account_info($user_key);
    #my %player_info       = get_player_info($user_key);
    #my %mod_player_info   = get_player_info_by_key($player_key);
    #my %division_selected = get_division_data();
    print <<__HTML__;
    <style>
    #middle3 {
        position        : absolute;
        top             : 147px;
        height          : 100%;
        left            : 10px;
        width           : 950px;
        background-color: $site_info{"bg_color"};
        z-index         : 1;
        font-size       : 10pt; 
        font-weight     : bold; 
        font            : 16pt Tahoma;
        color       : #003366;
        border-bottom   : 1px solid #cccccc;
        border-left     : 1px solid #cccccc;
        border-right    : 1px solid #cccccc;
    }
#player_header {
        background-color: #006699;
        color           : #FFFFFF; 
        font-weight     : bold; 
        font            : 8pt Arial bold;
}
</style>

__HTML__

    print "<DIV id=\"middle3\">\n";
    my $player_header_info = get_player_header();
    $table_header = "<table style='border-collapse:collapse;border:0px solid black' width=100% cellpadding=0 cellspacing=0>\n";
    $user_header = "date_header";
    $player_header3 = "player_header";
    $player_header1 = "cal_events3";
    $player_header2 = "cal_events2";
    $currnet_header = 2;
    $full_user_info = "";
    foreach my $user_key (keys %users) {
    $html_user = "<tr><td id=$user_header>$users{$user_key}{\"LASTNAME\"}, $users{$user_key}{\"FIRSTNAME\"}</td>\n";
    $html_user .= "<td id=$user_header>$users{$user_key}{\"HOMEPHONE\"}</td> \n";
        my %player_info       = get_player_info($user_key);
    $paid = 0;
    $html = "";
    $player_info = "";
    foreach my $player_key (keys %player_info) {
            if($player_header eq $player_header1){
        $player_header = $player_header2;
        }else{
                $player_header = $player_header1;
        }
        $paid = $paid + $player_info{$player_key}{"PAID"};
        $player_info .= "<tr><td id=$player_header><a href='javascript:void(0)' onclick='edit_player($org_id, $player_key);'>$player_info{$player_key}{\"LASTNAME\"}, $player_info{$player_key}{\"FIRSTNAME\"}</a></td><td id=$player_header>$player_info{$player_key}{\"PAID\"}</td> \n";
            $player_info .= "<td id=$player_header>$player_info{$player_key}{\"DIVISION\"}</td> \n";
        $player_info .= "<td id=$player_header>$player_info{$player_key}{\"DOB\"}</td> \n";
        $player_info .= "<td id=$player_header>$player_info{$player_key}{\"GENDER\"}</td> \n";
        $player_info .= "<td id=$player_header>$player_info{$player_key}{\"SNAME\"}</td> \n";
        $player_info .= "<td id=$player_header>$player_info{$player_key}{\"GRADE\"}</td> \n";
        $player_info .= "<td id=$player_header>$player_info{$player_key}{\"RETURNING\"}</td> \n";
        $player_info .= "<td id=$player_header>$player_info{$player_key}{\"PLAY_UP\"}</td> \n";
        $player_info .= "<td id=$player_header>$player_info{$player_key}{\"PAID\"}</td> \n";
        $player_info .= "<td id=$player_header>$player_info{$player_key}{\"E_CONTACT_NAME\"}</td> \n";
        $player_info .= "<td id=$player_header>$player_info{$player_key}{\"E_CONTACT_PHONE\"}</td> \n";
        $player_info .= "<td id=$player_header>$player_info{$player_key}{\"E_CONTACT_SPHONE\"}</td> \n";
        $player_info .= "<td id=$player_header>$player_info{$player_key}{\"HAT_SIZE\"}</td> \n";
        $player_info .= "<td id=$player_header>$player_info{$player_key}{\"HAT_SIZE\"}</td></tr> \n";
            #$player_info{$player_key}{"SHOE_SIZE"}        = $Shoe_Size;
            #$player_info{$player_key}{"JERSEY_PREF"}      = $Jersey_Pref;
            #$player_info{$player_key}{"DOB"}              = $DOB;
        #$player_info{$player_key}{"GENDER"}           = $Gender;
        #$player_info{$player_key}{"SNAME"}            = $School_Name;
        #$player_info{$player_key}{"GRADE"}            = $Grade;
        #$player_info{$player_key}{"AGE"}              = $Age;
        #$player_info{$player_key}{"HEIGHT"}           = $Height;
        #$player_info{$player_key}{"WEIGHT"}           = $Weight;
            #$player_info{$player_key}{"E_CONTACT_PHONE"}  = $E_Contact_Phone;
        #$player_info{$player_key}{"E_CONTACT_SPHONE"} = $E_Contact_SPhone;
            #$player_info{$player_key}{"E_CONTACT_NAME"}   = $E_Contact_Name;
        #$player_info{$player_key}{"E_CONTACT_REL"}    = $E_Contact_Relationship;
        #$player_info{$player_key}{"G_CONTACT_PHONE"}  = $G_Contact_Phone;
        #$player_info{$player_key}{"G_CONTACT_SPHONE"} = $G_Contact_SPhone;
        #$player_info{$player_key}{"G_CONTACT_NAME"}   = $G_Contact_Name;
        #$player_info{$player_key}{"G_CONTACT_REL"}    = $G_Contact_Relationship;
        #$player_info{$player_key}{"OG_CONTACT_PHONE"} = $OG_Contact_Phone;
        #$player_info{$player_key}{"OG_CONTACT_SPHONE"}= $OG_Contact_SPhone;
        #$player_info{$player_key}{"OG_CONTACT_NAME"}  = $OG_Contact_Name;
        #$player_info{$player_key}{"OG_CONTACT_REL"}   = $OG_Contact_Relationship;
            #$player_info{$player_key}{"PREF_DOC_NAME"}    = $Preferred_Doc_Name;
            #$player_info{$player_key}{"PREF_DOC_NUMB"}    = $Preferred_Doc_Number;
            #$player_info{$player_key}{"PREF_DENT_NAME"}   = $Preferred_Dentist_Name;
            #$player_info{$player_key}{"PREF_DENT_NUMB"}   = $Preferred_Dentist_Number;
            #$player_info{$player_key}{"PREF_HOSPITAL"}    = $Preferred_Hospital;
        #$player_info{$player_key}{"INSURANCE"}        = $Insurance_Carrier;
        #$player_info{$player_key}{"POLICY"}           = $Policy_Number;
            #$player_info{$player_key}{"MEDICAL"}          = $Medical_History;
        #$player_info{$player_key}{"RETURNING"}        = $Returning_Player;
            #$player_info{$player_key}{"PAID"}             = $Paid;
        #$player_info{$player_key}{"ACTIVE"}           = $Active;
        #$player_info{$player_key}{"CONSENT"}          = $Consent;
        #$player_info{$player_key}{"ACTIONSTO"}        = $Consent_Actions;
        #$player_info{$player_key}{"PLAY_UP"}          = $Play_Up;
    }
    $html_user .= "<td id=$user_header>$paid</td>\n";
    $full_user_info .= $html_user . $player_header_info . $player_info;
    #$users{$user_key}{"HOMEPHONE"}    = $Home_Phone;
    #$users{$user_key}{"WORK_PHONE"}   = $Work_Phone;
    #$users{$user_key}{"MOBILE_PHONE"} = $Mobile_Phone;
    #$users{$user_key}{"ZIP_CODE"}     = $Zip_Code;
    #$users{$user_key}{"ADDRESS1"}     = $Address1;
    #$users{$user_key}{"ADDRESS2"}     = $Address2;
    #$users{$user_key}{"CITY"}         = $City;
    #$users{$user_key}{"STATE"}        = $State;
        
        
    }
    $full_user_info .= "</table>\n";

    print $table_header . $full_user_info;
}

 
################################################################
### This is the Main Sub routing for the home page 
################################################################
sub main_registration{
    
    
$failed_login = 0;
###############################################################
### Get paramters 
###############################################################
$page      = param('page');
$sub       = param('sub');
$coach     = param('coach');
$newnews   = param('news');
$title     = param('title');
$date      = param('date');
$update    = param('update');
$obj_id    = param('obj_id');
$month     = param('month');
$year      = param('year');
$day       = param('day');
#$org_id    = param('org_id');
$league_id = param('league_id');
$user      = param('user');
$pass      = param('pass');
$filter    = param('filter');
$admin     = param('admin');
$info_id   = param('info_id');
$login     = param('login');
$personal  = param('personal');
$action    = param('action');
$newemail  = param('newemail');
$payment_s = param('payment_status');




###############################################################
### Print Header  
###############################################################



%site_info = get_site_info($org_id);
$site_info{"site_banner_image"} =~ s/\/home\/homete3\/public_html//;
$site_info{"site_logo"} =~ s/\/home\/homete3\/public_html//;

print header();
print_start_header_main();
print_style();


###############################################################
### Print Body of HTML doc 
###############################################################

print <<__HTML__;
<meta http-equiv="keywords" content="baseball league software, fundraising, build a league website, online league management, tournament brackets, park district websites, little league, youth athletics websites, youth baseball, basketball, league software, league websites, build a sports website, football, hockey, soccer, softball, umpire scheduling, field management, team fundraising, baseball scheduling software">
<meta http-equiv="description" content="Hometeamz.com - Specializes in online sports league websites, team websites, and league management software.  Manage team schedules, game results, automated standing, tournament brackets, field schedules, umpire scheduling, online registration, fundraising, sponsor ads, photos, news, and more.">
<!--
////////////////////////////////////////////////////////
// Load Calendar Related Scripts
////////////////////////////////////////////////////////
-->

<SCRIPT LANGUAGE="JavaScript" SRC="../jscripts/calendar/cCalendarPopup_reg2.js"></SCRIPT>
<!-- This javascript is only used for the show/hide source on my example page.
     It is not used by the Calendar Popup script -->
<SCRIPT LANGUAGE="JavaScript" SRC="../jscripts/calendar/common.js"></SCRIPT>

<!-- This prints out the default stylehseets used by the DIV style calendar.
     Only needed if you are using the DIV style popup -->
<SCRIPT LANGUAGE="JavaScript">document.write(getCalendarStyles());</SCRIPT>
<!--
////////////////////////////////////////////////////////
// END - Calendar Related Scripts
////////////////////////////////////////////////////////
-->
<style>
#st_input
{
      background-color: #ffffcc;
}

</style>
  </HEAD>
  <BODY>

__HTML__

    $active_id{"login"} = "";
    $active_id{"create"} = "";
    $active_id{"register"} = "";
    $active_id{"verify"} = "";
    $active_id{"pay"} = "";
    #ADDED this portion to show logout feature.
    my $email      = param('email');
    my $pw         = param('pw');
    my $session_id = check_reg_login($email, "$pw");
    if($action eq "logout"){
        $session_id = "";
    }
    print_top($session_id);
    #print_right_border($org_id);
    #print_menu($org_id);
    print_reg_info();
    print_step_choices();
}

################################################################
### Prints the top title bar 
################################################################
sub print_top{
    $session_id = shift;
    if($session_id ne ""){
        $access_level =1;
    }
print <<__HTML__;
<DIV id="loginbar">

__HTML__
            print "<table border =0   width=98%><tr><td align=right valign=top id=login_font>\n";
            if($access_level == 1){
            #print "Welcome, $valid_user{\"FIRSTNAME\"}\n";
 
            
            #################################
            ## If Admin
            #################################
            if($access_level >= 3){
                print "&#160;&#160;&#160;<a href='$filename?org_id=$Org_ID&admin=1'>Control Panel</a>\n";
            }
            if($access_level >= 1){
                #print "&#160;&#160;&#160;<a href='$filename?org_id=$Org_ID&personal=1'>My Hometeamz</a>\n";
                print "&#160;&#160;&#160;<a href='$page_url?action=logout'>Logout</a>";
            }
        }else{
            #print "<a href='$page_url'>Login</a>";
        }

print <<__HTML__;
       </td></tr></table>
</div>
<DIV id="top">
<center>
<table border=0 width=99% id="top_image"><tr><td width=198 >&#160</td><td width=300>

<!--<img width=960 src="/pyb/images/banner1.jpg">-->
    <h1> $site_info{"site_banner_text"}</h1>
    <br>
</td><td>

<img src="$site_info{"site_banner_image"}"></td></tr></table>


</center>
</DIV>
<DIV id="top_lower"> </DIV>
</DIV>
    <DIV id="top_left_image"> 
        <img width=159 height=122 src="$hometeamz_dir/teamdata/hometeamz/top_left.gif">

</DIV>
        <DIV id="top_left_image2"> 
        <img width=115 height=115 src="$site_info{"site_logo"}" border=0>

</DIV>
__HTML__

}

sub print_steps{
print_reg_style();
    print "<DIV id=\"middle\">\n";

print <<__HTML__;
<div id="navcontainer">
<ul id="navlist">
<li><a href="javascript:void(0);" $active_id{"login"}>1. Login</a></li>
<li><a href="javascript:void(0);" $active_id{"create"}>2. Create/Verify Account</a></li>
<li><a href="javascript:void(0);" $active_id{"register"}>3. Register Player</a></li>
<li><a href="javascript:void(0);" $active_id{"verify"}>4. Verify Player</a></li>
<li><a href="javascript:void(0);" $active_id{"pay"}>5. Verify Order</a></li>
<li><a href="javascript:void(0);" $active_id{"complete"}>6. Order Complete</a></li>

</ul>
</div>
<br>&nbsp;

    <center>
__HTML__

}

sub print_step_choices{

if($action eq "step2"){     ##### Log in to verify USER Account information
    $email      = param('email');
    $pw         = param('pw');
    $session_id = check_reg_login($email, "$pw");
    if($session_id eq ""){
        print_reg_login("Your username or password was incorrect.");
    }else{
        print_verify_account_info($email);
    }
}elsif($action eq "sendtmppass"){
    if(check_for_account($newemail)== 0){ ##### Verify Email Account
        print_send_temp_pw();
    }else{
        print_create_new_account_duplicate_email();
    }
}elsif($action eq "tmppw"){
    $email        = param('email');
    $pw           = param('pw');
    $x            = param('x');
    $newemail     = $email;
    #print "tmp_string: $x<br>\n";
    if(defined($email)){
        $bad_user_pass = "Your username or password was incorrect";
    }else{
        $bad_user_pass = "";
    }
    $valid_tmp_pw = check_tmp_password($email, $pw, $x);
    
    if($valid_tmp_pw == 1){
        print_create_account();
    }else{
        print_temp_pw_login($bad_user_pass);
        #print_send_temp_pw($bad_user_pass);
    }
}elsif($action eq "newaccount"){  ##### Get information to create new USER Account
    if(check_for_account($newemail)== 0){
        print_create_account();
    }else{
        print_create_new_account_duplicate_email();
    }
}elsif($action eq "createaccount"){ ##### Create New USER Account, Get information to create new PLAYER Account
    $email    = get_param(email);
    if(check_for_account($email)== 0){ ##### Verify Email Account
        $user_key = createaccount();
    }
    print_verify_account_info($email);
    #print_register_programs($user_key);

}elsif($action eq "register"){  ##### After a USER logs in, Get information to create new PLAYER Account
    $session_id = check_reg_login();
    
    if($session_id eq ""){
    print_reg_login();
    }else{
        my $user_key = param('userkey');
    if((!(defined($user_key))) || ($user_key eq "")){
        $email = param('email');
        my %user_info = get_account_info_by_email($email);
        $user_key = $user_info{"KEY"};
    }  
        print_register_programs($user_key);
    }
}elsif($action eq "remove_player"){
    $session_id = check_reg_login();
    if($session_id eq ""){
    print_reg_login();
    }else{
        my $user_key = param('userkey');
        my $player_key = param('playerkey');
    remove_player($player_key);
        print_register_programs($user_key);
    }
}elsif($action eq "modify"){    ##### Get Information to Update USER Account
    $session_id = check_reg_login();
    if($session_id eq ""){
    print_reg_login();
    }else{
    $email = param('email');
    print_update_account($email);
    }
}elsif($action eq "modifyaccount"){  ##### Modify USER Account, Verify Information
    $session_id = check_reg_login();
    if($session_id eq ""){
        print_reg_login();
    }else{
        $email = update_account();
        print_verify_account_info($email);
    }
}elsif($action eq "createaplayerccount"){  ##### Create PLAYER account, Verify Information
    $session_id = check_reg_login();
    if($session_id eq ""){
    print_reg_login();
    }else{
        my $new_player_id = create_new_player();
        print_verify_register_programs($new_player_id);
    }
}elsif($action eq "updateplayerccount"){   ###### Modify PLAYER Account, Verify Information
    $session_id = check_reg_login();
    if($session_id eq ""){
    print_reg_login();
    }else{
        my $player_id = update_player();
        print_verify_register_programs($player_id);
    }
}elsif($action eq "modify_player"){   #### Get Information to Modify PLAYER
    $session_id = check_reg_login();
    if($session_id eq ""){
        print_reg_login();
    }else{
    print_modify_player();
    }
}elsif($action eq "pay"){
    $session_id = check_reg_login();
    if($session_id eq ""){
    print_reg_login();
    }else{
        print_pay();
    }
}elsif($action eq "pay_by_check"){
    $session_id = check_reg_login();
    if($session_id eq ""){
        print_reg_login();
    }else{
        print_pay_by_check();
    }
}elsif($action eq "partial"){
    $session_id = check_reg_login();
    if($session_id eq ""){
        print_reg_login();
    }else{
        print_pay_partial();
    }
}elsif($action eq "verify_partial"){
    $session_id = check_reg_login();
    if($session_id eq ""){
        print_reg_login();
    }else{
        print_verify_pay_partial();
    }
}elsif($action eq "forgot_pw"){
    print_forgot_pw();
}elsif($action eq "send_pw"){
    $found_email = send_pw();
    if($found_email == 1){
        print_reg_login("Your Password will be sent to you shortly");
    }else{
        print_forgot_pw("I'm sorry, we could not find that email,<br>if this problem continues, please <br>contact support\@hometeamz.com");
    }
}elsif($action eq "logout"){
    print "<script>Delete_Cookie();</script>\n";
    print_reg_login("You have successfully logged out.");
}elsif($action eq "pay_by_check_complete"){
    $session_id = check_reg_login();
    if($session_id eq ""){
        print_reg_login();
    }else{
        print_pay_partial_complete();
    }
}elsif($action eq "pp"){
    $session_id = check_reg_login();
    if($session_id eq ""){
        print_reg_login();
    }else{
        print_pay_partial_complete();
    }
}elsif($payment_s eq "Completed"){
    $session_id = check_reg_login();
    if($session_id eq ""){
        print_reg_login();
    }else{
        print_pay_partial_complete();
    }
}else{
    print_reg_login();
    
}

print "</div> <!--End Middle-->\n";
print <<__HTML__;
    <DIV ID="testdiv1" STYLE="position:absolute;visibility:hidden;background-color:white;layer-background-color:white;z-index:999"></DIV>
    <IFRAME id=hideframe name=hideframe style="visibility:hidden; LEFT: 0px; POSITION: absolute; TOP: 0px;z-index:500;" src="https://www.hometeamzonline.com/lyaa/na.html" frameBorder="0" scrolling="no"></IFRAME>
__HTML__
print "</body></html>\n";
}


############################################
# Step 1. login or create new account
############################################
sub print_forgot_pw{
    my $msg = shift;
    if($msg ne ""){
        $alert =<<__HTML__
            <table><tr><td colspan="2" style="border: 1px solid rgb(205, 153, 0); padding: 6px; color: rgb(255, 223, 53); background-color: rgb(254, 254, 240);" width="95%">
            <table style="border-collapse: collapse;" border="0" bordercolor="#111111" cellpadding="0" cellspacing="0" width="100%">
            <tbody><tr>
            <td style="color: rgb(205, 153, 0);" width="90%">$msg</td>
            </tr>
            </table></td>
            </tr>
            </table><br>

__HTML__
    }
    $active_id{"login"} = "id=current";
    print_steps();
    my $email_validation = get_email_validation();
    my $jscript = <<__JSCRIPT__;
    <script>
        $email_validation
        function get_pw(){
              var email = document.getElementById('email');
               if((email.value == "")||(validate_email(email.value) == 0)){
                   alert("You must enter a valid Email to continue."); 
               }else{
                   document.loginform.submit();
               }
        }
    </script>
__JSCRIPT__
    
    print $jscript;
    
    my $html = <<__HTML__;
    $alert
    <table id=step_choice_container cellpadding=6 cellmargin=4 width=600><tr><td>
    <div style=\"font-size:10pt;color:red;\">Step 1: User Login - Retrieve Password</div><div style=\"font-size:10pt;color:black;\">Enter your email and click Get Password and we will email you your password.</div><br>
    <form name=loginform METHOD =\"$method\" ACTION=\"$page_url\" ENCTYPE=\"multipart/form-data\">
    <input type=hidden name=action id=action value=send_pw>
    <center><table style='border-collapse:collapse;border:1px solid #8480a2;font-size:11pt' cellpadding=2 width=350>
    <tr><td bgcolor=#cccccc colspan=2>Enter Email</td></tr>
    <tr><td align=right>Email</td><td align=left><input type=text id=email name=email></td></tr>
    <tr><td colspan=2><center><input type=button name="Get Password" value="Get Password" onClick='get_pw();'></center></td></tr>
    </table>
    </form>
    </table>
__HTML__

    print $html;
}

sub get_tmp_pw{
    #my $tmp_pw = "123test";
    my $tmp_pw = generate_random_string_pw(6);
    return $tmp_pw;
}
sub generate_random_string_pw{
    $length = shift;
    $rand_string = "";
    $possible = '23456789';
    while (length($rand_string) < $length) {
        $rand_string .= substr($possible, (int(rand(length($possible)))), 1);
    } 
    return $rand_string;

}
sub get_tmp_string{
    #my $tmp_string = "123test";
    my $tmp_string = generate_random_string(20);
    my $random_string_exists = get_email_by_x($tmp_string);
    my $count = 1;
    while($random_string_exists ne ""){
        $random_string_exists = get_email_by_x($tmp_string);
        $count++;
        if($count > 10){
            $random_string_exists = "";
        }
    }
    return $tmp_string;
}

sub check_tmp_password{
    my $email        = shift;
    my $pw           = shift;
    my $tmp_string   = shift;
    my $tmp_pw       = 0;
    my $valid_tmp_pw = 0;

    my $dbh = get_dbh();
    my $query = "SELECT `Key`, `Tmp_Password` FROM `Account_TMP_Password` WHERE  `Email` = '$email' AND `Tmp_String` = '$tmp_string';";
    my $sth = $dbh->prepare($query);
    #print "$query<br>\n";
    $sth->execute();
    $sth->bind_columns(\$Key, \$Tmp_Password);

    while($sth->fetch()) {
        $tmp_pw = $Tmp_Password;
        $key    = $Key;
    }
    if($tmp_pw eq $pw){
        $valid_tmp_pw = 1;
    }else{
        if($tmp_pw == 0){
            $valid_tmp_pw = 2;
        }
    }
    $sth->finish();
    $dbh->disconnect;
    return $valid_tmp_pw;
}

sub check_tmp_password_exits{
    my $email        = shift;
    my $valid_tmp_string = "";

    my $dbh = get_dbh();
    my $query = "SELECT `Tmp_String`, `Tmp_Password` FROM `Account_TMP_Password` WHERE  `Email` = '$email';";
    my $sth = $dbh->prepare($query);
    #print "$query<br>\n";
    $sth->execute();
    $sth->bind_columns(\$Tmp_String, \$Tmp_Password);

    while($sth->fetch()) {
        $valid_tmp_string = $Tmp_String;
        $tmp_password     = $Tmp_Password;
    }
    $sth->finish();
    $dbh->disconnect;
    return $valid_tmp_string, $tmp_password;
}
sub set_account_tmp_password{
    my $email        = shift;
    my $tmp_string   = "";
    my $pw           = "";
    my $date_time    = "";
    $date_time       = get_date_time();


    ($tmp_string, $pw)     = check_tmp_password_exits($email);
    #print "TS: $tmp_string - PW: $pw<br>\n";
    if($tmp_string eq ""){
        $pw          = get_tmp_pw();
        $tmp_string  = get_tmp_string();
        
    
        my $dbh = get_dbh();

        my $query = "INSERT INTO `Account_TMP_Password` ( `Key` , `Email` , `Tmp_Password` , `Tmp_String` , `Date`) VALUES ('', '$email', '$pw', '$tmp_string', '$date_time');";
        my $sth = $dbh->prepare($query);
        $sth->execute();
        $sth->finish();
        $dbh->disconnect;
    }
    return $pw, $tmp_string, $date_time;
}

sub send_tmppw{
    my $email       = shift;;
    my $sendmail    = "/bin/sendmail.localhost -t";
    #my $reply_to    = "Reply-to: jeremy\@hometeamz.com";
    my $reply_to    = "Reply-to: noreply\@lyaa.org";
    my $subject     = "Account Password for Lakes Youth Athletic Association Registration";
    my $to          = "$email";
    #my $to          = "jeremymclean\@gmail.com";
    #my $from        = "jeremy\@hometeamz.com";
    my $from        = "noreply\@lyaa.org";

    
    my ($pw, $tmp_string, $date_time) = set_account_tmp_password($email);
    my $found_email = 0;
    if($pw ne ""){
        $found_email = 1;
        my %user_info = get_account_info_by_email($email);
        $content = "Welcome,<br><br> \n\nThank you for registering with Lakes Youth Athletic Association<br><br>\n\n";
        $contetn .= "Please use the temporary password provided below to validate your new account.<br><br>\n";
        $content .= "Your temporary password is: $pw<br>\nYour login is: $email<br><br>\n\n";
        $content .= "To proceed directly to the account verification window, please follow this <a href=$base_reg_url?x=$tmp_string&action=tmppw>link</a>\n";
        $content .= "\n";
   
       #print "HEY<br>\n";
        open(SENDMAIL, "|$sendmail -f $from") or die "Cannot open $sendmail: $!";
        print SENDMAIL "To: $to\n"; 
        #print SENDMAIL "bcc: $bcc\n";
        print SENDMAIL "Subject: $subject\n";
        print SENDMAIL "Content-type: text/html\n\n";
        print SENDMAIL $content;
        close(SENDMAIL);
        
    }
        #print "$to $pw $from $content<br>\n";
    
    return $found_email, $tmp_string;
}

sub send_pw{
    my $email       = param('email');
    my $sendmail    = "/bin/sendmail.localhost -t";
    my $reply_to    = "Reply-to: noreply\@lyaa.org";
    my $subject     = "Password Reminder for Lakes Youth Athletic Association ";
    my $to          = "$email";
    #my $to          = "jeremymclean\@gmail.com";
    #my $from        = "jeremy\@hometeamz.com";
    my $from        = "noreply\@lyaa.org";
    my $pw          = get_pw_by_email($email);
    
    my $found_email = 0;
    if($pw eq ""){
        #print "PW2: $pw<br>\n";
    }else{
            #print "PW: $pw<br>\n";
            $found_email = 1;
            my %user_info = get_account_info_by_email($email);
            $content = "Hello $user_info{\"FIRSTNAME\"} $user_info{\"LASTNAME\"},\n\n";
            $content .= "You have requested a password reminder from Lakes Youth Athletic Association.\n\n";
            $content .= "Your information is:\nLogin: $user_info{\"EMAIL\"}\nPassword: $pw \n";
   
            open(SENDMAIL, "|$sendmail -f $from") or die "Cannot open $sendmail: $!";
            print SENDMAIL "To: $to\n"; 
            print SENDMAIL "bcc: $bcc\n";
            print SENDMAIL "Subject: $subject\n";
            print SENDMAIL "Content-type: text/plain\n\n";
            print SENDMAIL $content;
            close(SENDMAIL);
        #print $content;
    }
    
    return $found_email;
}

###########################################
# Modify player info on admin registration
###########################################
sub print_modify_player2{
    my $player_key        = shift;
    my $org_id            = shift;
    my %mod_player_info   = get_player_info_by_key($player_key);
    my %division_selected = get_division_data();
    my @grades            = get_grades();
    my @relationships     = get_relationships();

    #print "PLAYER KEY: $player_key<br>";
    my $phone_validation = get_phone_validation();

    my $jscript = <<__JSCRIPT__;
    <script>
    
    $email_validation
    function verify_register_user(){
        var lname      = document.getElementById('lname');
        var fname      = document.getElementById('fname');
        var dob        = document.getElementById('dob');
        var sname      = document.getElementById('sname');
        var grade      = document.getElementById('grade');
        var econtact   = document.getElementById('econtact');
        var ephone     = document.getElementById('ephone');
        var erel       = document.getElementById('erel');
        var gcontact   = document.getElementById('gcontact');
        var gphone     = document.getElementById('gphone');
        var grel       = document.getElementById('grel');
        var doctor     = document.getElementById('doctor');
        var dphone     = document.getElementById('dphone');
        var dentist    = document.getElementById('dentist');
        var dephone    = document.getElementById('dephone');
        var hospital   = document.getElementById('hospital');
        var insurance  = document.getElementById('insurance');
        var policy     = document.getElementById('policy');
        var history    = document.getElementById('history');
        var returning  = document.getElementById('returning');
    
        if((returning.value == "")||(grade.value == "")||(grel.value == "")||(gphone.value == "")||(gcontact.value == "")||(erel.value == "")||(ephone.value == "")||(econtact.value == "")||(lname.value == "")||(fname.value == "")||(dob.value == "")){
            alert("You must enter all required fields to continue."); 
        }else{
            document.create_player_account_form.submit();
        }
    }

    </script>
__JSCRIPT__

        print $jscript;
        #if($user_info{"ADDRESS2"} ne ""){
        #$address2 = "$user_info{\"ADDRESS2\"}<br>";
        #}else{
        #$address2 = "";
        #}
    my %division_selected = get_division_data();
    my %shirt_size_selected = get_shirt_size_data();
    my %pant_size_selected = get_pant_size_data();

    $division_selected{$mod_player_info{"DIVISION"}}{"S"} = "SELECTED";
    $shirt_size_selected{$mod_player_info{"SHIRT_SIZE"}}{"S"} = "SELECTED";
    $pant_size_selected{$mod_player_info{"PANT_SIZE"}}{"S"} = "SELECTED";
    my $html = <<__HTML__;



    <table id=step_choice_container cellpadding=6 cellmargin=4 width=600>
    <tr><td colspan=2>
    <div style=\"font-size:10pt;color:red;\"><br>Step 3:Update Player</div><div style=\"font-size:10pt;color:black;\">Please complete the information listed below...</div>
    <div style=\"font-size:10pt;color:black;\">&nbsp;&nbsp;&nbsp;&nbsp;* Required Fields</div>
    <form name=create_player_account_form id=create_player_account_form METHOD =\"$method\" ACTION=\"update_reg_player2.pl\" ENCTYPE=\"multipart/form-data\">
    <input type=hidden name=playerkey id=playerkey value=$player_key>
    <input type=hidden name=org id=org value=$org_id>
    <center><table style='border-collapse:collapse;border:1px solid #8480a2;font-size:11pt' cellpadding=2 width=550>
    <tr><td bgcolor=#cccccc colspan=2>Player Information</td></tr>

    <tr><td align=right>Player First Name*</td><td align=left><input type=text id=fname name=fname value="$mod_player_info{'FIRSTNAME'}"></td></tr>
    <tr><td align=right>Player Last Name*</td><td align=left><input type=text id=lname name=lname value="$mod_player_info{"LASTNAME"}"></td></tr>
    <!--<tr><td align=right>Division Preference*</td><td align=left><select name=division id=division>-->
__HTML__
    #foreach my $div_id (sort { $a <=> $b } keys %division_selected) {
    #   $html .= "<option value=$div_id $division_selected{$div_id}{\"S\"}>$division_selected{$div_id}{\"OPTION\"}</option>\n";
    #}

$male_selected    = "";
$female_selected = "";
$yes_selected    = "";
$no_selected     = "";
$consent_yes     = "";
$consent_no      = "";
if($mod_player_info{"CONSENT"} eq "Yes"){
    $consent_yes = "CHECKED";
}else{
    $consent_no = "CHECKED";
}
if($mod_player_info{"GENDER"} eq "male"){
    $male_selected = "CHECKED";
}else{
    $female_selected = "CHECKED";
}
if($mod_player_info{"RETURNING"} eq "Yes"){
    $yes_selected = "CHECKED";
}else{
    $no_selected = "CHECKED";
}
if($mod_player_info{"PLAY_UP"} eq "Yes"){
    $play_up = "CHECKED";
}else{
    $play_up = "";
}
$html .= <<__HTML__;
        <!--</select></td></tr>-->
        <tr><td align=right>Date of Birth*</td><td align=left>
        <input type=text name=dob id=dob size=10  onClick="cal1xx.select(document.create_player_account_form.dob,'dob','MM/dd/yyyy'); return true;" value=$mod_player_info{"DOB"} READONLY>
        </td></tr>

    <tr><td align=right>Gender*</td><td align=left>
        <input type="radio" name="gender" id="gender" value="male" $male_selected> Male
        <input type="radio" name="gender" id="gender" value="female" $female_selected> Female
    </td></tr>
    <tr><td align=right>School Name</td><td align=left><input type=text id=sname name=sname value="$mod_player_info{"SNAME"}"></td></tr>
    <tr><td align=right>Current Grade Level*</td><td align=left>
            <select id=grade name=grade>
__HTML__
    foreach(@grades){
        my $selected = "";
        if($_ eq $mod_player_info{"GRADE"}){
            $selected = "SELECTED";
        }
        $html .= "        <option value=$_ $selected>$_</option>\n";
    }

$html .= <<__HTML__;
    </select>
    </td></tr>
    <tr><td align=right>Returning Player*</td><td align=left>
        <input type="radio" name="returning" id="returning" value="Yes" $yes_selected> Yes
        <input type="radio" name="returning" id="returning" value="No" $no_selected> No
    </td></tr>
    <tr><td align=right>Request this Player to play up a League:</td><td align=left>
        <input type="checkbox" name="playup" id="playup"  $play_up> 
    </td></tr>
__HTML__


$html .= <<__HTML__;


    <tr><td bgcolor=#cccccc colspan=2>Guardian Information</td></tr>
    <tr><td align=right>Guardian 1 Name*</td><td align=left><input type=text id=gcontact name=gcontact value="$mod_player_info{"G_CONTACT_NAME"}"></td></tr>
    <tr><td align=right>Guardian 1 Primary Phone*</td><td align=left><input type=text id=gphone name=gphone maxlength="13" value="$mod_player_info{"G_CONTACT_PHONE"}"> $phone_example</td></tr>
    <tr><td align=right>Guardian 1 Secondary Phone</td><td align=left><input type=text id=gsphone name=gsphone maxlength="13" value="$mod_player_info{"G_CONTACT_SPHONE"}"> $phone_example</td></tr>

    <tr><td align=right>Guardian 1 Relationship*</td><td align=left>
    <select id=grel name=grel>
__HTML__
    foreach(@relationships){
        my $selected = "";
        if($_ eq $mod_player_info{"G_CONTACT_REL"}){
            $selected = "SELECTED";
        }
        $html .= "        <option value='$_' $selected>$_</option>\n";
    }
$html .= <<__HTML__;
    </select>   
    </td></tr>
    <tr><td align=right>Guardian 2 Name</td><td align=left><input type=text id=ogcontact name=ogcontact value="$mod_player_info{"OG_CONTACT_NAME"}"></td></tr>
    <tr><td align=right>Guardian 2 Primary Phone</td><td align=left><input type=text id=ogphone name=ogphone  maxlength="13" value="$mod_player_info{"OG_CONTACT_PHONE"}"> $phone_example</td></tr>
    <tr><td align=right>Guardian 2 Secondary Phone</td><td align=left><input type=text id=ogsphone name=ogsphone  maxlength="13" value="$mod_player_info{"OG_CONTACT_SPHONE"}"> $phone_example</td></tr>
    <tr><td align=right>Guardian 2 Relationship</td><td align=left>
    <select id=ogrel name=ogrel>
    <option value='' ></option>
__HTML__
    foreach(@relationships){
        my $selected = "";
        if($_ eq $mod_player_info{"OG_CONTACT_REL"}){
            $selected = "SELECTED";
        }
        $html .= "        <option value='$_' $selected>$_</option>\n";
    }
$html .= <<__HTML__;
    </select>   
    </td></tr>

    <tr><td bgcolor=#cccccc colspan=2>Emergency Contact Information</td></tr>
    <tr><td align=right>Emergency Contact Name*</td><td align=left><input type=text id=econtact name=econtact value="$mod_player_info{"E_CONTACT_NAME"}"></td></tr>
    <tr><td align=right>Emergency Contact Primary Phone*</td><td align=left><input type=text id=ephone name=ephone  maxlength="13" value="$mod_player_info{"E_CONTACT_PHONE"}"> $phone_example</td></tr>
    <tr><td align=right>Emergency Contact Secondary Phone</td><td align=left><input type=text id=esphone name=esphone  maxlength="13" value="$mod_player_info{"E_CONTACT_SPHONE"}"> $phone_example</td></tr>
    <tr><td align=right>Emergency Contact Relationship*</td><td align=left>
    <select id=erel name=erel>
__HTML__
    foreach(@relationships){
        my $selected = "";
        if($_ eq $mod_player_info{"E_CONTACT_REL"}){
            $selected = "SELECTED";
        }
        $html .= "        <option value='$_' $selected>$_</option>\n";
    }
$html .= <<__HTML__;
    </select>   
    </td></tr>
    
    <tr><td bgcolor=#cccccc colspan=2>Medical Information</td></tr>
    <tr><td align=right>Preferred Doctor Name</td><td align=left><input type=text id=doctor name=doctor value=$mod_player_info{"PREF_DOC_NAME"}></td></tr>
    <tr><td align=right>Preferred Doctor Phone</td><td align=left> <input type=text id=dphone name=dphone  maxlength="13" value="$mod_player_info{"PREF_DOC_NUMB"}" > $phone_example</td></tr>
    <tr><td align=right>Preferred Dentist Name</td><td align=left><input type=text id=dentist name=dentist value="$mod_player_info{"PREF_DENT_NAME"}"></td></tr>
    <tr><td align=right>Preferred Dentist Phone</td><td align=left> <input type=text id=dephone name=dephone  maxlength="13" value="$mod_player_info{"PREF_DENT_NUMB"}"> $phone_example</td></tr>
    <tr><td align=right>Preferred Hospital</td><td align=left> <input type=text id=hospital name=hospital value="$mod_player_info{"PREF_HOSPITAL"}"></td></tr>
    <tr><td align=right>Insurance Carrier</td><td align=left> <input type=text id=insurance name=insurance value="$mod_player_info{"INSURANCE"}"></td></tr>
    <tr><td align=right>Policy Number</td><td align=left> <input type=text id=policy name=policy value="$mod_player_info{"POLICY"}"></td></tr>
    <tr><td align=right>Medical History:<br> Allergies, Medications,<br> Special Condition, etc</td><td align=left><textarea id=history name=history rows=4 cols=25>$mod_player_info{"MEDICAL"}</textarea></td></tr>
     <tr><td bgcolor=#cccccc colspan=2>GRANT OF CONSENT * (please select one for the player listed above)</td></tr>
    <tr><td align=left colspan=2>
        <input type="radio" name="consent" id="consent" value="Yes" $consent_yes> GRANT OF CONSENT: <font size=-1> In the event reasonable attempts to contact the parents or guardians have been unsuccessful, I hereby give my consent for <br>(1) the administration of any treatment deemed necessary by preferred Dr.<br>(2), or preferred Dentists or in the event designated Dr. or Dentist is not available, by another licensed physician or dentist; and <br>(2) the transfer of the child to preferred hospital or any hospital reasonably accessible.  NOTE: This authorization does not cover major surgery unless the medical options of two other licensed physicians or dentists, concurring in necessity for such surgery are obtained BEFORE the surgery IS PERFORMED. </font>
        <br><input type="radio" name="consent" id="consent" value="No" $consent_no> REFUSAL OF CONSENT: <font size=-1>I do NOT give consent for emergency medical treatment of my child. In the event of illness or injury requiring emergency treatment, I wish that Lakes Youth Athletic Association to take no action, or perform the following actions.</font>
    </td></tr>
    <tr><td align=right>Actions to be taken:</td><td align=left><textarea id=history name=actionsto rows=4 cols=25>$mod_player_info{"ACTIONSTO"}</textarea></td></tr>


    <tr><td colspan=2><center><input type=button name=Continue value=Continue onClick='verify_register_user();'><br><br><div style=\"font-size:10pt;color:black;\">* Required Fields</div></center></td></tr>
    </table>
    </form>
    
    </table>
    <SCRIPT LANGUAGE="JavaScript" ID="jscal1xx">

    var cal1xx = new CalendarPopup("testdiv1");
    cal1xx.showNavigationDropdowns();
    </SCRIPT>

__HTML__

    print $html;
}

###########################################
# Modify player info on main registration
###########################################
sub print_modify_player{
    my $user_key          = param('userkey');
    my $player_key        = param('playerkey');
    my %user_info         = get_account_info($user_key);
    my %player_info       = get_player_info($user_key);
    my %mod_player_info   = get_player_info_by_key($player_key);
    my %division_selected = get_division_data();
    my @grades            = get_grades();
    my @relationships     = get_relationships();
    my $account_table     = get_account_table($user_key);
    my ($user_table, $player_num)        = get_player_table($user_key);

    $active_id{"register"} = "id=current";
    print_steps();

    my $phone_validation = get_phone_validation();

    my $jscript = <<__JSCRIPT__;
    <script>
        
        $email_validation
        function verify_register_user(){
            var lname      = document.getElementById('lname');
            var fname      = document.getElementById('fname');
            //var hat_size   = document.getElementById('hat_size');
            //var shoe_size  = document.getElementById('shoe_size');
            //var jersey     = document.getElementById('jersey');
            var dob        = document.getElementById('dob');
            var sname      = document.getElementById('sname');
            var grade      = document.getElementById('grade');
            //var age        = document.getElementById('age');
            var econtact   = document.getElementById('econtact');
            var ephone     = document.getElementById('ephone');
            var erel       = document.getElementById('erel');
            var gcontact   = document.getElementById('gcontact');
            var gphone     = document.getElementById('gphone');
            var grel       = document.getElementById('grel');
            var doctor     = document.getElementById('doctor');
            var dphone     = document.getElementById('dphone');
            var dentist    = document.getElementById('dentist');
            var dephone    = document.getElementById('dephone');
            var hospital   = document.getElementById('hospital');
            var insurance  = document.getElementById('insurance');
            var policy     = document.getElementById('policy');
            var history    = document.getElementById('history');
            var returning  = document.getElementById('returning');
            //var division   = document.getElementById('division');
            //var shirt_size = document.getElementById('shirt_size');
            //var pant_size  = document.getElementById('pant_size');
            var action    = document.getElementById('actionb');
            action.value = "updateplayerccount";

            if((returning.value == "")||(grade.value == "")||(grel.value == "")||(gphone.value == "")||(gcontact.value == "")||(erel.value == "")||(ephone.value == "")||(econtact.value == "")||(lname.value == "")||(fname.value == "")||(dob.value == "")){
                        alert("You must enter all required fields to continue."); 
            }else{
                       document.create_player_account_form.submit();
            }
        }
        function edit_user(playerID){
            var action    = document.getElementById('actionb');
            action.value = "modify_player";
            var player_id = document.getElementById('playerkey');
            player_id.value = playerID;
            document.create_player_account_form.submit();
        }
        function remove_player(playerID){
                    var action    = document.getElementById('actionb');
            action.value = "remove_player";
                    var player_id = document.getElementById('playerkey');
            player_id.value = playerID;
            document.create_player_account_form.submit();
        }
        
    </script>
__JSCRIPT__
    
    print $jscript;
    if($user_info{"ADDRESS2"} ne ""){
        $address2 = "$user_info{\"ADDRESS2\"}<br>";
    }else{
        $address2 = "";
    }
    my %division_selected = get_division_data();
    my %shirt_size_selected = get_shirt_size_data();
    my %pant_size_selected = get_pant_size_data();

    $division_selected{$mod_player_info{"DIVISION"}}{"S"} = "SELECTED";
    $shirt_size_selected{$mod_player_info{"SHIRT_SIZE"}}{"S"} = "SELECTED";
    $pant_size_selected{$mod_player_info{"PANT_SIZE"}}{"S"} = "SELECTED";
    my $html = <<__HTML__;



    <table id=step_choice_container cellpadding=6 cellmargin=4 width=600><tr><td align=left valign=top>
    $account_table
    </td><td valign=top align=right>    $user_table<br>
    </td></tr>
    <tr><td colspan=2>
    <div style=\"font-size:10pt;color:red;\"><br>Step 3:Update Registration</div><div style=\"font-size:10pt;color:black;\">Please complete the information listed below...</div>
    <div style=\"font-size:10pt;color:black;\">&nbsp;&nbsp;&nbsp;&nbsp;* Required Fields</div>
    <form name=create_player_account_form id=create_player_account_form METHOD =\"$method\" ACTION=\"$page_url\" ENCTYPE=\"multipart/form-data\">
    <input type=hidden name=action id=actionb value=updateplayerccount>
    <input type=hidden name=userkey id=userkey value=$user_key>
    <input type=hidden name=playerkey id=playerkey value=$player_key>
    <center><table style='border-collapse:collapse;border:1px solid #8480a2;font-size:11pt' cellpadding=2 width=550>
    <tr><td bgcolor=#cccccc colspan=2>Player Information</td></tr>

    <tr><td align=right>Player First Name*</td><td align=left><input type=text id=fname name=fname value="$mod_player_info{'FIRSTNAME'}"></td></tr>
    <tr><td align=right>Player Last Name*</td><td align=left><input type=text id=lname name=lname value="$mod_player_info{"LASTNAME"}"></td></tr>
    <!--<tr><td align=right>Division Preference*</td><td align=left><select name=division id=division>-->
__HTML__
    #foreach my $div_id (sort { $a <=> $b } keys %division_selected) {
    #   $html .= "<option value=$div_id $division_selected{$div_id}{\"S\"}>$division_selected{$div_id}{\"OPTION\"}</option>\n";
    #}

$male_selected    = "";
$female_selected = "";
$yes_selected    = "";
$no_selected     = "";
$consent_yes     = "";
$consent_no      = "";
if($mod_player_info{"CONSENT"} eq "Yes"){
    $consent_yes = "CHECKED";
}else{
    $consent_no = "CHECKED";
}
if($mod_player_info{"GENDER"} eq "male"){
    $male_selected = "CHECKED";
}else{
    $female_selected = "CHECKED";
}
if($mod_player_info{"RETURNING"} eq "Yes"){
    $yes_selected = "CHECKED";
}else{
    $no_selected = "CHECKED";
}
if($mod_player_info{"PLAY_UP"} eq "Yes"){
    $play_up = "CHECKED";
}else{
    $play_up = "";
}
$html .= <<__HTML__;
        <!--</select></td></tr>-->
        <tr><td align=right>Date of Birth*</td><td align=left>
        <input type=text name=dob id=dob size=10  onClick="cal1xx.select(document.create_player_account_form.dob,'dob','MM/dd/yyyy'); return true;" value=$mod_player_info{"DOB"} READONLY>
        </td></tr>

    <tr><td align=right>Gender*</td><td align=left>
        <input type="radio" name="gender" id="gender" value="male" $male_selected> Male
        <input type="radio" name="gender" id="gender" value="female" $female_selected> Female
    </td></tr>
    <tr><td align=right>School Name</td><td align=left><input type=text id=sname name=sname value="$mod_player_info{"SNAME"}"></td></tr>
    <tr><td align=right>Current Grade Level*</td><td align=left>
            <select id=grade name=grade>
__HTML__
    foreach(@grades){
        my $selected = "";
        if($_ eq $mod_player_info{"GRADE"}){
            $selected = "SELECTED";
        }
        $html .= "        <option value=$_ $selected>$_</option>\n";
    }

$html .= <<__HTML__;
    </select>
    </td></tr>
    <tr><td align=right>Returning Player*</td><td align=left>
        <input type="radio" name="returning" id="returning" value="Yes" $yes_selected> Yes
        <input type="radio" name="returning" id="returning" value="No" $no_selected> No
    </td></tr>
    <tr><td align=right>Request this Player to play up a League:</td><td align=left>
        <input type="checkbox" name="playup" id="playup"  $play_up> 
    </td></tr>
__HTML__


$html .= <<__HTML__;


    <tr><td bgcolor=#cccccc colspan=2>Guardian Information</td></tr>
    <tr><td align=right>Guardian 1 Name*</td><td align=left><input type=text id=gcontact name=gcontact value="$mod_player_info{"G_CONTACT_NAME"}"></td></tr>
    <tr><td align=right>Guardian 1 Primary Phone*</td><td align=left><input type=text id=gphone name=gphone  maxlength="13" value="$mod_player_info{"G_CONTACT_PHONE"}"> $phone_example</td></tr>
    <tr><td align=right>Guardian 1 Secondary Phone</td><td align=left><input type=text id=gsphone name=gsphone  maxlength="13" value="$mod_player_info{"G_CONTACT_SPHONE"}"> $phone_example</td></tr>

    <tr><td align=right>Guardian 1 Relationship*</td><td align=left>
    <select id=grel name=grel>
__HTML__
    foreach(@relationships){
        my $selected = "";
        if($_ eq $mod_player_info{"G_CONTACT_REL"}){
            $selected = "SELECTED";
        }
        $html .= "        <option value='$_' $selected>$_</option>\n";
    }
$html .= <<__HTML__;
    </select>   
    </td></tr>
    <tr><td align=right>Guardian 2 Name</td><td align=left><input type=text id=ogcontact name=ogcontact value="$mod_player_info{"OG_CONTACT_NAME"}"></td></tr>
    <tr><td align=right>Guardian 2 Primary Phone</td><td align=left><input type=text id=ogphone name=ogphone  maxlength="13" value="$mod_player_info{"OG_CONTACT_PHONE"}"> $phone_example</td></tr>
    <tr><td align=right>Guardian 2 Secondary Phone</td><td align=left><input type=text id=ogsphone name=ogsphone  maxlength="13" value="$mod_player_info{"OG_CONTACT_SPHONE"}"> $phone_example</td></tr>
    <tr><td align=right>Guardian 2 Relationship</td><td align=left>
    <select id=ogrel name=ogrel>
    <option value='' ></option>
__HTML__
    foreach(@relationships){
        my $selected = "";
        if($_ eq $mod_player_info{"OG_CONTACT_REL"}){
            $selected = "SELECTED";
        }
        $html .= "        <option value='$_' $selected>$_</option>\n";
    }
$html .= <<__HTML__;
    </select>   
    </td></tr>

    <tr><td bgcolor=#cccccc colspan=2>Emergency Contact Information</td></tr>
    <tr><td align=right>Emergency Contact Name*</td><td align=left><input type=text id=econtact name=econtact value="$mod_player_info{"E_CONTACT_NAME"}"></td></tr>
    <tr><td align=right>Emergency Contact Primary Phone*</td><td align=left><input type=text id=ephone name=ephone  maxlength="13" value="$mod_player_info{"E_CONTACT_PHONE"}"> $phone_example</td></tr>
    <tr><td align=right>Emergency Contact Secondary Phone</td><td align=left><input type=text id=esphone name=esphone  maxlength="13" value="$mod_player_info{"E_CONTACT_SPHONE"}"> $phone_example</td></tr>
    <tr><td align=right>Emergency Contact Relationship*</td><td align=left>
    <select id=erel name=erel>
__HTML__
    foreach(@relationships){
        my $selected = "";
        if($_ eq $mod_player_info{"E_CONTACT_REL"}){
            $selected = "SELECTED";
        }
        $html .= "        <option value='$_' $selected>$_</option>\n";
    }
$html .= <<__HTML__;
    </select>   
    </td></tr>
    
    <tr><td bgcolor=#cccccc colspan=2>Medical Information</td></tr>
    <tr><td align=right>Preferred Doctor Name</td><td align=left><input type=text id=doctor name=doctor value=$mod_player_info{"PREF_DOC_NAME"}></td></tr>
    <tr><td align=right>Preferred Doctor Phone</td><td align=left> <input type=text id=dphone name=dphone  maxlength="13" value="$mod_player_info{"PREF_DOC_NUMB"}" > $phone_example</td></tr>
    <tr><td align=right>Preferred Dentist Name</td><td align=left><input type=text id=dentist name=dentist value="$mod_player_info{"PREF_DENT_NAME"}"></td></tr>
    <tr><td align=right>Preferred Dentist Phone</td><td align=left> <input type=text id=dephone name=dephone  maxlength="13" value="$mod_player_info{"PREF_DENT_NUMB"}"> $phone_example</td></tr>
    <tr><td align=right>Preferred Hospital</td><td align=left> <input type=text id=hospital name=hospital value="$mod_player_info{"PREF_HOSPITAL"}"></td></tr>
    <tr><td align=right>Insurance Carrier</td><td align=left> <input type=text id=insurance name=insurance value="$mod_player_info{"INSURANCE"}"></td></tr>
    <tr><td align=right>Policy Number</td><td align=left> <input type=text id=policy name=policy value="$mod_player_info{"POLICY"}"></td></tr>
    <tr><td align=right>Medical History:<br> Allergies, Medications,<br> Special Condition, etc</td><td align=left><textarea id=history name=history rows=4 cols=25>$mod_player_info{"MEDICAL"}</textarea></td></tr>
     <tr><td bgcolor=#cccccc colspan=2>GRANT OF CONSENT * (please select one for the player listed above)</td></tr>
    <tr><td align=left colspan=2>
        <input type="radio" name="consent" id="consent" value="Yes" $consent_yes> GRANT OF CONSENT: <font size=-1> In the event reasonable attempts to contact the parents or guardians have been unsuccessful, I hereby give my consent for <br>(1) the administration of any treatment deemed necessary by preferred Dr.<br>(2), or preferred Dentists or in the event designated Dr. or Dentist is not available, by another licensed physician or dentist; and <br>(2) the transfer of the child to preferred hospital or any hospital reasonably accessible.  NOTE: This authorization does not cover major surgery unless the medical options of two other licensed physicians or dentists, concurring in necessity for such surgery are obtained BEFORE the surgery IS PERFORMED. </font>
        <br><input type="radio" name="consent" id="consent" value="No" $consent_no> REFUSAL OF CONSENT: <font size=-1>I do NOT give consent for emergency medical treatment of my child. In the event of illness or injury requiring emergency treatment, I wish that Lakes Youth Athletic Association to take no action, or perform the following actions.</font>
    </td></tr>
    <tr><td align=right>Actions to be taken:</td><td align=left><textarea id=history name=actionsto rows=4 cols=25>$mod_player_info{"ACTIONSTO"}</textarea></td></tr>


    <tr><td colspan=2><center><input type=button name=Continue value=Continue onClick='verify_register_user();'><br><br><div style=\"font-size:10pt;color:black;\">* Required Fields</div></center></td></tr>
    </table>
    </form>
    
    </table>
    <SCRIPT LANGUAGE="JavaScript" ID="jscal1xx">

    var cal1xx = new CalendarPopup("testdiv1");
    cal1xx.showNavigationDropdowns();
    </SCRIPT>

__HTML__

    print $html;
}
sub get_pant_size_data{
    my %pant_size_selected = ();
    $pant_size_selected{0}{"OPTION"} = "--Select--";
    $pant_size_selected{1}{"OPTION"} = "Youth Medium";
    $pant_size_selected{2}{"OPTION"} = "Prepaid A Medium";
    $pant_size_selected{3}{"OPTION"} = "Prepaid A Large";
    $pant_size_selected{4}{"OPTION"} = "Prepaid A X-Large";
    $pant_size_selected{5}{"OPTION"} = "Prepaid Y Small";
    $pant_size_selected{6}{"OPTION"} = "Prepaid Y Medium";
    $pant_size_selected{7}{"OPTION"} = "Prepaid Y Large";
    $pant_size_selected{8}{"OPTION"} = "Prepaid Y X-Large";
    $pant_size_selected{9}{"OPTION"} = "Youth Small";
    $pant_size_selected{10}{"OPTION"} = "Youth Medium";
    $pant_size_selected{11}{"OPTION"} = "Youth Large";
    $pant_size_selected{12}{"OPTION"} = "Youth X-Large";
    $pant_size_selected{13}{"OPTION"} = "Adult Small";
    $pant_size_selected{14}{"OPTION"} = "Adult Medium";
    $pant_size_selected{15}{"OPTION"} = "Adult Large";
    $pant_size_selected{16}{"OPTION"} = "Adult X-Large";
    $pant_size_selected{0}{"S"} = "";
    $pant_size_selected{1}{"S"} = "";
    $pant_size_selected{2}{"S"} = "";
    $pant_size_selected{3}{"S"} = "";
    $pant_size_selected{4}{"S"} = "";
    $pant_size_selected{5}{"S"} = "";
    $pant_size_selected{6}{"S"} = "";
    $pant_size_selected{7}{"S"} = "";
    $pant_size_selected{8}{"S"} = "";
    $pant_size_selected{9}{"S"} = "";
    $pant_size_selected{10}{"S"} = "";
    $pant_size_selected{11}{"S"} = "";
    $pant_size_selected{12}{"S"} = "";
    $pant_size_selected{13}{"S"} = "";
    $pant_size_selected{14}{"S"} = "";
    $pant_size_selected{15}{"S"} = "";
    $pant_size_selected{16}{"S"} = "";
    return %pant_size_selected;

}

sub get_division_data{
    my %division_selected = ();
    $division_selected{0}{"S"} = "";
    $division_selected{1}{"S"} = "";
    $division_selected{2}{"S"} = "";
    $division_selected{3}{"S"} = "";
    $division_selected{4}{"S"} = "";
    $division_selected{5}{"S"} = "";
    $division_selected{6}{"S"} = "";
    $division_selected{7}{"S"} = "";
    $division_selected{8}{"S"} = "";
    $division_selected{9}{"S"} = "";
    $division_selected{10}{"S"} = "";
    $division_selected{11}{"S"} = "";
    $division_selected{12}{"S"} = "";
    $division_selected{13}{"S"} = "";
    $division_selected{14}{"S"} = "";
    $division_selected{15}{"S"} = "";

    $division_selected{0}{"OPTION"} = "--Sport - League - Age(min-max)--";
    $division_selected{1}{"OPTION"} = "Baseball - Bronco - 10-12";
    $division_selected{2}{"OPTION"} = "Baseball - Colt - 15-16";
    $division_selected{3}{"OPTION"} = "Baseball - Mustang - 8-10";
    $division_selected{4}{"OPTION"} = "Baseball - Pinto - 6-8";
    $division_selected{5}{"OPTION"} = "Baseball - Pony - 12-14";
    $division_selected{6}{"OPTION"} = "Baseball - Travel 11 year old - 10-11";
    $division_selected{7}{"OPTION"} = "Baseball - Travel 12 year old - 10-12";
    $division_selected{8}{"OPTION"} = "Baseball - Travel 13 year old - 12-13";
    $division_selected{9}{"OPTION"} = "Baseball - Travel 14 year old - 13-14";
    $division_selected{10}{"OPTION"} = "Softball - Bronco - 10-12";
    $division_selected{11}{"OPTION"} = "Softball - Colt - 14-17";
    $division_selected{12}{"OPTION"} = "Softball - Mustang - 8-10";
    $division_selected{13}{"OPTION"} = "Softball - Pinto - 6-8";
    $division_selected{14}{"OPTION"} = "Softball - Pony - 12-14";
    $division_selected{15}{"OPTION"} = "Softball - Travel 11 year old - 10-11";
    
    $division_selected{0}{"COST"} = "0";
    $division_selected{1}{"COST"} = "150";
    $division_selected{2}{"COST"} = "175";
    $division_selected{3}{"COST"} = "150";
    $division_selected{4}{"COST"} = "150";
    $division_selected{5}{"COST"} = "175";
    $division_selected{6}{"COST"} = "270";
    $division_selected{7}{"COST"} = "270";
    $division_selected{8}{"COST"} = "270";
    $division_selected{9}{"COST"} = "270";
    $division_selected{10}{"COST"} = "150";
    $division_selected{11}{"COST"} = "175";
    $division_selected{12}{"COST"} = "150";
    $division_selected{13}{"COST"} = "150";
    $division_selected{14}{"COST"} = "175";
    $division_selected{15}{"COST"} = "175";

    return %division_selected;
}

sub get_shirt_size_data{
    $shirt_size_selected{0}{"S"} = "";
    $shirt_size_selected{1}{"S"} = "";
    $shirt_size_selected{2}{"S"} = "";
    $shirt_size_selected{3}{"S"} = "";
    $shirt_size_selected{4}{"S"} = "";
    $shirt_size_selected{5}{"S"} = "";
    $shirt_size_selected{6}{"S"} = "";

    $shirt_size_selected{0}{"OPTION"} = "--Select--";
    $shirt_size_selected{1}{"OPTION"} = "Youth Medium";
    $shirt_size_selected{2}{"OPTION"} = "Youth Large";
    $shirt_size_selected{3}{"OPTION"} = "Adult Medium";
    $shirt_size_selected{4}{"OPTION"} = "Adult Large";
    $shirt_size_selected{5}{"OPTION"} = "Adult X-Large";
    $shirt_size_selected{6}{"OPTION"} = "Other";
    return %shirt_size_selected;
}

sub print_pay_by_check{
    $active_id{"pay"}          = "id=current";
    my $user_key               = param('userkey');
    my %user_info              = get_account_info($user_key);
    my %player_info            = get_player_info($user_key);
    my %division_selected      = get_division_data();
    my ($user_table, $pay_pal) = get_pay_table_w_adjustments($user_key, 1);
    my $account_table          = get_account_table($user_key);
    print_steps();
    print "<table id=step_choice_container width=600 cellpadding=6 cellmargin=4><tr><td>\n";
    print "<div style=\"font-size:10pt;color:red;\"><br>Step 5 : Pay by Check</div><div style=\"font-size:10pt;color:black;\">Please verify your registration prior to sending the check.</div><br><center>\n";

    print $account_table . "<br><br>" . $user_table, "<br>";
    print "</tr></td></table>\n";
}
sub is_older_than_cutoff{
    my $dob = shift;
    my $gender = shift;
    my $cost = 150;
    if($gender eq "male"){
        ##################################
        # If born before this date add $25
        ##################################
        my $cut_off = "1995-05-01";

        my $league_start_date = "2008-05-01";
        my $older_than_cut_off = 0;
    
        my ($year, $month, $day) = split(/-/, $dob);
        my ($cyear, $cmonth, $cday) = split(/-/, $cut_off);
        my ($syear, $smonth, $sday) = split(/-/, $league_start_date);
        my $hour = 0;
        my $sec  = 0;
        my $min  = 0;

        $year = $year - 1900;
        $cyear = $cyear - 1900;
        $syear = $syear - 1900;
        $month = $month -1;
        $cmonth = $cmonth -1;
        $smonth = $smonth -1;
        #if($month < 1){$month = 1;}
        #if($day < 1){$day =1;}
    
        my $dob_epoch  = timelocal($sec,$min,$hour,$day,$month,$year);
        my $cdob_epoch = timelocal($sec,$min,$hour,$cday,$cmonth,$cyear);
        my $sdob_epoch = timelocal($sec,$min,$hour,$sday,$smonth,$syear);
        if($dob_epoch < $cdob_epoch){
            $older_than_cut_off = 1;
            $cost = $cost + 25;
        }
        # Wasnt really needed :)
        #my $age_epoch = $sdob_epoch - $dob_epoch;
        #my $age_in_years = convert_epoch_to_years($age_epoch);
        #return $older_than_cut_off, $age_in_years;
    }
    return $cost;
}

sub convert_epoch_to_years{
    my $age_epoch = shift;
    my $seconds_in_year = 60*60*24*365;
    my $age_in_years =sprintf("%.3f", $age_epoch/$seconds_in_year);
    return $age_in_years;

}
sub get_transaction_id{
    my $dbh = get_dbh();
    ################################################################
    # Query DB to verify Session
    ################################################################
    my $query = "SELECT `Transaction_ID` FROM `TMP_TRANSACTION_ID` WHERE 1";
    my $sth = $dbh->prepare($query);
    #print "$query<br>\n";
    $sth->execute();
    $sth->bind_columns(\$Transaction_ID);

    while($sth->fetch()) {
        $return_id          = $Transaction_ID;
    }
    # disconnect from database
    $query = "UPDATE `TMP_TRANSACTION_ID` SET `Transaction_ID`=`Transaction_ID`+1 WHERE `Transaction_ID` = '$return_id'";
    $sth = $dbh->prepare($query);
    #print "$query<br>\n";
    $sth->execute();
    $sth->finish();
    $dbh->disconnect;
    return $return_id;
}
sub insert_tmp_paypal{
    my $account_id     = shift;
    my $player_id      = shift;
    my $amount         = shift;
    my $transaction_id = shift;
    my $date           = get_date_time();
    my $dbh = get_dbh();
    ################################################################
    # Query DB to verify Session
    ################################################################
    my $query = "INSERT INTO `TMP_PAYPAL` (`Key`, `Account_ID`, `Player_ID`, `Amount`, `Transaction_ID`, `PP_Transaction_ID`, `Processed`, `Date`) VALUES ('', '$account_id', '$player_id', '$amount', '$transaction_id','0', '0', '$date')";
    my $sth = $dbh->prepare($query);
    #print "$query<br>\n";
    $sth->execute();
    $sth->finish();
    $dbh->disconnect;
}


sub get_pay_table{
    my $user_key          = shift;
    my $by_check          = shift;
    my %user_info         = get_account_info($user_key);
    my %player_info       = get_player_info($user_key);
    my $pay_pal_count     = 1;
    my $num_players       = 0;
    my $total_cost        = 0;
    if($by_check == 0){
        $transaction_id = get_transaction_id();
    }
    my $user_table = "<table   style='border-collapse:collapse;border:1px solid #8480a2' cellpadding=2><tr><td colspan=7 id=admin_header><center>Registered Players</center></td></tr>\n";
    $user_table   .= "<tr><td id=admin_header>Name</td><td id=admin_header>Registration Fee</td><td id=admin_header>Fundraiser Fee</td><td id=admin_header>Multi-Player<br>Discount</td><td id=admin_header>Total</td><td id=admin_header>Paid</td><td id=admin_header>Due</td></tr>\n";
    #$user_table   .= "<tr><td id=admin_header>Name</td><td id=admin_header>Division</td><td id=admin_header>Registration Fee</td><td id=admin_header>Fundraiser Fee</td><td id=admin_header>Discount</td><td id=admin_header>Total</td><td id=admin_header>Paid</td></tr>\n";
    my $pay_pal = "<form name=pay_pal_form id=pay_pal_form action=\"$paypal_url\" method=\"post\" ENCTYPE=\"multipart/form-data\">\n";
    $pay_pal   .= "<input type=\"hidden\" name=\"notify_url\" value=\"$ipn_url\">\n";
    $pay_pal   .= "<input type=\"hidden\" name=\"cmd\" value=\"_cart\">\n";
    $pay_pal   .= "<input type=\"hidden\" name=\"upload\" value=\"1\">\n";
    $pay_pal   .= "<input type=\"hidden\" name=\"custom\" value=\"$transaction_id\">\n";
    $pay_pal   .= "<input type=\"hidden\" name=\"currency_code\" value=\"USD\">\n";
    $pay_pal   .= "<input type=\"hidden\" name=\"business\" value=\"$paypal_acc\">\n";
    $pay_pal   .= "<input type=\"hidden\" name=\"return\" value=\"" . $thanks_url . "\">\n";
    #$pay_pal   .= "<input type=\"hidden\" name=\"return\" value=\"" . $thanks_url . $transaction_id . "\">\n";
   
    foreach my $user_number (sort {$a <=> $b} (keys %player_info)){
            $num_players++;
            my $base_cost = is_older_than_cutoff($player_info{$user_number}{"DOB"},$player_info{$user_number}{"GENDER"});
            $division_id = $player_info{$user_number}{"DIVISION"};
            $player_key  = $player_info{$user_number}{"KEY"};
            $amount_paid = $player_info{$user_number}{"PAID"};
            $user_table .= "<tr><td id=cal_events3>$player_info{$user_number}{\"FIRSTNAME\"} $player_info{$user_number}{\"LASTNAME\"} $player_info{$user_number}{\"DOB\"}</td>\n";
            $user_table .= "<td id=cal_events3>\$" . $base_cost . "</td>\n";
            if($num_players > 2){$fundraiser_fee = 0; $fundraiser_string = "";}else{$fundraiser_fee = 30; $fundraiser_string = "+ \$30 Fundraiser";}
            if($num_players > 1){$discount = 15; $discount_string = "-\$15 multiplayer discount";}else{$discount = 0;$discount_string = "";}
            $player_total = $base_cost + $fundraiser_fee - $discount;
            $amount_due   = $player_total - $amount_paid;
            $registration_string = "\$$base_cost Registration Fee";
            $user_table .= "<td id=cal_events3>\$$fundraiser_fee</td>\n";
            $user_table .= "<td id=cal_events3>-\$$discount</td>\n";
            $user_table .= "<td id=cal_events3>\$$player_total</td>\n";
            #$amount_due =  .02;
            if($by_check == 0){
                insert_tmp_paypal($user_key, $player_key, $amount_due, $transaction_id);
            }
             
             $pay_pal .= "<input type=\"hidden\" name=\"item_name_" . $pay_pal_count . "\" value=\"$player_info{$user_number}{\"FIRSTNAME\"} $player_info{$user_number}{\"LASTNAME\"}  ($registration_string $fundraiser_string $discount_string)\">\n";
             $pay_pal .= "<input type=\"hidden\" name=\"amount_" . $pay_pal_count . "\" value=\"$amount_due\">\n";
             $pay_pal_count++;
             $total_cost = $amount_due + $total_cost;
             $paid = "No";
        
        $user_table .= "<td id=cal_events3>\$$amount_paid</td><td id=cal_events3>\$$amount_due</td></tr>\n";
    }
    $user_table .= "<tr><td id=cal_events3 colspan=7 align=right><b>TOTAL DUE: \$$total_cost</b></td></tr>\n";
    $user_table .= "</table>\n";
    if($by_check != 1){
        $user_table .= "<form name=partial_form METHOD =\"$method\" ACTION=\"$page_url\" ENCTYPE=\"multipart/form-data\"><input type=hidden name=partial_amount id=partial_amount value=$total_cost >\n";
        #$partial_form = "\n";
        $user_table .= "<input type=hidden name=action id=action value=partial>";
        $user_table .= "<input type=hidden name=userkey id=userkey value=$user_key>\n";
        $user_table .= "</form>\n";


    }
    
    $pay_pal .= "<input type='button'  name='revise' value='Revise Order' onClick=\"javascript:document.revise_form.submit();\">\n";
    $pay_pal .= "<input type='button'  name='pay_by_check' value='Pay By Check' onClick=\"javascript:document.pay_by_check_form.submit();\">\n";
    #$pay_pal .= "<input type='submit'  name='pay_by_check' value='Pay By Check' onClick=\"javascript:document.pay_pal_form.submit();\">\n";
    #$pay_pal .= "<input type='button'  name='partial_pay' value='Update Partial' onClick=\"javascript:document.partial_form.submit();\">\n";
    $pay_pal .= "<input type='button'  name='submit' value='Pay With Credit Card' onClick=\"Show();\">\n";
    $pay_pal .= "<div id=\"Popup\" class=\"transparent\"><div style=\"background-color: #686b6e\"><table width=100%><tr><td>&nbsp;</td><td><b><font color=white>Credit Card Payment Options</font></b></td><td align=right><a href=javascript:void(0); onclick=\"Hide();\">x</a></td></tr></table></div>\n";
    $pay_pal .= "<div></b><br><center><input type='submit'  name='submit' value='Pay In Full'> \n";
    $pay_pal .= "<input type='button'  name='submit' value='Pay Partial' onClick=\"javascript:document.partial_form.submit();\"></div></div>\n";
    #$pay_pal .= "<input type='image' src='http://www.paypal.com/en_US/i/btn/x-click-but01.gif' name='submit' alt='Make payments with PayPal - its fast, free and secure!'>\n";
    $pay_pal .= "</form>\n";
    if($by_check == 1){
        $user_table .= "<table border=0><tr><td style=\"font-size:10pt;color:black;font-family: Arial, Helvetica;\">In order to complete registration by check…<br><br>\n";
        $user_table .= "&nbsp;&nbsp;1. Please make the check payable to “LYAA” for the above amount.<br>\n";
        $user_table .= "&nbsp;&nbsp;2. Please mail the check to the following address…<br><br>\n";
        $user_table .= "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;LYAA<br>\n";
        $user_table .= "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;PO Box 296<br>\n";
        $user_table .= "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Wauconda, IL 60084 <br><br>\n";
        $user_table .= "If you have any questions contact the board by leaving a message<br> at: (847) 604-0270.<br>\n";
        $user_table .= "<form name=pay_by_check_form METHOD =\"$method\" ACTION=\"$page_url\" ENCTYPE=\"multipart/form-data\"><input type=hidden name=partial_amount id=partial_amount value=$total_cost >\n";
        #$partial_form = "\n";
        $user_table .= "<input type=hidden name=action id=action value=pay_by_check_complete>";
        $user_table .= "<input type=hidden name=userkey id=userkey value=$user_key>\n";
        $user_table .= "<center><input type=button name=Exit value=Exit onClick=\"javascript:document.pay_by_check_form.submit();\"></center>\n</form>";
    }

    return $user_table, $pay_pal;

}

sub get_amount_to_deduct{
    my $partial                 = shift;
    my $total_remaining_players = shift;
    my $total_running_cost      = shift;
    my $max_deduction           = shift;
    my $player_min              = shift;
    my $partial_remaining       = $partial - $total_running_cost;
    my $deduction               = 0;
    my $amount_to_deduct        = 0;
    if($total_remaining_players > 0){
        $amount_to_deduct = sprintf("%.0d", ($partial_remaining/$total_remaining_players));
        $rounded_total = $amount_to_deduct * $total_remaining_players;

        if($rounded_total > $partial_remaining){
            $deduction = $amount_to_deduct - ($rounded_total - $partial_remaining);
        }elsif($rounded_total < $partial){
            $deduction = $amount_to_deduct + ($partial_remaining - $rounded_total);
        }else{
            $deduction = $amount_to_deduct;
        }
    }else{
        $deduction = 0;
    }
        print "ATD: $amount_to_deduct RT: $rounded_total PM: $partial_remaining - TMP: $total_remaining_players - D:$deduction - MAX:$max_deduction<br>\n";
    ### If the deduction is greater than the max deduction set to max
    ### Also if the deduction is greater than max deduction, set it to max
    ### in order to lower the total.
    if(($deduction > $max_deduction)||($deduction >= $player_min)){
        $deduction = $max_deduction;
        if($deduction > $partial_remaining){$deduction = $partial_remaining;}
    }
    if($deduction < 0){
        $deduction = 0;
    }
    $deduction =  sprintf("%0d", $deduction);
    return $deduction;
}

sub get_partial_pay_table{
    my $user_key                         = shift;
    my $by_check                         = shift;
    my $partial                          = shift;
    my ($total_num_players, $max_total_cost, $player_min) = get_num_players_and_total_cost($user_key);
    my %user_info                        = get_account_info($user_key);
    my %player_info                      = get_player_info($user_key);
    my $pay_pal_count                    = 1;
    my $num_players                      = 0;
    my $total_cost                       = 0;
	my $balance                          = 0;
    $transaction_id                      = get_transaction_id();
    my $user_table = "<table   style='border-collapse:collapse;border:1px solid #8480a2' cellpadding=2><tr><td colspan=7 id=admin_header><center>Registered Players</center></td></tr>\n";
    $user_table   .= "<tr><td id=admin_header>Name</td><td id=admin_header>Registration Fee</td><td id=admin_header>Fundraiser Fee</td><td id=admin_header>Multi-Player<br>Discount</td><td id=admin_header>Total</td><td id=admin_header>Paid</td><td id=admin_header>Due</td></tr>\n";
    #$user_table   .= "<tr><td id=admin_header>Name</td><td id=admin_header>Division</td><td id=admin_header>Registration Fee</td><td id=admin_header>Fundraiser Fee</td><td id=admin_header>Discount</td><td id=admin_header>Total</td><td id=admin_header>Paid</td></tr>\n";
    
    my $pay_pal = "<form action=\"$paypal_url\" method=\"post\" name=\"paypal\" id=\"paypal\">\n";
    $pay_pal   .= "<input type=\"hidden\" name=\"notify_url\" value=\"$ipn_url\">\n";
    $pay_pal   .= "<input type=\"hidden\" name=\"cmd\" value=\"_cart\">\n";
    $pay_pal   .= "<input type=\"hidden\" name=\"upload\" value=\"1\">\n";
    $pay_pal   .= "<input type=\"hidden\" name=\"currency_code\" value=\"USD\">\n";
    $pay_pal   .= "<input type=\"hidden\" name=\"business\" value=\"$paypal_acc\">\n";
    #$pay_pal   .= "<input type=\"hidden\" name=\"return\" value=\"" . $thanks_url . $transaction_id . "\">\n";
    $pay_pal   .= "<input type=\"hidden\" name=\"return\" value=\"" . $thanks_url . "\">\n";
    
    $pay_pal   .= "<input type=\"hidden\" name=\"custom\" value=\"$transaction_id\">\n";
    foreach my $user_number (sort {$a <=> $b} (keys %player_info)){
            
            $num_players++;
            my $base_cost = is_older_than_cutoff($player_info{$user_number}{"DOB"},$player_info{$user_number}{"GENDER"});
            $division_id = $player_info{$user_number}{"DIVISION"};
            $player_key  = $player_info{$user_number}{"KEY"};
            $amount_paid = $player_info{$user_number}{"PAID"};
            $user_table .= "<tr><td id=cal_events3> $player_info{$user_number}{\"FIRSTNAME\"} $player_info{$user_number}{\"LASTNAME\"} </td>\n";
            $user_table .= "<td id=cal_events3>\$" . $base_cost . "</td>\n";
            if($num_players > 2){$fundraiser_fee = 0; $fundraiser_string = "";}else{$fundraiser_fee = 30; $fundraiser_string = "+ \$30 Fundraiser";}
            if($num_players > 1){$discount = 15; $discount_string = "-\$15 multiplayer discount";}else{$discount = 0;$discount_string = "";}
            $player_total = $base_cost + $fundraiser_fee - $discount;
            $max_pay = $player_total - $amount_paid;
            my $amount_to_deduct = get_amount_to_deduct($partial, ($total_num_players - $num_players + 1), $total_cost, $max_pay, $player_min);
            $remaining_balance = $player_total - $amount_to_deduct - $amount_paid;
            $amount_due        = $player_total - $amount_paid;
            #$amount_to_deduct = .02;
            insert_tmp_paypal($user_key, $player_key, $amount_to_deduct, $transaction_id);
            $registration_string = "\$$base_cost Registration Fee";
            $user_table .= "<td id=cal_events3>\$$fundraiser_fee</td>\n";
            $user_table .= "<td id=cal_events3>-\$$discount</td>\n";
            $user_table .= "<td id=cal_events3>\$$player_total</td>\n";
            $user_table .= "<td id=cal_events3>-\$$amount_paid</td>\n";
            $user_table .= "<td id=cal_events3>\$$amount_due</td>\n";
            #$user_table .= "<td id=cal_events3>-\$$amount_to_deduct</td>\n";
            #$user_table .= "<td id=cal_events3>\$$remaining_balance</td>\n";
            $balance = $balance + $amount_due;
            $pay_pal .= "<input type=\"hidden\" name=\"item_name_" . $pay_pal_count . "\" value=\"$player_info{$user_number}{\"FIRSTNAME\"} $player_info{$user_number}{\"LASTNAME\"}  ($registration_string $fundraiser_string $discount_string)\">\n";
            $pay_pal .= "<input type=\"hidden\" name=\"amount_" . $pay_pal_count . "\" value=\"$amount_to_deduct\">\n";
            $pay_pal_count++;
            $total_cost = $amount_to_deduct + $total_cost;
            $paid = "No";
       

    }
	$total_remaining = $balance - $total_cost;
	if($by_check == 2){
		$user_table .= "<tr><td id=cal_events3 colspan=7 align=right><b>Balance: \$$balance</b></td></tr>\n";
        $user_table .= "<tr><td id=cal_events3 colspan=7 align=right><b>TOTAL REMAINING After Payment: \$$total_remaining</b></td></tr>\n";
	}else{
        $user_table .= "<tr><td id=cal_events3 colspan=7 align=right><b>Balance: \$$balance</b></td></tr>\n";
	}
    if($by_check != 1){
		if($by_check == 2){
            $user_table .= "<tr><td id=cal_events3 colspan=7 align=center> <form name=partial_form METHOD =\"$method\" ACTION=\"$page_url\" ENCTYPE=\"multipart/form-data\"> <b>Confirm Amount to Pay Now: \$$total_cost</b><br><input type='button'  name='partial_pay' value='Pay Now' onClick=\"javascript:document.paypal.submit();\"></td></tr>\n";
            $user_table .= "<input type=hidden name=partial_amount id=partial_amount value=$total_cost>\n";
		}else{
		    $user_table .= "<tr><td id=cal_events3 colspan=7 align=right> <form name=partial_form METHOD =\"$method\" ACTION=\"$page_url\" ENCTYPE=\"multipart/form-data\"> <b>Enter the Partial Amount You Want to Pay: \$<input type=text name=partial_amount id=partial_amount value=$total_cost size=5></b><input type='button'  name='partial_pay' value='Pay This Amount by Credit Card' onClick=\"javascript:document.partial_form.submit();\"></td></tr>\n";
        }
		#$partial_form = "\n";
		if($by_check == 2){
			$this_action = "partial";
		}else{
            $this_action = "verify_partial";
		}
        $user_table .= "<input type=hidden name=action id=action value=$this_action>";
        $user_table .= "<input type=hidden name=userkey id=userkey value=$user_key>\n";
        $user_table .= "</form>\n";
    }
    $user_table .= "</table>\n";
    $pay_pal .= "<input type='button'  name='revise' value='Go Back and Modify Your Registration' onClick=\"javascript:document.revise_form.submit();\">\n";
    #$pay_pal .= "<input type='button'  name='pay_by_check' value='Pay By Check' onClick=\"javascript:document.pay_by_check_form.submit();\">\n";
	if($by_check == 2){
        $pay_pal .= "<input type='button'  name='partial_pay' value='Modify Partial Payment' onClick=\"javascript:document.partial_form.submit();\">\n";
	}else{
        #$pay_pal .= "<input type='submit'  name='submit' value='Pay With Credit Card'>\n";
	}
    #$pay_pal .= "<table border=0><tr><td>Make sure to Update the Payment before Paying with Credit Card</td></tr></table>\n";

    #$pay_pal .= "<input type='image' src='http://www.paypal.com/en_US/i/btn/x-click-but01.gif' name='submit' alt='Make payments with PayPal - its fast, free and secure!'>\n";
    $pay_pal .= "</form><br>\n";
    if($by_check == 1){
        $user_table .= "<table border=0><tr><td>In order to complete registration by check…<br><br>\n";
        $user_table .= "&nbsp;&nbsp;1. Please make the check payable to “LYAA” for the above amount.<br>\n";
        $user_table .= "&nbsp;&nbsp;2. Please mail the check to the following address…<br><br>\n";
        $user_table .= "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;LYAA<br>\n";
        $user_table .= "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;PO Box 296<br>\n";
        $user_table .= "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Wauconda, IL 60084 <br><br>\n";
        $user_table .= "If you have any questions contact the board by leaving a message<br> at: (847) 604-0270.\n";
    }

    return $user_table, $pay_pal;

}

sub get_num_players_and_total_cost{
    my $user_key          = shift;
    my %user_info         = get_account_info($user_key);
    my %player_info       = get_player_info($user_key);
    my $num_players       = 0;
    my $total_cost        = 0;
    my $player_min        = 180;


    foreach my $user_number (sort {$a <=> $b} (keys %player_info)){
            $num_players++;
            my $base_cost = is_older_than_cutoff($player_info{$user_number}{"DOB"},$player_info{$user_number}{"GENDER"});
            if($num_players > 2){$fundraiser_fee = 0; $fundraiser_string = "";}else{$fundraiser_fee = 30; $fundraiser_string = "+ \$30 Fundraiser";}
            if($num_players > 1){$discount = 15; $discount_string = "-\$15 multiplayer discount";}else{$discount = 0;$discount_string = "";}
            $amount_paid = $player_info{$user_number}{"PAID"};
            $player_total = $base_cost + $fundraiser_fee - $discount - $amount_paid;
            if($player_total < $player_min){if($player_total != 0){$player_min = $player_total;}}
            $total_cost = $player_total + $total_cost;
    }
    return $num_players, $total_cost, $player_min;

}
 
sub print_verify_pay_partial{
    $active_id{"pay"}              = "id=current";
    my $user_key                   = param('userkey');
    my $partial                    = param('partial_amount');

    my %user_info                  = get_account_info($user_key);
    my %player_info                = get_player_info($user_key);
    my %division_selected          = get_division_data();
    my ($user_table, $pay_pal)     = get_partial_pay_table_w_adjustments($user_key, 2, $partial);
    print_steps();

    $verify_form = "<form name=revise_form METHOD =\"$method\" ACTION=\"$page_url\" ENCTYPE=\"multipart/form-data\">\n";
    $verify_form .= "<input type=hidden name=action id=action value=register>";
    $verify_form .= "<input type=hidden name=email id=email value=$user_info{\"EMAIL\"}>\n";
    $verify_form .= "</form>\n";
    


    $pay_by_check_form = "<form name=pay_by_check_form METHOD =\"$method\" ACTION=\"$page_url\" ENCTYPE=\"multipart/form-data\">\n";
    $pay_by_check_form .= "<input type=hidden name=action id=action value=pay_by_check>";
    $pay_by_check_form .= "<input type=hidden name=userkey id=userkey value=$user_key>\n";
    $pay_by_check_form .= "</form>\n";
    print "<table id=step_choice_container width=600 cellpadding=6 cellmargin=4><tr>\n";
	print "<td colspan=2><div style=\"font-size:10pt;color:red;\">Step 5:Verify Partial Payment</div><div style=\"font-size:10pt;color:black;\">Please enter the partial payment amount you wish to pay below.</div><br>\n";
	print "</tr><tr><td><center>\n";

    print $user_table, "<br>";
    print $verify_form;
    print $pay_by_check_form;
    print $pay_pal;
    print "</tr></td></table>\n";
}

sub print_pay_partial{
    $active_id{"pay"}              = "id=current";
    my $user_key                   = param('userkey');
    my $partial                    = param('partial_amount');

    my %user_info                  = get_account_info($user_key);
    my %player_info                = get_player_info($user_key);
    my %division_selected          = get_division_data();
    my ($user_table, $pay_pal)     = get_partial_pay_table_w_adjustments($user_key, 0, $partial);
    print_steps();

    $verify_form = "<form name=revise_form METHOD =\"$method\" ACTION=\"$page_url\" ENCTYPE=\"multipart/form-data\">\n";
    $verify_form .= "<input type=hidden name=action id=action value=register>";
    $verify_form .= "<input type=hidden name=email id=email value=$user_info{\"EMAIL\"}>\n";
    $verify_form .= "</form>\n";
    


    $pay_by_check_form = "<form name=pay_by_check_form METHOD =\"$method\" ACTION=\"$page_url\" ENCTYPE=\"multipart/form-data\">\n";
    $pay_by_check_form .= "<input type=hidden name=action id=action value=pay_by_check>";
    $pay_by_check_form .= "<input type=hidden name=userkey id=userkey value=$user_key>\n";
    $pay_by_check_form .= "</form>\n";
    print "<table id=step_choice_container width=600 cellpadding=6 cellmargin=4><tr>\n";
	print "<td colspan=2><div style=\"font-size:10pt;color:red;\">Step 5: Enter Partial Payment Amount</div><div style=\"font-size:10pt;color:black;\">Please enter the partial payment amount you wish to pay below.</div><br>\n";
	print "</tr><tr><td><center>\n";

    print $user_table, "<br>";
    print $verify_form;
    print $pay_by_check_form;
    print $pay_pal;
    print "</tr></td></table>\n";
}

sub print_pay{
    $active_id{"pay"}          = "id=current";
    my $user_key               = param('userkey');
    my %user_info              = get_account_info($user_key);
    my %player_info            = get_player_info($user_key);
    my %division_selected      = get_division_data();
    my ($user_table, $pay_pal) = get_pay_table_w_adjustments($user_key, 0);
    print_steps();

    $full_or_partial = <<__JSCRIPT__;
    <style>
    .transparent {
    font-family: verdana, arial, tahoma, sans-serif; 
    font-size: 12px; 
    
    background-color:#FFFFFF;
    display:none;
    width:300;
    height:100;
    position:absolute;
    left:50%;
    top:50%;
    margin-left: 150px;
    margin-top: 250px;
    color: white;
    border: 3px #686b6e solid;
    z-index: 99;
    }
    </style>

    <script>
    function full_or_partial(){
        var answer = confirm("Would you like to pay in full or make a parital payment?")
        if (answer){
            document.pay_pal.submit();
        }
        else{
            document.pay_partial.submit();
        }
    }
     /* this function shows the pop-up when
     user moves the mouse over the link */
    function Show()
        
    {
        //alert("hello");
        /* get the mouse left position */
        //x = event.clientX + document.body.scrollLeft;
        /* get the mouse top position  */
        //y = event.clientY + document.body.scrollTop + 35;
        /* display the pop-up */
        Popup.style.display="block";
        /* set the pop-up's left */
        Popup.style.left = 15;
        /* set the pop-up's top */
        Popup.style.top = 15;
    }
    /* this function hides the pop-up when
     user moves the mouse out of the link */
    function Hide()
    {
        /* hide the pop-up */
        Popup.style.display="none";
    }
    </script>
__JSCRIPT__

    $verify_form = "<form name=revise_form METHOD =\"$method\" ACTION=\"$page_url\" ENCTYPE=\"multipart/form-data\">\n";
    $verify_form .= "<input type=hidden name=action id=action value=register>";
    $verify_form .= "<input type=hidden name=email id=email value=$user_info{\"EMAIL\"}>\n";
    $verify_form .= "</form>\n";
    


    $pay_by_check_form = "<form name=pay_by_check_form METHOD =\"$method\" ACTION=\"$page_url\" ENCTYPE=\"multipart/form-data\">\n";
    $pay_by_check_form .= "<input type=hidden name=action id=action value=pay_by_check>";
    $pay_by_check_form .= "<input type=hidden name=userkey id=userkey value=$user_key>\n";
    $pay_by_check_form .= "</form>\n";
    print "$full_or_partial<table id=step_choice_container width=600 cellpadding=6 cellmargin=4><tr><td>\n";
    print "<div style=\"font-size:10pt;color:red;\"><br>Step 5:Verify Order</div><div style=\"font-size:10pt;color:black;\">Please verify your registration prior to checkout.</div><br><center>\n";

    print $user_table, "<br>";
    print $verify_form;
    print $pay_by_check_form;
    print $pay_pal;
    print "</tr></td></table>\n";
}

sub get_db_date_format{
    my $date = shift;
    my($month, $day, $year) = split(/\//,$date);
    $date = "$year-$month-$day";
    return $date;
}
sub get_view_date_format{
    my $date = shift;
    my($year, $month, $day) = split(/-/,$date);
    $date = "$month/$day/$year";
    return $date;
}
sub remove_player{
    my $player_key = shift; 
    my $query = "UPDATE Account_Player_Info SET `Active` = '0' WHERE `Key` = '$player_key';";
    #print "$query<br>\n";
    my $dbh = get_dbh();
    my $sth = $dbh->prepare($query);
    $sth->execute();
    $sth->finish();
    $dbh->disconnect;
    return $player_key;

}

###################################
# Get parameter for DB
###################################
sub get_param{
    my $paramter = shift;
    my $value = param($paramter);
    $value =~ s/\'/''/g;
    $value =~ s/\"//g;
    $value =~ s/\\//g;
    return $value;
}

################################################################
### Update player in db
################################################################
sub update_player{
    $lname      = get_param('lname');
    $fname      = get_param('fname');
    $division   = param('division');
    $shirt_size = ""; #param(shirt_size);
    $pant_size  = ""; #param(pant_size);
    $hat_size   = ""; #param(hat_size);
    $shoe_size  = ""; #param(shoe_size);
    $jersey     = ""; #param(jersey);
    $age        = "";  #param(age);
    $height     = "";  #param(height);
    $weight     = "";  #param(weight);
    $dob        = param(dob);
    $gender     = param(gender);
    $sname      = get_param(sname);
    $grade      = param(grade);
    $econtact   = get_param(econtact);
    $ephone     = get_param(ephone);
    $esphone    = get_param(esphone);
    $erel       = param(erel);
    $gcontact   = get_param(gcontact);
    $gphone     = get_param(gphone);
    $gsphone    = get_param(gsphone);
    $grel       = param(grel);
    $ogcontact  = get_param(ogcontact);
    $ogphone    = get_param(ogphone);
    $ogsphone   = get_param(ogsphone);
    $ogrel      = param(ogrel);
    $doctor     = get_param(doctor);
    $dphone     = get_param(dphone);
    $dentist    = get_param(dentist);
    $dephone    = get_param(dephone);
    $hospital   = get_param(hospital);
    $insurance  = get_param(insurance);
    $policy     = get_param(policy);
    $history    = get_param(history);
    $user_key   = param(userkey);
    $player_key = param(playerkey);
    $returning  = param(returning);
    $consent    = param(consent);
    $actionsto  = get_param(actionsto);
    $playup     = param(playup);
    if($playup eq "on"){
        $playup = "Yes";
    }else{
        $playup = "No";
    }
#`Hat_Size` = '$hat_size', Removed Hat Size because its the date
    $dob = get_db_date_format($dob);
    my $query = "UPDATE Account_Player_Info SET  `Play_Up`='$playup', `Consent`= '$consent',`Consent_Actions`= '$actionsto',`Returning_Player`= '$returning', `Firstname` = '$fname', `Lastname` = '$lname', `Division_Pref` = '$division', `Shirt_Size` = '$shirt_size', `Pant_Size` = '$pant_size',  `Shoe_Size` = '$shoe_size', `Jersey_Pref` = '$jersey', `DOB` = '$dob', `Gender` = '$gender', `School_Name` = '$sname', `Grade` = '$grade', `Age` = '$age', `Height` = '$height', `Weight` = '$weight', `E_Contact_Phone` = '$ephone', `E_Contact_SPhone` = '$esphone', `E_Contact_Name` = '$econtact', `E_Contact_Relationship` = '$erel', `G_Contact_Phone` = '$gphone', `G_Contact_SPhone` = '$gsphone', `G_Contact_Name` = '$gcontact', `G_Contact_Relationship` = '$grel', `OG_Contact_Phone` = '$ogphone', `OG_Contact_SPhone` = '$ogsphone', `OG_Contact_Name` = '$ogcontact', `OG_Contact_Relationship` = '$ogrel', `Preferred_Doc_Name` = '$doctor', `Preferred_Doc_Number` = '$dphone', `Preferred_Dentist_Name` = '$dentist', `Preferred_Dentist_Number` = '$dephone', `Preferred_Hospital` = '$hospital', `Insurance_Carrier` = '$insurance', `Policy_Number` = '$policy', `Medical_History` = '$history' WHERE `Key` = '$player_key';";
    #print "$query<br>\n";
    my $dbh = get_dbh();
    my $sth = $dbh->prepare($query);
    $sth->execute();
    
    $sth->finish();
    $dbh->disconnect;
    return $player_key;

}

################################################################
### Create new player in db
################################################################
sub create_new_player{
    $lname      = get_param('lname');
    $fname      = get_param('fname');
    $division   = param(division);
    $shirt_size = ""; #param(shirt_size);
    $pant_size  = ""; #param(pant_size);
    $hat_size   = get_db_date(); #param(hat_size); CURRENTLY USING HAT SIZE FOR DATE.:)
    $shoe_size  = ""; #param(shoe_size);
    $jersey     = ""; #param(jersey);
    $age        = "";  #param(age);
    $height     = "";  #param(height);
    $weight     = "";  #param(weight);
    $dob        = param(dob);
    $gender     = param(gender);
    $sname      = get_param(sname);
    $grade      = param(grade);
    $econtact   = get_param(econtact);
    $ephone     = get_param(ephone);
    $esphone    = get_param(esphone);
    $erel       = param(erel);
    $gcontact   = get_param(gcontact);
    $gphone     = get_param(gphone);
    $gsphone    = get_param(gsphone);
    $grel       = param(grel);
    $ogcontact  = get_param(ogcontact);
    $ogphone    = get_param(ogphone);
    $ogsphone   = get_param(ogsphone);
    $ogrel      = param(ogrel);
    $doctor     = get_param(doctor);
    $dphone     = get_param(dphone);
    $dentist    = get_param(dentist);
    $dephone    = get_param(dephone);
    $hospital   = get_param(hospital);
    $insurance  = get_param(insurance);
    $policy     = get_param(policy);
    $history    = get_param(history);
    $user_key   = param(userkey);
    $returning  = param(returning);
    $consent    = param(consent);
    $actionsto  = get_param(actionsto);

	my $first_player = 1;
    $playup     = param(playup);
    if($playup eq "on"){
        $playup = "Yes";
    }else{
        $playup = "No";
    }
    $dob = get_db_date_format($dob);   
    $height =~ s/\"/ /g;
    $height =~ s/\'/ /g;
	$first_player = check_for_first_player_for_user($user_key);

    my $query = "INSERT INTO Account_Player_Info (`Key`, `Account_ID`, `Firstname`, `Lastname`, `Division_Pref`, `Shirt_Size`, `Pant_Size`, `Hat_Size`, `Shoe_Size`, `Jersey_Pref`,  `DOB`, `Gender`, `School_Name`, `Grade`, `Age`, `Height`, `Weight`, `E_Contact_Name`, `E_Contact_Phone`, `E_Contact_SPhone`, `E_Contact_Relationship`, `G_Contact_Name`, `G_Contact_Phone`, `G_Contact_SPhone`, `G_Contact_Relationship`, `OG_Contact_Name`, `OG_Contact_Phone`, `OG_Contact_SPhone`, `OG_Contact_Relationship`, `Preferred_Doc_Name`, `Preferred_Doc_Number`, `Preferred_Dentist_Name`, `Preferred_Dentist_Number`, `Preferred_Hospital`, `Insurance_Carrier`, `Policy_Number`, `Medical_History`, `Returning_Player`, `Paid`, `Active`, `Consent`, `Consent_Actions`, `Play_Up`) VALUES ('','$user_key', '$fname', '$lname', '$division', '$shirt_size', '$pant_size', '$hat_size', '$shoe_size', '$jersey', '$dob', '$gender', '$sname', '$grade', '$age', '$height', '$weight', '$econtact', '$ephone', '$esphone', '$erel', '$gcontact', '$gphone', '$gsphone', '$grel', '$ogcontact', '$ogphone', '$ogsphone', '$ogrel', '$doctor', '$dphone', '$dentist', '$dephone', '$hospital', '$insurance', '$policy', '$history', '$returning', '0', '1', '$consent', '$actionsto', '$playup');";
    #print "QUERY: $query<br>\n";
    my $dbh = get_dbh();
    my $sth = $dbh->prepare($query);
    $sth->execute();
    #########################################
    # Get the ID of the just inserted event
    #########################################
    my $query2 = "SELECT LAST_INSERT_ID( );";
    $sth = $dbh->prepare($query2);
    $sth->execute();
    # assign fields to variables
    $sth->bind_columns(\$last_insert_id);

    while($sth->fetch()) {
        $user_id = $last_insert_id;
    }
    #print "$query<br>\n";
    
    $sth->finish();
    $dbh->disconnect;
	#########################################
    # Add walk in fee if active and first player
	# for user.
    #########################################
	if(($walk_in == 1)&&($first_player == 1)){
            insert_walkin_adjustment($user_id, 25);
	}
    return $user_id;

}

sub get_adjustment_info{
	my $last_name     = shift;
	my $first_name    = shift;
    my $player_key    = shift;
    my $return_string = "";
	my $amount        = 0;
	my $return_amount = 0;
	$player_header1 = "cal_events3";
    $player_header2 = "cal_events2";
	$user_header    = "date_header";
    my $dbh = get_dbh();
    ################################################################
    # Query DB to verify Session
    ################################################################
    my $query = "SELECT a.`Amount`, a.`Check_ID`, a.`Date`, b.`Login` FROM `Reg_Manual_Adjustment` a, `Account_Info` b WHERE a.`Player_ID` = '$player_key' AND b.`Key` = a.`Update_Account_ID`;";
    my $sth = $dbh->prepare($query);
    #print "$query<br>\n";
    $sth->execute();
    $sth->bind_columns(\$Amount, \$Check_ID, \$Date, \$Login);

    while($sth->fetch()) {
		if($player_header eq $player_header1){
            $player_header = $player_header2;
        }else{
            $player_header = $player_header1;
        }
        $return_string .= "<tr><td id=$player_header>$last_name</td><td id=$player_header>$first_name</td><td id=$player_header>$Amount</td><td id=$player_header>$Check_ID</td><td id=$player_header>$Date</td><td id=$player_header>$Login</td></tr>";
        $return_amount = $Amount + $return_amount;
    }
    # disconnect from database
    $sth->finish();
    $dbh->disconnect;
    #$return_amount = 3;
    #print "RP: $return_password<br>\n";
    return $return_string, $return_amount;
}
sub get_partial_pay_table_w_adjustments{
    my $user_key                         = shift;
    my $by_check                         = shift;
    my $partial                          = shift;
    my ($total_num_players, $max_total_cost, $player_min) = get_num_players_and_total_cost($user_key);
    my %user_info                        = get_account_info($user_key);
    my %player_info                      = get_player_info($user_key);
    my $pay_pal_count                    = 1;
    my $num_players                      = 0;
    my $total_cost                       = 0;
	my $balance                          = 0;
    $transaction_id                      = get_transaction_id();
    my $user_table = "<table   style='border-collapse:collapse;border:1px solid #8480a2' cellpadding=2><tr><td colspan=8 id=admin_header><center>Registered Players</center></td></tr>\n";
    $user_table   .= "<tr><td id=admin_header>Name</td><td id=admin_header>Registration Fee</td><td id=admin_header>Fundraiser Fee</td><td id=admin_header>Adjustments</td><td id=admin_header>Multi-Player<br>Discount</td><td id=admin_header>Total</td><td id=admin_header>Paid</td><td id=admin_header>Due</td></tr>\n";
    #$user_table   .= "<tr><td id=admin_header>Name</td><td id=admin_header>Division</td><td id=admin_header>Registration Fee</td><td id=admin_header>Fundraiser Fee</td><td id=admin_header>Discount</td><td id=admin_header>Total</td><td id=admin_header>Paid</td></tr>\n";
    
    my $pay_pal = "<form action=\"$paypal_url\" method=\"post\" name=\"paypal\" id=\"paypal\">\n";
    $pay_pal   .= "<input type=\"hidden\" name=\"notify_url\" value=\"$ipn_url\">\n";
    $pay_pal   .= "<input type=\"hidden\" name=\"cmd\" value=\"_cart\">\n";
    $pay_pal   .= "<input type=\"hidden\" name=\"upload\" value=\"1\">\n";
    $pay_pal   .= "<input type=\"hidden\" name=\"currency_code\" value=\"USD\">\n";
    $pay_pal   .= "<input type=\"hidden\" name=\"business\" value=\"$paypal_acc\">\n";
    #$pay_pal   .= "<input type=\"hidden\" name=\"return\" value=\"" . $thanks_url . $transaction_id . "\">\n";
    $pay_pal   .= "<input type=\"hidden\" name=\"return\" value=\"" . $thanks_url . "\">\n";
    
    $pay_pal   .= "<input type=\"hidden\" name=\"custom\" value=\"$transaction_id\">\n";
    foreach my $user_number (sort {$a <=> $b} (keys %player_info)){
            
            $num_players++;
            my $base_cost = is_older_than_cutoff($player_info{$user_number}{"DOB"},$player_info{$user_number}{"GENDER"});
            $division_id = $player_info{$user_number}{"DIVISION"};
            $player_key  = $player_info{$user_number}{"KEY"};
            $amount_paid = $player_info{$user_number}{"PAID"};
            $user_table .= "<tr><td id=cal_events3> $player_info{$user_number}{\"FIRSTNAME\"} $player_info{$user_number}{\"LASTNAME\"} </td>\n";
            $user_table .= "<td id=cal_events3>\$" . $base_cost . "</td>\n";
			($tmp_adjustment_info, $player_adjustment)  = get_adjustment_info($player_info{$user_number}{"LASTNAME"}, $player_info{$user_number}{"FIRSTNAME"}, $player_info{$user_number}{"KEY"});
            if($num_players > 2){$fundraiser_fee = 0; $fundraiser_string = "";}else{$fundraiser_fee = 30; $fundraiser_string = "+ \$30 Fundraiser";}
            if($num_players > 1){$discount = 15; $discount_string = "-\$15 multiplayer discount";}else{$discount = 0;$discount_string = "";}
            $player_total = $base_cost + $fundraiser_fee - $discount + $player_adjustment;
            $max_pay = $player_total - $amount_paid;
            my $amount_to_deduct = get_amount_to_deduct($partial, ($total_num_players - $num_players + 1), $total_cost, $max_pay, $player_min);
            $remaining_balance = $player_total - $amount_to_deduct - $amount_paid;
            $amount_due        = $player_total - $amount_paid ;

			if($player_adjustment != 0){
                $adjustment_string = "+ \$$player_adjustment Adjustment Fee";
			}else{
                $adjustment_string = "";
			}
            #$amount_to_deduct = .02;
            insert_tmp_paypal($user_key, $player_key, $amount_to_deduct, $transaction_id);
            $registration_string = "\$$base_cost Registration Fee";
            $user_table .= "<td id=cal_events3>\$$fundraiser_fee</td>\n";
			$user_table .= "<td id=cal_events3>\$$player_adjustment</td>\n";
            $user_table .= "<td id=cal_events3>-\$$discount</td>\n";
            $user_table .= "<td id=cal_events3>\$$player_total</td>\n";
            $user_table .= "<td id=cal_events3>-\$$amount_paid</td>\n";
            $user_table .= "<td id=cal_events3>\$$amount_due</td>\n";
            #$user_table .= "<td id=cal_events3>-\$$amount_to_deduct</td>\n";
            #$user_table .= "<td id=cal_events3>\$$remaining_balance</td>\n";
            $balance = $balance + $amount_due;
            $pay_pal .= "<input type=\"hidden\" name=\"item_name_" . $pay_pal_count . "\" value=\"$player_info{$user_number}{\"FIRSTNAME\"} $player_info{$user_number}{\"LASTNAME\"}  ($registration_string $fundraiser_string $adjustment_string $discount_string)\">\n";
            $pay_pal .= "<input type=\"hidden\" name=\"amount_" . $pay_pal_count . "\" value=\"$amount_to_deduct\">\n";
            $pay_pal_count++;
            $total_cost = $amount_to_deduct + $total_cost;
            $paid = "No";
       

    }
	$total_remaining = $balance - $total_cost;
	if($by_check == 2){
		$user_table .= "<tr><td id=cal_events3 colspan=8 align=right><b>Balance: \$$balance</b></td></tr>\n";
        $user_table .= "<tr><td id=cal_events3 colspan=8 align=right><b>TOTAL REMAINING After Payment: \$$total_remaining</b></td></tr>\n";
	}else{
        $user_table .= "<tr><td id=cal_events3 colspan=8 align=right><b>Balance: \$$balance</b></td></tr>\n";
	}
    if($by_check != 1){
		if($by_check == 2){
            $user_table .= "<tr><td id=cal_events3 colspan=8 align=center> <form name=partial_form METHOD =\"$method\" ACTION=\"$page_url\" ENCTYPE=\"multipart/form-data\"> <b>Confirm Amount to Pay Now: \$$total_cost</b><br><input type='button'  name='partial_pay' value='Pay Now' onClick=\"javascript:document.paypal.submit();\"></td></tr>\n";
            $user_table .= "<input type=hidden name=partial_amount id=partial_amount value=$total_cost>\n";
		}else{
		    $user_table .= "<tr><td id=cal_events3 colspan=8 align=right> <form name=partial_form METHOD =\"$method\" ACTION=\"$page_url\" ENCTYPE=\"multipart/form-data\"> <b>Enter the Partial Amount You Want to Pay: \$<input type=text name=partial_amount id=partial_amount value=$total_cost size=5></b><input type='button'  name='partial_pay' value='Pay This Amount by Credit Card' onClick=\"javascript:document.partial_form.submit();\"></td></tr>\n";
        }
		#$partial_form = "\n";
		if($by_check == 2){
			$this_action = "partial";
		}else{
            $this_action = "verify_partial";
		}
        $user_table .= "<input type=hidden name=action id=action value=$this_action>";
        $user_table .= "<input type=hidden name=userkey id=userkey value=$user_key>\n";
        $user_table .= "</form>\n";
    }
    $user_table .= "</table>\n";
    $pay_pal .= "<input type='button'  name='revise' value='Go Back and Modify Your Registration' onClick=\"javascript:document.revise_form.submit();\">\n";
    #$pay_pal .= "<input type='button'  name='pay_by_check' value='Pay By Check' onClick=\"javascript:document.pay_by_check_form.submit();\">\n";
	if($by_check == 2){
        $pay_pal .= "<input type='button'  name='partial_pay' value='Modify Partial Payment' onClick=\"javascript:document.partial_form.submit();\">\n";
	}else{
        #$pay_pal .= "<input type='submit'  name='submit' value='Pay With Credit Card'>\n";
	}
    #$pay_pal .= "<table border=0><tr><td>Make sure to Update the Payment before Paying with Credit Card</td></tr></table>\n";

    #$pay_pal .= "<input type='image' src='http://www.paypal.com/en_US/i/btn/x-click-but01.gif' name='submit' alt='Make payments with PayPal - its fast, free and secure!'>\n";
    $pay_pal .= "</form><br>\n";
    if($by_check == 1){
        $user_table .= "<table border=0><tr><td>In order to complete registration by check…<br><br>\n";
        $user_table .= "&nbsp;&nbsp;1. Please make the check payable to “LYAA” for the above amount.<br>\n";
        $user_table .= "&nbsp;&nbsp;2. Please mail the check to the following address…<br><br>\n";
        $user_table .= "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;LYAA<br>\n";
        $user_table .= "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;PO Box 296<br>\n";
        $user_table .= "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Wauconda, IL 60084 <br><br>\n";
        $user_table .= "If you have any questions contact the board by leaving a message<br> at: (847) 604-0270.\n";
    }

    return $user_table, $pay_pal;

}

sub get_pay_table_w_adjustments{
    my $user_key          = shift;
    my $by_check          = shift;
    my %user_info         = get_account_info($user_key);
    my %player_info       = get_player_info($user_key);
    my $pay_pal_count     = 1;
    my $num_players       = 0;
    my $total_cost        = 0;
	my $walk_in_fee       = 0;
	my $walk_in_amount    = 25;
	my $adjustment_string = "";

    if($by_check == 0){
        $transaction_id = get_transaction_id();
    }
    my $user_table = "<table   style='border-collapse:collapse;border:1px solid #8480a2' cellpadding=2><tr><td colspan=8 id=admin_header><center>Registered Players</center></td></tr>\n";
    $user_table   .= "<tr><td id=admin_header>Name</td><td id=admin_header>Registration Fee</td><td id=admin_header>Fundraiser Fee</td><td id=admin_header>Adjustments</td><td id=admin_header>Multi-Player<br>Discount</td><td id=admin_header>Total</td><td id=admin_header>Paid</td><td id=admin_header>Due</td></tr>\n";
    #$user_table   .= "<tr><td id=admin_header>Name</td><td id=admin_header>Division</td><td id=admin_header>Registration Fee</td><td id=admin_header>Fundraiser Fee</td><td id=admin_header>Discount</td><td id=admin_header>Total</td><td id=admin_header>Paid</td></tr>\n";
    my $pay_pal = "<form name=pay_pal_form id=pay_pal_form action=\"$paypal_url\" method=\"post\" ENCTYPE=\"multipart/form-data\">\n";
    $pay_pal   .= "<input type=\"hidden\" name=\"notify_url\" value=\"$ipn_url\">\n";
    $pay_pal   .= "<input type=\"hidden\" name=\"cmd\" value=\"_cart\">\n";
    $pay_pal   .= "<input type=\"hidden\" name=\"upload\" value=\"1\">\n";
    $pay_pal   .= "<input type=\"hidden\" name=\"custom\" value=\"$transaction_id\">\n";
    $pay_pal   .= "<input type=\"hidden\" name=\"currency_code\" value=\"USD\">\n";
    $pay_pal   .= "<input type=\"hidden\" name=\"business\" value=\"$paypal_acc\">\n";
    $pay_pal   .= "<input type=\"hidden\" name=\"return\" value=\"" . $thanks_url . "\">\n";
    #$pay_pal   .= "<input type=\"hidden\" name=\"return\" value=\"" . $thanks_url . $transaction_id . "\">\n";
    
    foreach my $user_number (sort {$a <=> $b} (keys %player_info)){
            $num_players++;
            my $base_cost = is_older_than_cutoff($player_info{$user_number}{"DOB"},$player_info{$user_number}{"GENDER"});
            $division_id = $player_info{$user_number}{"DIVISION"};
            $player_key  = $player_info{$user_number}{"KEY"};
            $amount_paid = $player_info{$user_number}{"PAID"};
			($tmp_adjustment_info, $player_adjustment)  = get_adjustment_info($player_info{$user_number}{"LASTNAME"}, $player_info{$user_number}{"FIRSTNAME"}, $player_info{$user_number}{"KEY"});
            $user_table .= "<tr><td id=cal_events3>$player_info{$user_number}{\"FIRSTNAME\"} $player_info{$user_number}{\"LASTNAME\"} $player_info{$user_number}{\"DOB\"}</td>\n";
            $user_table .= "<td id=cal_events3>\$" . $base_cost . "</td>\n";
            if($num_players > 2){$fundraiser_fee = 0; $fundraiser_string = "";}else{$fundraiser_fee = 30; $fundraiser_string = "+ \$30 Fundraiser";}
            if($num_players > 1){$discount = 15; $discount_string = "-\$15 multiplayer discount";}else{$discount = 0;$discount_string = "";}
            $player_total = $base_cost + $fundraiser_fee - $discount + $player_adjustment;
            $amount_due   = $player_total - $amount_paid ;
            $registration_string = "\$$base_cost Registration Fee";
            $user_table .= "<td id=cal_events3>\$$fundraiser_fee</td>\n";
            $user_table .= "<td id=cal_events3>\$$player_adjustment</td>\n";
            $user_table .= "<td id=cal_events3>-\$$discount</td>\n";
            $user_table .= "<td id=cal_events3>\$$player_total</td>\n";
			if($player_adjustment > 0){
                $adjustment_string = "+ \$$player_adjustment Adjustment Fee";
			}else{
                $adjustment_string = "";
			}
            #$amount_due =  .02;
            if($by_check == 0){
                insert_tmp_paypal($user_key, $player_key, $amount_due, $transaction_id);
            }
             
             $pay_pal .= "<input type=\"hidden\" name=\"item_name_" . $pay_pal_count . "\" value=\"$player_info{$user_number}{\"FIRSTNAME\"} $player_info{$user_number}{\"LASTNAME\"}  ($registration_string $fundraiser_string $adjustment_string $discount_string)\">\n";
             $pay_pal .= "<input type=\"hidden\" name=\"amount_" . $pay_pal_count . "\" value=\"$amount_due\">\n";
             $pay_pal_count++;
             $total_cost = $amount_due + $total_cost;
             $paid = "No";
        
        $user_table .= "<td id=cal_events3>\$$amount_paid</td><td id=cal_events3>\$$amount_due</td></tr>\n";
    }
    $user_table .= "<tr><td id=cal_events3 colspan=8 align=right><b>TOTAL DUE: \$$total_cost</b></td></tr>\n";
    $user_table .= "</table>\n";
    if($by_check != 1){
        $user_table .= "<form name=partial_form METHOD =\"$method\" ACTION=\"$page_url\" ENCTYPE=\"multipart/form-data\"><input type=hidden name=partial_amount id=partial_amount value=$total_cost >\n";
        #$partial_form = "\n";
        $user_table .= "<input type=hidden name=action id=action value=partial>";
        $user_table .= "<input type=hidden name=userkey id=userkey value=$user_key>\n";
        $user_table .= "</form>\n";


    }
    
    $pay_pal .= "<input type='button'  name='revise' value='Revise Order' onClick=\"javascript:document.revise_form.submit();\">\n";
    $pay_pal .= "<input type='button'  name='pay_by_check' value='Pay By Check' onClick=\"javascript:document.pay_by_check_form.submit();\">\n";
    #$pay_pal .= "<input type='submit'  name='pay_by_check' value='Pay By Check' onClick=\"javascript:document.pay_pal_form.submit();\">\n";
    #$pay_pal .= "<input type='button'  name='partial_pay' value='Update Partial' onClick=\"javascript:document.partial_form.submit();\">\n";
    $pay_pal .= "<input type='button'  name='submit' value='Pay With Credit Card' onClick=\"Show();\">\n";
    $pay_pal .= "<div id=\"Popup\" class=\"transparent\"><div style=\"background-color: #686b6e\"><table width=100%><tr><td>&nbsp;</td><td><b><font color=white>Credit Card Payment Options</font></b></td><td align=right><a href=javascript:void(0); onclick=\"Hide();\">x</a></td></tr></table></div>\n";
    $pay_pal .= "<div></b><br><center><input type='submit'  name='submit' value='Pay In Full'> \n";
    $pay_pal .= "<input type='button'  name='submit' value='Pay Partial' onClick=\"javascript:document.partial_form.submit();\"></div></div>\n";
    #$pay_pal .= "<input type='image' src='http://www.paypal.com/en_US/i/btn/x-click-but01.gif' name='submit' alt='Make payments with PayPal - its fast, free and secure!'>\n";
    $pay_pal .= "</form>\n";
    if($by_check == 1){
        $user_table .= "<table border=0><tr><td style=\"font-size:10pt;color:black;font-family: Arial, Helvetica;\">In order to complete registration by check…<br><br>\n";
        $user_table .= "&nbsp;&nbsp;1. Please make the check payable to “LYAA” for the above amount.<br>\n";
        $user_table .= "&nbsp;&nbsp;2. Please mail the check to the following address…<br><br>\n";
        $user_table .= "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;LYAA<br>\n";
        $user_table .= "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;PO Box 296<br>\n";
        $user_table .= "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Wauconda, IL 60084 <br><br>\n";
        $user_table .= "If you have any questions contact the board by leaving a message<br> at: (847) 604-0270.<br>\n";
        $user_table .= "<form name=pay_by_check_form METHOD =\"$method\" ACTION=\"$page_url\" ENCTYPE=\"multipart/form-data\"><input type=hidden name=partial_amount id=partial_amount value=$total_cost >\n";
        #$partial_form = "\n";
        $user_table .= "<input type=hidden name=action id=action value=admin_pay_by_check_complete>";
        $user_table .= "<input type=hidden name=userkey id=userkey value=$user_key>\n";
        $user_table .= "<center><input type=button name=Exit value=Exit onClick=\"javascript:document.pay_by_check_form.submit();\"></center>\n</form>";
    }

    return $user_table, $pay_pal;

}

sub get_player_id_from_cookie{
    my $session_id      = get_cookie();
    my $login           = get_login_from_session($session_id);
    return $login;
}
################################################################
### Update adjustemnt
################################################################
sub insert_walkin_adjustment{
	my $player_key     = shift;
	my $amount         = shift;
	my $check_notes    = "Walk In";
    my $update_account = get_player_id_from_cookie();
	my $account_id     = get_account_id_by_player_key($player_key);
	my $date           = get_date_time();

	my $query = "INSERT INTO Reg_Manual_Adjustment ( `Key` , `Account_ID` , `Player_ID` , `Update_Account_ID`, `Amount`, `Check_ID`, `Date`) VALUES ('', '$account_id', '$player_key', '$update_account', '$amount', '$check_notes', '$date')";
	#print "$query<br>\n";
	my $dbh = get_dbh();
	my $sth = $dbh->prepare($query);
	$sth->execute();
	
    $sth->finish();
	$dbh->disconnect;
	return $player_key;
}
sub check_for_first_player_for_user{
	my $user_key = shift;
    my $dbh      = get_dbh();
    my $query    = "SELECT `Key` FROM `Account_Player_Info` WHERE `Account_ID` = '$user_key'";
	#print "$query<br>\n";
    my $sth = $dbh->prepare($query);
	my $first_player = 1;
    $sth->execute();
    $sth->bind_columns(\$Key);
    ################################################################
    # Loop through what the db returned, if there is somthing there
    # it assumes success. 
    ################################################################
    while($sth->fetch()) {
        $first_player = 0;
    }               
    return $first_player;
}
################################################################
### Update user info in db
################################################################
sub update_account{
    $lname    = get_param(lname);
    $fname    = get_param(fname);
    $email    = param(email);
    $ad1      = get_param(ad1);
    $ad2      = get_param(ad2);
    $city     = get_param(city);
    $state    = param(state);
    $zip      = param(zip);
    $phone    = get_param(phone);
    $mphone   = get_param(mphone);

    my $dbh = get_dbh();
    my $query = "UPDATE `Account_Info` a, `Account_Extra_Info` b  SET a.`Firstname`='$fname', a.`Lastname`='$lname', a.`Home_Phone`='$phone', a.`Mobile_Phone`='$mphone', a.`Zip_Code`='$zip', b.`Address1`='$ad1' , b.`Address2`='$ad2' , b.`City`='$city', b.`State`='$state' WHERE a.`email`='$email' AND a.`Key` = b.`Account_ID`;";
    #print "Q: $query<br>\n";
    my $sth = $dbh->prepare($query);
    $sth->execute();
    $sth->finish();
    $dbh->disconnect;
    return $email;

}

################################################################
### Print verify user registration
################################################################
sub print_verify_account_info{
    my $email     = shift;
    my %user_info = get_account_info_by_email($email);
    $active_id{"create"} = "id=current";

    print_steps();
    my $jscript = <<__JSCRIPT__;
        <script>
        $phone_validation
        $email_validation
        function next_step(next_action){
            var action    = document.getElementById('action');
            action.value = next_action;
            document.step2.submit();
         }
        
    </script>
__JSCRIPT__
    
    print $jscript;
    my $html = <<__HTML__;
    <table id=step_choice_container cellpadding=6 cellmargin=4 width=600><tr><td>
    <div style=\"font-size:10pt;color:red;\">Step 2: Verify Account Owner Information</div><div style=\"font-size:10pt;color:black;\">Please verify your account information for the <u>primary person</u> responsible for payment and under whom the participants will be listed.</div><br>
    <form name=step2 METHOD =\"$method\" ACTION=\"$page_url\" ENCTYPE=\"multipart/form-data\">
    <input type=hidden name=action id=action value=noneyet>
        <input type=hidden name=email id=email value=$email>
    <center><table style='border-collapse:collapse;border:1px solid #8480a2;font-size:11pt' cellpadding=2 width=550>
    <tr><td bgcolor=#cccccc colspan=2>Account Holder Information</td></tr>
    <tr><td align=right><b>First Name</b>&nbsp;</td><td align=left>&nbsp;$user_info{"FIRSTNAME"}</td></tr>
    <tr><td align=right width=40%><b>Last Name</b>&nbsp;</td><td align=left>&nbsp;$user_info{"LASTNAME"}</td></tr>
    <tr><td align=right><b>Email</b>&nbsp;</td><td align=left>&nbsp;$user_info{"EMAIL"}</td></tr>
    <tr><td align=right><b>Address 1</b>&nbsp;</td><td align=left>&nbsp;$user_info{"ADDRESS1"}</td></tr>
    <tr><td align=right><b>Address 2</b>&nbsp;</td><td align=left>&nbsp;$user_info{"ADDRESS2"} </td></tr>
    <tr><td align=right><b>City</b>&nbsp;</td><td align=left>&nbsp;$user_info{"CITY"}</td></tr>
    <tr><td align=right><b>State</b>&nbsp;</td><td align=left>&nbsp;$user_info{"STATE"}</td></tr>
    <tr><td align=right><b>Zip</b>&nbsp;</td><td align=left>&nbsp;$user_info{"ZIP_CODE"}</td></tr>
    <tr><td align=right><b>Phone</b>&nbsp;</td><td align=left>&nbsp;$user_info{"HOMEPHONE"}</td></tr>
    <tr><td align=right><b>Mobile Phone</b>&nbsp;</td><td align=left>&nbsp;$user_info{"MOBILE_PHONE"}</td></tr>



    <tr><td colspan=2><center><br>The above information is correct...<br><input type=button name=Continue value=Continue onClick="next_step('register');"></center></td></tr>
    <tr><td colspan=2><center><br>The above information is not correct...<br><input type=button name=Modify value=Modify onClick="next_step('modify');"></center></td></tr>
    </table>
    </form>
    
    </table>
__HTML__

    print $html;

}

################################################################
### Print verify Player registration
################################################################
sub print_verify_register_programs{
    my $player_key         = shift;
    my $user_key           = param(userkey);
    #my %user_info         = get_account_info($user_key);
    my %player_info        = get_player_info_by_key($player_key);
    $active_id{"verify"}   = "id=current";
    my %division_selected = get_division_data();
    my %shirt_size_selected = get_shirt_size_data();
    my %pant_size_selected = get_pant_size_data();
    print_steps();
    my $jscript = <<__JSCRIPT__;
    <script>
        $phone_validation
        $email_validation
        function next_step(next_action){
              var action    = document.getElementById('action');
              action.value = next_action;
              document.create_player_account_form.submit();
        }
        
    </script>
__JSCRIPT__
    
    print $jscript;
    my $html = <<__HTML__;



    <table id=step_choice_container cellpadding=6 cellmargin=4 width=600><tr>
    <td colspan=2>
    <div style=\"font-size:10pt;color:red;\"><br>Step 4:Verify Program Registration</div><div style=\"font-size:10pt;color:black;\">Please verify the player information listed below.</div><br>
    <form name=create_player_account_form METHOD =\"$method\" ACTION=\"$page_url\" ENCTYPE=\"multipart/form-data\">
    <input type=hidden name=action id=action value=>
    <input type=hidden name=playerkey id=playerkey value=$player_key>
    <input type=hidden name=userkey id=userkey value=$user_key>
    <center><table style='border-collapse:collapse;border:1px solid #8480a2;font-size:11pt' cellpadding=2 width=550>
    <tr><td bgcolor=#cccccc colspan=2>Player Information</td></tr>
    <tr><td align=right width=50%><b>Player First Name:</b></b></td><td align=left>$player_info{"FIRSTNAME"}</td></tr>
    <tr><td align=right><b>Player Last Name:</b></td><td align=left>$player_info{"LASTNAME"}</td></tr>
    <tr><td align=right><b>Date of Birth:</b></td><td align=left>$player_info{"DOB"}</td></tr>
    <tr><td align=right><b>Gender:</b></td><td align=left>$player_info{"GENDER"}</td></tr>
    <tr><td align=right><b>School Name:</b></td><td align=left>$player_info{"SNAME"}</td></tr>
    <tr><td align=right><b>Current Grade Level:</b></td><td align=left>$player_info{"GRADE"}</td></tr>
    <tr><td align=right><b>Returning Player:</b></td><td align=left>$player_info{"RETURNING"}</td></tr>
    <tr><td align=right><b>Request this Player to play up a League:</b></td><td align=left>$player_info{"PLAY_UP"}</td></tr>

    
    
    <tr><td bgcolor=#cccccc colspan=2>Guardian Information</td></tr>
    <tr><td align=right><b>Guardian 1 Name:</b></td><td align=left>$player_info{"G_CONTACT_NAME"}</td></tr>
    <tr><td align=right><b>Guardian 1 Primary Phone:</b></td><td align=left>$player_info{"G_CONTACT_PHONE"}</td></tr>
    <tr><td align=right><b>Guardian 1 Secondary Phone:</b></td><td align=left>$player_info{"G_CONTACT_SPHONE"}</td></tr>
    <tr><td align=right><b>Guardian 1 Relationship:</b></td><td align=left>$player_info{"G_CONTACT_REL"}</td></tr>
    <tr><td align=right><b>Guardian 2 Name:</b></td><td align=left>$player_info{"OG_CONTACT_NAME"}</td></tr>
    <tr><td align=right><b>Guardian 2 Primary Phone:</b></td><td align=left>$player_info{"OG_CONTACT_PHONE"}</td></tr>
    <tr><td align=right><b>Guardian 2 Secondary Phone:</b></td><td align=left>$player_info{"OG_CONTACT_SPHONE"}</td></tr>
    <tr><td align=right><b>Guardian 2 Relationship:</b></td><td align=left>$player_info{"OG_CONTACT_REL"}</td></tr>

    <tr><td bgcolor=#cccccc colspan=2>Emergency Contact Information</td></tr>
    <tr><td align=right><b>Emergency Contact Name:</b></td><td align=left>$player_info{"E_CONTACT_NAME"}</td></tr>
    <tr><td align=right><b>Emergency Contact Primary Phone:</b></td><td align=left>$player_info{"E_CONTACT_PHONE"}</td></tr>
    <tr><td align=right><b>Emergency Contact Secondary Phone:</b></td><td align=left>$player_info{"E_CONTACT_SPHONE"}</td></tr>
    <tr><td align=right><b>Emergency Contact Relationship:</b></td><td align=left>$player_info{"E_CONTACT_REL"}</td></tr>
    
    <tr><td bgcolor=#cccccc colspan=2>Medical Information</td></tr>
    <tr><td align=right><b>Preferred Doctor Name:</b></td><td align=left>$player_info{"PREF_DOC_NAME"}</td></tr>
    <tr><td align=right><b>Preferred Doctor Phone:</b></td><td align=left>$player_info{"PREF_DOC_NUMB"}</td></tr>
    <tr><td align=right><b>Preferred Dentist Name:</b></td><td align=left>$player_info{"PREF_DENT_NAME"}</td></tr>
    <tr><td align=right><b>Preferred Dentist Phone:</td><td align=left>$player_info{"PREF_DENT_NUMB"}</td></tr>
    <tr><td align=right><b>Preferred Hospital:</b></td><td align=left>$player_info{"PREF_HOSPITAL"}</td></tr>
    <tr><td align=right><b>Insurance Carrier:</b></td><td align=left>$player_info{"INSURANCE"}</td></tr>
    <tr><td align=right><b>Policy Number:</b></td><td align=left>$player_info{"POLICY"}</td></tr>
    <tr><td align=right><b>Medical History:</b><br> Allergies, Medications,<br> Special Condition, etc</td><td align=left>$player_info{"MEDICAL"}</td></tr>
    
    <tr><td bgcolor=#cccccc colspan=2>GRANT OF CONSENT</td></tr>
    <tr><td align=right colspan=>GRANT OF CONSENT:<td align=left>$player_info{"CONSENT"}</td></tr>
    <tr><td align=right>Actions to be taken:</td><td align=left>$player_info{"ACTIONSTO"}</td></tr>

    <tr><td colspan=2><center><br>The above information is correct...<br><input type=button name="Continue to Checkout" value="Continue to Checkout" onClick="next_step('pay');"> <input type=button name="Register Another Player" value="Register Another Player" onClick="next_step('register');"></center></td></tr>
    <tr><td colspan=2><center><br>The above information is not correct...<br><input type=button name=Modify value=Modify onClick="next_step('modify_player');"></center></td></tr>

    </table>
    </form>
    
    </table>


__HTML__

    print $html;
}
sub get_grades{
    my @grades = ("K",1,2,3,4,5,6,7,8,9,10,11,12);
    return @grades;
}
sub get_relationships{
    my @relationships = ("Father", "Mother", "Legal Guardian", "Grandparent", "Other");
    return @relationships;
}

################################################################
### Get the HTML user table show in upper left corner
################################################################
sub get_account_table{
    my $user_key = shift;
    my %user_info         = get_account_info($user_key);
    my $return_html = <<__HTML__;
    <table   style='border-collapse:collapse;border:1px solid #8480a2' cellpadding=2 width=200><tr><td colspan=3 id=admin_header><center>Account Owner</center></td></tr>
    <tr><td id=cal_events3 align=center>
    $user_info{"FIRSTNAME"} $user_info{"LASTNAME"}<br>
    $user_info{"EMAIL"}<br>
    $user_info{"ADDRESS1"}<br>
    $user_info{"ADDRESS2"}<br>
    $user_info{"CITY"}, $user_info{"STATE"} $user_info{"ZIP_CODE"}
    </td></tr></table>
__HTML__
    return $return_html;

}

################################################################
### Get the HTML player table show in upper right corner
################################################################
sub get_player_table{
    my $user_key    = shift;
    my %player_info  = get_player_info($user_key);
    my $user_table = "<table   style='border-collapse:collapse;border 1px solid #8480a2;' cellpadding=2 width=300><tr><td colspan=4 id=admin_header><center>Registered Players</center></td></tr>\n";
    #$user_table   .= "<tr><td id=admin_header>Name</td><td id=admin_header>Division</td><td id=admin_header>edit</td><td id=admin_header>remove</td><td id=admin_header>Paid</td></tr>\n";
    $user_table   .= "<tr><td id=admin_header>Name</td><td id=admin_header>Edit</td><td id=admin_header>Remove</td><td id=admin_header>Paid</td></tr>\n";
    my $player_number = 1;
    foreach my $user_number (sort {$a <=> $b} (keys %player_info)){
        $player_number++;
        $division_id  = $player_info{$user_number}{"DIVISION"};
        $player_key   = $player_info{$user_number}{"KEY"};
        $amount_paid  = $player_info{$user_number}{"PAID"};
        $user_table .= "<tr><td id=cal_events3>$player_info{$user_number}{\"FIRSTNAME\"} $player_info{$user_number}{\"LASTNAME\"}</td>\n";
        $user_table .= "<td id=cal_events3><input type=button name=Edit value=Edit onClick='edit_user($player_key);'></td>\n";
        $user_table .= "<td id=cal_events3><input type=button name=Remove value=Remove onClick='remove_player($player_key);'></td>\n";
        if($player_info{$user_number}{"PAID"} == 1){
            $paid = "Yes";
        }else{
            $paid = "No";
        }
        $user_table .= "<td id=cal_events3>\$$amount_paid</td></tr>\n";
        $last_user = $user_number;
    }
    $user_table .= "</table>\n";
    return $user_table, $player_number;
}

################################################################
### Print Player registration form
################################################################
sub print_register_programs{
    my $user_key          = shift;
    my %user_info         = get_account_info($user_key);
    my %player_info       = get_player_info($user_key);
    my %division_selected = get_division_data();
    my @grades            = get_grades();
    my @relationships     = get_relationships();
    my $account_table     = get_account_table($user_key);
    my ($user_table, $player_number) = get_player_table($user_key);
    $active_id{"register"} = "id=current";
    print_steps();
    #print "<div id=step_choice_container>\n";
    my $phone_validation = get_phone_validation();

    $submit_to_pay = get_submit_to_pay($user_key);
    my $jscript = <<__JSCRIPT__;
        <script>
        
        $email_validation
        function verify_register_user(){
            var lname      = document.getElementById('lname');
            var fname      = document.getElementById('fname');

            var dob        = document.getElementById('dob');
            var sname      = document.getElementById('sname');
            var grade      = document.getElementById('grade');
            var econtact   = document.getElementById('econtact');
            var erel       = document.getElementById('erel');
            var ephone     = document.getElementById('ephone');
            var gcontact   = document.getElementById('gcontact');
            var gphone     = document.getElementById('gphone');
            var grel       = document.getElementById('grel');
            var doctor     = document.getElementById('doctor');
            var dphone     = document.getElementById('dphone');
            var dentist    = document.getElementById('dentist');
            var dephone    = document.getElementById('dephone');
            var hospital   = document.getElementById('hospital');
            var insurance  = document.getElementById('insurance');
            var policy     = document.getElementById('policy');
            var history    = document.getElementById('history');
            var action    = document.getElementById('actionb');
            action.value = "createaplayerccount";
            //var division   = document.getElementById('division');

            var consent_checked = 0;
            for(i=0;i<document.create_player_account_form.consent.length;i++){
                if(document.create_player_account_form.consent[i].checked){consent_checked = 1;}
            }
            var gender_checked = 0;
            for(i=0;i<document.create_player_account_form.gender.length;i++){
                if(document.create_player_account_form.gender[i].checked){gender_checked = 1;}
            }
            var returning_checked = 0;
            for(i=0;i<document.create_player_account_form.returning.length;i++){
                if(document.create_player_account_form.returning[i].checked){returning_checked = 1;}
            }


            if((returning_checked == 0)||(gender_checked == 0)||(consent_checked == 0)||(grade.value == "")||(grel.value == "")||(gphone.value == "")||(gcontact.value == "")||(erel.value == "")||(ephone.value == "")||(econtact.value == "")||(lname.value == "")||(fname.value == "")||(dob.value == "")){
                        alert("You must enter all required fields to continue."); 
            }else{
                        document.create_player_account_form.submit();
            }
        }
        
        function edit_user(playerID){
            var action    = document.getElementById('actionb');
            action.value = "modify_player";
            //alert(action.value);
            var player_id = document.getElementById('playerkey');
            player_id.value = playerID;
            var thisForm = document.getElementById('create_player_account_form');
            //document.create_player_account_form.submit();
            thisForm.submit();
            
        }
        function remove_player(playerID){
            var action    = document.getElementById('actionb');
            action.value = "remove_player";
            var player_id = document.getElementById('playerkey');
            player_id.value = playerID;
            document.forms.create_player_account_form.submit();
        }
        
    </script>
__JSCRIPT__
    
    print $jscript;
    if($user_info{"ADDRESS2"} ne ""){
            $address2 = "$user_info{\"ADDRESS2\"}<br>";
    }else{
            $address2 = "";
    }
    my $html = <<__HTML__;



    <table id=step_choice_container cellpadding=6 cellmargin=4 width=600><tr><td align=left valign=top>
$account_table
    </td><td valign=top align=right>$user_table<br>$submit_to_pay
        </td></tr>
    <tr><td colspan=2>
    <div style=\"font-size:10pt;color:red;\"><br>Step 3:Register for Programs</div><div style=\"font-size:10pt;color:black;\">Please complete the information listed below...</div>
    <div style=\"font-size:10pt;color:black;\">&nbsp;&nbsp;&nbsp;&nbsp;* Required Fields</div>
    <form name=create_player_account_form id=create_player_account_form METHOD =\"$method\" ACTION=\"$page_url\" ENCTYPE=\"multipart/form-data\">
    <input type=hidden name=action id=actionb value=createaplayerccount>
    <input type=hidden name=userkey id=userkey value=$user_key>
    <input type=hidden name=playerkey id=playerkey value=>
    <center><table style='border-collapse:collapse;border:1px solid #8480a2;font-size:11pt' cellpadding=2 width=550>
    <tr><td bgcolor=#cccccc colspan=2>Player #$player_number</td></tr>

    <tr><td align=right>Player First Name*</td><td align=left><input type=text id=fname name=fname></td></tr>
    <tr><td align=right>Player Last Name*</td><td align=left><input type=text id=lname name=lname></td></tr>

    <tr><td align=right>Date of Birth*</td><td align=left>
    
    <input type=text name=dob id=dob size=10  onClick="cal1xx.select(document.create_player_account_form.dob,'dob','MM/dd/yyyy'); return true;" READONLY>
    <a href="" id=datein2 name=datein2></a> </td></tr>
    <tr><td align=right>Gender*</td><td align=left>
        <input type="radio" name="gender" id="gender" value="male"> Male
        <input type="radio" name="gender" id="gender" value="female"> Female
    </td></tr>
    <tr><td align=right>School Name</td><td align=left><input type=text id=sname name=sname></td></tr>
    <tr><td align=right>Current Grade Level*</td><td align=left>
    <select id=grade name=grade>
__HTML__
    foreach(@grades){
        $html .= "        <option value=$_>$_</option>\n";
    }

$html .= <<__HTML__;
    </select>
    </td></tr>
    <tr><td align=right>Returning Player*</td><td align=left>
        <input type="radio" name="returning" id="returning" value="Yes"> Yes
        <input type="radio" name="returning" id="returning" value="No"> No
    </td></tr>
    <tr><td align=right>Request this Player to play up a League</td><td align=left><input type=checkbox name=playup id=playup></td></tr>

    
    <tr><td bgcolor=#cccccc colspan=2>Guardian Information</td></tr>
    <tr><td align=right>Guardian 1 Name*</td><td align=left><input type=text id=gcontact name=gcontact value='$user_info{"FIRSTNAME"} $user_info{"LASTNAME"}'></td></tr>
    <tr><td align=right>Guardian 1 Primary Phone*</td><td align=left><input type=text id=gphone name=gphone  maxlength="13" value='$user_info{"HOMEPHONE"}'> $phone_example</td></tr>
    <tr><td align=right>Guardian 1 Secondary Phone</td><td align=left><input type=text id=gsphone name=gsphone  maxlength="13" value='$user_info{"MOBILE_PHONE"}'> $phone_example</td></tr>    
    <tr><td align=right>Guardian 1 Relationship*</td><td align=left>
    <select id=grel name=grel>
__HTML__

    foreach(@relationships){
        my $selected = "";
        if($_ eq $player_info{$last_user}{"G_CONTACT_REL"}){
            $selected = "SELECTED";
        }
        $html .= "        <option value='$_' $selected>$_</option>\n";
    }

$html .= <<__HTML__;
    </select>       
    </td></tr>
        
    <tr><td align=right>Guardian 2 Name</td><td align=left><input type=text id=ogcontact name=ogcontact value='$player_info{$last_user}{"OG_CONTACT_NAME"}'></td></tr>
    <tr><td align=right>Guardian 2 Primary Phone</td><td align=left><input type=text id=ogphone name=ogphone  maxlength="13" value='$player_info{$last_user}{"OG_CONTACT_PHONE"}'> $phone_example</td></tr>
    <tr><td align=right>Guardian 2 Secondary Phone</td><td align=left><input type=text id=ogsphone name=ogsphone  maxlength="13" value='$player_info{$last_user}{"OG_CONTACT_SPHONE"}'> $phone_example</td></tr>
    <tr><td align=right>Guardian 2 Relationship</td><td align=left>
    <select id=ogrel name=ogrel>
    <option value='' ></option>
__HTML__
    foreach(@relationships){
        my $selected = "";
        if($_ eq $player_info{$last_user}{"OG_CONTACT_REL"}){
            $selected = "SELECTED";
        }
        $html .= "        <option value='$_' $selected>$_</option>\n";
    }
$html .= <<__HTML__;
    </select>   
        
    </td></tr>

    <tr><td bgcolor=#cccccc colspan=2>Emergency Contact Information</td></tr>
    <tr><td align=right>Emergency Contact Name*</td><td align=left><input type=text id=econtact name=econtact value='$player_info{$last_user}{"E_CONTACT_NAME"}'></td></tr>
    <tr><td align=right>Emergency Contact Primary Phone*</td><td align=left><input type=text id=ephone name=ephone  maxlength="13" value='$player_info{$last_user}{"E_CONTACT_PHONE"}'> $phone_example</td></tr>
    <tr><td align=right>Emergency Contact Secondary Phone</td><td align=left><input type=text id=esphone name=esphone  maxlength="13" value='$player_info{$last_user}{"E_CONTACT_SPHONE"}'> $phone_example</td></tr>
    <tr><td align=right>Emergency Contact Relationship*</td><td align=left>
    <select id=erel name=erel>
__HTML__
    foreach(@relationships){
        my $selected = "";
        if($_ eq $player_info{$last_user}{"E_CONTACT_REL"}){
            $selected = "SELECTED";
        }
        $html .= "        <option value='$_' $selected>$_</option>\n";
    }
$html .= <<__HTML__;
    </select>       
    </td></tr>
    
    <tr><td bgcolor=#cccccc colspan=2>Medical Information</td></tr>
    <tr><td align=right>Preferred Doctor Name</td><td align=left><input type=text id=doctor name=doctor value='$player_info{$last_user}{"PREF_DOC_NAME"}'></td></tr>
    <tr><td align=right>Preferred Doctor Phone</td><td align=left> <input type=text id=dphone name=dphone  value='$player_info{$last_user}{"PREF_DOC_NUMB"}'> $phone_example</td></tr>
    <tr><td align=right>Preferred Dentist Name</td><td align=left><input type=text id=dentist name=dentist value='$player_info{$last_user}{"PREF_DENT_NAME"}'></td></tr>
    <tr><td align=right>Preferred Dentist Phone</td><td align=left> <input type=text id=dephone name=dephone  maxlength="13" value='$player_info{$last_user}{"PREF_DENT_NUMB"}'> $phone_example</td></tr>
    <tr><td align=right>Preferred Hospital</td><td align=left> <input type=text id=hospital name=hospital value='$player_info{$last_user}{"PREF_HOSPITAL"}'></td></tr>
    <tr><td align=right>Insurance Carrier</td><td align=left> <input type=text id=insurance name=insurance value='$player_info{$last_user}{"INSURANCE"}'></td></tr>
    <tr><td align=right>Policy Number</td><td align=left> <input type=text id=policy name=policy value='$player_info{$last_user}{"POLICY"}'></td></tr>
    <tr><td align=right>Medical History:<br> Allergies, Medications,<br> Special Condition, etc</td><td align=left><textarea id=history name=history rows=4 cols=25></textarea></td></tr>

    <tr><td bgcolor=#cccccc colspan=2>GRANT OF CONSENT * (please select one for the player listed above)</td></tr>
    <tr><td align=left colspan=2>
        <input type="radio" name="consent" id="consent" value="Yes"> GRANT OF CONSENT: <font size=-1> In the event reasonable attempts to contact the parents or guardians have been unsuccessful, I hereby give my consent for <br>(1) the administration of any treatment deemed necessary by preferred Dr.<br>(2), or preferred Dentists or in the event designated Dr. or Dentist is not available, by another licensed physician or dentist; and <br>(2) the transfer of the child to preferred hospital or any hospital reasonably accessible.  NOTE: This authorization does not cover major surgery unless the medical options of two other licensed physicians or dentists, concurring in necessity for such surgery are obtained BEFORE the surgery IS PERFORMED. </font>
        <br><input type="radio" name="consent" id="consent" value="No"> REFUSAL OF CONSENT: <font size=-1>I do NOT give consent for emergency medical treatment of my child. In the event of illness or injury requiring emergency treatment, I wish that Lakes Youth Athletic Association to take no action, or perform the following actions.</font>
    </td></tr>
    <tr><td align=right>Actions to be taken:</td><td align=left><textarea id=history name=actionsto rows=4 cols=25></textarea></td></tr>

    <tr><td colspan=2><center><input type=button name=Continue value=Continue onClick='verify_register_user();'><br><br><div style=\"font-size:10pt;color:black;\">* Required Fields</div></center></td></tr>
    </table>
    </form>
    
    </table>
    <SCRIPT LANGUAGE="JavaScript" ID="jscal1xx">

    var cal1xx = new CalendarPopup("testdiv1");
    cal1xx.showNavigationDropdowns();
    </SCRIPT>

__HTML__

    print $html;
}

sub get_submit_to_pay{
    my $user_key = shift;
    my $return_val = <<__HTML__;
    <form name=submit_to_pay id=submit_to_pay METHOD ="$method" ACTION="$page_url" ENCTYPE="multipart/form-data">
    <input type=hidden name=action id=action2 value=pay>
    <input type=hidden name=userkey id=userkey value=$user_key>
    <div style=\"font-size:10pt;color:black;\">Register additional players below or <br>proceed to <input type=button name=Checkout value=Checkout onClick="document.submit_to_pay.submit();"></div>
    </form>

__HTML__

    return $return_val;
}

################################################################
### Creates new user account in db 
################################################################
sub createaccount{
    $lname    = get_param(lname);
    $fname    = get_param(fname);
    $email    = get_param(email);
    $ad1      = get_param(ad1);
    $ad2      = get_param(ad2);
    $city     = get_param(city);
    $state    = param(state);
    $zip      = get_param(zip);
    $phone    = get_param(phone);
    $mphone   = get_param(mphone);
    $pw1      = get_param(pw1);
    $pw2      = get_param(pw2);

    my $dbh = get_dbh();
    my $query = "INSERT INTO `Account_Info` ( `Key` , `Login` , `Password` , `email` , `League_ID`, `Last_Access`, `Last_Access_ID`, `Firstname`, `Lastname`, `Title`, `Home_Phone`, `Work_Phone`, `Mobile_Phone`, `Zip_Code`) VALUES ('', '$email', '$pw1', '$email', '', '', '', '$fname', '$lname', 'USER', '$phone', '', '$mphone', '$zip');";
    my $sth = $dbh->prepare($query);
    $sth->execute();
    $sth->finish();
    $dbh->disconnect;
    my $new_key = check_for_account($email);
    
    ###########################################
    # Add extra Info
    ###########################################
    $dbh = get_dbh();
    my $query2 = "INSERT INTO `Account_Extra_Info` ( `Key` , `Account_ID` , `Address1` , `Address2` , `City`, `State`)VALUES ('', '$new_key', '$ad1', '$ad2', '$city', '$state');";
    #print "Q2:$query2<br>\n";
    $sth = $dbh->prepare($query2);
    $sth->execute();
    $sth->finish();

    ###########################################
    # Link Account to Org
    ###########################################
    $dbh = get_dbh();
    my $query3 = "INSERT INTO `Account_Org_Reg_Link` ( `Key` , `Account_ID` , `Org_ID`)VALUES ('', '$new_key', '$org_id');";
    #print "Q2:$query2<br>\n";
    $sth = $dbh->prepare($query3);
    $sth->execute();
    $sth->finish();

    $dbh->disconnect;
    check_reg_login($email, "$pw1");
    remove_temp_password($email);
    return $new_key;

}
################################################################
### Remove Temp Password from db 
################################################################
sub remove_temp_password{
    my $email = shift;
    ###########################################
    # Link Account to Org
    ###########################################
    my $dbh = get_dbh();
    my $query = "DELETE FROM `Account_TMP_Password` WHERE `EMAIL`='$email' LIMIT 1;";
    #print "Q2:$query2<br>\n";
    my $sth = $dbh->prepare($query);
    $sth->execute();
    $sth->finish();

    $dbh->disconnect;
}
################################################################
### Check to see if the user is logged in 
################################################################
sub check_reg_login{
    my $user      = shift;
    my $pass       = shift;
    my $league_id  = shift;
    my $success    = 0;
    my $session    = "";
    my $session_id = get_cookie();

    if(($user ne "") && ($pass ne "")){
        $session_id = "";
    }

    my $dbh = get_dbh(); 
    
    ################################################################
    # Check to see if there is a valid cookie
    ################################################################
    if($session_id eq ""){


        ################################################################
        # If not a valid cookie, check the to see if the user/pass
        # combination is correct
        ################################################################
        if(($user ne "") && ($pass ne "")){
            print "<script>Delete_Cookie();</script>\n";
            $session_id = ""; 
            my $query = "SELECT * FROM `Account_Info` WHERE (`Login` = '$user' OR `email` = '$user') AND `Password` = '$pass'";
            my $sth = $dbh->prepare($query);
            $sth->execute();
            $sth->bind_columns(\$Key, \$Login, \$Password,
                               \$email, \$League_ID, \$Last_Access,
                               \$Last_Access_ID, \$Firstname,
                               \$Lastname, \$Title,
                               \$Home_Phone, \$Work_Phone,
                               \$Zip_Code);
            ################################################################
            # Loop through what the db returned, if there is somthing there
            # it assumes success. 
            ################################################################
            while($sth->fetch()) {
                $success = 1;
            }               

            ################################################################
            # Login failed because incorrect Login or password 
            ################################################################
            if($success == 0){
                print "<br><br><div class=message_text><center>Invalid ID or Password.<br>Please try again.</center></div>\n";
                $session_id = ""; 
                #print "<script>alert('SUCCESS is now 0');</script>\n";
            }else{
                $current_date = get_date_time();
                $session_id   = generate_random_string(15);
                $update = "UPDATE `Account_Info` SET `Last_Access`='$current_date', `Last_Access_ID`='$session_id' WHERE `Key` = $Key;";
                ##print "QUERY: $update<br>\n";
                $sth = $dbh->prepare($update);
                $sth->execute();
                print <<__HTML__;
                <script>
                    Set_Cookie( 'SID', "$session_id", '5', '/', '', '' );
                    var thisCookie = ReadCookie('SID');
                    //alert("SETTING SID1: $session_id");
                </script>
__HTML__
            }

        }else{
            ################################################################
            # Login failed because no Login or password 
            # Could be first time loggin in. 
            ################################################################
            $session_id = ""; 
        }

    }else{
        #print "<script>alert('Session not null');</script>\n";
        ################################################################
        # Query DB to verify Session
        ################################################################
        $query = "SELECT * FROM `Account_Info` WHERE `Last_Access_ID` = '$session_id'";

        $sth = $dbh->prepare($query);
        $sth->execute();
        $sth->bind_columns(\$Key, \$Login, \$Password,
                           \$email, \$League_ID, \$Last_Access,
                           \$Last_Access_ID, \$Firstname,
                           \$Lastname, \$Title,
                           \$Home_Phone, \$Work_Phone,
                           \$Zip_Code);
        ################################################################
        # Loop through what the db returned, if there is somthing there
        # it assumes success.   
        ################################################################
        while($sth->fetch()) {
                $success = 1;
        }

        ################################################################
        # If we get to this point.  The cookie is invalid at least for
        # this league.
        ################################################################
        if($success == 0){
            #print "<br><br><div class=message_text><center>Your Session has expired, <br>Please login again.</center></div>\n";
            print "<script>Delete_Cookie();</script>\n";
            $session_id = ""; 
        }else{
            ################################################################
            # Update DB to keep session active
            ################################################################
            
            $current_date = get_date_time();
            $update = "UPDATE `Account_Info` SET `Last_Access`='$current_date' WHERE `Key` = $Key;";
            ##print "QUERY: $update<br>\n";
            $sth = $dbh->prepare($update);
            $sth->execute();
    
            ################################################################
            # Update Cookie to keep session active
            ################################################################
            print <<__HTML__;
                <script>
                    Set_Cookie('SID',"$session_id",'5','/','','');
                    var thisCookie = ReadCookie('SID');
                    //alert("SETTING SID2: $session_id");
                </script>
__HTML__

        }
    }

    ################################################################
    # Close DB connection
    ################################################################
    $sth->finish();
    # disconnect from database
    $dbh->disconnect;

    return $session_id;
}

sub print_update_account{
    my $email = shift;
    my %user_info = get_account_info_by_email($email);
    $active_id{"create"} = "id=current";
    print_steps();
    my $email_validation = get_email_validation();
    my $phone_validation = get_phone_validation();
    my $jscript = <<__JSCRIPT__;
    <script>
        
        $email_validation
        function verify_modify_account(){
              var lname    = document.getElementById('lname');
              var fname    = document.getElementById('fname');
              var email    = document.getElementById('email');
              var ad1      = document.getElementById('ad1');
              var ad2      = document.getElementById('ad2');
              var city     = document.getElementById('city');
              var state    = document.getElementById('state');
              var phone    = document.getElementById('phone');
              var mphone   = document.getElementById('mphone');
              var zip      = document.getElementById('zip');



               if((zip.value == "")||(email.value == "")||(lname.value == "")||(fname.value == "")||(ad1.value == "")||(city.value == "")||(state.value == "")||(phone.value == "")){
                   alert("You must enter all required fields to continue."); 
               }else{
                   if(validate_email(email.value) == 0){
                       alert("Please enter a valid email address."); 
                   }else{   
                       document.modify_account_form.submit();
                   }
               }
        }
        
    </script>
__JSCRIPT__
    
    print $jscript;
    my $html = <<__HTML__;
    <table id=step_choice_container cellpadding=6 cellmargin=4 width=600><tr><td>
    <div style=\"font-size:10pt;color:red;\">Step 2 : Modify Account</div><div style=\"font-size:10pt;color:black;\">Please enter account information for the <u>primary person</u> responsible for payment and under whom the participants will be listed.</div><br>
    <form name=modify_account_form METHOD =\"$method\" ACTION=\"$page_url\" ENCTYPE=\"multipart/form-data\">
    <input type=hidden name=action id=action value=modifyaccount>
    <input type=hidden name=email id=email value='$user_info{"EMAIL"}'>
    <center><table style='border-collapse:collapse;border:1px solid #8480a2;font-size:11pt' cellpadding=2 width=550>
    <tr><td bgcolor=#cccccc colspan=2>Modify Account Owner Information</td></tr>
    <tr><td align=right width=40%>*First Name</td><td align=left width=60%><input type=text id=fname name=fname value="$user_info{"FIRSTNAME"}"></td></tr>
    <tr><td align=right>*Last Name</td><td align=left><input type=text id=lname name=lname value="$user_info{"LASTNAME"}"></td></tr>
    <tr><td align=right>*Email</td><td align=left><input type=text id=email2 name=email2 value="$user_info{"EMAIL"}" DISABLED></td></tr>
    <tr><td align=right>*Address 1</td><td align=left><input type=text id=ad1 name=ad1 value="$user_info{"ADDRESS1"}"></td></tr>
    <tr><td align=right>Address 2</td><td align=left><input type=text id=ad2 name=ad2 value="$user_info{"ADDRESS2"}"></td></tr>
    <tr><td align=right>*City</td><td align=left><input type=text id=city name=city value="$user_info{"CITY"}"></td></tr>
    <tr><td align=right>*State</td><td align=left><input type=text id=state name=state value="$user_info{"STATE"}"></td></tr>
    <tr><td align=right>*Zip</td><td align=left><input type=text id=zip name=zip value="$user_info{"ZIP_CODE"}"></td></tr>
    <tr><td align=right>*Phone</td><td align=left><input type=text id=phone name=phone  maxlength="13" value="$user_info{"HOMEPHONE"}"> $phone_example</td></tr>
    <tr><td align=right>Mobile Phone</td><td align=left><input type=text id=mphone name=mphone  maxlength="13" value="$user_info{"MOBILE_PHONE"}"> $phone_example</td></tr>
    <!--<tr><td align=right>*Password</td><td align=left><input type=password id=pw1 name=pw1></td></tr>-->



    <tr><td colspan=2><center><input type=button name=Continue value=Continue onClick='verify_modify_account();'><br><br><div style=\"font-size:10pt;color:black;\">* Required Fields</div></center></td></tr>
    </table>
    </form>
    
    </table>
__HTML__

    print $html;
}

sub print_create_account{
    $active_id{"create"} = "id=current";
    my @states = get_states();
    print_steps();
    my $email_validation = get_email_validation();
    my $phone_validation = get_phone_validation();
    my $zip_validation   = get_zip_validation();
    my $jscript = <<__JSCRIPT__;
    <script>
        
        $email_validation
        $zip_validation
        function verifty_create_account(){
              var lname    = document.getElementById('lname');
              var fname    = document.getElementById('fname');
              var email    = document.getElementById('email');
              var ad1      = document.getElementById('ad1');
              var ad2      = document.getElementById('ad2');
              var city     = document.getElementById('city');
              var state    = document.getElementById('state');
              var phone    = document.getElementById('phone');
              var mphone   = document.getElementById('mphone');
              var pw1      = document.getElementById('pw1');
              var pw2      = document.getElementById('pw2');
              var zip      = document.getElementById('zip');
               if((zip.value == "")||(email.value == "")||(lname.value == "")||(fname.value == "")||(ad1.value == "")||(city.value == "")||(state.value == "")||(phone.value == "")||(pw1.value == "")||(pw2.value == "")){
                   alert("You must enter all required fields to continue."); 
               }else{
                   if(validate_email(email.value) == 0){
                       alert("Please enter a valid email address."); 
                   }else if(validate_zip(zip.value) == 0){
                       alert("A valid zip code contains 5 numbers.");
                   }else{   
                       if(pw1.value == pw2.value){
                           document.create_account_form.submit();
                       }else{
                           alert("Please verify your password again."); 
                           pw2.value = "";
                       }
                   }
               }
        }
        
    </script>
__JSCRIPT__
    
    print $jscript;
    
    my $html = <<__HTML__;
    
    <table id=step_choice_container cellpadding=6 cellmargin=4 width=600><tr><td>
    <div style=\"font-size:10pt;color:red;\">Step 2 : Create Account</div><div style=\"font-size:10pt;color:black;\">Please enter account information for the <u>primary person</u> responsible for payment and under whom the participants will be listed.</div><br>
    <form name=create_account_form METHOD =\"$method\" ACTION=\"$page_url\" ENCTYPE=\"multipart/form-data\">
    <input type=hidden name=action id=action value=createaccount>
    <input type=hidden name=email id=email value=$newemail>
    <center><table style='border-collapse:collapse;border:1px solid #8480a2;font-size:11pt' cellpadding=2 width=550>
    <tr><td bgcolor=#cccccc colspan=2>Enter Account Owner Information</td></tr>
    <tr><td align=right>*First Name</td><td align=left><input type=text id=fname name=fname></td></tr>
    <tr><td align=right>*Last Name</td><td align=left><input type=text id=lname name=lname></td></tr>
    <tr><td align=right>*Email</td><td align=left><input type=text id=emailb name=emailb value="$newemail" DISABLED></td></tr>
    <tr><td align=right>*Address 1</td><td align=left><input type=text id=ad1 name=ad1></td></tr>
    <tr><td align=right>Address 2</td><td align=left><input type=text id=ad2 name=ad2></td></tr>
    <tr><td align=right>*City</td><td align=left><input type=text id=city name=city></td></tr>
    <tr><td align=right>*State</td><td align=left>
        <select id=state name=state>

__HTML__

    foreach(@states){
        my $selected = "";
        if($_ eq "IL"){
            $selected = "SELECTED";
        }
        $html .= "<option value=\"$_\" $selected>$_</option>\n";

    }

$html .= <<__HTML__;

        </select>

        </td></tr>
    <tr><td align=right>*Zip</td><td align=left><input type=text id=zip name=zip></td></tr>
    <tr><td align=right>*Phone</td><td align=left><input type=text id=phone name=phone  maxlength="13"> $phone_example</td></tr>
    <tr><td align=right>Mobile Phone</td><td align=left><input type=text id=mphone name=mphone maxlength="13"> $phone_example</td></tr>
    <tr><td align=right>*Create New Password</td><td align=left><input type=password id=pw1 name=pw1></td></tr>
    <tr><td align=right>*Re-type Password</td><td align=left><input type=password id=pw2 name=pw2></td></tr>



    <tr><td colspan=2><center><input type=button name=Continue value=Continue onClick='verifty_create_account();'><br><br><div style=\"font-size:10pt;color:black;\">* Required Fields</div></center></td></tr>

    </table>
    </form>
    
    </table>
__HTML__

    print $html;
}

############################################
# Step 1. login or create new account
############################################
sub print_admin_login{
    my $msg = shift;
    if($msg ne ""){
        $alert =<<__HTML__
            <table><tr><td colspan="2" style="border: 1px solid rgb(205, 153, 0); padding: 6px; color: rgb(255, 223, 53); background-color: rgb(254, 254, 240);" width="95%">
            <table style="border-collapse: collapse;" border="0" bordercolor="#111111" cellpadding="0" cellspacing="0" width="100%">
            <tbody><tr>
            <td style="color: rgb(205, 153, 0);" width="90%">$msg</td>
            </tr>
            </table></td>
            </tr>
            </table><br>

__HTML__
    }
    $active_id{"login"} = "id=current";
        print "<DIV id=\"middle\">\n";
    #print_steps();
        print_reg_style();
    my $email_validation = get_email_validation();
    my $jscript = <<__JSCRIPT__;
    <script>
        function login(){
              var email = document.getElementById('email');
              var pw    = document.getElementById('pw');
              var action    = document.getElementById('actionb');
               action.value = "adminlogin";
               if((email.value == "")||(pw.value == "")){
                   alert("You must enter your Email and Password to continue."); 
               }else{
                   document.loginform.submit();
               }
        }
        function forget_user_password(){
            var action    = document.getElementById('actionb');
            action.value = "forgot_pw";
            //alert("forgot");
            document.loginform.submit();
        }
        $email_validation
        function validate_newaccount(){
              var email = document.getElementById('newemail');
              var pw    = document.getElementById('newpw');
               if((email.value == "")||(validate_email(email.value) == 0)){
                   alert("You must enter a valid Email to continue."); 
               }else{
                   document.newaccount.submit();
               }
        }
    </script>
__JSCRIPT__
    
    print $jscript;
    
    my $html = <<__HTML__;
        <br><center>
    $alert
    <table id=step_choice_container cellpadding=6 cellmargin=4 width=600><tr><td>
    <div style=\"font-size:10pt;color:red;\">Registration Admin Login</div><div style=\"font-size:10pt;color:black;\"></div><br>
    <center>

    <form name=loginform METHOD =\"$method\" ACTION=\"regadmin.html\" ENCTYPE=\"multipart/form-data\">
    <input type=hidden name=action id=actionb value=adminlogin>
    <table style='border-collapse:collapse;border:1px solid #8480a2;font-size:11pt' cellpadding=2 width=350>
    <tr><td bgcolor=#cccccc colspan=2>Admin Account</td></tr>
    <tr><td align=right>Email</td><td align=left><input type=text id=email name=email></td></tr>
    <tr><td align=right>Password</td><td align=left><input type=password id=pw name=pw></td></tr>
    <tr><td colspan=2><center><input type=button name=Continue value=Continue onClick='login();'></center></td></tr>
    <!--<tr><td colspan=2><center>Forget Password? <a href=# onClick="forget_user_password();">Click Here</a></center></td></tr>-->
    </table>
    </form>

    </table>
__HTML__

    print $html;
}
sub format_alert{
    $msg = shift;
    if($msg ne ""){
    $alert =<<__HTML__;
            <table><tr><td colspan="2" style="border: 1px solid rgb(205, 153, 0); padding: 6px; color: rgb(255, 223, 53); background-color: rgb(254, 254, 240);" width="95%">
            <table style="border-collapse: collapse;" border="0" bordercolor="#111111" cellpadding="0" cellspacing="0" width="100%">
            <tbody><tr>
            <td style="color: rgb(205, 153, 0);" width="90%">$msg</td>
            </tr>
            </table></td>
            </tr>
            </table><br>
__HTML__
    }else{
        $alert = "";
    }

    return $alert;
}
sub print_send_temp_pw{   #### Send Emails
    my $alert       = shift;
    my $found_email = "";
    my $tmp_string  = "";
    $active_id{"login"} = "id=current";
    $alert = format_alert($alert);
    ($found_email, $tmp_string) = send_tmppw($newemail);
    print_steps();
    my $html = <<__HTML__;
        <script>
        function login(){
              var email = document.getElementById('email');
              var pw    = document.getElementById('pw');
               if((email.value == "")||(pw.value == "")){
                   alert("You must enter your Email and Password to continue."); 
               }else{
                   document.loginform.submit();
               }
        }
        </script>
    $alert
    <table id=step_choice_container cellpadding=6 cellmargin=4 width=600><tr><td>
    <div style=\"font-size:10pt;color:red;\">Step 1: Validate Your New Account</div><div style=\"font-size:10pt;color:black;\">IMPORTANT!! A temporary password has been emailed to you from lyaa.org.  Please enter this temporary password below to validate your new account.  You will be able to change your password at a later time.</div><br>
    <center>
    
    <form name=loginform METHOD =\"$method\" ACTION=\"$page_url\" ENCTYPE=\"multipart/form-data\">
    <input type=hidden name=action id=actionb value=tmppw>
    <input type=hidden name=x id=x value=$tmp_string>
    <input type=hidden name=email id=email value=$newemail>
    <table style='border-collapse:collapse;border:1px solid #8480a2;font-size:11pt' cellpadding=2 width=350>
    <tr><td bgcolor=#cccccc colspan=2>Verify New Account</td></tr>
    <tr><td align=left colspan=2>Email:<br><input type=text id=email2 name=email2 value="$newemail" DISABLED size=30></td></tr>
    <tr><td align=left colspan=2><br>Enter the temporary password emailed to you:<br><input type=password id=pw name=pw size=30></td></tr>
    <tr><td colspan=2><center><input type=button name=Continue value=Continue onClick='login();'></center></td></tr>
    <tr><td colspan=2><center>&nbsp;</center></td></tr>
    </table>
    </form>

    </table>
__HTML__

    print $html;
}

sub get_email_by_x{
    my $x    = shift;
    my $return_email = "";
    my $dbh = get_dbh();
    ################################################################
    # Query DB to verify Session
    ################################################################
    my $query = "SELECT `Email` FROM `Account_TMP_Password` WHERE `Tmp_String` = '$x';";
    my $sth = $dbh->prepare($query);
    #print "$query<br>\n";
    $sth->execute();
    $sth->bind_columns(\$Email);

    while($sth->fetch()) {
        $return_email = $Email;
    }
    # disconnect from database
    $sth->finish();
    $dbh->disconnect;
    return $return_email;
}


sub print_temp_pw_login{  #### Does not send email
    my $alert = shift;
    $active_id{"login"} = "id=current";
    my $x = param('x');
    my $show_login = 0;
    if(!(defined($x))){
        $x = "";
    }
    #my $alert = "";
    if(!(defined($newemail))){
        $newemail = get_email_by_x($x);
        if($newemail eq ""){
            $alert = "Your temporary password is no longer active, please try again.";
            $show_login = 1;
        }
    }
    if($show_login == 0){
        $alert = format_alert($alert);
        print_steps();
        my $html = <<__HTML__;
        <script>
        function login(){
              var email = document.getElementById('email');
              var pw    = document.getElementById('pw');
               if((email.value == "")||(pw.value == "")){
                   alert("You must enter your Email and Password to continue."); 
               }else{
                   document.loginform.submit();
               }
        }
        </script>
        $alert
        <table id=step_choice_container cellpadding=6 cellmargin=4 width=600><tr><td>
        <div style=\"font-size:10pt;color:red;\">Step 1: Verify Email</div><div style=\"font-size:10pt;color:black;\">Please use your temporary password to log in.</div><br>
        <center>
    
        <form name=loginform METHOD =\"$method\" ACTION=\"$page_url\" ENCTYPE=\"multipart/form-data\">
        <input type=hidden name=action id=actionb value=tmppw>
        <input type=hidden name=x id=x value=$x>
        <input type=hidden name=email id=email value=$newemail>
        <table style='border-collapse:collapse;border:1px solid #8480a2;font-size:11pt' cellpadding=2 width=350>
        <tr><td bgcolor=#cccccc colspan=2>Existing Account</td></tr>
        <tr><td align=right>Email</td><td align=left><input type=text id=email2 name=email2 value="$newemail"  DISABLED></td></tr>
        <tr><td align=right>Temp Password</td><td align=left><input type=password id=pw name=pw></td></tr>
        <tr><td colspan=2><center><input type=button name=Continue value=Continue onClick='login();'></center></td></tr>
        <tr><td colspan=2><center>&nbsp;</center></td></tr>
        </table>
        </form>

        </table>
__HTML__


        print $html;
    }else{
        print_reg_login($alert);
    }
}


############################################
# Step 1. login or create new account
############################################
sub print_reg_login{
    my $msg = shift;
    if($msg ne ""){
        $alert =<<__HTML__
            <table><tr><td colspan="2" style="border: 1px solid rgb(205, 153, 0); padding: 6px; color: rgb(255, 223, 53); background-color: rgb(254, 254, 240);" width="95%">
            <table style="border-collapse: collapse;" border="0" bordercolor="#111111" cellpadding="0" cellspacing="0" width="100%">
            <tbody><tr>
            <td style="color: rgb(205, 153, 0);" width="90%">$msg</td>
            </tr>
            </table></td>
            </tr>
            </table><br>

__HTML__
    }
    $active_id{"login"} = "id=current";
    print_steps();
    my $email_validation = get_email_validation();
    my $jscript = <<__JSCRIPT__;
    <script>
        function login(){
              var email = document.getElementById('email');
              var pw    = document.getElementById('pw');
              var action    = document.getElementById('actionb');
               action.value = "step2";
               if((email.value == "")||(pw.value == "")){
                   alert("You must enter your Email and Password to continue."); 
               }else{
                   document.loginform.submit();
               }
        }
        function forget_user_password(){
            var action    = document.getElementById('actionb');
            action.value = "forgot_pw";
            //alert("forgot");
            document.loginform.submit();
        }
        $email_validation
        function validate_newaccount(){
              var email = document.getElementById('newemail');
              var pw    = document.getElementById('newpw');
               if((email.value == "")||(validate_email(email.value) == 0)){
                   alert("You must enter a valid Email to continue."); 
               }else{
                   document.newaccount.submit();
               }
        }
    </script>
__JSCRIPT__
    
    print $jscript;
    
    my $html = <<__HTML__;
    $alert
    <table id=step_choice_container cellpadding=6 cellmargin=4 width=600><tr><td>
    <div style=\"font-size:10pt;color:red;\">Step 1: User Login</div><div style=\"font-size:10pt;color:black;\">Please login or create a new account.  Your account is used to register your children for programs as well as tracking the status of your registration.</div><br>
    <center>
    <form name=newaccount id=newaccount METHOD =\"$method\" ACTION=\"$page_url\" ENCTYPE=\"multipart/form-data\">
    <!--<input type=hidden name=action id=action value=newaccount>-->
    <input type=hidden name=action id=action value=sendtmppass>
    <table style='border-collapse:collapse;border:1px solid #8480a2;font-size:11pt' cellpadding=2 width=350>
    <tr><td bgcolor=#cccccc colspan=2>New Account</td></tr>
    <tr><td align=right>Email</td><td align=left><input type=text id=newemail name=newemail></td></tr>
    <tr><td colspan=2><center><input type=button name=Create value=\"Create New Account\" onClick='validate_newaccount();'></center></td></tr>
    </table><br>
    </form>
    
    <form name=loginform METHOD =\"$method\" ACTION=\"$page_url\" ENCTYPE=\"multipart/form-data\">
    <input type=hidden name=action id=actionb value=step2>
    <table style='border-collapse:collapse;border:1px solid #8480a2;font-size:11pt' cellpadding=2 width=350>
    <tr><td bgcolor=#cccccc colspan=2>Existing Account</td></tr>
    <tr><td align=right>Email</td><td align=left><input type=text id=email name=email></td></tr>
    <tr><td align=right>Password</td><td align=left><input type=password id=pw name=pw></td></tr>
    <tr><td colspan=2><center><input type=button name=Continue value=Continue onClick='login();'></center></td></tr>
    <tr><td colspan=2><center>Forget Password? <a href=# onClick="forget_user_password();">Click Here</a></center></td></tr>
    </table>
    </form>
    
    </table>
__HTML__

    print $html;
}



############################################
# This is for when the account already 
# exist, prompt for a new account
############################################
sub print_create_new_account_duplicate_email{
    $active_id{"login"} = "id=current";
    print_steps();
    my $email_validation = get_email_validation();
    my $jscript = <<__JSCRIPT__;
    <script>
        function login(){
              var email = document.getElementById('email');
              var pw    = document.getElementById('pw');
               if((email.value == "")||(pw.value == "")){
                   alert("You must enter your Email and Password to continue."); 
               }else{
                   document.loginform.submit();
               }
        }
        $email_validation
        function validate_newaccount(){
              var email = document.getElementById('newemail');
              var pw    = document.getElementById('newpw');
               if((email.value == "")||(validate_email(email.value) == 0)){
                   alert("You must enter a valid Email to continue."); 
               }else{
                   document.newaccount.submit();
               }
        }
        function forget_user_password(){
            var action    = document.getElementById('actionb');
            action.value = "forgot_pw";
            //alert("forgot");
            document.loginform.submit();
        }
    </script>
__JSCRIPT__
    
    print $jscript;
    
    my $html = <<__HTML__;
    <table id=step_choice_container cellpadding=6 cellmargin=4 width=600><tr><td>
    <div style=\"font-size:10pt;color:red;\">Step 1: User Login</div><div style=\"font-size:10pt;color:black;\">There is already an account created for that email, please login or try a different account name.</div><br>
    <center>
    <form name=newaccount id=newaccount METHOD=$method ACTION=\"$page_url\" ENCTYPE=\"multipart/form-data\">
    <!--<input type=hidden name=action id=action value=newaccount>-->
    <input type=hidden name=action id=action value=sendtmppass>
    <table style='border-collapse:collapse;border:1px solid #8480a2;font-size:11pt' cellpadding=2 width=350>
    <tr><td bgcolor=#cccccc colspan=2>New Account</td></tr>
    <tr><td align=right>Email</td><td align=left><input type=text id=newemail name=newemail></td></tr>
    <tr><td colspan=2><center><input type=button name=Create value=\"Create New Account\" onClick='validate_newaccount();'></center></td></tr>
    </table><br>
    </form>

    <form name=loginform METHOD="$method" ACTION=\"$page_url\" ENCTYPE=\"multipart/form-data\">
    <input type=hidden name=action id=actionb value=step2>
    <table style='border-collapse:collapse;border:1px solid #8480a2;font-size:11pt' cellpadding=2 width=350>
    <tr><td bgcolor=#cccccc colspan=2>Existing Account</td></tr>
    <tr><td align=right>Email</td><td align=left><input type=text id=email name=email value=$newemail></td></tr>
    <tr><td align=right>Password</td><td align=left><input type=password id=pw name=pw></td></tr>
    <tr><td colspan=2><center><input type=button name=Continue value=Continue onClick='login();'></center></td></tr>
    <tr><td colspan=2><center>Forget Password? <a href=# onClick="forget_user_password();">Click Here</a></center></td></tr>
    </table>
    </form>

    </table>
__HTML__

    print $html;
}


############################################
# Get player info
############################################
sub get_player_info_by_key{
    my $player_key    = shift;
    my %return_hash = ();
    my $dbh = get_dbh();
    ################################################################
    # Query DB to verify Session
    ################################################################
    my $query = "SELECT * FROM `Account_Player_Info` WHERE `Key` = '$player_key' AND `Active` = '1' ORDER BY `Key`";
    my $sth = $dbh->prepare($query);
    #print "$query<br>\n";
    $sth->execute();

    $sth->bind_columns(\$Key, \$Account_ID, 
                   \$Firstname, \$Lastname, 
                   \$Division_Pref, \$Shirt_Size,
                   \$Pant_Size, \$Hat_Size,
                   \$Shoe_Size, \$Jersey_Pref,
                   \$DOB, \$Gender, \$School_Name,
                   \$Grade, \$Age,
                   \$Height, \$Weight, \$E_Contact_Name, 
                   \$E_Contact_Phone, \$E_Contact_SPhone, \$E_Contact_Relationship,
                   \$G_Contact_Phone, \$G_Contact_SPhone, \$G_Contact_Name,  
                   \$G_Contact_Relationship, \$OG_Contact_Phone,
                   \$OG_Contact_SPhone, \$OG_Contact_Name, \$OG_Contact_Relationship,
                   \$Preferred_Doc_Name,
                   \$Preferred_Doc_Number, \$Preferred_Dentist_Name,
                   \$Preferred_Dentist_Number, \$Preferred_Hospital,
                   \$Insurance_Carrier, \$Policy_Number,
                   \$Medical_History, \$Returning_Player, 
                   \$Paid, \$Active,
                   \$Consent, \$Consent_Actions,
                   \$Play_Up);
    $user_number = 1;
    while($sth->fetch()) {
        $return_hash{"KEY"}              = $Key;
        $return_hash{"FIRSTNAME"}        = $Firstname;
        $return_hash{"LASTNAME"}         = $Lastname;
        $return_hash{"DIVISION"}         = $Division_Pref;
        $return_hash{"SHIRT_SIZE"}       = $Shirt_Size;
        $return_hash{"PANT_SIZE"}        = $Pant_Size;
        $return_hash{"HAT_SIZE"}         = $Hat_Size;
        $return_hash{"SHOE_SIZE"}        = $Shoe_Size;
        $return_hash{"JERSEY_PREF"}      = $Jersey_Pref;
        $return_hash{"DOB"}              = get_view_date_format($DOB);
        $return_hash{"GENDER"}           = $Gender;
        $return_hash{"SNAME"}            = $School_Name;
        $return_hash{"GRADE"}            = $Grade;
        $return_hash{"AGE"}              = $Age;
        $return_hash{"HEIGHT"}           = $Height;
        $return_hash{"WEIGHT"}           = $Weight;
        $return_hash{"E_CONTACT_PHONE"}  = $E_Contact_Phone;
        $return_hash{"E_CONTACT_SPHONE"}  = $E_Contact_SPhone;
        $return_hash{"E_CONTACT_NAME"}   = $E_Contact_Name;
        $return_hash{"E_CONTACT_REL"}    = $E_Contact_Relationship;
        $return_hash{"G_CONTACT_PHONE"}  = $G_Contact_Phone;
        $return_hash{"G_CONTACT_SPHONE"} = $G_Contact_SPhone;
        $return_hash{"G_CONTACT_NAME"}   = $G_Contact_Name;
        $return_hash{"G_CONTACT_REL"}    = $G_Contact_Relationship;
        $return_hash{"OG_CONTACT_PHONE"} = $OG_Contact_Phone;
        $return_hash{"OG_CONTACT_SPHONE"}= $OG_Contact_SPhone;
        $return_hash{"OG_CONTACT_NAME"}  = $OG_Contact_Name;
        $return_hash{"OG_CONTACT_REL"}   = $OG_Contact_Relationship;
        $return_hash{"PREF_DOC_NAME"}    = $Preferred_Doc_Name;
        $return_hash{"PREF_DOC_NUMB"}    = $Preferred_Doc_Number;
        $return_hash{"PREF_DENT_NAME"}   = $Preferred_Dentist_Name;
        $return_hash{"PREF_DENT_NUMB"}   = $Preferred_Dentist_Number;
        $return_hash{"PREF_HOSPITAL"}    = $Preferred_Hospital;
        $return_hash{"INSURANCE"}        = $Insurance_Carrier;
        $return_hash{"POLICY"}           = $Policy_Number;
        $return_hash{"MEDICAL"}          = $Medical_History;
        $return_hash{"RETURNING"}        = $Returning_Player;
        $return_hash{"PAID"}             = $Paid;
        $return_hash{"ACTIVE"}           = $Active;
        $return_hash{"CONSENT"}          = $Consent;
        $return_hash{"ACTIONSTO"}        = $Consent_Actions;
        $return_hash{"PLAY_UP"}          = $Play_Up;
        
        $user_number++;
    }
    #print "HELLO: $return_hash{\"G_CONTACT_NAME\"}<br>\n";
    # disconnect from database
    $dbh->disconnect;
    $sth->finish();
    return %return_hash;
}

############################################
# Get player info
############################################
sub get_states{
    my @states=("AL", "AK", "AS", "AZ", "AR", "CA", "CO", "CT", "DE", "DC", "FM", "FL", "GA", "GU", "HI", "ID", "IL", "IN", "IA", "KS", "KY", "LA", "ME", "MH", "MD", "MA", "MI", "MN", "MS", "MO", "MT", "NE", "NV", "NH", "NJ", "NM", "NY", "NC", "ND", "MP", "OH", "OK", "OR", "PW", "PA", "PR", "RI", "SC", "SD", "TN", "TX", "UT", "VT", "VI", "VA", "WA", "WV", "WI", "WY");
    return @states;
}
############################################
# Get player info
############################################
sub get_player_info{
    my $user_key    = shift;
    my $return_hash = 0;
    my %return_hash = ();
    my $dbh = get_dbh();
    ################################################################
    # Query DB to verify Session
    ################################################################
    my $query = "SELECT * FROM `Account_Player_Info` WHERE `Account_ID` = '$user_key' AND `Active` = '1' ORDER BY `Key`";
    my $sth = $dbh->prepare($query);
    #print "$query<br>\n";
    $sth->execute();

    $sth->bind_columns(\$Key, \$Account_ID, 
                   \$Firstname, \$Lastname, 
                   \$Division_Pref, \$Shirt_Size,
                   \$Pant_Size, \$Hat_Size,
                   \$Shoe_Size, \$Jersey_Pref,
                   \$DOB, \$Gender, \$School_Name,
                   \$Grade, \$Age,
                   \$Height, \$Weight, \$E_Contact_Name, 
                   \$E_Contact_Phone, \$E_Contact_SPhone, \$E_Contact_Relationship,
                   \$G_Contact_Phone, \$G_Contact_SPhone, \$G_Contact_Name,  
                   \$G_Contact_Relationship, \$OG_Contact_Phone,  
                   \$OG_Contact_SPhone, \$OG_Contact_Name, \$OG_Contact_Relationship,
                   \$Preferred_Doc_Name,
                   \$Preferred_Doc_Number, \$Preferred_Dentist_Name,
                   \$Preferred_Dentist_Number, \$Preferred_Hospital,
                   \$Insurance_Carrier, \$Policy_Number,
                   \$Medical_History, \$Returning_Player,
                   \$Paid, \$Active,
                   \$Consent, \$Consent_Actions,
                   \$Play_Up);
    $user_number = 1;
    while($sth->fetch()) {
        $return_hash{$user_number}{"KEY"}              = $Key;
        $return_hash{$user_number}{"FIRSTNAME"}        = $Firstname;
        $return_hash{$user_number}{"LASTNAME"}         = $Lastname;
        $return_hash{$user_number}{"DIVISION"}         = $Division_Pref;
        $return_hash{$user_number}{"SHIRT_SIZE"}       = $Shirt_Size;
        $return_hash{$user_number}{"PANT_SIZE"}        = $Pant_Size;
        $return_hash{$user_number}{"HAT_SIZE"}         = $Hat_Size;
        $return_hash{$user_number}{"SHOE_SIZE"}        = $Shoe_Size;
        $return_hash{$user_number}{"JERSEY_PREF"}      = $Jersey_Pref;
        $return_hash{$user_number}{"DOB"}              = $DOB;
        $return_hash{$user_number}{"GENDER"}           = $Gender;
        $return_hash{$user_number}{"SNAME"}            = $School_Name;
        $return_hash{$user_number}{"GRADE"}            = $Grade;
        $return_hash{$user_number}{"AGE"}              = $Age;
        $return_hash{$user_number}{"HEIGHT"}           = $Height;
        $return_hash{$user_number}{"WEIGHT"}           = $Weight;
        $return_hash{$user_number}{"E_CONTACT_PHONE"}  = $E_Contact_Phone;
        $return_hash{$user_number}{"E_CONTACT_SPHONE"} = $E_Contact_SPhone;
        $return_hash{$user_number}{"E_CONTACT_NAME"}   = $E_Contact_Name;
        $return_hash{$user_number}{"E_CONTACT_REL"}    = $E_Contact_Relationship;
        $return_hash{$user_number}{"G_CONTACT_PHONE"}  = $G_Contact_Phone;
        $return_hash{$user_number}{"G_CONTACT_SPHONE"} = $G_Contact_SPhone;
        $return_hash{$user_number}{"G_CONTACT_NAME"}   = $G_Contact_Name;
        $return_hash{$user_number}{"G_CONTACT_REL"}    = $G_Contact_Relationship;
        $return_hash{$user_number}{"OG_CONTACT_PHONE"} = $OG_Contact_Phone;
        $return_hash{$user_number}{"OG_CONTACT_SPHONE"}= $OG_Contact_SPhone;
        $return_hash{$user_number}{"OG_CONTACT_NAME"}  = $OG_Contact_Name;
        $return_hash{$user_number}{"OG_CONTACT_REL"}   = $OG_Contact_Relationship;
        $return_hash{$user_number}{"PREF_DOC_NAME"}    = $Preferred_Doc_Name;
        $return_hash{$user_number}{"PREF_DOC_NUMB"}    = $Preferred_Doc_Number;
        $return_hash{$user_number}{"PREF_DENT_NAME"}   = $Preferred_Dentist_Name;
        $return_hash{$user_number}{"PREF_DENT_NUMB"}   = $Preferred_Dentist_Number;
        $return_hash{$user_number}{"PREF_HOSPITAL"}    = $Preferred_Hospital;
        $return_hash{$user_number}{"INSURANCE"}        = $Insurance_Carrier;
        $return_hash{$user_number}{"POLICY"}           = $Policy_Number;
        $return_hash{$user_number}{"MEDICAL"}          = $Medical_History;
        $return_hash{$user_number}{"RETURNING"}        = $Returning_Player;
        $return_hash{$user_number}{"PAID"}             = $Paid;
        $return_hash{$user_number}{"ACTIVE"}           = $Active;
        $return_hash{$user_number}{"CONSENT"}          = $Consent;
        $return_hash{$user_number}{"ACTIONSTO"}        = $Consent_Actions;
        $return_hash{$user_number}{"PLAY_UP"}          = $Play_Up;
        $user_number++;
    }
    # disconnect from database
    $dbh->disconnect;
    $sth->finish();
    return %return_hash;
}

############################################
# Get player info2, this one returns the
# Key as the main index
############################################
sub get_player_info2{
    my $user_key    = shift;
    my $return_hash = 0;
    my %return_hash = ();
    my $dbh = get_dbh();
    ################################################################
    # Query DB to verify Session
    ################################################################
    my $query = "SELECT * FROM `Account_Player_Info` WHERE `Account_ID` = '$user_key' AND `Active` = '1' ORDER BY `Key`";
    my $sth = $dbh->prepare($query);
    #print "$query<br>\n";
    $sth->execute();

    $sth->bind_columns(\$Key, \$Account_ID, 
                       \$Firstname, \$Lastname, 
                       \$Division_Pref, \$Shirt_Size,
                       \$Pant_Size, \$Hat_Size,
                       \$Shoe_Size, \$Jersey_Pref,
                       \$DOB, \$Gender, \$School_Name,
                       \$Grade, \$Age,
                       \$Height, \$Weight, \$E_Contact_Name, 
                       \$E_Contact_Phone, \$E_Contact_SPhone, \$E_Contact_Relationship,
                       \$G_Contact_Phone, \$G_Contact_SPhone, \$G_Contact_Name,  
                       \$G_Contact_Relationship, \$OG_Contact_Phone,  
                       \$OG_Contact_SPhone, \$OG_Contact_Name, \$OG_Contact_Relationship,
                       \$Preferred_Doc_Name,
                       \$Preferred_Doc_Number, \$Preferred_Dentist_Name,
                       \$Preferred_Dentist_Number, \$Preferred_Hospital,
                       \$Insurance_Carrier, \$Policy_Number,
                       \$Medical_History, \$Returning_Player,
                       \$Paid, \$Active,
                       \$Consent, \$Consent_Actions,
                       \$Play_Up);
    $user_number = 1;
    while($sth->fetch()) {
        $return_hash{$Key}{"KEY"}              = $Key;
        $return_hash{$Key}{"FIRSTNAME"}        = $Firstname;
        $return_hash{$Key}{"LASTNAME"}         = $Lastname;
        $return_hash{$Key}{"DIVISION"}         = $Division_Pref;
        $return_hash{$Key}{"SHIRT_SIZE"}       = $Shirt_Size;
        $return_hash{$Key}{"PANT_SIZE"}        = $Pant_Size;
        $return_hash{$Key}{"HAT_SIZE"}         = $Hat_Size;
        $return_hash{$Key}{"SHOE_SIZE"}        = $Shoe_Size;
        $return_hash{$Key}{"JERSEY_PREF"}      = $Jersey_Pref;
        $return_hash{$Key}{"DOB"}              = $DOB;
        $return_hash{$Key}{"GENDER"}           = $Gender;
        $return_hash{$Key}{"SNAME"}            = $School_Name;
        $return_hash{$Key}{"GRADE"}            = $Grade;
        $return_hash{$Key}{"AGE"}              = $Age;
        $return_hash{$Key}{"HEIGHT"}           = $Height;
        $return_hash{$Key}{"WEIGHT"}           = $Weight;
        $return_hash{$Key}{"E_CONTACT_PHONE"}  = $E_Contact_Phone;
        $return_hash{$Key}{"E_CONTACT_SPHONE"} = $E_Contact_SPhone;
        $return_hash{$Key}{"E_CONTACT_NAME"}   = $E_Contact_Name;
        $return_hash{$Key}{"E_CONTACT_REL"}    = $E_Contact_Relationship;
        $return_hash{$Key}{"G_CONTACT_PHONE"}  = $G_Contact_Phone;
        $return_hash{$Key}{"G_CONTACT_SPHONE"} = $G_Contact_SPhone;
        $return_hash{$Key}{"G_CONTACT_NAME"}   = $G_Contact_Name;
        $return_hash{$Key}{"G_CONTACT_REL"}    = $G_Contact_Relationship;
        $return_hash{$Key}{"OG_CONTACT_PHONE"} = $OG_Contact_Phone;
        $return_hash{$Key}{"OG_CONTACT_SPHONE"}= $OG_Contact_SPhone;
        $return_hash{$Key}{"OG_CONTACT_NAME"}  = $OG_Contact_Name;
        $return_hash{$Key}{"OG_CONTACT_REL"}   = $OG_Contact_Relationship;
        $return_hash{$Key}{"PREF_DOC_NAME"}    = $Preferred_Doc_Name;
        $return_hash{$Key}{"PREF_DOC_NUMB"}    = $Preferred_Doc_Number;
        $return_hash{$Key}{"PREF_DENT_NAME"}   = $Preferred_Dentist_Name;
        $return_hash{$Key}{"PREF_DENT_NUMB"}   = $Preferred_Dentist_Number;
        $return_hash{$Key}{"PREF_HOSPITAL"}    = $Preferred_Hospital;
        $return_hash{$Key}{"INSURANCE"}        = $Insurance_Carrier;
        $return_hash{$Key}{"POLICY"}           = $Policy_Number;
        $return_hash{$Key}{"MEDICAL"}          = $Medical_History;
        $return_hash{$Key}{"RETURNING"}        = $Returning_Player;
        $return_hash{$Key}{"PAID"}             = $Paid;
        $return_hash{$Key}{"ACTIVE"}           = $Active;
        $return_hash{$Key}{"CONSENT"}          = $Consent;
        $return_hash{$Key}{"ACTIONSTO"}        = $Consent_Actions;
        $return_hash{$Key}{"PLAY_UP"}          = $Play_Up;
        $user_number++;
    }
    # disconnect from database
    $dbh->disconnect;
    $sth->finish();
    return %return_hash;
}

############################################
# Get pw info by email
############################################
sub get_pw_by_email{
    my $email    = shift;
    my $return_password = "";
    my $dbh = get_dbh();
    ################################################################
    # Query DB to verify Session
    ################################################################
    my $query = "SELECT `Password` FROM `Account_Info` WHERE `email` = '$email';";
    my $sth = $dbh->prepare($query);
    #print "$query<br>\n";
    $sth->execute();
    $sth->bind_columns(\$Password);

    while($sth->fetch()) {
        $return_password = $Password;
        #print "SETTING: $Password<br>\n";
    }
    # disconnect from database
    $sth->finish();
    $dbh->disconnect;
    
    #print "RP: $return_password<br>\n";
    return $return_password;
}

############################################
# Get account info by email
############################################
sub get_users_by_org{
    my $org_id    = shift;
    my $return_hash = 0;
    my %return_hash = ();
    my $dbh = get_dbh();
    ################################################################
    # Query DB to verify Session
    ################################################################
    my $query = "SELECT a.`Key`, a.`email`, a.`Firstname`, a.`Lastname`, a.`Home_Phone`, a.`Work_Phone`, a.`Mobile_Phone`, a.`Zip_Code`, b.`Address1`, b.`Address2`, b.`City`, b.`State` FROM `Account_Info` a, `Account_Extra_Info` b, `Account_Org_Reg_Link` c WHERE c.`Org_ID` = '$org_id' AND c.`Account_ID` = a.`Key` AND c.`Account_ID` = b.`Account_ID`";
    my $sth = $dbh->prepare($query);
    #print "$query<br>\n";
    $sth->execute();
    $sth->bind_columns(\$Key, \$email, \$Firstname,
                       \$Lastname, \$Home_Phone, 
                       \$Work_Phone,\$Mobile_Phone, 
                       \$Zip_Code, \$Address1,
                       \$Address2, \$City, \$State);

    while($sth->fetch()) {
        $return_hash{$Key}{"EMAIL"}        = $email;
        $return_hash{$Key}{"FIRSTNAME"}    = $Firstname;
        $return_hash{$Key}{"LASTNAME"}     = $Lastname;
        $return_hash{$Key}{"HOMEPHONE"}    = $Home_Phone;
        $return_hash{$Key}{"WORK_PHONE"}   = $Work_Phone;
        $return_hash{$Key}{"MOBILE_PHONE"} = $Mobile_Phone;
        $return_hash{$Key}{"ZIP_CODE"}     = $Zip_Code;
        $return_hash{$Key}{"ADDRESS1"}     = $Address1;
        $return_hash{$Key}{"ADDRESS2"}     = $Address2;
        $return_hash{$Key}{"CITY"}         = $City;
        $return_hash{$Key}{"STATE"}        = $State;

    }
    # disconnect from database
    $sth->finish();
    $dbh->disconnect;
    
    return %return_hash;
}

############################################
# Get account info by email
############################################
sub get_account_id_by_player_key{
    my $player_key    = shift;
    my $return_id = 0;
    
    my $dbh = get_dbh();
    ################################################################
    # Query DB to verify Session
    ################################################################
    my $query = "SELECT `Account_ID` FROM `Account_Player_Info` WHERE `Key` = '$player_key'";
    my $sth = $dbh->prepare($query);
    #print "$query<br>\n";
    $sth->execute();
    $sth->bind_columns(\$Account_ID);

    while($sth->fetch()) {
        $return_id          = $Account_ID;
    }
    # disconnect from database
    $sth->finish();
    $dbh->disconnect;
    
    return $return_id;
}
############################################
# Get account info by email
############################################
sub get_account_info_by_email{
    my $email    = shift;
    my $return_hash = 0;
    my %return_hash = ();
    my $dbh = get_dbh();
    ################################################################
    # Query DB to verify Session
    ################################################################
    my $query = "SELECT a.`Key`, a.`email`, a.`Firstname`, a.`Lastname`, a.`Home_Phone`, a.`Work_Phone`, a.`Mobile_Phone`, a.`Zip_Code`, b.`Address1`, b.`Address2`, b.`City`, b.`State` FROM `Account_Info` a, `Account_Extra_Info` b WHERE b.`Account_ID` = a.`Key` and (a.`email` = '$email' OR a.`Login` = '$email')";
    my $sth = $dbh->prepare($query);
    #print "$query<br>\n";
    $sth->execute();
    $sth->bind_columns(\$Key, \$email, \$Firstname,
                       \$Lastname, \$Home_Phone, 
                       \$Work_Phone,\$Mobile_Phone, 
                       \$Zip_Code, \$Address1,
                       \$Address2, \$City, \$State);

    while($sth->fetch()) {
        $return_hash{"KEY"}          = $Key;
        $return_hash{"EMAIL"}        = $email;
        $return_hash{"FIRSTNAME"}    = $Firstname;
        $return_hash{"LASTNAME"}     = $Lastname;
        $return_hash{"HOMEPHONE"}    = $Home_Phone;
        $return_hash{"WORK_PHONE"}   = $Work_Phone;
        $return_hash{"MOBILE_PHONE"} = $Mobile_Phone;
        $return_hash{"ZIP_CODE"}     = $Zip_Code;
        $return_hash{"ADDRESS1"}     = $Address1;
        $return_hash{"ADDRESS2"}     = $Address2;
        $return_hash{"CITY"}         = $City;
        $return_hash{"STATE"}        = $State;

    }
    # disconnect from database
    $sth->finish();
    $dbh->disconnect;
    
    return %return_hash;
}


############################################
# Get account info
############################################
sub get_account_info{
    my $user_key    = shift;
    my $return_hash = 0;
    my %return_hash = ();
    my $dbh = get_dbh();
    ################################################################
    # Query DB to verify Session
    ################################################################
    my $query = "SELECT a.`Key`, a.`email`, a.`Firstname`, a.`Lastname`, a.`Home_Phone`, a.`Work_Phone`, a.`Mobile_Phone`, a.`Zip_Code`, b.`Address1`, b.`Address2`, b.`City`, b.`State` FROM `Account_Info` a, `Account_Extra_Info` b WHERE b.`Account_ID` = a.`Key` and a.`Key` = '$user_key'";
    my $sth = $dbh->prepare($query);
    #print "$query<br>\n";
    $sth->execute();
    $sth->bind_columns(\$Key, \$email, \$Firstname,
                       \$Lastname, \$Home_Phone, 
                       \$Work_Phone,\$Mobile_Phone, 
                       \$Zip_Code, \$Address1,
                       \$Address2, \$City, \$State);

    while($sth->fetch()) {
        $return_hash{"KEY"}          = $Key;
        $return_hash{"EMAIL"}        = $email;
        $return_hash{"FIRSTNAME"}    = $Firstname;
        $return_hash{"LASTNAME"}     = $Lastname;
        $return_hash{"HOMEPHONE"}    = $Home_Phone;
        $return_hash{"WORK_PHONE"}   = $Work_Phone;
        $return_hash{"MOBILE_PHONE"} = $Mobile_Phone;
        $return_hash{"ZIP_CODE"}     = $Zip_Code;
        $return_hash{"ADDRESS1"}     = $Address1;
        $return_hash{"ADDRESS2"}     = $Address2;
        $return_hash{"CITY"}         = $City;
        $return_hash{"STATE"}        = $State;
    }
    # disconnect from database
    $dbh->disconnect;
    $sth->finish();
    return %return_hash;
}


############################################
# Check to see if the account exists
# given the email. If it does reutrn the 
# key ID, otherwise return 0
############################################
sub check_for_account{
    my $new_email    = shift;
    my $return_value = 0;
    my $dbh = get_dbh();
    ################################################################
    # Query DB to verify Session
    ################################################################
    my $query = "SELECT `Key` FROM `Account_Info` WHERE `email` = '$new_email'";
    my $sth = $dbh->prepare($query);
    $sth->execute();
    $sth->bind_columns(\$Key);

    while($sth->fetch()) {
        $return_value = $Key;
    }
    # disconnect from database
    $dbh->disconnect;
    $sth->finish();
    return $return_value;
}

############################################
# return email validation javascript code
############################################
sub get_email_validation{
    my $html = <<__HTML__;
        function validate_email(emailToValidate){
          if(emailToValidate.value != ""){
              atposition  = emailToValidate.indexOf("@");
              dotposition = emailToValidate.lastIndexOf(".");
              if((atposition < 1)||(dotposition - atposition <2)){
                  return 0;
              }
          }
          return 1;
        }
__HTML__
    return $html;
}

############################################
# return zip validation javascript code
############################################
sub get_zip_validation{
    my $html = <<__HTML__;
    function validate_zip(zip){
        var valid = 1;
        len=zip.length
        digits="0123456789"
        if(len != 5){
            valid = 0;
        }

        for(i=0; i<5; i++){
            if (digits.indexOf(zip.charAt(i))<0){
                valid = 0;
            }
        }
        return valid;
    }

__HTML__

    return $html;
}

############################################
# return phone validation javascript code
############################################
sub get_phone_validation{
    my $html = <<__HTML__;
<!-- Begin
    /////START PHONE VALIDATION FEATURE

                function IsInteger(s) {
                for (var i = 0; i < s.length; i++) {
                        var c = s.charAt(i);
                        if (!((c >= "0") && (c <= "9"))) {
                                return false;
                        }
                }
                return true;
                }

    var n;
    var p;
    var p1;
    function ValidatePhone(){
    p=p1.value
    if(p.length==3){
        //d10=p.indexOf('(')
        pp=p;
        d4=p.indexOf('(')
        d5=p.indexOf(')')
        if(d4==-1){
            pp="("+pp;
        }
        if(d5==-1){
            pp=pp+")";
        }
        //pp="("+pp+")";
            p1.value = "";
            p1.value = pp;
        //document.newuser.phone.value="";
        //document.newuser.phone.value=pp;
    }
    if(p.length>3){
        d1=p.indexOf('(')
        d2=p.indexOf(')')
        if (d2==-1){
            l30=p.length;
            p30=p.substring(0,4);
            //alert(p30);
            p30=p30+")"
            p31=p.substring(4,l30);
            pp=p30+p31;
            //alert(p31);
                    p1.value = "";
                    p1.value = pp;
            //document.newuser.phone.value="";
            //document.newuser.phone.value=pp;
        }
        }
    if(p.length>5){
        p11=p.substring(d1+1,d2);
        if(p11.length>3){
        p12=p11;
        l12=p12.length;
        l15=p.length
        //l12=l12-3
        p13=p11.substring(0,3);
        p14=p11.substring(3,l12);
        p15=p.substring(d2+1,l15);
            p1.value = "";
        //document.newuser.phone.value="";
        pp="("+p13+")"+p14+p15;
            p1.value = pp;
        //document.newuser.phone.value=pp;
        //obj1.value="";
        //obj1.value=pp;
        }
        l16=p.length;
        p16=p.substring(d2+1,l16);
        l17=p16.length;
        if(l17>3&&p16.indexOf('-')==-1){
            p17=p.substring(d2+1,d2+4);
            p18=p.substring(d2+4,l16);
            p19=p.substring(0,d2+1);
            //alert(p19);
        pp=p19+p17+"-"+p18;
                    p1.value = "";
                    p1.value = pp;
        //document.newuser.phone.value="";
        //document.newuser.phone.value=pp;
        //obj1.value="";
        //obj1.value=pp;
        }
    }
    //}
    setTimeout(ValidatePhone,100)
    }
    function getIt(m){
    n=m.name;
    //p1=document.forms[0].elements[n]
    p1=m
    ValidatePhone()
    }
    function testphone(obj1){
    p=obj1.value
    //alert(p)
    p=p.replace("(","")
    p=p.replace(")","")
    p=p.replace("-","")
    p=p.replace("-","")
    //alert(isNaN(p))
    if (isNaN(p)==true){
    alert("Check phone");
    return false;
    }
    }
    //  End Phone Validation Feature -->
__HTML__
    return $html;
}

sub print_reg_style{

print <<__HTML__;
<style>

#step_choice_container{
    border-collapse:collapse;
    border:1px solid #cecece;
    background-color: #ffffff;
}
#navcontainer ul
{
padding-left: 0;
padding-top: 0;
margin-left: 0;
background-color: #036;
color: White;
float: left;
width: 100%;
font-family: arial, helvetica, sans-serif;
}
/*background-color: #036;*/

#navcontainer ul li { display: inline; }

#navlist{
margin:0;
font-size: 14px;
cursor:default;
}

#navcontainer ul li a
{
padding: 0.2em 1em;
background-color: #036;
color: White;
text-decoration: none;
float: left;
border-right: 1px solid #fff;
cursor:default;
}

#navcontainer ul li a:hover
{
padding: 0.2em 1em;
background-color: #036;
color: White;
text-decoration: none;
float: left;
border-right: 1px solid #fff;
}


#navlist li a#current
{
background:  #369;

}
</style>
__HTML__


}

################################################################
### This is a specific sort for team teams drop down option
################################################################
sub hashValueAscendingNumPlayer {
   $player_info{$b} <=> $player_info{$a}
}
sub print_text_info_box{
    my $title        = shift;
    my $text         = shift;
    my $font_size    = "10pt";
    my $font_color   = "black";
    my $text_align   = "center";
    my $header_color = "#686b6e";
    #my $header_color = "#666699";
    my $body_color   = "#ffffff";
    print <<__HTML__;
    <TABLE cellSpacing=1 cellPadding=0 width="150" bgColor=$header_color border=0>
  <TR>
    <TD vAlign=center align=center width="100%" bgColor=$header_color class=rc_header>
       <B>$title</B>  
    </TD>

  </TR>
  <TR>
    <TD bgColor=#ffffff>
<div style="font-size:$font_size;color:$font_color;text-align:$text_align;margin:3px;">$text</div>

    </TD>
  </TR>
</TABLE>
<br>
__HTML__
}
sub print_reg_info{
    
    print "<DIV id='leftcolumn'>\n";
    print_text_info_box("Registration", "Welcome to on-line registration for LYAA 2008 Season!!!");
    
    #print_text_info_box("Program", "Baseball &<br>Softball");
    print_text_info_box("Season", "2008 Season");
    #print_text_info_box("Registration Fees", "Baseball - \$145<br>Early Bird discount. Register by Dec 15 and get \$25 off registration.");
    print_text_info_box("Information", "<a href=http://lyaa.org/home.pl?org_id=7&page=info&info_id=2022 target=new>Who to Contact for Help</a><br><a href=http://lyaa.org/home.pl?org_id=7&page=info&info_id=2023 target=new>Registration Fees & Info</a>");
    #print_text_info_box("About Homteamz", "Hometeamz.com provides online league services for community sports programs.<br><a href=http://hometeamz.com target=new>More Info</a>");
    print <<__HTML__;




<div class="categorylinks2">
<ul  id="nav">
</ul>
</div>
__HTML__
    print "</div>\n";
    
 
}

################################################################
### Check to see if the user is logged in 
### This is updated to only check if cookie is there.
################################################################
################################################################
### Check to see if the user is logged in 
################################################################
sub remote_window_check_reg_login{
    #### league could be a league or an org
    my $league_id       = shift;
    my $login_fail_url  = shift;
    my $return_string   = 0;
    my $success         = 0;
    my $session_id      = get_cookie();
    my $page            = "admin"; # force admin for level 3 access
    
    #my $org_id          = get_org($league_id);
    #print "SESSION ID: $session_id<br>\n";
    my $dbh = get_dbh(); 

    ################################################################
    # Check to see if there is a valid cookie
    ################################################################
    #print "SESSION = $session_id<br>\n";
    if($session_id eq ""){
           #print "SUCCESS: $success<br>\n";
        $success = 0;
    }else{
        my $login           = get_login_from_session($session_id);
        #print "<script>alert(\"LOGIN:  $login ORG: $org_id LEAGUE:  $league_id INFO:  $info_id PAGE: $page SESSION: $session_id\")</script>\n";
        $access_level = check_permissions($login, $org_id, $league_id, $info_id, $page);
        #print "<script>alert(\"ACCESS: \" + $access_level)</script>\n";
        if(($page eq "admin")&&($access_level >=3)){
            $success = 1;
        }elsif(($page eq "league")||($page eq "info")){
            if($access_level >=2){
                $success = 1;
            }
        }
        $success =1;
    }
    #print "SUCCESS: $success<br>\n";
    if($success == 0){
    #print "<script>alert(\"COOKIE: \" + $session_id)</script>\n";
        
print <<__HTML__;
<script>
window.focus();
//alert("SESSION ID: $session_id");

alert("Your login has expired!");
opener.location.href='$login_fail_url';
window.close();
</script>

__HTML__
exit(1);
return 0;

    }else{
        print "<script>Set_Cookie( 'SID', \"$session_id\", '5', '/', '', '' );</script>\n";
        #print "<script>alert('Hello2')</script>\n";
        return $session_id;
    }
}
################################################################
### This section prints the stylesheet as well as some 
### Javascript functions 
################################################################
sub print_style2{
    $league_only          = shift;
    $menu_text_color      = "#ffffff";
    $menu_bg_color        = "#999999";
    $menu_border_color    = "#ffffff";
    $menu_head_text_color = "#ffffff";
    $menu_head_bg_color   = "#686b6e";
    $menu_padding         = "2";
    #$menu_color_hover     = "#ffffff";
    #$menu_color_hover     = "yellow";
    $menu_color_hover     = "#ffffff";
    $menu_bg_color_hover  = "#686b6e";
    $bare_domain          = $hometeamz_url;
    $bare_domain          =~ s/www\.//;
    if($league_only == 1){
        $bg_url               = "";
    }else{
        $bg_url               = "$teamdata/hometeamz/bg_right3.gif";
    }
    
    #$style_sheet = "$lib/ht.css";
print <<__HTML__;



<!--<LINK href="$style_sheet" rel="stylesheet" type="text/css">-->
<!-- Below Styles contain vars for   sheet -->
<style>

.ht-text {
    font-family: verdana, arial, tahoma, sans-serif; 
    font-size: 9px; 
}

#top_image {
    margin-top:5px;
}
H1 {
font-size:24px;
           color:white;
           margin-top:0px;
           margin-bottom:-15px;
           font-style: italic ;
           text-shadow: black 3px 3px 5px;

 }
#leftbar{
width: 165px;
/*background-color: white;*/
}

#leftbar a:hover{
/*color: #FF8000;*/
}

.categorylinks{
    padding       : 0; 
    margin-left   : 0px; 
    margin-right  : auto; 
    margin-top    : 0px; 
    margin-bottom : 0px
}

.categorylinks li{
    padding-bottom : 1px;
}

.categorylinks li a{
    margin-left     : 0px;
    padding         : 0px 0px;
    font-size       : 12px;
    display         : block;
    color           : #449805;
    text-decoration : none;
    font-weight     : bold;
    border-bottom   : 0px solid #ececec;
}
.categorylinks li ul {
    position : absolute;
    left     : 149px; /* Set 1px less than menu width */
    top      : 0;
    display  : none;
    }
.categorylinks a:visited{color: #449805; }
.categorylinks a:hover {    color: #fff;    background: #51B906; text-decoration: none;}

.categorylinks2 ul {
    margin        : 0;
    padding       : 0;
    list-style    : none;
    width         : 150px;
    border-bottom : 1px solid #ccc;
    }

.categorylinks2 ul li {
    position : relative;
    }

.categorylinks2 li ul {
    position     : absolute;
    left         : 149px;
    top          : 0;
    display      : none;
    color        : blue;
    }


.categorylinks2 ul li a {
    position        : relative;
    display         : block;
    text-decoration : none;
    color           : $menu_text_color;
    background      : $menu_bg_color;
    padding         : $menu_padding;
    border          : 1px solid $menu_border_color;
    border-bottom   : 0;
    font-weight     : bold;
    padding-left    : 10;
    }
.categorylinks2 ul li.menu_header a {
    position        : relative;
    display         : block;
    text-decoration : none;
    color           : $menu_head_text_color;
    background      : $menu_head_bg_color;
    padding         : $menu_padding;
    border          : 1px solid $menu_border_color;
    border-bottom   : 0;
    cursor          :default;
    font-weight     : bold;
    }

.categorylinks2 ul li a:hover { color: $menu_color_hover; background: $menu_bg_color_hover;}
.categorylinks2 ul li.menu_header a:hover { background: $menu_head_bg_color;color: $menu_head_text_color;}



/* Fix IE. Hide from IE Mac \*/
* html .categorylinks2 ul li { float: left; height: 1%; }
* html .categorylinks2 ul li a { height: 1%; }
/* End */

.categorylinks2 li:hover ul, li.over ul { 
    display: block; 
}


.input
    {  
        font-size: 12px;
        font-family: tahoma, arial, sans-serif;
        color: #000000;
        border: 1px solid #000000;
     }
.form_font
    {  
        font-size: 12px;
        font-family: tahoma, arial, sans-serif;
        color: #000000;
     }
.form_header
    {  
        font-size: 14px;
        font-family: tahoma, arial, sans-serif;
        color: #FFFFFF;
     }
.rc_header
    {  
        font             : 10pt Tahoma;
        font-weight      : bold; 
        color            : #ffffff;
        padding          : 2px 0px 2px 2px;
        color            : #FFFFFF;
     }
.rc_header a
    {  
        text-decoration : none; 
        color: #FFFFFF;
        }
.rc_header a:hover
        {
        color: red;
        }

#cp_font{
               
                font             : 10pt Arial,Helvetica;
}
#cp_font a:link{
               
                font             : 10pt Arial,Helvetica;
                 
}
#cp_font a:hover{
               text-decoration : none; 
               color           : red;
}
#cp_font a:visited{
                font             : 10pt Arial,Helvetica;
}
#cp_font a:active{
                font             : 10pt Arial,Helvetica;
}

#table_font{
               
                font             : 9pt Arial,Helvetica;
}
#table_font a:link{
               
                font             : 9pt Arial,Helvetica;
                 
}
#table_font a:hover{
               text-decoration : none; 
                font             : 9pt Arial,Helvetica;
}
#table_font a:visited{
             
                font             : 9pt Arial,Helvetica;
}
#table_font a:active{
             
                font             : 9pt Arial,Helvetica;
}

#login_font{
               
                font             : 8pt Arial,Helvetica;
                padding          : 0;
                
}
#login_font a:link{
               
                font             : 8pt Arial,Helvetica;
                 
}
#login_font a:hover{
               text-decoration : none; 
                font             : 8pt Arial,Helvetica;
}
#login_font a:visited{
             
                font             : 8pt Arial,Helvetica;
}
#login_font a:active{
             
                font             : 8pt Arial,Helvetica;
}


#day_of_week_header {
            background-color: gray;
            color           : #FFFFFF; 
            font-weight     : bold; 
            border          : 1px solid black;
            font            : 8pt Tahoma bold;
            }
#day_of_week_header2 {
            color           : #000000; 
            border          : 1px solid black;
            font            : 8pt Arial;
            }
#date_header {
            background-color: #006699;
            color           : #FFFFFF; 
            font-weight     : bold; 
            font            : 10pt Arial bold;
}
#date_header a {
            color           : #FFFFFF; 
            font-weight     : bold; 
            font            : 10pt Arial bold;
}
#date_header a:hover {
            text-decoration : none; 
}
#admin_header {
            background-color: #006699;
            color           : #FFFFFF; 
            font-weight     : bold; 
            font            : 10pt Arial bold;
            border          : 1px solid #FFFFFF; 
}


#middle2 a {

            font-size       : 12pt; 
}


#middle a {

            font-size       : 8pt; 
}
#cal_events_head {
            background-color: #c1c1c1;
            color           : #000000; 
            font            : 8pt Arial;
            border          : 1px solid #dcdcdc; 
            margin          : 5px 5px 5px 5px;
            line-height     : 18px;
}
#cal_events3 {
            background-color: #ececec;
            color           : #000000; 
            font            : 8pt Arial;
            border          : 1px solid #dcdcdc; 
            margin          : 5px 5px 5px 5px;
            line-height     : 18px;
}
#cal_events3_red {
            background-color: red;
            color           : #000000; 
            font            : 8pt Arial;
            border          : 1px solid #dcdcdc; 
            margin          : 5px 5px 5px 5px;
            line-height     : 18px;
}
#cal_events3_red a{
            font            : 8pt Arial;
            color           : #0000ff; 
            text-decoration : none; 
}
#cal_events3 a{
            font            : 8pt Arial;
            color           : #0000ff; 
            text-decoration : none; 
}
#cal_events3 a:hover{
            font            : 8pt Arial;
            text-decoration : underline; 
            color           : red; 
}
#update_menu {
            color           : #000000; 
            font            : 8pt Arial;
}
#update_menu a{
            font            : 8pt Arial;
            color           : #0000ff; 
            text-decoration : none; 
}
#update_menu a:hover{
            font            : 8pt Arial;
            text-decoration : underline; 
            color           : red; 
}
#cal_events3_st {
            background-color: #ececec;
            color           : #000000; 
            font            : 8pt Arial;
            border          : 1px solid #dcdcdc; 
            margin          : 5px 5px 5px 5px;
            line-height     : 18px;
            text-decoration : line-through; 

}
#cal_events3_st a{
            font            : 8pt Arial;
            color           : #000000; 
}
#cal_events3_st a:hover{
            font            : 8pt Arial;
            text-decoration : underline; 
            color           : red; 
}
#cal_events2 {
            background-color: white;
            color           : #000000; 
            font            : 8pt Arial;
            border          : 1px solid #dcdcdc; 
            margin          : 5px 5px 5px 5px;
            line-height     : 18px;
}
#cal_events2 a{
            font            : 8pt Arial;
            color           : #0000ff; 
            text-decoration : none; 
}
#cal_events2 a:hover{
            font            : 8pt Arial;
            text-decoration : underline; 
            color           : red; 
}
#cal_events2_st {
            background-color: white;
            color           : #000000; 
            font            : 8pt Arial;
            border          : 1px solid #dcdcdc; 
            margin          : 5px 5px 5px 5px;
            line-height     : 18px;
            text-decoration : line-through; 
}
#cal_events2_st a{
            font            : 8pt Arial;
            color           : #000000; 
}
#cal_events2_st a:hover{
            font            : 8pt Arial;
            text-decoration : underline; 
            color           : red; 
}
#cal_events_st {
            background-color: white;
            color           : #000000; 
            font            : 8pt Arial;
            text-decoration : line-through; 
}
#cal_events_st a{
            font            : 8pt Arial;
            color           : #000000; 
}
#cal_events_st a:hover{
            font            : 8pt Arial;
            text-decoration : underline; 
            color           : red; 
}
#cal_events {
            background-color: white;
            color           : #000000; 
            font            : 8pt Arial;
}
#cal_events a{
            font            : 8pt Arial;
            color           : #000000; 
}
#cal_events a:hover{
            font            : 8pt Arial;
            text-decoration : underline; 
            color           : red; 
}

#top_lower {
            position         : absolute;
            width            : 983px;
            height           : 1px;
            top              : 146px;
            left             : 1px;
            z-index          : 3;
            font-size        : 1pt; 
            font-weight      : bold; 
            background-color : #bb8c00;
            color              : #FFFFFF;
}

#top_left_image2 {
            position        : absolute;
            width           : 122px;
            height          : 122px;
            top             : 17px;
            left            : 5px;
            z-index         : 4;
            font-size       : 1pt; 
            font-weight     : bold; 
                  background      : transparent;
                  border          : 0px;

}
#top_menu2 {
            position        : absolute;
            width           : 671px;
            height          : 30px;
            top             : 148px;
            left            : 153px;
            background-color: #E2E2E2;;
            z-index         : -1;
            font            : 8pt Tahoma;
            background-image: url('$teamdata/hometeamz/gn_bg.gif');
            background-repeat: repeat-x;

            color       : #000000;
}
#top_menu2 a 
            {background      : transparent;
             
             text-decoration : none; 
             font            : 11pt Tahoma;
             color           : #525252;
}
#top_menu2 a:hover
            {color            : red;
             text-decoration  : underline;        
}
#top_menu2 a:visited
            {background      : transparent;
}
#top_menu2 a:active
            {background      : transparent;
}

#top_menu {
            position        : absolute;
            width           : 671px;
            height          : 30px;
            top             : 148px;
            left            : 153px;
            background-color: #E2E2E2;;
            z-index         : 3;
            font            : 11pt Tahoma;
            background-image: url('$teamdata/hometeamz/gn_bg.gif');
            background-repeat: repeat-x;

            color       : #000000;
}

#top_menu a 
            {background      : transparent;
             
             text-decoration : none; 
             font            : 8pt Tahoma;
             color           : #525252;
}
#top_menu a:hover
            {color            : red;
             text-decoration  : underline;        
}
#top_menu a:visited
            {background      : transparent;
}
#top_menu a:active
            {background      : transparent;
}

#top_menu a.coach 
            {background      : transparent;
             width           : 80px;
             text-decoration : none; 
             
            
}

.more_top_menu{
            font            : 8pt Tahoma;
            z-index         : 3;
}
.more_top_menu2{
            font            : 8pt Tahoma;
            z-index         : 3;
}


#rightborder {
            position        : absolute;
            width           : 25px;
            height          : 981px;
            top             : 0px;
            left            : 978px;
            background-color: #000000;
            z-index         : 1;
            font-size       : 1pt; 
            background      : #000000;
            color       : #000000;
}
#top_left {
            position        : absolute;
            width           : 152px;
            height          : 132px;
            top             : 0px;
            left            : 0px;
            background-color: #FFFFFF;
            z-index         : 1;
            font-size       : 12pt; 
            font-weight     : bold; 
            background      : #FFFFFF;
            color       : #003366;
            border-top      : 1px solid #FFFFFF;
            border-left     : 1px solid #FFFFFF;
            border-right    : 1px solid #FFFFFF;
}



#calendar {
            font             : 8pt Tahoma;
            color        : #000000;
}
#calendar_small {
            font             : 8pt Tahoma;
            color        : #000000;
            border           : 1px solid black;
}

#cal_header a
            {background      : transparent;
         color       : #FFFFFF;
             font-size       : 100%;
             text-decoration : none; 
}
#cal_header
            {
             font            : 9pt Arial;
}
.menu_space{
                background-color: #FFFFFF;
                font-size       : 1px;
                width           : 150;
                height          : 1px;
                overflow-y      : hidden;
}
.menu_space_black{
                background-color: #000000;
                font            : 12pt Tahoma;
                width           : 150;
                height          : 20px;
                overflow-y      : hidden;
                color           : #FFFFFF;
                border-right    : 3px solid #686b6e;
                border-left     : 3px solid #686b6e;
                border-top      : 3px solid #686b6e;
                border-left     : 3px solid #686b6e;
}
#table_header_font{
               
                font             : 9pt Arial,Helvetica;
                color            : #ffffff;
            
}

.header{
                background-color: #686b6e;
                width           : 150;
            font             : 10pt Tahoma;
            font-weight      : bold; 
                color           : #ffffff;
             padding         : 2px 0px 2px 2px;
             margin-bottom:1px;
            
}
#title_link{
            font             : 8pt Tahoma;
            font-weight      : bold; 
            color        : #003366;
            border-left      : 1px solid #FFFFFF;
            border-right     : 1px solid #FFFFFF;
            border-bottom    : 1px solid #FFFFFF;
            border-top       : 1px solid #FFFFFF;
}
#add_link{
            color            : #000000;
            font             : 9pt Arial;
 
}
#add_link a{
            border           : solid;
            border-width     : 1px;
            border-color     : #000000;
            text-decoration  : none; 
            background-color : #999999;
            color            : #ffffff;
            font             : 9pt Arial;
            padding          : 3px 3px 3px 3px;
}
#add_link a:visited{
            border           : solid;
            border-width     : 1px;
            background-color : #999999;
            text-decoration  : none; 
            color            : #ffffff;
            font             : 9pt Arial;
}
#add_link a:hover{
            border           : solid;
            background-color : #686b6e;
            color            : #ffffff;
            border-width     : 1px;
            font             : 9pt Arial;
}
#box{
            color            : #ffffff;
            font             : 9pt Arial;
 
}
#box a{
            border           : solid;
            border-width     : 1px;
            text-decoration  : none; 
            color            : #ffffff;
            font             : 9pt Arial;
            padding          : 1px 1px 1px 1px;
}
#box a:visited{
            border           : solid;
            border-width     : 1px;
            text-decoration  : none; 
            color            : #ffffff;
            font             : 9pt Arial;
}
#box a:hover{
            border           : solid;
            border-width     : 1px;
            color            : red;
            font             : 9pt Arial;
}

.message_text{
                font            : 10pt Arial;
                font-weight     : bold; 
                color           : #dc0000;
}

.message_text3{
                font            : 12pt Arial;
                font-weight     : bold; 
                color           : #003366;
}
.message_text2{
                font            : 8pt Arial;
                font-weight     : bold; 
                color           : #000000;
}
.message_text2 a:link, .message_text2 a:visited {
                font-weight     : normal;
                font-size       : 18pt; 
                color           : blue;
                text-decoration : underline; 
}
.message_text2 a:hover{
                text-decoration : none; 
}

.del_text{
                font            : 10pt Arial;
                font-weight     : bold; 
                color           : #000000;
}
#middle2 {
            position        : absolute;
            top             : 47px;
            height          : 100%;
            left            : 0px;
            width           : 671px;
            background-color: $site_info{"bg_color"};
            z-index         : 1;
            font-size       : 10pt; 
            font-weight     : bold; 
            font            : 16pt Tahoma;
            color       : #003366;
            border-bottom   : 1px solid #cccccc;
            border-left     : 1px solid #cccccc;
            border-right    : 1px solid #cccccc;
            
}

#middle {
            position        : absolute;
            top             : 147px;
            height          : 100%;
            left            : 152px;
            width           : 673px;
            background-color: $site_info{"bg_color"};
            z-index         : 1;
            font-size       : 10pt; 
            font-weight     : bold; 
            font            : 16pt Tahoma;
            color       : #003366;
            border-bottom   : 1px solid #cccccc;
            border-left     : 1px solid #cccccc;
            border-right    : 1px solid #cccccc;
            
}
#middle_iframe {
            width           : 673px;
            background-color: $site_info{"bg_color"};
            
}
#loginbar {
            position         : absolute;
            width            : 984px;
            height           : 17px;
            top              : 0px;
            left             : 0px;
            z-index          : 99;
            border           : 0;
            background-color : #FFFFFF;
            color            : #000000;
           
}
#top {
            position         : absolute;
            width            : 984px;
            height           : 129px;
            top              : 17px;
            left             : 0px;
            z-index          : 1;
            font-size        : 12pt; 
            font-weight      : bold; 
            font             : 16pt Tahoma;
                  background-color : $site_info{"site_banner_bg"};
            color              : #FFFFFF;
           
}
#top_left_image {
            position         : absolute;
            width            : 158px;
            height           : 129px;
            top              : 17px;
            left             : 0px;
            z-index          : 3;
            font-size        : 1pt; 
            font-weight      : bold; 
            background-color : $site_info{"site_banner_bg"};
            border           : 0px;
            color              : #FFFFFF;
}


body {
            /*background-color: #E2E2E2;*/
            background-color: $site_info{"bg_color"};
            background-image: url('$bg_url');
            background-repeat: repeat-y;
            background-position: 982px;
}
#rightcolumn {
            position        : absolute;
            width           : 157px;
            height          : 100%;
            top             : 147px;
            left            : 827px;
            background-color: $site_info{"bg_color"};
            z-index         : 2;
            /*border-right    : 1px solid #ffffff;*/
            border-top      : 1px solid #FFFFFF;
            font-size       : 12pt; 
            font-weight     : bold; 
            font            : 16pt Tahoma;
            color       : #FFFFFF;

}
#leftcolumn {
            position         : absolute;
            width            : 152px;
            height           : 100%;
            top              : 147px;
            left             : 0px;
            background-color : $site_info{"bg_color"};
            color        : #ffffff;
            z-index          : 4;
            font             : 8pt Tahoma;
            font-weight      : bold; 
            border-left      : 1px solid #FFFFFF;
            /*border-right     : 1px solid #FFFFFF;*/
            /*border-bottom    : 1px solid #FFFFFF;*/
}

#leftcolumn a.img_link 
            {background-color : $site_info{"bg_color"};
             text-decoration : none; 
             width           : 150;
             padding         : 0px 0px 0px 0px;
}
#leftcolumn a.img_link:hover
            {background-color : $site_info{"bg_color"};
             text-decoration : none; 
             width           : 150;
             padding         : 0px 0px 0px 0px;
}
#leftcolumn a.ht_link 
            {background-color : $site_info{"bg_color"};
             text-decoration : none; 
             width           : 150;
             padding         : 0px 0px 0px 0px;
             font-family     :verdana;
             font-size       :80%;
             color           : #404040;
             margin-bottom   :-1px;
             background-color:6699cc;
}
#leftcolumn a.ht_link:hover
            {background-color : $site_info{"bg_color"};
             text-decoration : none; 
             width           : 150;
             padding         : 0px 0px 0px 0px;
             font-family     :verdana;
             font-size       :80%;
             color           : #404040;
             margin-bottom   :-1px;
             background-color:6699cc;
}
</style>

<script>
function filterTeam(){

           var team   = document.getElementById('filter_team').value; 
           var league = document.getElementById('league_id').value; 
           var month  = document.getElementById('month').value; 
           var year   = document.getElementById('year').value; 
           var coach  = document.getElementById('coach').value; 
           if(coach == 1){
               var url    = "http://$base_url/$filename?org_id=$org_id&page=league&league_id=" + league + "&sub=calendar&" + "month=" + month + "&year=" + year + "&filter=" + team + "&coach=" + coach;
           }else{
               var url    = "http://$base_url/$filename?org_id=$org_id&page=league&league_id=" + league + "&sub=calendar&" + "month=" + month + "&year=" + year + "&filter=" + team;
           }
           location.href = url; 
           //alert(url); 


}

function Set_Cookie( name, value, expires, path, domain, secure ) 
{
domain = "$bare_domain";
    //alert("SETTING COOKIE");
// set time, it's in milliseconds
    var today = new Date();
    today.setTime( today.getTime() );

/*
    if the expires variable is set, make the correct 
    expires time, the current script below will set 
    it for x number of days, to make it for hours, 
    delete * 24, for minutes, delete * 60 * 24
*/
    if ( expires )
    {
        //expires = expires * 1000 * 60 * 60 * 24;
       // This should make it 20 minutes
        expires = (expires * 1000 * 60 * 60)/3 ;
    }
    var expires_date = new Date( today.getTime() + (expires) );
    // alert("name:" + name + " value:" + value + " expires:" + expires + " path:" + path + " domain:" + domain);
    document.cookie = name + "=" +escape( value ) +
    ( ( expires ) ? ";expires=" + expires_date.toGMTString() : "" ) + 
    ( ( path ) ? ";path=" + path : "" ) + 
    ( ( domain ) ? ";domain=" + domain : "" ) +
    ( ( secure ) ? ";secure" : "" );
}

// this function gets the cookie, if it exists
function Get_Cookie( name ) {
    
var start = document.cookie.indexOf( name + "=" );
var len = start + name.length + 1;
if ( ( !start ) &&
( name != document.cookie.substring( 0, name.length ) ) )
{
return null;
}
if ( start == -1 ) return null;
var end = document.cookie.indexOf( ";", len );
if ( end == -1 ) end = document.cookie.length;
return unescape( document.cookie.substring( len, end ) );
}

function Delete_Cookie() {
   var name = "SID";
   var path = '/';
   domain = "$bare_domain";
if ( Get_Cookie( name ) ) document.cookie = name + "=" +
( ( path ) ? ";path=" + path : "") +
( ( domain ) ? ";domain=" + domain : "" ) +
";expires=Thu, 01-Jan-1970 00:00:01 GMT";
}

function ReadCookie(cookieName) {
    var theCookie=""+document.cookie;
    //alert(theCookie);
    var ind=theCookie.indexOf(cookieName);
    if (ind==-1 || cookieName=="") return ""; 
    var ind1=theCookie.indexOf(';',ind);
    if (ind1==-1) ind1=theCookie.length; 
    return unescape(theCookie.substring(ind+cookieName.length+1,ind1));
}

function open_login(orgID, leagueID) {
    var _x = 300;
    var _y = 200;
    login=window.open('$lib/login.pl?org_id=' + orgID + '&league_id=' + leagueID, 'login', 'width=250,height=390,left=' + _x + ',top=' + _y);
    return true;
}

function open_new_event(orgID, leagueID) {
    var _x = 300;
    var _y = 200;
    new_event=window.open('$lib/insert_event.pl?org_id=' + orgID + '&league_id=' + leagueID, 'new_event', 'width=700,height=700,left=' + _x + ',top=' + _y);
    return true;
}

function open_new_event2(orgID, leagueID, teamID) {
    var _x = 300;
    var _y = 200;
    new_event=window.open('$lib/insert_event.pl?org_id=' + orgID + '&league_id=' + leagueID + '&team_id=' + teamID, 'new_event', 'width=700,height=700,left=' + _x + ',top=' + _y);
    return true;
}

function open_new_news(orgID, leagueID) {
    var _x = 300;
    var _y = 200;
    new_event=window.open('$lib/insert_news.pl?org_id=' + orgID + '&league_id=' + leagueID, 'new_event', 'width=650,height=250,left=' + _x + ',top=' + _y);
    return true;
}
function open_edit_event(ID, orgID, leagueID) {
    var _x = 300;
    var _y = 200;
    //new_event=window.open('$lib/update_event.pl?ID=' + ID + '&org_id=' + orgID + '&league_id=' + leagueID, 'new_event', 'width=300,height=425,left=' + _x + ',top=' + _y);
    edit_event=window.open('$lib/insert_event.pl?ID=' + ID + '&org_id=' + orgID + '&league_id=' + leagueID, 'new_event', 'width=700,height=700,left=' + _x + ',top=' + _y);
    return true;
}
function open_edit_event2(ID, orgID, leagueID, teamID) {
    var _x = 300;
    var _y = 200;
    //new_event=window.open('$lib/update_event.pl?ID=' + ID + '&org_id=' + orgID + '&league_id=' + leagueID, 'new_event', 'width=300,height=425,left=' + _x + ',top=' + _y);
    edit_event=window.open('$lib/insert_event.pl?ID=' + ID + '&org_id=' + orgID + '&league_id=' + leagueID + '&team_id=' + teamID, 'new_event', 'width=700,height=700,left=' + _x + ',top=' + _y);
    return true;
}
function open_del_event(ID, orgID, leagueID) {
    var _x = 300;
    var _y = 200;
    del_event=window.open('$lib/del_confirm.pl?ID=' + ID + '&org_id=' + orgID + '&league_id=' + leagueID, 'del_event', 'width=250,height=250,left=' + _x + ',top=' + _y);
}
function open_cancel_event(ID, orgID) {
    var _x = 300;
    var _y = 200;
    del_event=window.open('$lib/cancel_confirm.pl?ID=' + ID + '&org_id=' + orgID, 'del_event', 'width=250,height=290,left=' + _x + ',top=' + _y);
}

function open_update_score(ID,orgID) {
    var _x = 300;
    var _y = 200;
    del_event=window.open('$lib/update_score.pl?ID=' + ID + '&org_id=' + orgID, 'update_score', 'width=350,height=300,left=' + _x + ',top=' + _y);
}

function open_del_news(ID, leagueID, orgID){
    var _x = 300;
    var _y = 200;
   del_event=window.open('$lib/del_news.pl?ID=' + ID + '&league_id=' + leagueID + '&org_id=' + orgID, 'del_news', 'width=250,height=250,left=' + _x + ',top=' + _y);
}

function open_edit_news(ID, leagueID, orgID){
    var _x = 300;
    var _y = 200;
    edit_event=window.open('$lib/update_news.pl?ID=' + ID + '&league_id=' + leagueID + '&org_id=' + orgID, 'update_news', 'width=650,height=250,left=' + _x + ',top=' + _y);
    //return true;
}
function open_new_info(filename, orgID, leagueID, page, infoID, height, width, page_type) {
    var _x = 300;
    var _y = 200;
    new_event=window.open('$lib/' + filename + '?org_id=' + orgID + '&league_id=' + leagueID + '&page=' + page + '&info_id=' + infoID + '&page_type=' + page_type, 'new_info', 'resizable=1,scrollbars=1,width=' + width +',height=' + height + ',left=' + _x + ',top=' + _y);
    //return true;
}
function open_del_info(messageID, pageID, org_id){
    var _x = 300;
    var _y = 200;
   del_event=window.open('$lib/del_info.pl?message_id=' + messageID + '&page_id=' + pageID + '&org_id=' + org_id, 'del_info', 'width=250,height=250,left=' + _x + ',top=' + _y);
}

function open_edit_info(messageID, org_id){
    var _x = 300;
    var _y = 200;
    edit_event=window.open('$lib/update_info.pl?message_id=' + messageID + '&org_id=' + org_id, 'update_info', 'resizable=1,scrollbars=1,width=780,height=500,left=' + _x + ',top=' + _y);
    //return true;
}

var hide=1;

function hideDiv(which) { 
    var this_hideshow = 'notes' + which;
    var other_hideshow = 'show_notes' + which;
    if (hide == 0){
        if (document.getElementById) { // DOM3 = IE5, NS6 
            document.getElementById(this_hideshow).style.display = 'none'; 
            document.getElementById(other_hideshow).style.display = 'block'; 
        } else { 
            if (document.layers) { // Netscape 4 
                document.this_hideshow.display = 'none'; 
                document.other_hideshow.display = 'block'; 
            } else { // IE 4 
                document.all.this_hideshow.style.display = 'none'; 
                document.all.other_hideshow.style.display = 'block'; 
            } 
        } 
    
        hide=1;
    } else{
        if (document.getElementById) { // DOM3 = IE5, NS6 
            document.getElementById(this_hideshow).style.display = 'block'; 
            document.getElementById(other_hideshow).style.display = 'none'; 
        } else { 
            if (document.layers) { // Netscape 4 
                document.this_hideshow.display = 'block'; 
                document.other_hideshow.display = 'none'; 
            } else { // IE 4 
                document.all.this_hideshow.style.display = 'block'; 
                document.all.other_hideshow.style.display = 'none'; 
            } 
        } 
        hide=0;
    } 
}
  

function showDiv(which) { 
    var this_hideshow = 'notes' + which;
    alert(this_hideshow);
    if (document.getElementById) { // DOM3 = IE5, NS6 
        document.getElementById(this_hideshow).style.display = 'block'; 
    } else { 
        if (document.layers) { // Netscape 4 
            document.this_hideshow.display = 'block'; 
        } else { // IE 4 
            document.all.this_hideshow.style.display = 'block'; 
        } 
    } 
} 


function hideControl(which) { 
    var this_hideshow = 'control' + which;
    //alert(this_hideshow);
        if (document.getElementById) { // DOM3 = IE5, NS6 
            document.getElementById(this_hideshow).style.display = 'none';  
        } else { 
            if (document.layers) { // Netscape 4 
                document.this_hideshow.display = 'none';  
            } else { // IE 4 
                document.all.this_hideshow.style.display = 'none'; 
            } 
        } 
} 


function showControl(which) { 
    var this_hideshow = 'control' + which;
    //alert(this_hideshow);
    if (document.getElementById) { // DOM3 = IE5, NS6 
        document.getElementById(this_hideshow).style.display = 'block'; 
    } else { 
        if (document.layers) { // Netscape 4 
            document.this_hideshow.display = 'block'; 
        } else { // IE 4 
            document.all.this_hideshow.style.display = 'block'; 
        } 
    } 
} 

function changeControl(which){
    //alert(which);
    for( var i=1;i<6;i++){
        if(i != which){
            hideControl(i);
        }
    }
    showControl(which);
}
</script>


__HTML__

add_to_hit_counter($org_id);
}

1;