############# V 1.1
sub check_permissions_reg{
    my $login_id   = shift;
    my $org_id     = shift;
    my $league_id  = shift;
    my $info_id    = shift;
    my $page       = shift;
    my $access     = 0;
    my $tempaccess = 1;
	if(!(defined($info_id))){ # On control panel, this is getting passed in as nothing, so double check it
        $info_id = -9999;
	}
	# print "<script>alert(\"LOGIN:  $login_id ORG: $org_id LEAGUE:  $league_id INFO:  $info_id PAGE: $page \")</script>\n";
	#######################################
	## Check if they have permissions at
	## hometeamz
	#######################################
	my $dbh = get_dbh(); 
	my $query = "SELECT * FROM `Permissions_Info` WHERE `Login_ID` = '$login_id' AND `Access_Type`= 'HT' AND `Access_ID` = '80'";
    my $sth = $dbh->prepare($query);
    #print "<script>alert(\"LID:$login_id\")</script>\n";
    $sth->execute();
    $sth->bind_columns(\$Key, \$Login_ID, \$Access_Type,
                       \$Access_ID, \$Access_Level);
    while($sth->fetch()) {
		if($Access_Level eq "HT"){$access = 80;}
    }
	
	#######################################
	## Check if they have permissions at
	## organizational level
	#######################################
	
	$query = "SELECT * FROM `Permissions_Info` WHERE `Login_ID` = '$login_id' AND (`Access_Type`= 'REG' OR `Access_Type`= 'ORG') AND `Access_ID` = '$org_id'";
    $sth = $dbh->prepare($query);
        #print "<script>alert(\"LID:$login_id\")</script>\n";
    $sth->execute();
    $sth->bind_columns(\$Key, \$Login_ID, \$Access_Type,
                       \$Access_ID, \$Access_Level);
	while($sth->fetch()) {
        #print "<script>alert(\"LID2:$Login_ID ATYPE:$Access_Type AID:$Access_ID AL:$Access_Level\")</script>\n";
        
		#if($Access_Level eq "R"){$tempaccess = 1;}

		if($Access_Level eq "REG2"){$tempaccess = 2;}
        if($Access_Level eq "RW")  {$tempaccess = 3;}
        if($Access_Level eq "REG3"){$tempaccess = 3;}
		if($tempaccess > $access){
            $access = $tempaccess;
        }
        
	}
	

	#if(uc($page) eq "LEAGUE"){
    #    $league_info_id = $league_id;
	#}else{
	#	$league_info_id = $info_id;
	#}
    ########################################
	## Check if they have permissions at
	## page level
	#######################################
	#$query = "SELECT * FROM `Permissions_Info` WHERE `Login_ID` = '$login_id' AND `Access_Type`= '$page' AND `Access_ID` = '$league_info_id'";
	##print "QUERY: $query\n";
    #$sth = $dbh->prepare($query);
    #    #print "<script>alert(\"LID:$login_id\")</script>\n";
    #$sth->execute();
    #$sth->bind_columns(\$Key, \$Login_ID, \$Access_Type,
    #                   \$Access_ID, \$Access_Level);
    #while($sth->fetch()) {
    #    if($Access_Level eq "R"){$tempaccess = 1;}    
    #    if($Access_Level eq "RW"){$tempaccess = 2;}    
    #    if($tempaccess > $access){
    #        $access = $tempaccess;
    #    }
#
#    }
    return $access;


}

#########################################
# Get the org ID from the League ID
#########################################
sub get_email_info_from_session_and_id{
    my $session_id = shift;
    my $user_key   = shift;
	my $dbh = get_dbh();
	my $return_email = "";
	################################################################
    # Query DB to verify Session
    ################################################################
    my $query = "SELECT email FROM `Account_Info` WHERE `Last_Access_ID` = '$session_id' AND `Key` = '$user_key'";
	#print "QUERY: $query<br>\n";
    my $sth = $dbh->prepare($query);
    $sth->execute();
    $sth->bind_columns(\$email);

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


############################################
# Get The status options into a hash
# Change this part to get data from DB
############################################
sub get_status_hash{
    my $org_id   = shift;
    my $reg_year = shift;
    my $dbh      = get_dbh();
    my %tmp_status_hash;
    my $query = "SELECT `State_ID`, `State_Desc`, `Accepted_State` FROM `Reg_Confirmation_States` WHERE `Org_ID`='$org_id' AND `Reg_Year`='$reg_year' ORDER BY `Order`";
	my $sth = $dbh->prepare($query);
    $sth->execute();
    while (my $hash_ref = $sth->fetchrow_hashref) {
	    my $state_id   = $hash_ref->{State_ID};
	    my $state_desc = $hash_ref->{State_ID};
	    $tmp_status_hash{$state_id}{"DESC"} = $hash_ref->{State_Desc};
	    $tmp_status_hash{$state_id}{"ACCEPTED_STATE"} = $hash_ref->{Accepted_State};
    }
    $dbh->disconnect;
    $sth->finish();
    return %tmp_status_hash;

}

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 ($user_table, $pay_pal) = get_checkout_table($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;\">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 print_pay_partial_complete{
     #print "<DIV id=\"middle\"><br><center>\n";
	my $session_id      = get_cookie();
    my $user_key           = get_login_from_session($session_id);
    $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;\">\n";
	$html .= $pay_complete_message . "</div><br><center><br>\n";
	if($org_id == 167){ # Plymouth required forms
        $html .= "<a href=print_forms.html?user_key=$user_key target=new><font size=3><b>Print Registration Confirmation and Player Forms</b></font></a>\n";
    }
    $html .= "<div style=\"font-size:10pt;color:black;\"><a href=\"$return_url\">Return to $org_caps Website</a></div>\n";

	
    

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

    print $html;
}
sub print_verify_pay_partial{
    $active_id{"pay"}              = "id=current";
    my $user_key                   = param('userkey');
    my $partial                    = param('partial_amount');
	my $min_pay_message            = "";
	
	####################################
	#  Check if the partial payment is less than he min partial pay
	# if it is, set the message and change the payment to the min
	# If the min is greater then the balance, this will be handled
	# in the get_partial_checkout_table function
	####################################
    if($partial < $min_partial_pay){
	    $partial = $min_partial_pay;
		$min_pay_message = "<br><center><font color=red>The minimum partial payment is \$$min_partial_pay</font></center><br>";
	}
    my %user_info                  = get_account_info($user_key);
    my %player_info                = get_player_info($user_key);
    my ($user_table, $pay_pal, $balance)     = get_partial_checkout_table($user_key, 2, $partial);
    print_steps();
	####################################
	# Set the min_pay_message to blank if balance is less than
	# min_partial_pay
	####################################
    if($balance < $min_partial_pay){
	    $min_pay_message = "";
	}
    $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.$min_pay_message</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 ($user_table, $pay_pal, $balance)     = get_partial_checkout_table($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 ($user_table, $pay_pal) = get_checkout_table($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;\">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";
}


################################################################
### 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=3 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 align=center>Name</td><td id=admin_header align=center>Edit</td><td id=admin_header align=center>Remove</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 align=center><input type=button name=Edit value=Edit onClick='edit_user($player_key);'></td>\n";
        $user_table .= "<td id=cal_events3 align=center><input type=button name=Remove value=Remove onClick='remove_player($player_key);'></td>\n";

        #$user_table .= "<td id=cal_events3>\$$amount_paid</td></tr>\n";
        $last_user = $user_number;
    }
    $user_table .= "</table>\n";
    return $user_table, $player_number;
}

###########################################
# 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 $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();
	
	%reg_form = get_reg_update_form($org_id, "$reg_year","create_player_account_form", $player_key);
	my $auto_reg_form = "";
	my $first_compare = 1;
    foreach $form_row (sort{$a <=> $b}keys %reg_form){
        if(defined($reg_form{"$form_row"}{"JSCRIPT_VARS"})){
	        $jscript_vars    .= $reg_form{"$form_row"}{"JSCRIPT_VARS"};
	    }
	    if(defined($reg_form{"$form_row"}{"JSCRIPT_COMPARE"})){
		my $or = "";
		    if($first_compare == 1){
			    $first_compare = 0;
			}else{
			    $or = "||"
			}
	        $jscript_compare .= $or . $reg_form{"$form_row"}{"JSCRIPT_COMPARE"} ;
	    }
        $auto_reg_form .= $reg_form{"$form_row"}{"HTML"};
    }	
	
    my $jscript = <<__JSCRIPT__;
    <script>
        
        $email_validation
		function verify_register_user(){
		    $jscript_vars
		    var lname      = document.getElementById('lname');
            var fname      = document.getElementById('fname');
			if($jscript_compare){
                        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 $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-family:Arial,Verdana,Helvetica,sans-serif; font-size:12px' 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>
    $auto_reg_form   

    <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;
}



################################################################
### 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";

	%reg_form = get_read_only_reg_form($org_id, "$reg_year","create_player_account_form", $player_key);
	my $auto_reg_form = "";
	my $first_compare = 1;
    foreach $form_row (sort{$a <=> $b}keys %reg_form){
        if(defined($reg_form{"$form_row"}{"JSCRIPT_VARS"})){
	        $jscript_vars    .= $reg_form{"$form_row"}{"JSCRIPT_VARS"};
	    }
	    if(defined($reg_form{"$form_row"}{"JSCRIPT_COMPARE"})){
		my $or = "";
		    if($first_compare == 1){
			    $first_compare = 0;
			}else{
			    $or = "||"
			}
	        $jscript_compare .= $or . $reg_form{"$form_row"}{"JSCRIPT_COMPARE"} ;
	    }
        $auto_reg_form .= $reg_form{"$form_row"}{"HTML"};
    }	
    print_steps();
    my $jscript = <<__JSCRIPT__;
    <script>

        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-family:Arial,Verdana,Helvetica,sans-serif; font-size:12px' 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>
	$auto_reg_form
	<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>

__HTML__
print $html;
}

################################################################
### 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 $account_table     = get_account_table($user_key);
    my ($user_table, $player_number) = get_player_table($user_key);
    $active_id{"register"} = "id=current";
    print_steps();

	%reg_form = get_reg_form($org_id, "$reg_year","create_player_account_form", $user_key);
	my $auto_reg_form = "";
	my $first_compare = 1;
    foreach $form_row (sort{$a <=> $b}keys %reg_form){
        if(defined($reg_form{"$form_row"}{"JSCRIPT_VARS"})){
	        $jscript_vars    .= $reg_form{"$form_row"}{"JSCRIPT_VARS"};
	    }
	    if(defined($reg_form{"$form_row"}{"JSCRIPT_COMPARE"})){
		my $or = "";
		    if($first_compare == 1){
			    $first_compare = 0;
			}else{
			    $or = "||"
			}
	        $jscript_compare .= $or . $reg_form{"$form_row"}{"JSCRIPT_COMPARE"} ;
	    }
        $auto_reg_form .= $reg_form{"$form_row"}{"HTML"};
    }	
    #print "<div id=step_choice_container>\n";
    my $phone_validation = get_phone_validation();
    $jscript_compare .= '||(lname.value == "")||(fname.value == "")';
    $submit_to_pay = get_submit_to_pay($user_key);
    my $jscript = <<__JSCRIPT__;
        <script>
        $email_validation
		function verify_register_user(){
		    $jscript_vars
		    var lname      = document.getElementById('lname');
            var fname      = document.getElementById('fname');
			if($jscript_compare){
                        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 $player_header      = "<tr><td bgcolor=#cccccc colspan=2>Player #$player_number</td></tr>";
    my $form_first_name    = "<tr><td align=right>Player First Name*</td><td align=left><input type=text id=fname name=fname></td></tr>";
    my $form_last_name     = "<tr><td align=right>Player Last Name*</td><td align=left><input type=text id=lname name=lname></td></tr>";
 
	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-family:Arial,Verdana,Helvetica,sans-serif; font-size:12px' cellpadding=2 width=550>
    $player_header
	$form_first_name
	$form_last_name
    $auto_reg_form
	
__HTML__



$html .= <<__HTML__;
    <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;
}


############################################
# Check for discount for user (parent) 
############################################
sub check_for_multiplayer_discounts_all_users{
    my $user_key     = shift;
	my $player_key   = shift;
    my $player_count = shift; 
    my $dbh          = get_dbh();
    my $query        = "SELECT `Key`, `Description`, `Discount` FROM `Reg_Multi_Player_Discount` WHERE `Org_ID` = '$org_id' AND `Reg_Year` = '$reg_year' AND `Number_Of_Reg_Players` <= '$player_count' AND `Max_Reg_Players` >= '$player_count'";
    #print "QUERY: $query<br>\n";	
	my $sth          = $dbh->prepare($query);
    $sth->execute();
    while (my $hash_ref = $sth->fetchrow_hashref) {
        my $description = $hash_ref->{Description}; 
        my $discount    = $hash_ref->{Discount};
        my $key         = $hash_ref->{Key};
		#print "DESC: $description, DIS: $discount<br>\n";
		insert_adjustment($user_key, $player_key, $discount, $key, -5);  #-5 just means that its a multiplayer discount 
    }

    
	#print "PLAYER COUNT: $player_count<br>\n";
    # disconnect from database
    $dbh->disconnect;
    $sth->finish();
}

############################################
# This creates the paypal and html for the checkout table.
############################################
sub add_multi_player_discount_all_players{
    my $user_key          = shift;
    my %player_info       = get_player_info($user_key);

    ############################################
    # Loop through players to check for discounts 
    ############################################    
    my $num_players = 0;
    foreach my $user_number (sort {$a <=> $b} (keys %player_info)){
        $num_players++;
        my $player_key = $player_info{$user_number}{"KEY"};
        check_for_multiplayer_discounts_all_users($user_key, $player_key, $num_players);    
    }
}

############################################
# Check to see if multiplayer discounts
# Change because a player was removed
############################################
sub remove_all_multiplayer_discounts_after_remove_player{
    my $user_key          = shift;
    my $player_count      = 1;   # Remove all, there should not be any less then 1? 
    my $dbh               = get_dbh();

    ###################################
    # Remove any discounts that require
    # that require more players
    # then the user now has 
    ###################################
    my $query             = "SELECT `Key`, `Description`, `Discount` FROM `Reg_Multi_Player_Discount` WHERE `Org_ID` = '$org_id' AND `Reg_Year` = '$reg_year' AND `Number_Of_Reg_Players` > '$player_count'";
    #my $query             = "SELECT `Key`, `Description`, `Discount` FROM `Reg_Multi_Player_Discount` WHERE `Org_ID` = '$org_id' AND `Reg_Year` = '$reg_year' AND `Number_Of_Reg_Players` = '$player_count_before_remove'";
	#print "QUERY: $query<br>\n";	
	my $sth          = $dbh->prepare($query);
    $sth->execute();
    ############################################
	# Loop through discounts that need to be removed
    # for discountwwhere the min is greater then
    # the current number of players. 
    ############################################
    while (my $hash_ref = $sth->fetchrow_hashref) {
        my $description = $hash_ref->{Description}; 
        my $discount    = $hash_ref->{Discount};
        my $key         = $hash_ref->{Key};
        change_discounts_to_removed_state($user_key, $key);		
		#print "DESC: $description, DIS: $discount<br>\n";
		#insert_adjustment($user_key, $player_key, $discount, $key, -5);  #-5 just means that its a multiplayer discount 
    }
     
	#print "PLAYER COUNT: $player_count<br>\n";
    # disconnect from database
    $sth->finish();
    $dbh->disconnect;
}

############################################
# Look for any discounts that do not 
# meet player requirement and adjust 
# them in db
############################################
sub change_discounts_to_removed_state{
	my $user_key     = shift;
	my $discount_key = shift;		
    my $dbh          = get_dbh();
    ########################################
    # Select items where Discount = the key for that user
    # and the update account is -5 for discount
    ########################################
    my $query        = "SELECT `Key`, `Player_ID`, `Amount` FROM Reg_All_Transaction WHERE `Check_ID` = '$discount_key' AND `Account_ID` = '$user_key' AND `Update_Account_ID` = '-5'";
	#print "QUERY: $query<br>\n";	
	my $sth          = $dbh->prepare($query);
    $sth->execute();
    while (my $hash_ref = $sth->fetchrow_hashref) {
        my $player_id   = $hash_ref->{Player_ID}; 
        my $amount      = $hash_ref->{Amount};
        my $key         = $hash_ref->{Key};
	    my $option_change_amount = 0 - $amount;
		insert_adjustment($user_key, $player_id, $option_change_amount, "MP Discount Removal 3", -2);  #-2 just means that its an Option Change
        update_adjustment_account_to_show_change($key);
    }
    # disconnect from database
    $dbh->disconnect;
    $sth->finish();
}


sub get_reg_setup{
    my $org_id   = shift;
	my $reg_year = shift;
    my $dbh = get_dbh();
    ################################################################
    # Query DB to verify Session
    ################################################################
	my $query = "SELECT `Secure_URL`, `Org_Dir`, `Reg_File`, `Reg_Admin_File`, `Org_Caps`, `Home_Page_URL`, `Default_State`, `Min_Partial_Pay`, `Reply_To`, `From`, `Org_Full_Name_For_Email`, `Season_Text`, `Welcome_Text`, `Information_Text`, `Pay_Complete_Message`, `Pay_By_Check_Message`, `Paypal_Account`, `Return_URL`, `IPN_URL`, `Paypal_URL`,`Require_Confirmation`, `Require_Confirmation_MSG`, `League_Assign` FROM `Reg_Setup` WHERE `Org_ID` = '$org_id' AND `Reg_Year` = '$reg_year'";
    print "QUERY: $query<br>\n";
	my $sth = $dbh->prepare($query);
    $sth->execute();
    $sth->bind_columns(\$Secure_URL, \$Org_Dir, 
                       \$Reg_File, \$Reg_Admin_File,
                       \$Org_Caps, \$Home_Page_URL,
                       \$Default_State, \$Min_Partial_Pay,
                       \$Reply_To, \$From,
                       \$Org_Full_Name_For_Email, \$Season_Text,
                       \$Welcome_Text, \$Information_Text,
                       \$Pay_Complete_Message, \$Pay_By_Check_Message,
                       \$Paypal_Account, \$Return_URL,
                       \$IPN_URL, \$Paypal_URL,
				       \$Require_Confirmation, \$Require_Confirmation_MSG,
					   \$League_Assign);

    while($sth->fetch()) {
		$min_partial_pay          = $Min_Partial_Pay;
		$reply_to                 = $Reply_To;
		$from                     = $From;
		$org_full_name_for_email  = $Org_Full_Name_For_Email;
		$season_text              = $Season_Text;
		$welcome_text             = $Welcome_Text;
		$information_text         = $Information_Text;
		$pay_complete_message     = $Pay_Complete_Message;
		$pay_by_check_message     = $Pay_By_Check_Message;
		$paypal_acc               = $Paypal_Account;
		$return_url               = $Return_URL;
		$thanks_url               = "$Secure_URL/$Org_Dir/$Reg_File?action=pp";
		$ipn_url                  = $IPN_URL;
		$base_reg_url             = "$Secure_URL/$Org_Dir/$Reg_File";
		$admin_reg_url            = "$Secure_URL/$Org_Dir/$Reg_Admin_File";
		$paypal_url               = $Paypal_URL;
		$default_state            = $Default_State;
		$home_page_url            = $Home_Page_URL;
		$require_confirmation     = $Require_Confirmation;
		$require_confirmation_msg = $Require_Confirmation_MSG;
		$league_assign_on         = $League_Assign;
    }
    $sth->finish();
    $dbh->disconnect;

}
############################################
# Get player info by key
############################################
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 `Key`,`Org_ID`,`Reg_Year`,`Firstname`,`Lastname`,`Account_ID`,`Paid`,`Active`,`Reg_Date`,`Player_Confirmed`,`Assigned_League`,`Assigned_Team` FROM `Reg_Player_Link` WHERE `Key` = '$player_key' AND `Active` = '1' AND `Reg_Year` = '$reg_year' ORDER BY `Key`";
    my $sth = $dbh->prepare($query);
	#print "$query REG YEAR: $reg_year<br>\n";
    $sth->execute();

    $sth->bind_columns(\$Key, \$Org_ID, \$Reg_Year, 
                   \$Firstname, \$Lastname, 
                   \$Account_ID, \$Paid,
                   \$Active, \$Reg_Date,
			       \$Player_Confirmed,
			       \$Assigned_League, \$Assigned_Team);
    $user_number = 1;
    while($sth->fetch()) {
        $return_hash{"KEY"}              = $Key;
        $return_hash{"ORG_ID"}           = $Org_ID;
        $return_hash{"REG_YEAR"}         = $Reg_Year;
        $return_hash{"FIRSTNAME"}        = $Firstname;
        $return_hash{"LASTNAME"}         = $Lastname;
        $return_hash{"ACCOUNT_ID"}       = $Account_ID;
        $return_hash{"PAID"}             = $Paid;
        $return_hash{"ACTIVE"}           = $Active;
        $return_hash{"REG_DATE"}         = $Reg_Date;
		$return_hash{"PLAYER_CONFIRMED"} = $Player_Confirmed;
		$return_hash{"ASSIGNED_LEAGUE"}  = $Assigned_League;
		$return_hash{"ASSIGNED_TEAM"}    = $Assigned_Team;
      
        $user_number++;
    }
    $dbh->disconnect;
    $sth->finish();
    return %return_hash;
}
################################################################
### 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 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 user table show in upper left corner
################################################################
sub get_account_table_admin_box{
    my $user_key = shift;
    my %user_info         = get_account_info($user_key);
    my $return_html = <<__HTML__;
    <table   style='border-collapse:collapse;border:1px solid $site_info{"message_box_bg_color"}' cellpadding=2 width=450px><tr><td  class=admin_form_box><center>Account Owner</center></td></tr>
    <tr><td class=admin_form_body_white  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 adjustment tabel cell for payment screen
############################################
sub get_fees_table_cell_paypal_string_and_total{
    my $player_key      = shift;
	my $style           = shift;
	my $return_cell     = "";
	my $paypal_string   = "";
    my $total           = 0;
	my $total_fee       = 0;
	my $total_paid      = 0;
	my %return_hash     = ();
	my %total_due       = 0;
	my %adjustment_info = ();
    my $return_string   = "";
	my $check_id        = "";
	my $plus_minus      = "";
    my $first           = 1;
	
	############################################
	#Get the adjustments for that player 
	############################################
	($total, $total_fee, $total_paid, %adjustment_info) = get_adjustment_info($player_key);
			
	############################################
	# Loop through all the adjustments to get information about the fees
	############################################
    foreach my $count (sort {$a <=> $b} (keys %adjustment_info)){
	    ############################################
		# If the UPDATE ID is -1 or -3 it was an autmated fee.  
		# So we need to lookup what the fee is using the CHECK_ID field
		############################################
	    if(($adjustment_info{$count}{"UPDATE_ID"} == -1)||($adjustment_info{$count}{"UPDATE_ID"} == -3)){
			$checkout_override = get_checkout_override($adjustment_info{$count}{"CHECK_ID"}, $player_key);
			if($checkout_override eq ""){
			    $check_id = $input_value = get_input_options($adjustment_info{$count}{"CHECK_ID"}, $player_key);
			}else{
			    $check_id = $checkout_override;
			}
		}elsif($adjustment_info{$count}{"UPDATE_ID"} == -5){ #Multiplayer Discount
		    $check_id = get_multiplayer_discount_description($adjustment_info{$count}{"CHECK_ID"}); 
		}else{
		    $check_id = $adjustment_info{$count}{"CHECK_ID"};
		}
	
       #print "COUNT: $count: CHECK: $check_id " . $adjustment_info{$count}{"UPDATE_ID"} . "<br>\n";

		############################################
		#  This is to get the proper + and - for the paypal and pay table cell
		#  because a - number would look like $-10 we just strip it and make it -$10
		# And then for paypal we do not want a + sign to start with.
		############################################
		my $adjustment_amount = $adjustment_info{$count}{"AMOUNT"} + 0;
		my $abs_adjustment_amount = abs($adjustment_amount);

		
		$adjustment_amount = sprintf("%.2f", $adjustment_amount);
		my $display_plus_minus = "";
        $plus_minus = "";
		if(!(($adjustment_info{$count}{"UPDATE_ID"} == -2)||($adjustment_info{$count}{"UPDATE_ID"} == -3))){
            #print "ADJ AMOUNT: $adjustment_amount PM: $plus_minus<br>\n";
		    if($adjustment_amount >= 0){
			    if($first == 0){
		            $plus_minus = " + ";
		    	}
			    ############################################
		        # Set string to first so we do not add a plus or minus in first item
		        ############################################
		        $first = 0;
		    }else{
		    	$plus_minus  = " - ";
				$display_plus_minus = "-";
		        $first = 0;
		    }
			if(($plus_minus ne ' - ')||($adjustment_info{$count}{"UPDATE_ID"} == -5)){ #Only show fees and multiplayer discounts
		    
		        ############################################
		        #  Get the paypal string
		        ############################################
		        $paypal_string .= $plus_minus . '$' . $abs_adjustment_amount . " " . $check_id; 
		
		        ############################################
		        # This creates the cell for the pay table
		        ############################################
				$abs_adjustment_amount = sprintf("%.2f", $abs_adjustment_amount);
				$return_cell   .= $display_plus_minus . '$' . $abs_adjustment_amount . " " . $check_id . "<br>";
                #print "RET CEL: $return_cell<br>\n";
				#$return_cell   .= '$' . $abs_adjustment_amount . " " . $check_id . "<br>";
		    }
		}


	}
    ############################################
	# Calculate return value and set return hash
    ############################################
	$abs_total_paid = abs($total_paid);
    $total_due                       = $total_fee + $total_paid;
	$total_fee                       = sprintf("%.2f", $total_fee);
	$total_paid                      = sprintf("%.2f", $total_paid);
	$total_due                       = sprintf("%.2f", $total_due);
	$abs_total_paid                  = sprintf("%.2f", $abs_total_paid);
	#print "TOTAL PAID: $total_due<br>\n";
	$return_hash{"FEES_CELL"}        = "<td id=$style>" . $return_cell . "</td>\n";
	$return_hash{"TOTAL_FEE_CELL"}   = "<td id=$style>\$" . $total_fee . "</td>\n";
	$return_hash{"TOTAL_PAID_CELL"}  = "<td id=$style>\$" . $abs_total_paid . "</td>\n";
	$return_hash{"TOTAL_DUE_CELL"}   = "<td id=$style>\$" . $total_due . "</td>\n";
	$return_hash{"TOTAL_FEE"}        = $total_fee;
	$return_hash{"TOTAL_PAID"}       = $total_paid;
	$return_hash{"TOTAL_DUE"}        = $total_due;
	$return_hash{"PAYPAL_STRING"}    = $paypal_string;
    return %return_hash;
}

############################################
# Get adjustment info for one player
############################################
sub get_adjustment_info{
    my $player_key    = shift;
    my $return_string = "";
	my %return_hash   = ();
	my $total         = 0;
	my $total_fee     = 0;
	my $total_paid    = 0;
	my $count         = 1;
    my $dbh = get_dbh();
    ################################################################
    # Query DB to verify Session
    ################################################################
	my $query = "SELECT `Key`, `Amount`, `Check_ID`, `Update_Account_ID`, `Date` FROM `Reg_All_Transaction` WHERE `Player_ID` = '$player_key' ORDER BY `Key`";
    #print "QUERY: $query<br>\n";
	my $sth = $dbh->prepare($query);
    $sth->execute();
    $sth->bind_columns(\$Key, \$Amount, \$Check_ID, \$Update_Account_ID, \$Date);

    while($sth->fetch()) {
        $return_hash{$count}{"KEY"} = $Key;
        $return_hash{$count}{"AMOUNT"} = $Amount;
		$return_hash{$count}{"CHECK_ID"} = $Check_ID;
		$return_hash{$count}{"UPDATE_ID"} = $Update_Account_ID;
		$return_hash{$count}{"DATE"} = $Date;
		if(!(($Update_Account_ID == -2)||($Update_Account_ID == -3)||($Update_Account_ID == -5))){
		    if($Amount > 0){
		        $total_fee  = $total_fee + $Amount;
			}else{
			    $total_paid = $total_paid + $Amount;
			}
			$total = $total + $Amount;
		}elsif($Update_Account_ID == -5){
		        $total_fee  = $total_fee + $Amount;
		}
		
		$count++;
    }
	#if($player_key == 1409){
	#print "TOTAL: $total<br>T_PAID: $total_paid<br>FEE: $total_fee<br>\n";
	#}
    $sth->finish();
    $dbh->disconnect;
    return $total, $total_fee, $total_paid, %return_hash;
}

############################################
# Get reg definition info for one cell
############################################
sub get_specific_reg_definition{
    my $org_id    = shift;
	my $reg_year  = shift;
	my $player_id = shift;
	my $reg_key   = shift;
	my %return_hash = ();
    my $dbh = get_dbh();
    ################################################################
    # Query DB to verify Session
    ################################################################
    my $query = "SELECT `Key`,`Description_Text`,`Input_Type`,`Selection_Link`,`Validation_Link`,`Required`,`Order` FROM `Reg_Definition` WHERE `Org_ID` = '$org_id' AND `Reg_Year` = '$reg_year' AND `Key` = '$reg_key';";
    my $sth = $dbh->prepare($query);
    #print "$query<br>\n";
    $sth->execute();
    $sth->bind_columns(\$Key,\$Description_Text,\$Input_Type,\$Selection_Link,\$Validation_Link,\$Required,\$Order);

    while($sth->fetch()) {
        $return_hash{"DESCRIPTION_TEXT"} = $Description_Text;  
        $return_hash{"INPUT_TYPE"}       = $Input_Type;  
        $return_hash{"SELECTION_LINK"}   = $Selection_Link;  
        $return_hash{"VALIDATION_LINK"}  = $Validation_Link;  
        $return_hash{"REQUIRED"}         = $Required;  
        $return_hash{"ORDER"}            = $Order;  
    }
    # disconnect from database
    $sth->finish();
    $dbh->disconnect;
	return %return_hash;
}

############################################
# Return description text for multiplayer discount
############################################
sub get_multiplayer_discount_description{
    my $multiplayer_discount_id = shift;
    my $dbh          = get_dbh();
    my $query        = "SELECT `Description` FROM `Reg_Multi_Player_Discount` WHERE `Key` = '$multiplayer_discount_id'";
    #print "QUERY: $query<br>\n";	
	my $sth          = $dbh->prepare($query);
    $sth->execute();
	my $description = "default discount";
    while (my $hash_ref = $sth->fetchrow_hashref) {
        $description = $hash_ref->{Description}; 
    }
	#print "PLAYER COUNT: $player_count<br>\n";
    # disconnect from database
    $dbh->disconnect;
    $sth->finish();
	return $description;
    
} 

############################################
# Check to see if multiplayer discounts
# Change because a player was removed
############################################
sub verify_multiplayer_discounts_after_remove_player{
    my $user_key          = shift;
    my $remove_player_key = shift;
    my $player_count      = get_player_count($user_key);
    my $dbh               = get_dbh();
    my $query             = "SELECT `Key`, `Description`, `Discount` FROM `Reg_Multi_Player_Discount` WHERE `Org_ID` = '$org_id' AND `Reg_Year` = '$reg_year' AND `Number_Of_Reg_Players` > '$player_count'";
	#print "QUERY: $query<br>\n";	
	my $sth          = $dbh->prepare($query);
    $sth->execute();
    ############################################
	# Loop through discounts that need to be removed
    ############################################
    while (my $hash_ref = $sth->fetchrow_hashref) {
        my $description = $hash_ref->{Description}; 
        my $discount    = $hash_ref->{Discount};
        my $key         = $hash_ref->{Key};
        check_for_discounts_that_need_to_be_removed($user_key, $key);		
		#print "DESC: $description, DIS: $discount<br>\n";
		#insert_adjustment($user_key, $player_key, $discount, $key, -5);  #-5 just means that its a multiplayer discount 
    }
     
	#print "PLAYER COUNT: $player_count<br>\n";
    # disconnect from database
    $sth->finish();
    $dbh->disconnect;

    ############################################
	# Check for chance that the removed user
	# was part of an acitve discount and was not
	# the player that was discounted in which
	# case we need to remove on of the discount
	# from another player
    ############################################
    my $dbh2               = get_dbh();
    my $query2             = "SELECT `Key`, `Description`, `Discount` FROM `Reg_Multi_Player_Discount` WHERE `Org_ID` = '$org_id' AND `Reg_Year` = '$reg_year' AND `Number_Of_Reg_Players` <= '$player_count'";
	#print "QUERY: $query2<br>\n";	
	my $sth2          = $dbh2->prepare($query2);
    $sth2->execute();
    ############################################
	# Loop through discounts that need to be removed
    ############################################
    while (my $hash_ref2 = $sth2->fetchrow_hashref) {
        my $description  = $hash_ref2->{Description}; 
        my $discount     = $hash_ref2->{Discount};
        my $key          = $hash_ref2->{Key};

        my ($amount, $player_discount_key) = get_player_discount($remove_player_key, $key);		
        ############################################
		# If there was no multiplayer discount
		# for the removed player, we have to remove
		# a discount for another player of the same
		# user (parent)
        ############################################
		if($player_discount_key == 0){
            remove_first_multi_player_discount($user_key, $key);
		}
		#print "DESC: $description, DIS: $discount<br>\n";
		#insert_adjustment($user_key, $player_key, $discount, $key, -5);  #-5 just means that its a multiplayer discount 
    }
     
	#print "PLAYER COUNT: $player_count<br>\n";
    # disconnect from database
    $sth2->finish();
    $dbh2->disconnect;
}

############################################
# Remove a multiplayer discount to compensate
# for the removed player which should not have
# been discounted
############################################
sub remove_first_multi_player_discount{
	my $user_key     = shift;
	my $discount_key = shift;		
    my %player_info  = get_player_info($user_key);
	my $removed_discount = 0;
    foreach my $user_number (sort {$a <=> $b} (keys %player_info)){
	    if($removed_discount == 0){
            my $player_key          = $player_info{$user_number}{"KEY"};
            my ($amount, $player_discount_key) = get_player_discount($player_key, $discount_key);		
		    if($player_discount_key > 0){
	            my $option_change_amount = 0 - $amount;
		        insert_adjustment($user_key, $player_key, $option_change_amount, "Multi Player Discount Removal", -2);  #-2 just means that its an Option Change
                update_adjustment_account_to_show_change($player_discount_key);
	            $removed_discount = 1;
			}

		}
	}
}
############################################
# Get the discount for a speific player
# and discount code
############################################
sub get_player_discount{
    my $player_key   = shift;
    my $discount_key = shift;
    my $dbh          = get_dbh();
    my $query        = "SELECT `Key`, `Amount` FROM Reg_All_Transaction WHERE `Check_ID` = '$discount_key' AND `Update_Account_ID` = '-5' AND `Player_ID` = '$player_key'";
	#print "QUERY: $query<br>\n";	
	my $sth          = $dbh->prepare($query);
    $sth->execute();
	my $amount              = 0;
	my $player_discount_key = 0;
    while (my $hash_ref = $sth->fetchrow_hashref) {
        $amount              = $hash_ref->{Amount};
        $player_discount_key = $hash_ref->{Key};
	    my $option_change_amount = 0 - $amount;
		insert_adjustment($user_key, $player_id, $option_change_amount, "ADJUST MP Discount", -2);  #-2 just means that its an Option Change
        update_adjustment_account_to_show_change($key);
		#insert_adjustment($user_key, $player_key, $discount, $key, -5);  #-5 just means that its a multiplayer discount 
    }
    # disconnect from database
    $dbh->disconnect;
    $sth->finish();
	return $amount, $player_discount_key;
}

############################################
# Look for any discounts that do not 
# meet player requirement and adjust 
# them in db
############################################
sub check_for_discounts_that_need_to_be_removed{
	my $user_key     = shift;
	my $discount_key = shift;		
    my $dbh          = get_dbh();
    my $query        = "SELECT `Key`, `Player_ID`, `Amount` FROM Reg_All_Transaction WHERE `Check_ID` = '$discount_key' AND `Account_ID` = '$user_key' AND `Update_Account_ID` = '-5'";
	#print "QUERY: $query<br>\n";	
	my $sth          = $dbh->prepare($query);
    $sth->execute();
    while (my $hash_ref = $sth->fetchrow_hashref) {
        my $player_id   = $hash_ref->{Player_ID}; 
        my $amount      = $hash_ref->{Amount};
        my $key         = $hash_ref->{Key};
	    my $option_change_amount = 0 - $amount;
		insert_adjustment($user_key, $player_id, $option_change_amount, "ADJUST MP Discount", -2);  #-2 just means that its an Option Change
        update_adjustment_account_to_show_change($key);
		#insert_adjustment($user_key, $player_key, $discount, $key, -5);  #-5 just means that its a multiplayer discount 
    }

    
	#print "PLAYER COUNT: $player_count<br>\n";
    # disconnect from database
    $dbh->disconnect;
    $sth->finish();
}
############################################
# Check for discount for user (parent) 
############################################
sub check_for_multiplayer_discounts{
    my $user_key     = shift;
	my $player_key   = shift;
    my $player_count = get_player_count($user_key);
    my $dbh          = get_dbh();
    my $query        = "SELECT `Key`, `Description`, `Discount` FROM `Reg_Multi_Player_Discount` WHERE `Org_ID` = '$org_id' AND `Reg_Year` = '$reg_year' AND `Number_Of_Reg_Players` <= '$player_count'";
    #print "QUERY: $query<br>\n";	
	my $sth          = $dbh->prepare($query);
    $sth->execute();
    while (my $hash_ref = $sth->fetchrow_hashref) {
        my $description = $hash_ref->{Description}; 
        my $discount    = $hash_ref->{Discount};
        my $key         = $hash_ref->{Key};
		#print "DESC: $description, DIS: $discount<br>\n";
		insert_adjustment($user_key, $player_key, $discount, $key, -5);  #-5 just means that its a multiplayer discount 
    }

    
	#print "PLAYER COUNT: $player_count<br>\n";
    # disconnect from database
    $dbh->disconnect;
    $sth->finish();
}

############################################
# Get number of players per user(parent) 
############################################
sub get_player_count{
    my $user_key     = shift;
    my $dbh = get_dbh();
    my $query = "SELECT COUNT(*) FROM `Reg_Player_Link` WHERE `Account_ID` = '$user_key' AND `Active` = '1' AND `Reg_Year` = '$reg_year'";
	my $sth = $dbh->prepare($query);
	#print "QUERY: $query<br>\n";
    $sth->execute();
    my $player_count = $sth->fetchrow_arrayref->[0];

    # disconnect from database
    $dbh->disconnect;
    $sth->finish();
	return $player_count;

}

############################################
# Get player info
############################################
sub get_player_info_with_filter{
    my $user_key      = shift;
	my $player_filter = shift;
   
    my $return_hash = 0;
    my %return_hash = ();
    my $dbh = get_dbh();
    ################################################################
    # Query DB to verify Session
    ################################################################
    #my $query = "SELECT `Key`,`Org_ID`,`Reg_Year`,`Firstname`,`Lastname`,`Account_ID`,`Paid`,`Active`,`Reg_Date`,`Player_Confirmed`,`Assigned_League`,`Assigned_Team` FROM `Reg_Player_Link` WHERE `Account_ID` = '$user_key' AND `Active` = '1' AND `Reg_Year` = '$reg_year' $player_filter ORDER BY `Key` ";
    my $query = "SELECT `Key`,`Org_ID`,`Reg_Year`,`Firstname`,`Lastname`,`Account_ID`,`Paid`,`Active`,`Reg_Date`,`Player_Confirmed`,`Assigned_League`,`Assigned_Team` FROM `Reg_Player_Link` WHERE `Account_ID` = '$user_key' AND `Reg_Year` = '$reg_year' $player_filter ORDER BY `Key` ";
    my $sth = $dbh->prepare($query);
    #print "$query<br>\n";
    $sth->execute();

    $sth->bind_columns(\$Key, \$Org_ID, \$Reg_Year, 
                   \$Firstname, \$Lastname, 
                   \$Account_ID, \$Paid,
                   \$Active, \$Reg_Date,
			       \$Player_Confirmed,
			       \$Assigned_League, \$Assigned_Team);
    $user_number = 1;
    while($sth->fetch()) {
        $return_hash{$user_number}{"KEY"}              = $Key;
        $return_hash{$user_number}{"ORG_ID"}           = $Org_ID;
        $return_hash{$user_number}{"REG_YEAR"}         = $Reg_Year;
        $return_hash{$user_number}{"FIRSTNAME"}        = $Firstname;
        $return_hash{$user_number}{"LASTNAME"}         = $Lastname;
        $return_hash{$user_number}{"ACCOUNT_ID"}       = $Account_ID;
        $return_hash{$user_number}{"PAID"}             = $Paid;
        $return_hash{$user_number}{"ACTIVE"}           = $Active;
        $return_hash{$user_number}{"REG_DATE"}         = $Reg_Date;
        $return_hash{$user_number}{"PLAYER_CONFIRMED"} = $Player_Confirmed;
		$return_hash{$user_number}{"ASSIGNED_LEAGUE"}  = $Assigned_League;
		$return_hash{$user_number}{"ASSIGNED_TEAM"}    = $Assigned_Team;

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

############################################
# 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 `Key`,`Org_ID`,`Reg_Year`,`Firstname`,`Lastname`,`Account_ID`,`Paid`,`Active`,`Reg_Date`,`Player_Confirmed`,`Assigned_League`,`Assigned_Team` FROM `Reg_Player_Link` WHERE `Account_ID` = '$user_key' AND `Active` = '1' AND `Reg_Year` = '$reg_year' ORDER BY `Key`";
    my $sth = $dbh->prepare($query);
    #print "$query<br>\n";
    $sth->execute();

    $sth->bind_columns(\$Key, \$Org_ID, \$Reg_Year, 
                   \$Firstname, \$Lastname, 
                   \$Account_ID, \$Paid,
                   \$Active, \$Reg_Date,
			       \$Player_Confirmed,
			       \$Assigned_League, \$Assigned_Team);
    $user_number = 1;
    while($sth->fetch()) {
        $return_hash{$user_number}{"KEY"}              = $Key;
        $return_hash{$user_number}{"ORG_ID"}           = $Org_ID;
        $return_hash{$user_number}{"REG_YEAR"}         = $Reg_Year;
        $return_hash{$user_number}{"FIRSTNAME"}        = $Firstname;
        $return_hash{$user_number}{"LASTNAME"}         = $Lastname;
        $return_hash{$user_number}{"ACCOUNT_ID"}       = $Account_ID;
        $return_hash{$user_number}{"PAID"}             = $Paid;
        $return_hash{$user_number}{"ACTIVE"}           = $Active;
        $return_hash{$user_number}{"REG_DATE"}         = $Reg_Date;
        $return_hash{$user_number}{"PLAYER_CONFIRMED"} = $Player_Confirmed;
		$return_hash{$user_number}{"ASSIGNED_LEAGUE"}  = $Assigned_League;
		$return_hash{$user_number}{"ASSIGNED_TEAM"}    = $Assigned_Team;

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

############################################
# Return html for checkout header
############################################
sub get_checkout_header{
    my $header = shift;
    my $checkout_header = "<table   style='border-collapse:collapse;border:1px solid #8480a2' cellpadding=2><tr><td colspan=8 id=admin_header><center>$header</center></td></tr>\n";
    $checkout_header   .= "<tr><td id=admin_header align=center>Name</td><td id=admin_header align=center>Fee</td><td id=admin_header align=center>Total</td><td id=admin_header align=center>Paid</td><td id=admin_header align=center>Due</td></tr>\n";
    return $checkout_header;
}

############################################
# Return html for paypal that wont change
############################################
sub get_paypal_const{
	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";
	return $pay_pal;
}

sub get_checkout_row_for_player_and_total_due_and_pay_pal{
    my $player_key = shift;
	my $first_name = shift;
	my $last_name  = shift;
	my $style      = shift;
    my $player_row = "";
	my %checkout_hash  = get_fees_table_cell_paypal_string_and_total($player_key, $style);
    $player_row .= "<tr><td id=$style>$first_name $last_name</td>\n";
    $player_row .= $checkout_hash{"FEES_CELL"} . $checkout_hash{"TOTAL_FEE_CELL"} . $checkout_hash{"TOTAL_PAID_CELL"} . $checkout_hash{"TOTAL_DUE_CELL"} . "</tr>";

	#print "A_DUE: $amount_due<br>\n";
	return $player_row, %checkout_hash;
}
			
############################################
# This creates the paypal and html for the checkout table.
############################################
sub get_checkout_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;
	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 = get_checkout_header("Registered Players");
	my $pay_pal    = get_paypal_const();

    ############################################
    # Loop through players to create the display cell, paypal info and calculate totals
    ############################################    
    foreach my $user_number (sort {$a <=> $b} (keys %player_info)){
            $num_players++;
			my $fees_cell       = "";
			my $total           = 0;
			my $player_total    = 0; # this is just in case there are other adjustments
            my $player_key      = $player_info{$user_number}{"KEY"};
            #my $amount_paid     = $player_info{$user_number}{"PAID"};
			############################################
            # Get the cell with a list of what is due for player, plus the paypal string
            # that gets sent to have an itemized list on pay pal.			
			############################################  
			my ($player_row, %checkout_hash) = get_checkout_row_for_player_and_total_due_and_pay_pal($player_key, $player_info{$user_number}{"FIRSTNAME"}, $player_info{$user_number}{"LASTNAME"}, "cal_events3");
            my $amount_due    = $checkout_hash{"TOTAL_DUE"};
	        my $paypal_string = $checkout_hash{"PAYPAL_STRING"};
	        my $total_paid    = $checkout_hash{"TOTAL_PAID"};

			$user_table .= $player_row;
			
			#$amount_due =  .02;
			############################################
            # Store temporary paypal record.  This will not be valid until the paypal tx is finished.			
			############################################  
            if($by_check == 0){
                insert_tmp_paypal($user_key, $player_key, $amount_due, $transaction_id);
            }
            
			############################################
            # Add player specific paypal info			
			############################################  
            $pay_pal .= "<input type=\"hidden\" name=\"item_name_" . $pay_pal_count . "\" value=\"$player_info{$user_number}{\"FIRSTNAME\"} $player_info{$user_number}{\"LASTNAME\"}  ($paypal_string)\">\n";
            $pay_pal .= "<input type=\"hidden\" name=\"amount_" . $pay_pal_count . "\" value=\"$amount_due\">\n";
            $pay_pal_count++;
					
			############################################
            # Keep running total of amount due for user			
			############################################  
            $total_cost = $amount_due + $total_cost;
            
    }
	############################################
	# Finish user table
	############################################
	$total_cost  = sprintf("%.2f", $total_cost);
    $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 its not pay by check, create form for submitting
	############################################
	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";
        $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";
    }
    
    ############################################
	# If its not pay by check, give them thier payment options. Notice that
	# this is stored in the pay_pal portion. I think this is becuase it gets 
	# printed to the screen after the others.
	############################################
    $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='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 .= "</form>\n";
	
	############################################
	# If it is pay by check.  Display where to send it.  Stored in var
	############################################
    if($by_check == 1){
        $user_table .= "<table border=0><tr><td style=\"font-size:10pt;color:black;font-family: Arial, Helvetica;\">$pay_by_check_message<br>\n";
		if($org_id == 167){ # Plymouth required forms
	    	$user_table .= "<center><a href=print_forms.html?user_key=$user_key target=new><font size=3><b>Print Registration Confirmation and Player Forms</b></a></font></center><br>\n";
	    }
        $user_table .= "<form name=pay_by_check_form METHOD =\"$method\" ACTION=\"$home_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_num_players_and_total_cost{
    my $user_key          = shift;
    my %player_info       = get_player_info($user_key);
    my $num_players       = 0;
    my $total_cost        = 0;
    my $player_min        = 99999;


    foreach my $user_number (sort {$a <=> $b} (keys %player_info)){
            $num_players++;
		    my $player_total    = 0;
	        my %adjustment_info = ();	
			my $player_key  = $player_info{$user_number}{"KEY"};
			my $amount_paid = $player_info{$user_number}{"PAID"};
			($player_total, %adjustment_info) = get_adjustment_info($player_key);
            
            $player_total = $player_total - $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;

}

############################################
# This creates the paypal and html for the partial_checkout table.
############################################
sub get_partial_checkout_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 = get_checkout_header("Registered Players");  
    my $pay_pal    = get_paypal_const();
	
    ############################################
    # Loop through players to create the display cell, paypal info and calculate totals
    ############################################  
    foreach my $user_number (sort {$a <=> $b} (keys %player_info)){
            $num_players++;
			$player_key  = $player_info{$user_number}{"KEY"};
			
		    ############################################
            # Get the cell with a list of what is due for player, plus the paypal string
            # that gets sent to have an itemized list on pay pal.			
			############################################  
			my ($player_row, %checkout_hash) = get_checkout_row_for_player_and_total_due_and_pay_pal($player_key, $player_info{$user_number}{"FIRSTNAME"}, $player_info{$user_number}{"LASTNAME"}, "cal_events3");
            
			my $amount_due    = $checkout_hash{"TOTAL_DUE"};
	        my $paypal_string = $checkout_hash{"PAYPAL_STRING"};
	        my $total_paid    = $checkout_hash{"TOTAL_PAID"};
			$user_table      .= $player_row;
			
			############################################
            # Calculate what the player owes and fill that cell  Also, do some conversions to
            # two decimal places			
			############################################ 

            $max_pay = $amount_due;
            my $amount_to_deduct = get_amount_to_deduct($partial, ($total_num_players - $num_players + 1), $total_cost, $max_pay, $player_min);

            #$amount_to_deduct = .02;
			############################################
            # Store temporary paypal record.  This will not be valid until the paypal tx is finished.			
			############################################  
            insert_tmp_paypal($user_key, $player_key, $amount_to_deduct, $transaction_id);
			

            $balance = $balance + $amount_due;
			
			############################################
            # Add player specific paypal info			
			############################################  
            $pay_pal .= "<input type=\"hidden\" name=\"item_name_" . $pay_pal_count . "\" value=\"$player_info{$user_number}{\"FIRSTNAME\"} $player_info{$user_number}{\"LASTNAME\"}  ($paypal_string)\">\n";
            $pay_pal .= "<input type=\"hidden\" name=\"amount_" . $pay_pal_count . "\" value=\"$amount_to_deduct\">\n";
            $pay_pal_count++;
			
		    ############################################
            # Keep running total of amount due for user			
			############################################  
            $total_cost = $amount_to_deduct + $total_cost;
    }
	
	############################################
	# Finish user table
	# if by_check equals 2, then we are confirming the payment
	############################################
	$total_remaining  = $balance - $total_cost;
	$total_remaining  = sprintf("%.2f", $total_remaining);
	$balance          = sprintf("%.2f", $balance);
	$total_cost       = sprintf("%.2f", $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";
	    $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.pay_pal_form.submit();\"></td></tr>\n";
        $user_table .= "<input type=hidden name=partial_amount id=partial_amount value=$total_cost>\n";
		$this_action = "partial";
	}else{
        $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> <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";
        $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";
	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 .= "</form><br>\n";
    if($by_check == 1){
        $user_table .= "<table border=0><tr><td>$pay_by_check_message\n";
    }

    return $user_table, $pay_pal, $balance;

}

############################################
# Get the Registration values by player
############################################
sub get_reg_definition_hash{
    my $org_id   = shift;
	my $reg_year = shift;
	my %return_hash = ();
    my $dbh = get_dbh();
    ################################################################
    # Query DB to verify Session
    ################################################################
    my $query = "SELECT `Key`,`Description_Text`,`Input_Type`,`Selection_Link`,`Validation_Link`,`Required`,`Order` FROM `Reg_Definition` WHERE `Org_ID` = '$org_id' AND `Reg_Year` = '$reg_year';";
    my $sth = $dbh->prepare($query);
    #print "$query<br>\n";
    $sth->execute();
    $sth->bind_columns(\$Key,\$Description_Text,\$Input_Type,\$Selection_Link,\$Validation_Link,\$Required,\$Order);

    while($sth->fetch()) {
        #print "INPUT TYPE: $Input_Type : $Key : $player_id<br>\n";
        $return_hash{$Key}{"INPUT_TYPE"}      = $Input_Type;   
        $return_hash{$Key}{"DESCRIPTION"}     = $Description_Text;   
        $return_hash{$Key}{"SELECTION_LINK"}  = $Selection_Link;   
        $return_hash{$Key}{"VALIDATION_LINK"} = $Validation_Link;   
        $return_hash{$Key}{"REQUIRED"}        = $Required;   
        $return_hash{$Key}{"ORDER"}           = $Order;   
    }
    # disconnect from database
    $sth->finish();
    $dbh->disconnect;
	return %return_hash;
}

############################################
# Get the Registration values by player
############################################
sub get_reg_values_by_player_from_hash{
    my $org_id   = shift;
	my $reg_year = shift;
	my $player_id = shift;
    my $reg_definition_hash_ref = shift;
    my %reg_definition = %{$reg_definition_hash_ref};

	my %return_hash = ();
   
    foreach my $Key (keys %reg_definition){
        my $Input_Type = $reg_definition{$Key}{"INPUT_TYPE"};
        #print "INPUT TYPE: $Input_Type : $Key : $player_id<br>\n";
        $return_hash{$Key} = get_cell_value($Input_Type,$Key,$player_id);  
    }
	return %return_hash;
}

############################################
# Get the Registration values by player
############################################
sub get_reg_values_by_player{
    my $org_id   = shift;
	my $reg_year = shift;
	my $player_id = shift;
	my %return_hash = ();
    my $dbh = get_dbh();
    ################################################################
    # Query DB to verify Session
    ################################################################
    my $query = "SELECT `Key`,`Description_Text`,`Input_Type`,`Selection_Link`,`Validation_Link`,`Required`,`Order` FROM `Reg_Definition` WHERE `Org_ID` = '$org_id' AND `Reg_Year` = '$reg_year';";
    my $sth = $dbh->prepare($query);
    #print "$query<br>\n";
    $sth->execute();
    $sth->bind_columns(\$Key,\$Description_Text,\$Input_Type,\$Selection_Link,\$Validation_Link,\$Required,\$Order);

    while($sth->fetch()) {
        #print "INPUT TYPE: $Input_Type : $Key : $player_id<br>\n";
        $return_hash{$Key} = get_cell_value($Input_Type,$Key,$player_id);  
    }
    # disconnect from database
    $sth->finish();
    $dbh->disconnect;
	return %return_hash;
}

############################################
# Get value for a cell
############################################
sub get_cell_value{
    my $Input_Type       = shift;
	my $Key              = shift;
	my $player_id        = shift;
	my $return_html = "";
	if($Input_Type == 1){ # HEADER
		$return_html = "<tr><td bgcolor=#cccccc colspan=2>$Description_Text</td></tr>";
	}elsif($Input_Type == 2){ #INPUT
		$input_value = get_input_text($Key, $player_id);
	}elsif($Input_Type == 3){ #Select Dropdown
	    $input_value = get_input_options($Key, $player_id);
	}elsif($Input_Type == 4){ #Date
		$input_value = get_input_date($Key, $player_id);
		$input_value = get_view_date_format($input_value);
	}elsif($Input_Type == 5){ #Radio
		$input_value = get_input_options($Key, $player_id);
	}elsif($Input_Type == 6){ #Textarea
		$input_value = get_input_longtext($Key, $player_id);
	}elsif($Input_Type == 7){ #CheckBox
		$input_value = get_input_checked($Key, $player_id);
		$checked = "";
		if($input_value == 1){
			$checked = "CHECKED";
		}
		$input_value = $checked;
	}elsif($Input_Type == 10){ #Select Dropdown Long value with payment attached
	    $input_value = get_input_options($Key, $player_id);
	}elsif($Input_Type == 11){ #Radio with payment attached
		$input_value = get_input_options($Key, $player_id);
	}elsif($Input_Type == 12){ #Input - Hidden
		$input_value = get_input_text($Key, $player_id);
    }elsif($Input_Type == 13){ #Select Dropdown with pay - Hidden
	    $input_value = get_input_options($Key, $player_id);
        #print "HIDDEN DROPDOWN: $input_value - $Key, $player_id<br>\n";
    }
    return $input_value;
}

sub get_input_date{
    my $reg_id      = shift;
    my $player_id   = shift;
	my $input_text  = "";
	my $dbh = get_dbh();
    my $query = "SELECT `Input_Date` FROM Reg_Input_Date WHERE `Reg_ID` = '$reg_id' AND `Player_ID` = '$player_id';";
    #print "QUERY: $query<br>\n";
    
    my $sth = $dbh->prepare($query);
    $sth->execute();
    $sth->bind_columns(\$Input_Date);
   
    while($sth->fetch()) {
        $input_date = $Input_Date;
	}
	$sth->finish();
    $dbh->disconnect;
	return $input_date;
}
sub get_input_longtext{
    my $reg_id      = shift;
    my $player_id   = shift;
	my $input_text  = "";
	my $dbh = get_dbh();
    my $query = "SELECT `Input_Longtext` FROM Reg_Input_Longtext WHERE `Reg_ID` = '$reg_id' AND `Player_ID` = '$player_id';";
    #print "QUERY: $query<br>\n";
    
    my $sth = $dbh->prepare($query);
    $sth->execute();
    $sth->bind_columns(\$Input_Text);
   
    while($sth->fetch()) {
        $input_text = $Input_Text;
	}
	$sth->finish();
    $dbh->disconnect;
	return $input_text;
}
sub get_input_text{
    my $reg_id      = shift;
    my $player_id   = shift;
	my $input_text  = "";
	my $dbh = get_dbh();
    my $query = "SELECT `Input_Text` FROM Reg_Input_Text WHERE `Reg_ID` = '$reg_id' AND `Player_ID` = '$player_id';";
    #print "QUERY: $query<br>\n";
    
    my $sth = $dbh->prepare($query);
    $sth->execute();
    $sth->bind_columns(\$Input_Text);
   
    while($sth->fetch()) {
        $input_text = $Input_Text;
	}
	$sth->finish();
    $dbh->disconnect;
	return $input_text;
}

sub get_input_checked{
    my $reg_id      = shift;
    my $player_id   = shift;
	my $input_value  = "";
	my $dbh = get_dbh();
    my $query = "SELECT `Input_Option` FROM Reg_Input_Options WHERE `Reg_ID` = '$reg_id' AND `Player_ID` = '$player_id';";
    print "QUERY: $query<br>\n";
    
    my $sth = $dbh->prepare($query);
    $sth->execute();
    $sth->bind_columns(\$Input_Value);
   
    while($sth->fetch()) {
        $input_value = $Input_Value;
	}
	$sth->finish();
    $dbh->disconnect;
	return $input_value;
}
sub get_input_options{
    my $reg_id      = shift;
    my $player_id   = shift;
	my $input_value  = "";
	my $dbh = get_dbh();
    my $query = "SELECT a.`Option` FROM Reg_Options a, Reg_Input_Options b WHERE b.`Reg_ID` = '$reg_id' AND b.`Player_ID` = '$player_id' AND b.`Input_Option` = a.`Key`;";
    #print "QUERY: $query<br>\n";
    
    my $sth = $dbh->prepare($query);
    $sth->execute();
    $sth->bind_columns(\$Input_Value);
   
    while($sth->fetch()) {
        $input_value = $Input_Value;
	}
	$sth->finish();
    $dbh->disconnect;
	return $input_value;
}

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


###################################
# Update Player Status
###################################
sub update_player_status{
    my $user_key   = shift; 
	my $player_key = shift;
	my $status     = shift;
    my $query = "UPDATE `Reg_Player_Link` SET `Player_Confirmed` = '$status' WHERE `Key` = '$player_key' LIMIT 1";
    my $dbh = get_dbh();
    my $sth = $dbh->prepare($query);
    $sth->execute();
    $sth->finish();
    $dbh->disconnect;


}

###################################
# Update Player TEAM AND LEAGUE ASSIGNMENT
###################################
sub update_player_assignment{
    my $user_key      = shift; 
	my $player_key    = shift;
	my $league_assign = shift;
	my $team_assign   = shift;

    my $query = "UPDATE `Reg_Player_Link` SET `Assigned_League` = '$league_assign', `Assigned_Team` = '$team_assign' WHERE `Key` = '$player_key' LIMIT 1";
    #print "QUERY: $query<br>\n"; 
	my $dbh = get_dbh();
    my $sth = $dbh->prepare($query);
    $sth->execute();
    $sth->finish();
    $dbh->disconnect;


}
###################################
# Update Player Name
###################################
sub update_player_name{
    my $player_key = shift; 
	my $first_name = shift;
	my $last_name  = shift;
    my $query = "UPDATE Reg_Player_Link SET `Firstname` = '$first_name', `Lastname` = '$last_name' 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;

}

###################################
# Set Player Active to 0
###################################
sub remove_player{
    my $player_key = shift; 
    my $query = "UPDATE Reg_Player_Link 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 All Independent Teams and Leagues for ORG
############################################
sub get_leagues_and_independent_teams_by_org{
    my $org_id = shift;
    my $dbh = get_dbh(); 

    # prepare and execute query
    #my $query = "SELECT `Key`, `League_Name` FROM League_Info WHERE `Org_ID` = '$org_id'";
    my $query = "SELECT `League_ID`, `Menu_Name` FROM Menu_Info WHERE `Org_ID` = '$org_id' AND (`Menu_Type` = 'league' OR `Menu_Type` = 'team')";
	#print "SELECT: $query<br>\n";
	my $sth = $dbh->prepare($query);
    my %return_hash = ();
    my $ID;
    
    $sth->execute();

    # assign fields to variables
    $sth->bind_columns(\$ID, \$League_Name);
    
    # output name list to the browser
    while($sth->fetch()) {
       $return_hash{$League_Name} = $ID;
    }

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

############################################
# Get All Teams and Leagues for ORG
############################################
sub get_leagues_and_teams_by_org{
    my $org_id = shift;
	my %return_hash;

    ############################################
	# Loop through leagues
    ############################################
    my %leagues = get_leagues_and_independent_teams_by_org($org_id);
    foreach my $league (sort {$a cmp $b} keys %leagues){
	    #print "LEAGUE: $league<br>\n";
        $return_hash{$league}{"LEAGUE_ID"} = $leagues{$league}; 

        ############################################
	    # Loop through teams
        ############################################
		my %teams     = get_league_teams($leagues{$league});
		foreach my $team (sort {$a cmp $b} keys %teams){
            $return_hash{$league}{$team} = $teams{$team}; 
		}
	}
	return %return_hash;
}

############################################
# Get All Teams and Leagues for ORG
############################################
sub get_leagues_and_teams_by_org_for_id_lookup{
    my $org_id = shift;
	my %return_hash;

    ############################################
	# Loop through leagues
    ############################################
    my %leagues = get_leagues_and_independent_teams_by_org($org_id);
    foreach my $league (sort {$a cmp $b} keys %leagues){
        $return_hash{$leagues{$league}}{"LEAGUE_NAME"} = $league; 

        ############################################
	    # Loop through teams
        ############################################
		my %teams     = get_league_teams($leagues{$league});
		foreach my $team (sort {$a cmp $b} keys %teams){
            $return_hash{$leagues{$league}}{$teams{$team}} = $team; 
			#print "LEAGUE: $leagues{$league} $teams{$team} : $team<br>\n";
		}
	}
	return %return_hash;
}

############################################
# Get how much the player is due for a specific field
############################################
sub get_checkout_override{
    my $option_id   = shift;
	my $player_id   = shift;
    my $checkout_override      = "";
	my $dbh = get_dbh();
    #my $query = "SELECT `Checkout_Override` FROM `Reg_Payment_Definition` WHERE `Option_ID` = '$option_id' ;";
    my $query = "SELECT a.`Checkout_Override` FROM Reg_Payment_Definition a, Reg_Input_Options b WHERE b.`Reg_ID` = '$option_id' AND b.`Player_ID` = '$player_id' AND b.`Input_Option` = a.`Option_ID`;";
 
    #print "QUERY: $query<br>\n";
    
    my $sth = $dbh->prepare($query);
    $sth->execute();
    $sth->bind_columns(\$Checkout_Override);
   
    while($sth->fetch()) {
        $checkout_override = $Checkout_Override;
	}
	$sth->finish();
    $dbh->disconnect;
	return $checkout_override;
}
############################################
# Get how much the player is due for a specific field
############################################
sub get_option_payment_amount{
    my $option_id   = shift;
    my $amount      = 0;
	my $dbh = get_dbh();
    my $query = "SELECT `Amount` FROM `Reg_Payment_Definition` WHERE `Option_ID` = '$option_id' ;";
    #print "QUERY: $query<br>\n";
    
    my $sth = $dbh->prepare($query);
    $sth->execute();
    $sth->bind_columns(\$Amount);
   
    while($sth->fetch()) {
        $amount = $Amount;
	}
	$sth->finish();
    $dbh->disconnect;
	return $amount;
}
################################################################
###  Get params and update DB
################################################################
sub get_player_params_and_update_database{
    my $org_id    = shift;
	my $reg_year  = shift;
	my $player_id = shift;
	my $user_id   = shift;
    my $dbh = get_dbh();

    ################################################################
    # Query DB to verify Session
    ################################################################
    my $query = "SELECT `Key`,`Description_Text`,`Input_Type`,`Selection_Link`,`Validation_Link`,`Required`,`Order` FROM `Reg_Definition` WHERE `Org_ID` = '$org_id' AND `Reg_Year` = '$reg_year';";
    my $sth = $dbh->prepare($query);
    #print "$query<br>\n";
    $sth->execute();
    $sth->bind_columns(\$Key,\$Description_Text,\$Input_Type,\$Selection_Link,\$Validation_Link,\$Required,\$Order);
   
    while($sth->fetch()) {
	    my $reg_id = "REG" . $Key;
		my $required = "";

	    if($Input_Type == 1){ # HEADER
		}elsif($Input_Type == 2){ #INPUT
		    $return_hash{$reg_id} = get_param($reg_id);
			insert_text($Key, $player_id, $return_hash{$reg_id});
		}elsif($Input_Type == 3){ #Select Dropdown
		    $return_hash{$reg_id} = get_param($reg_id);
			insert_option($Key, $player_id, $return_hash{$reg_id});
		}elsif($Input_Type == 4){ #Date
		    my $dob1 = get_param('dob1');
		    my $dob2 = get_param('dob2');
		    my $dob3 = get_param('dob3');
			my $dob  = $dob1 . "/" . $dob2 . "/" . $dob3;
		    $dob = get_db_date_format($dob); 
            $return_hash{$reg_id} = $dob;
			insert_date($Key, $player_id, $return_hash{$reg_id});

			#my $dob = get_param($reg_id);
			#$dob = get_db_date_format($dob); 
			#$return_hash{$reg_id} = $dob;
			#insert_date($Key, $player_id, $return_hash{$reg_id});
		}elsif($Input_Type == 5){ #Radio
            $return_hash{$reg_id} = get_param($reg_id);
			insert_option($Key, $player_id, $return_hash{$reg_id});
		}elsif($Input_Type == 6){ #Textarea
            $return_hash{$reg_id} = get_param($reg_id);		
			insert_longtext($Key, $player_id, $return_hash{$reg_id});
		}elsif($Input_Type == 7){ #CheckBox
		    my $check_box = get_param($reg_id);	
			if($check_box eq "on"){
			   $check_box = 1;
            }else{
               $check_box = 0;
            }
            $return_hash{$reg_id} = $check_box;		
			insert_option($Key, $player_id, $return_hash{$reg_id});
		}elsif($Input_Type == 10){ #Select Dropdown with payment attached
		    $return_hash{$reg_id} = get_param($reg_id);
			insert_option($Key, $player_id, $return_hash{$reg_id});	
			update_adjustment_table_from_input($return_hash{$reg_id}, $user_id, $player_id, $Key);
		}elsif($Input_Type == 11){ #Radio with payment attached
            $return_hash{$reg_id} = get_param($reg_id);
			insert_option($Key, $player_id, $return_hash{$reg_id});
			my $player_amount_due = get_option_payment_amount($return_hash{$reg_id});
			update_adjustment_table_from_input($return_hash{$reg_id}, $user_id, $player_id, $Key);
		}

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


#update_database_for_hidden_fields($org_id, $reg_year, $player_key, $user_key, 12, 37, $team_reg_value);
sub update_database_for_hidden_fields{
    my $org_id     = shift;
	my $reg_year   = shift;
	my $player_id  = shift;
	my $user_id    = shift;
    my $Input_Type = shift;
    my $reg_key    = shift;
    my $reg_value  = shift;
	if($Input_Type == 12){ # Hidden text
			insert_text($reg_key, $player_id, $reg_value);
            #print "INSERTING TEXT: $reg_key, $player_id, $reg_value<br>\n";
    }elsif($Input_Type == 13){ #Select Dropdown with payment attached
            #print "INSERTING OPTION: $reg_key, $player_id, $reg_value<br>\n";
			insert_option($reg_key, $player_id, $reg_value);	
			update_adjustment_table_from_input($reg_value, $user_id, $player_id, $reg_key);
	}

}
sub update_adjustment_table_from_input{
    my $option_id  = shift;
	my $user_id    = shift;
	my $player_id  = shift;
	my $reg_def_id = shift; # The reg definition id gets inserted as the check id
	my $player_amount_due = get_option_payment_amount($option_id);
	my $update            = check_if_its_an_update_for_that_user($user_id, $reg_def_id, $player_id, $player_amount_due);
	if(($player_amount_due >= 0)&&($update == 1)){ # -1 means no update
	    insert_adjustment($user_id, $player_id, $player_amount_due, $reg_def_id, -1);  #-1 just means that its an auto update and it should get the text for trx from reg definition
    }
}
sub check_if_its_an_update_for_that_user{
    my $user_id        = shift;
    my $reg_def_id     = shift;
	my $player_id      = shift;
	my $new_amount_due = shift;
	my $update         = 1;
	my $dbh        = get_dbh();
    my $query      = "SELECT `Key` , `Account_ID`, `Amount`, `Check_ID`, `Date` FROM Reg_All_Transaction WHERE `Check_ID` = '$reg_def_id' AND `Player_ID` = '$player_id' AND `Update_Account_ID` = '-1'";
    my $sth        = $dbh->prepare($query);
	$sth->execute();
    $sth->bind_columns(\$Key,\$Account_ID,\$Amount,\$Check_ID,\$Date);
    while($sth->fetch()) {
        #$amount = 0 - $Amount;
		$Amount = sprintf("%.2f",$Amount);
		
		$new_amount_due  = sprintf("%.2f",$new_amount_due);
		#print "NEW: $new_amount_due - OLD: $Amount<br>\n";
		#print "NEW: $reg_def_id - OLD: $Check_ID<br>\n";
	    if($new_amount_due != $Amount){
		    my $option_change_amount = 0 - $Amount;
		    insert_adjustment($user_id, $player_id, $option_change_amount, "Option Change", -2);  #-2 just means that its an Option Change
            update_adjustment_account_to_show_change($Key);
		}else{
		    $update = 0;
		}
	}
	$sth->finish();
    $dbh->disconnect;
	return $update;
}

sub update_adjustment_account_to_show_change{
    my $key = shift;
	my $dbh        = get_dbh();
    my $query      = "UPDATE Reg_All_Transaction SET `Update_Account_ID` = '-3' WHERE `Key` = '$key' LIMIT 1";
    my $sth        = $dbh->prepare($query);
	$sth->execute();
	$sth->finish();
    $dbh->disconnect;

}
################################################################
### Update adjustemnt
################################################################
sub insert_adjustment{
    my $user_id        = shift;
	my $player_key     = shift;
	my $amount         = shift;
	my $check_notes    = shift;
	my $update_account = shift;

    #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_All_Transaction (`Key` , `Account_ID` , `Player_ID` , `Update_Account_ID`, `Amount`, `Check_ID`, `Date`) VALUES ('', '$user_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;
}

################################################################
#  Get the reg form - READ ONLY
################################################################
sub get_read_only_reg_form{
    my $org_id    = shift;
	my $reg_year  = shift;
	my $form_name = shift;
	my $player_id = shift;
	my %return_hash = ();
    my $dbh = get_dbh();
    ################################################################
    # Query DB to verify Session
    ################################################################
    my $query = "SELECT `Key`,`Description_Text`,`Input_Type`,`Selection_Link`,`Validation_Link`,`Required`,`Order` FROM `Reg_Definition` WHERE `Org_ID` = '$org_id' AND `Reg_Year` = '$reg_year';";
    my $sth = $dbh->prepare($query);
    #print "$query<br>\n";
    $sth->execute();
    $sth->bind_columns(\$Key,\$Description_Text,\$Input_Type,\$Selection_Link,\$Validation_Link,\$Required,\$Order);

    while($sth->fetch()) {
	    my $reg_id = "REG" . $Key;
		my $required = ":";
		#if($Required == 1){
        #    $required = "*";
		#	($return_hash{$Order}{"JSCRIPT_VARS"}, $return_hash{$Order}{"JSCRIPT_COMPARE"}) = get_required_js($Input_Type,$form_name,$reg_id);;
		#}
	    if($Input_Type == 1){ # HEADER
	        $return_hash{$Order}{"HTML"} = "<tr><td bgcolor=#cccccc colspan=2>$Description_Text</td></tr>";
		}elsif($Input_Type == 2){ #INPUT TEXT
		    $input_value = get_input_text($Key, $player_id);
		    $return_hash{$Order}{"HTML"} = "<tr><td align=right>$Description_Text $required</td><td align=left>$input_value</td></tr>";
		}elsif($Input_Type == 3){ #Select Dropdown
		    $input_value = get_input_options($Key, $player_id);
			$return_hash{$Order}{"HTML"}  = "<tr><td align=right>$Description_Text $required</td><td align=left>$input_value</td></tr>";
		}elsif($Input_Type == 4){ #Date
		    $input_value = get_input_date($Key, $player_id);
		    $return_hash{$Order}{"HTML"} = "<tr><td align=right>$Description_Text $required</td><td align=left>$input_value</td></tr>";
		}elsif($Input_Type == 5){ #Radio
		    $input_value = get_input_options($Key, $player_id);
			my $radio_button = "<tr><td align=right>$Description_Text $required</td><td align=left>\n";
			$radio_button .= get_radio_button($Key, $reg_id, $input_value);
			$radio_button .= "</td></tr>";
			$return_hash{$Order}{"HTML"}  = "<tr><td align=right>$Description_Text $required</td><td align=left>$input_value</td></tr>";

		}elsif($Input_Type == 6){ #Textarea
		    $input_value = get_input_longtext($Key, $player_id);
		    $return_hash{$Order}{"HTML"} = "<tr><td align=right>$Description_Text $required</td><td align=left><textarea id='$reg_id' name='$reg_id' rows=$Selection_Link cols=$Validation_Link READONLY>$input_value</textarea></td></tr>";	
		}elsif($Input_Type == 7){ #CheckBox
		    $input_value = get_input_checked($Key, $player_id);
			$checked = "";
			if($input_value == 1){
			    $checked = "CHECKED";
			}
		    $return_hash{$Order}{"HTML"} = "<tr><td align=right>$Description_Text $required</td><td align=left><input type=checkbox id='$reg_id' name='$reg_id' $checked DISABLED></td></tr>";	
		}elsif($Input_Type == 10){ #Select Dropdown Long dropdown and payment attached
		    $input_value = get_input_options($Key, $player_id);
			$return_hash{$Order}{"HTML"}  = "<tr><td align=right >$Description_Text $required</td><td align=left>$input_value</td></tr>";
		}elsif($Input_Type == 11){ #Radio with payment attached
		    $input_value = get_input_options($Key, $player_id);
			my $radio_button = "<tr><td align=right>$Description_Text $required</td><td align=left>\n";
			$radio_button .= get_radio_button($Key, $reg_id, $input_value);
			$radio_button .= "</td></tr>";
			$return_hash{$Order}{"HTML"}  = "<tr><td align=right>$Description_Text $required</td><td align=left>$input_value</td></tr>";
		}
    }
    # disconnect from database
    $sth->finish();
    $dbh->disconnect;
	return %return_hash;
}

################################################################
# This just gets the javascript for required fields
################################################################
sub get_required_js{
    my $Input_Type = shift;
    my $form_name  = shift;
    my $reg_id     = shift;	
	if(($Input_Type == 5)||($Input_Type == 11)){ # 5 is radio, 11 is radio with payment
	    my $radio_check      = "var $reg_id = 0;\n";
            my $reg_length       = $reg_id . "Len";
            $radio_check        .= "var $reg_length =  document." . $form_name . "." . $reg_id . ".length;\n";
	    $radio_check        .= "var unused = 0;\n";
            $radio_check        .= "if($reg_length == undefined){if(document." . $form_name . "." . $reg_id . ".checked){$reg_id = 1}}else{\n";
	    $radio_check        .= "for(i=0;i<document." . $form_name . "." . $reg_id . ".length;i++){\n";
            $radio_check        .= "if(document." . $form_name . "." . $reg_id. "[i].checked){$reg_id = 1;}}}\n";
            
	    $tmp_jscript_vars    = $radio_check;
	    $tmp_jscript_compare = "($reg_id == 0)";
	}else{
            $tmp_jscript_vars    = "var $reg_id      = document.getElementById('$reg_id');\n";
            $tmp_jscript_compare = "($reg_id.value == \"\")";
    }
	return $tmp_jscript_vars, $tmp_jscript_compare;
}

################################################################
###  Get Reg Form with Updates
################################################################
sub get_reg_update_form{
    my $org_id   = shift;
	my $reg_year = shift;
	my $form_name = shift;
	my $player_id = shift;
	my %return_hash = ();
    my $dbh = get_dbh();
    ################################################################
    # Query DB to verify Session
    ################################################################
    my $query = "SELECT `Key`,`Description_Text`,`Input_Type`,`Selection_Link`,`Validation_Link`,`Required`,`Order` FROM `Reg_Definition` WHERE `Org_ID` = '$org_id' AND `Reg_Year` = '$reg_year';";
    my $sth = $dbh->prepare($query);
    #print "$query<br>\n";
    $sth->execute();
    $sth->bind_columns(\$Key,\$Description_Text,\$Input_Type,\$Selection_Link,\$Validation_Link,\$Required,\$Order);

    while($sth->fetch()) {
	    my $reg_id = "REG" . $Key;
		my $required = "";
		#print "ORDER: $Order <br>\n";
		if($Required == 1){
            $required = "*";
			($return_hash{$Order}{"JSCRIPT_VARS"}, $return_hash{$Order}{"JSCRIPT_COMPARE"}) = get_required_js($Input_Type,$form_name,$reg_id);;
		}
        $return_hash{$Order}{"HTML"} = get_reg_cell_with_update($Input_Type, $Key, $reg_id, $Description_Text, $required, $player_id);
		#print "ORDER: $Order: " . $return_hash{$Order}{"HTML"} . "<br>\n";
    }
    # disconnect from database
    $sth->finish();
    $dbh->disconnect;
	return %return_hash;
}

################################################################
###  Primary Reg form radio buttons
################################################################
sub get_radio_button{
    my $reg_key  = shift;
	my $reg_id   = shift;
	my $selected_option = shift;
	if(!(defined($selected_option))){
	    $selected_option = 0;
	}
	#print "SELECTED: $selected_option<br>\n";
	###### Just used Reg Options instead of new table. 
	my $query = "SELECT `Key`,`Option` FROM `Reg_Options` WHERE `Reg_ID` = '$reg_key' ORDER BY `Order`;";
	my $options = "";
	my $dbh = get_dbh();
    my $sth = $dbh->prepare($query);
	my $selected = "";
    #print "$query<br>\n";
    $sth->execute();
    $sth->bind_columns(\$Key,\$Option);

    while($sth->fetch()) {
	    $selected = "";
	    if($selected_option == $Key){
		    $selected = "checked=\"checked\"";
		}
	    $options .= "<input type=\"radio\" name=\"$reg_id\" id=\"$reg_id\" value=\"$Key\" $selected> $Option<br>\n";
	}
	$sth->finish();
    $dbh->disconnect;
    return $options;
}

################################################################
###  Get Options for Reg form Select-Options input
################################################################
sub get_options{
    my $reg_key = shift;
	my $selected_option = shift;
	my $Order           = 0;
	if(!(defined($selected_option))){
	    $selected_option = 0;
	}
	#print "SELECTED OPTION: $selected_option<br>\n";
	my $query = "SELECT `Key`,`Option`,`Order` FROM `Reg_Options` WHERE `Reg_ID` = '$reg_key' ORDER BY `Order`;";
	my $options = "";
	my $dbh = get_dbh();
    my $sth = $dbh->prepare($query);
	my $selected = "";
    #print "$query<br>\n";
    $sth->execute();
    $sth->bind_columns(\$Key,\$Option,\$Order);

    while($sth->fetch()) {
	    $selected = "";
		if($selected_option == $Key){
            $selected = "SELECTED";
        }
		######################
        # Remove any options that have -1 unless
        # they are the selected item
        ######################
        if($Order == -1){
            if($selected_option == $Key){
                $options .= "       <option value='$Key' $selected>$Option</option>\n";
            }
        }else{
            $options .= "       <option value='$Key' $selected>$selected_option - $Option</option>\n";
        }

		#if($selected_option == $Key){
		#    $selected = "SELECTED";
		#}
		#$options .= "       <option value='$Key' $selected>$Option</option>\n";
	}
	$sth->finish();
    $dbh->disconnect;
    return $options;
}


################################################################
###  Get Options for Reg form Select-Options input with javascript
###  For filter
################################################################
sub	get_option_value_for_filter{
    my $filter_key_id   = shift;

	my $query = "SELECT `Option` FROM `Reg_Options` WHERE `Key` = '$filter_key_id';";
	my $dbh = get_dbh();
    my $sth = $dbh->prepare($query);
    #print "$query<br>\n";
    $sth->execute();
    $sth->bind_columns(\$Option);

    while($sth->fetch()) {
	    $return_value = $Option;
	}
	$sth->finish();
    $dbh->disconnect;

    return  $return_value;
}


################################################################
###  Get Options for Reg form Select-Options input with javascript
###  For filter
################################################################
sub	get_options_for_filter{
    my $reg_key         = shift;
	my $selected_option = shift;
    my $filter_count    = shift;

	my $javascript_menu     = "filter_options[$filter_count] = new Array();\n";
	my $javascript_menu_map = "filter_options_map[$filter_count] = new Array();\n";
       $javascript_menu     .= "filter_options[$filter_count][0] = \"Choose Option\";\n";
       $javascript_menu_map .= "filter_options_map[$filter_count][0] = \"-1\";\n";


	my $count = 1;
	my $options = "";

	if(!(defined($selected_option))){
	    $selected_option = 0;
	}
	#print "SELECTED OPTION: $selected_option<br>\n";
	my $query = "SELECT `Key`,`Option` FROM `Reg_Options` WHERE `Reg_ID` = '$reg_key' ORDER BY `Order`;";
	my $options  = "";
       $options .= "       <option value='-1' >Choose Option</option>\n";
	my $dbh = get_dbh();
    my $sth = $dbh->prepare($query);
	my $selected = "";
    #print "$query<br>\n";
    $sth->execute();
    $sth->bind_columns(\$Key,\$Option);

    while($sth->fetch()) {
	    $selected = "";
	    if($selected_option == $Key){
		    $selected = "SELECTED";
		}
        $options .= "       <option value='$Key' $selected>$Option</option>\n";
        $javascript_menu     .= "filter_options[$filter_count][$count] = \"$Option\";\n";
        $javascript_menu_map .= "filter_options_map[$filter_count][$count] = \"$Key\";\n";
        $count++;

	}
	$sth->finish();
    $dbh->disconnect;

    my $return_js = $javascript_menu . "\n" . $javascript_menu_map . "\n";
    return $options, $return_js;

}

sub get_account_value{
    my $user_key              = shift;
	my $account_prefill_value = shift;
	my %account_hash          = ();
	my $return_value          = "";
	
    my $dbh = get_dbh();
    ################################################################
    # Query DB to verify Session
    ################################################################
    my $query = "SELECT a.`Firstname`, a.`Lastname`, a.`email`, 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 a.`Key` = '$user_key' AND a.`Key` = b.`Account_ID`;";
    my $sth = $dbh->prepare($query);
    #print "$query<br>$account_prefill_value<br>\n";
    $sth->execute();
    $sth->bind_columns(\$Firstname, \$Lastname, \$Email, \$Home_Phone, \$Work_Phone, \$Mobile_Phone, \$Zip_Code, \$Address1, \$Address2, \$City, \$State);
    # for the account_prefill
    while($sth->fetch()) {
        $account_hash{"Firstname"}    = $Firstname;
        $account_hash{"Lastname"}     = $Lastname;
        $account_hash{"Email"}        = $Email;
        $account_hash{"Home_Phone"}   = $Home_Phone;
        $account_hash{"Work_Phone"}   = $Work_Phone;
        $account_hash{"Mobile_Phone"} = $Mobile_Phone;
        $account_hash{"Zip_Code"}     = $Zip_Code;
        $account_hash{"Address1"}     = $Address1;
        $account_hash{"Address2"}     = $Address2;
        $account_hash{"City"}         = $City;
        $account_hash{"State"}        = $State;
    }
    # disconnect from database
    $sth->finish();
    $dbh->disconnect;
	$return_value = $account_hash{$account_prefill_value};
	return $return_value;
}

sub get_first_player{
    my $user_key = shift;
    my $org_id   = shift;
    my $reg_year = shift;
    my $dbh = get_dbh();
	my $return_key = 0;
    ################################################################
    # Query DB to verify Session
    ################################################################
    my $query = "SELECT `Key` FROM `Reg_Player_Link` WHERE `Org_ID` = '$org_id' AND `Reg_Year` = '$reg_year' AND `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);
    # for the account_prefill
	my $first_player = 1;
    while($sth->fetch()) {
	    if($first_player == 1){
		    $return_key = $Key;
		}
		$first_player = 0;
    }
    # disconnect from database
    $sth->finish();
    $dbh->disconnect;
    return $return_key;
}

sub get_option_months{
	my $selected_month = shift;
	my @months = ();
	my $i = 0;
#<OPTION value="" SELECTED></OPTION>
    $months[1] = "January";
    $months[2] = "February";
    $months[3] = "March";
    $months[4] = "April";
    $months[5] = "May";
    $months[6] = "June";
    $months[7] = "July";
    $months[8] = "August";
    $months[9] = "September";
    $months[10] = "October";
    $months[11] = "November";
    $months[12] = "December";
	for($i = 1; $i < 13; $i++){
		my $selected = "";
		if($i == $selected_month){
            $selected = "SELECTED";
		}
        $return_options .= "<OPTION value='$i' $selected>$months[$i]</OPTION>";
	}

	return $return_options;
}
sub get_option_days{
	my $selected_day = shift;
	my $i = 0;
	my $return_days = "";
	for($i = 1;$i <= 31; $i++){
		my $selected = "";
		if($i == $selected_day){
            $selected = "SELECTED";
		}
	    $return_days .= "<OPTION value='$i' $selected>$i</OPTION>\n";
    }
	return $return_days;
}
sub get_option_years{
	my $selected_year = shift;
	my $i = 0;
	my $return_years = "";
	my $current_date = get_date_time();
	($current_year, $junk, $junk) = split(/-/,$current_date);
	my $stop_year = $current_year - 100;
    for($i = $current_year;$i > $stop_year; $i--){
		my $selected = "";
		if($i == $selected_year){
            $selected = "SELECTED";
		}
	    $return_years .= "<OPTION value='$i' $selected>$i</OPTION>\n";
	}
	return $return_years;
}

################################################################
###  Primary Reg form
################################################################
sub get_reg_cell{
    my $user_key              = shift;
    my $Input_Type            = shift;
    my $Key                   = shift;
    my $reg_id                = shift;
    my $Description_Text      = shift;
    my $required              = shift;
    my $default_value         = shift;
    my $account_prefill_value = shift; 
    my $player_prefill_value  = shift;
    my $org_id                = shift;
    my $reg_year              = shift;
    my $first_player_id       = get_first_player($user_key, $org_id, $rig_year);

    my $return_html = "";
	if($Input_Type == 1){ # HEADER
	    $return_html = "<tr><td bgcolor=#cccccc colspan=2>$Description_Text</td></tr>";
	}elsif($Input_Type == 2){ #INPUT
	    my $value = "";
	    #######################################
		# Check for defaults
		#######################################
		if($account_prefill_value ne ""){
		    @values = split(/,/,$account_prefill_value);
			my $space = ""; # just because we dont wont a space the first time through
			foreach(@values){
			    $tmp_value = get_account_value($user_key, $_);
				#print "TV: $tmp_value<br>\n";
		        $value = $value . $space . $tmp_value;
				$space = " ";
			}
		}elsif($player_prefill_value != 0){
		    if($first_player_id != 0){
		        $value  = $input_value = get_input_text($Key, $first_player_id);
			}
		}elsif($default_value ne ""){
		    $value = $default_value;
		}
		$return_html = "<tr><td align=right>$Description_Text $required</td><td align=left><input type=text id='$reg_id' name='$reg_id' value='$value'></td></tr>";
	}elsif($Input_Type == 3){ #Select Dropdown
	    #######################################
		# Check for defaults
		#######################################
		$input_value = 0;
		if($player_prefill_value != 0){
		    if($first_player_id != 0){
			    $input_value = get_input_checked($Key, $first_player_id);	  
			}
		}elsif($default_value ne ""){
		    $input_value = $default_value;
		}

		my $select = "<tr><td align=right>$Description_Text $required</td><td align=left><select id='$reg_id' name='$reg_id'>";
		$select .= get_options($Key, $input_value);
		$select .= "</select></td></tr>";
		$return_html  = $select;
	}elsif($Input_Type == 4){ #Date
	    my $month_options = get_option_months(0);
	    my $days_options  = get_option_days(0);
	    my $year_options  = get_option_years(0);
		$return_html = "<tr><td align=right>$Description_Text $required</td><td align=left> ";
		$return_html .= "<select id='dob1' name='dob1'>";
		$return_html .= $month_options;
		$return_html .= "</select>";
		$return_html .= "<select id='dob2' name='dob2'>";
		$return_html .= $days_options;
		$return_html .= "</select>";
		$return_html .= "<select id='dob3' name='dob3'>";
		$return_html .= $year_options;
		$return_html .= "</select>";
		$return_html .= "</td></tr>\n";
	}elsif($Input_Type == 94){ #Date
		$return_html = "<tr><td align=right>$Description_Text $required</td><td align=left><input type=text name='$reg_id' id='$reg_id' size=10  onFocus=\"cal1xx.select(document.create_player_account_form." . $reg_id .",'$reg_id','MM/dd/yyyy'); return true;\" onClick=\"cal1xx.select(document.create_player_account_form." . $reg_id .",'$reg_id','MM/dd/yyyy'); return true;\" READONLY><a href=\"\" id=datein2 name=datein2></a> </td></tr>";
	}elsif($Input_Type == 5){ #Radio
	    #######################################
		# Check for defaults
		#######################################
		$input_value = 0;
		if($player_prefill_value != 0){
		    if($first_player_id != 0){
			    $input_value = get_input_checked($Key, $first_player_id);	  
			}
		}elsif($default_value ne ""){
		    $input_value = $default_value;
		}

    	my $radio_button = "<tr><td align=right>$Description_Text $required</td><td align=left>\n";
		$radio_button .= get_radio_button($Key, $reg_id, $input_value);
		$radio_button .= "</td></tr>";
		$return_html = $radio_button;
	}elsif($Input_Type == 6){ #Textarea
		$return_html = "<tr><td align=right>$Description_Text $required</td><td align=left><textarea id='$reg_id' name='$reg_id' rows=$Selection_Link cols=$Validation_Link></textarea></td></tr>";	
	}elsif($Input_Type == 7){ #CheckBox
		$return_html = "<tr><td align=right>$Description_Text $required</td><td align=left><input type=checkbox id='$reg_id' name='$reg_id'></td></tr>";	
	}elsif($Input_Type == 10){ # Dropdown with payment and long
		my $select = "<tr><td align=right>$Description_Text $required</td><td align=left><select id='$reg_id' name='$reg_id'>";
		$select .= get_options($Key);
		$select .= "</select></td></tr>";
		$return_html  = $select;	
	}elsif($Input_Type == 11){ #Radio with payment attached
		my $radio_button = "<tr><td align=right>$Description_Text $required</td><td align=left>\n";
		$radio_button .= get_radio_button($Key, $reg_id);
		$radio_button .= "</td></tr>";
		$return_html = $radio_button;
	}
	return $return_html;
}

################################################################
###  Get registration form
################################################################
sub get_reg_form{
    my $org_id   = shift;
	my $reg_year = shift;
	my $form_name = shift;
	my $user_key  = shift;
	my %return_hash = ();
    my $dbh = get_dbh();
    ################################################################
    # Query DB to verify Session
    ################################################################
    my $query = "SELECT `Key`,`Description_Text`,`Input_Type`,`Selection_Link`,`Validation_Link`,`Required`,`Default_Value`, `Account_Prefill_Value`, `Player_Prefill_Value`, `Order` FROM `Reg_Definition` WHERE `Org_ID` = '$org_id' AND `Reg_Year` = '$reg_year';";
    my $sth = $dbh->prepare($query);
    #print "$query<br>\n";
    $sth->execute();
    $sth->bind_columns(\$Key,\$Description_Text,\$Input_Type,\$Selection_Link,\$Validation_Link,\$Required, \$Default_Value, \$Account_Prefill_Value, \$Player_Prefill_Value, \$Order);

    while($sth->fetch()) {
	    my $reg_id = "REG" . $Key;
		my $required = "";
		if($Required == 1){
            $required = "*";
			($return_hash{$Order}{"JSCRIPT_VARS"}, $return_hash{$Order}{"JSCRIPT_COMPARE"}) = get_required_js($Input_Type,$form_name,$reg_id);;
		}
        $return_hash{$Order}{"HTML"} = get_reg_cell($user_key, $Input_Type, $Key, $reg_id, $Description_Text, $required, $Default_Value, $Account_Prefill_Value, $Player_Prefill_Value);
    }
    # disconnect from database
    $sth->finish();
    $dbh->disconnect;
	return %return_hash;
}

################################################################
###  Get registration cells with values included
################################################################
sub get_reg_cell_with_update_hidden{
    my $Input_Type       = shift;
	my $Key              = shift;
	my $reg_id           = shift;
	my $player_id        = shift;
    my $input_size       = shift;
    my $disabled         = shift;
	my $return_html = "";

	if($Input_Type == 12){ # HEADER
		$input_value = get_input_text($Key, $player_id);
		$return_html = "<input type=text id='$reg_id' name='$reg_id' value='$input_value' size='$input_size' $disabled>";
	}elsif($Input_Type == 13){ #Select Dropdown with  payment attached
		$input_value = get_input_checked($Key, $player_id);
		my $select = "<select id='$reg_id' name='$reg_id' $disabled>";
		$select .= get_options($Key, $input_value);
		$select .= "</select>";
		$return_html  = $select;
    }
    return $return_html;
}
################################################################
###  Get registration cells with values included
################################################################
sub get_reg_cell_with_update{
    my $Input_Type       = shift;
	my $Key              = shift;
	my $reg_id           = shift;
	my $Description_Text = shift;
	my $required         = shift;
	my $player_id        = shift;
	my $return_html = "";
	if($Input_Type == 1){ # HEADER
		$return_html = "<tr><td bgcolor=#cccccc colspan=2>$Description_Text</td></tr>";
	}elsif($Input_Type == 2){ #INPUT
		$input_value = get_input_text($Key, $player_id);
		$return_html = "<tr><td align=right>$Description_Text $required</td><td align=left><input type=text id='$reg_id' name='$reg_id' value='$input_value'></td></tr>";
	}elsif($Input_Type == 3){ #Select Dropdown
		$input_value = get_input_checked($Key, $player_id);
		my $select = "<tr><td align=right>$input_value - $Description_Text $required</td><td align=left><select id='$reg_id' name='$reg_id'>";
		$select .= get_options($Key, $input_value);
		$select .= "</select></td></tr>";
		$return_html  = $select;
	}elsif($Input_Type == 4){ #Date
		$input_value = get_input_date($Key, $player_id);
		my($month, $day, $year) = get_month_day_year($input_value);
	    my $month_options = get_option_months($month);
	    my $days_options  = get_option_days($day);
	    my $year_options  = get_option_years($year);
		$return_html = "<tr><td align=right>$Description_Text $required</td><td align=left> ";
		$return_html .= "<select id='dob1' name='dob1'>";
		$return_html .= $month_options;
		$return_html .= "</select>";
		$return_html .= "<select id='dob2' name='dob2'>";
		$return_html .= $days_options;
		$return_html .= "</select>";
		$return_html .= "<select id='dob3' name='dob3'>";
		$return_html .= $year_options;
		$return_html .= "</select>";
		$return_html .= "</td></tr>\n";
	}elsif($Input_Type == 94){ #Date
		$input_value = get_input_date($Key, $player_id);
		$input_value = get_view_date_format($input_value);
		$return_html = "<tr><td align=right>$Description_Text $required</td><td align=left><input type=text name='$reg_id' id='$reg_id' size=10 value='$input_value' onClick=\"cal1xx.select(document.create_player_account_form." . $reg_id .",'$reg_id','MM/dd/yyyy'); return true;\" READONLY><a href=\"\" id=datein2 name=datein2></a> </td></tr>";
	}elsif($Input_Type == 5){ #Radio
		$input_value = get_input_checked($Key, $player_id);
		my $radio_button = "<tr><td align=right>$Description_Text $required</td><td align=left>\n";
		$radio_button .= get_radio_button($Key, $reg_id, $input_value);
		$radio_button .= "</td></tr>";
		$return_html = $radio_button;
	}elsif($Input_Type == 6){ #Textarea
		$input_value = get_input_longtext($Key, $player_id);
		$return_html = "<tr><td align=right>$Description_Text $required</td><td align=left><textarea id='$reg_id' name='$reg_id' rows=$Selection_Link cols=$Validation_Link>$input_value</textarea></td></tr>";	
	}elsif($Input_Type == 7){ #CheckBox
		$input_value = get_input_checked($Key, $player_id);
		$checked = "";
		if($input_value == 1){
			$checked = "CHECKED";
		}
		$return_html = "<tr><td align=right>$Description_Text $required</td><td align=left><input type=checkbox id='$reg_id' name='$reg_id' $checked></td></tr>";	
	}elsif($Input_Type == 10){ #Select Dropdown with  payment attached
		$input_value = get_input_checked($Key, $player_id);
		my $select = "<tr><td align=right>$Description_Text $required</td><td align=left><select id='$reg_id' name='$reg_id'>";
		$select .= get_options($Key, $input_value);
		$select .= "</select></td></tr>";
		$return_html  = $select;
	}elsif($Input_Type == 11){ #Radio with payment attached
		$input_value = get_input_checked($Key, $player_id);
		my $radio_button = "<tr><td align=right>$Description_Text $required</td><td align=left>\n";
		$radio_button .= get_radio_button($Key, $reg_id, $input_value);
		$radio_button .= "</td></tr>";
		$return_html = $radio_button;
	}
    return $return_html;
}
################################################################
### Create new player in db
################################################################
sub create_new_player{
    my $org_id   = shift;
	my $reg_year = shift;
    my $user_key = param('userkey');
	my $first_name = get_param('fname');
	my $last_name  = get_param('lname');
	my %return_hash = ();
	my $player_id = link_new_player($user_key, $first_name, $last_name);
    get_player_params_and_update_database($org_id, $reg_year, $player_id, $user_key);
	return $player_id;
}

################################################################
### Covert the date to use in database
################################################################
sub get_db_date_format{
    my $date = shift;
    my($month, $day, $year) = split(/\//,$date);
    $date = "$year-$month-$day";
    return $date;
}

################################################################
### Create the date to viewable format
################################################################
sub get_view_date_format{
    my $date = shift;
    my($year, $month, $day) = split(/-/,$date);
    $date = "$month/$day/$year";
    return $date;
}

################################################################
### Create the date to viewable format
################################################################
sub get_month_day_year{
    my $date = shift;
    my($year, $month, $day) = split(/-/,$date);
    return $month,$day,$year;
}


#########################################
# Insert item to the Reg_Input_Longtext table
#########################################
sub insert_longtext{
    my $reg_id        = shift;
    my $player_id     = shift;
	my $insert_lt   = shift;
    my $query = "REPLACE INTO Reg_Input_Longtext (`Reg_ID`,`Player_ID`, `Input_Longtext`) VALUES ('$reg_id', '$player_id', '$insert_lt');";
    #print "QUERY: $query<br>\n";
    my $dbh = get_dbh();
    my $sth = $dbh->prepare($query);
    $sth->execute();
    $sth->finish();
    $dbh->disconnect;
	return $user_id;
}

#########################################
# Insert item to the Reg_Input_Date table
#########################################
sub insert_date{
    my $reg_id        = shift;
    my $player_id     = shift;
	my $insert_date   = shift;
    my $query = "REPLACE INTO Reg_Input_Date (`Reg_ID`,`Player_ID`, `Input_Date`) VALUES ('$reg_id', '$player_id', '$insert_date');";
    #print "QUERY: $query<br>\n";
    my $dbh = get_dbh();
    my $sth = $dbh->prepare($query);
    $sth->execute();
    $sth->finish();
    $dbh->disconnect;
	return $user_id;
}

#########################################
# Insert item to insert_option table
#########################################
sub insert_option{
    my $reg_id        = shift;
    my $player_id     = shift;
	my $insert_option = shift;
    my $query = "REPLACE INTO Reg_Input_Options (`Reg_ID`,`Player_ID`, `Input_Option`) VALUES ('$reg_id', '$player_id', '$insert_option');";
    #print "QUERY: $query<br>\n";
    my $dbh = get_dbh();
    my $sth = $dbh->prepare($query);
    $sth->execute();
    $sth->finish();
    $dbh->disconnect;
	return $user_id;
}

#########################################
# Insert item to the Reg_Input_Text table
#########################################
sub insert_text{
    my $reg_id      = shift;
    my $player_id   = shift;
	my $insert_text = shift;
    my $query = "REPLACE INTO Reg_Input_Text (`Reg_ID`,`Player_ID`, `Input_Text`) VALUES ('$reg_id', '$player_id', '$insert_text');";
    #print "QUERY: $query<br>\n";
    my $dbh = get_dbh();
    my $sth = $dbh->prepare($query);
    $sth->execute();
    $sth->finish();
    $dbh->disconnect;
	return $user_id;
}

#########################################
# Link a player to account in the Reg_player_link table
#########################################
sub link_new_player{
    my $user_key = shift;
	my $first_name = shift;
	my $last_name  = shift;
	my $reg_date   = get_date_time();
    my $query = "INSERT INTO Reg_Player_Link (`Key`, `Org_ID`, `Reg_Year`, `Account_ID`, `Firstname`, `Lastname`, `Active`, `Reg_Date`, `Player_Confirmed`,`Assigned_League`,`Assigned_Team`) VALUES ('', '$org_id', '$reg_year', '$user_key','$first_name','$last_name', '1', '$reg_date', '0', '0', '0');";
    #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;
	return $user_id;
}

#########################################
# Gets Temp password for email
#########################################
sub get_tmp_pw{
    #my $tmp_pw = "123test";
    my $tmp_pw = generate_random_string_pw(6);
    return $tmp_pw;
}

#########################################
# Generates random string for temp password
#########################################
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;

}

#########################################
# Generates random string for temp token
#########################################
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;
}

#########################################
# Check if tmp password is correct
#########################################
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;
}

#########################################
# Check if tmp password exist
#########################################
sub check_tmp_password_exist{
    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;
}

#########################################
# Set the account 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_exist($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');";
        #print "QUERY: $query<br>\n";
		my $sth = $dbh->prepare($query);
        $sth->execute();
        $sth->finish();
        $dbh->disconnect;
    }
    return $pw, $tmp_string, $date_time;
}

#########################################
# Send temp password to users
#########################################
sub send_tmppw{
    my $email       = shift;;
    my $sendmail    = "/bin/sendmail.localhost -t";
    #my $reply_to    = "Reply-to: jeremy\@hometeamz.com";
    my $subject     = "Account Password for $org_full_name_for_email Registration";
    my $to          = "$email";
    #my $to          = "jeremymclean\@gmail.com";
    #my $from        = "jeremy\@hometeamz.com";
    

    
    my ($pw, $tmp_string, $date_time) = set_account_tmp_password($email);
	#print "PASS: $pw<br>\n"
    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 $org_full_name_for_email<br><br>\n\n";
        $content .= "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;
}

############################################
# 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;
}

#########################################
# Set the account password to user
#########################################
sub send_pw{
    my $email       = param('email');
    my $sendmail    = "/bin/sendmail.localhost -t";
    my $subject     = "Password Reminder for $org_full_name_for_email";
    my $to          = "$email";
    #my $to          = "jeremymclean\@gmail.com";
    #my $from        = "jeremy\@hometeamz.com";
    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 $org_full_name_for_email.\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;
}

################################################################
### 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          = "hometeamzonline.com";
    $bare_domain          =~ s/www\.//;
	if(!(defined($league_only))){$league_only = 0;}
    if($league_only == 1){
        $bg_url               = "";
    }else{
        $bg_url               = "$teamdata/hometeamz/bg_right3.gif";
    }
    
print <<__HTML__;



<!-- 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;
				border           : 1px solid rgb(132, 128, 162);
}
#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_form_box, .admin_form_box_left, .admin_form_box_right, .admin_form_box_w_link{
            background-color : $site_info{"message_box_bg_color"};
            color            : $site_info{"message_box_text_color"};
            font-family      :  Arial, Verdana, Helvetica;
            font-size        : 0.8em;
}
.admin_form_box_w_link a, .admin_form_box_w_link a:visited{
            background-color : $site_info{"message_box_bg_color"};
            color            : $site_info{"message_box_text_color"};
}
.admin_form_box_w_link a:hover{
                text-decoration: none;
}
.admin_form_box{
            border-bottom   : 1px solid $site_info{"message_box_text_color"};
}
.admin_form_box_left{
            border-bottom   : 1px solid $site_info{"message_box_text_color"};
            border-right    : 1px solid $site_info{"message_box_text_color"};
}
.admin_form_box_right{
            border-bottom   : 1px solid $site_info{"message_box_text_color"};
            border-left     : 1px solid $site_info{"message_box_text_color"};
}

.admin_form_body_grey, .admin_form_body_white {
            color           : #000000; 
            border          : 1px solid #dcdcdc; 
            margin          : 5px 5px 5px 5px;
            font-family      :  Arial, Verdana, Helvetica;
            font-size        : 0.7em;
}
.admin_form_body_white {
            background-color: #FFFFFF;
}
.admin_form_body_grey {
            background-color: #ececec;
}
.reg_admin_title{
            margin          : 5px 5px 5px 5px;
            color           : #FF0000; 
            font-family      :  Arial, Verdana, Helvetica;
            font-size        : 0.8em;
}

.reg_admin_totals{
            margin          : 5px 5px 5px 5px;
            color           : #000000; 
            font-family      :  Arial, Verdana, Helvetica;
            font-size        : 0.8em;
}


#admin_header {
            background-color: #006699;
            color           : #FFFFFF; 
            font-weight     : bold; 
            font            : 10pt Arial bold;
            border          : 1px solid #FFFFFF; 
}
#admin_header2 {
            background-color: #006699;
            color           : #FFFFFF; 
            font-weight     : bold; 
            font            : 10pt Arial bold;
            border-top      : 1px solid #006699; 
            border-right    : 1px solid #006699; 
            border-left     : 1px solid #006699; 
            border-bottom   : 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{"website_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{"website_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{"website_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{"website_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{"website_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{"website_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{"website_bg_color"};
             text-decoration : none; 
             width           : 150;
             padding         : 0px 0px 0px 0px;
}
#leftcolumn a.img_link:hover
            {background-color : $site_info{"website_bg_color"};
             text-decoration : none; 
             width           : 150;
             padding         : 0px 0px 0px 0px;
}
#leftcolumn a.ht_link 
            {background-color : $site_info{"website_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{"website_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);
}

################################################################
### This  prints the left hand column
################################################################
sub print_reg_info{
    
    print "<DIV id='leftcolumn'>\n";
    print_text_info_box("Registration", "$welcome_text");
    
    #print_text_info_box("Program", "Baseball &<br>Softball");
    print_text_info_box("Season", "$season_text");
    #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", "$information_text");
    #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";
    
 
}

################################################################
###  These are the text boxes on the left side
################################################################
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__
}

################################################################
###  Print extra style for reg pages.
################################################################
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__


}

1;