comment on

I am trying to create a cgi webpage with perl and I have some javascript the I borrowed from another webpage. I don't like javascript so I never really learned it, so I can't really rewrite it. How do I get the javascript to work with the perl program.

<!-- Begin
function formatCurrency(num) {
num = num.toString().replace(/\$|\,/g,'');
if(isNaN(num))
num = "0";
sign = (num == (num = Math.abs(num)));
num = Math.floor(num*100+0.50000000001);
cents = num%100;
num = Math.floor(num/100).toString();
if(cents<10)
cents = "0" + cents;
for (var i = 0; i < Math.floor((num.length-(1+i))/3); i++)
num = num.substring(0,num.length-(4*i+3))+','+
num.substring(num.length-(4*i+3));
return (((sign)?'':'-') + '$' + num + '.' + cents);
}
//  End -->
[download]

Here is the program that it is in


use CGI qw/:standard/;

open(DATA, "<FormData.txt");

$datatemp = <DATA>;
close(DATA);

@data = split(/'::'/, $datatemp);
chomp(@data);

$JSCRIPT=<<END;

    <SCRIPT LANGUAGE="JavaScript">
    <!-- Original:  Steve Sherman -->



    <!-- Begin
    function formatCurrency(num) {
    num = num.toString().replace(/\$|\,/g,'');
    if(isNaN(num))
    num = "0";
    sign = (num eq (num = Math.abs(num)));
    num = Math.floor(num*100+0.50000000001);
    cents = num%100;
    num = Math.floor(num/100).toString();
    if(cents<10)
    cents = "0" + cents;
    for (var i = 0; i < Math.floor((num.length-(1+i))/3); i++)
    num = num.substring(0,num.length-(4*i+3))+','+
    num.substring(num.length-(4*i+3));
    return (((sign)?'':'-') + "$" + num + '.' + cents);
    }
    //  End -->
    </script>
END


print "Content-type: text/html\r\n\r\n"; 

print <<HTMLBREAK;
    <html>
    <head>
    $JSCRIPT
    

    <title>Loan App</title>

    </head>

    <body>

    <form method="post" action="http://127.0.0.1:8000/cgi-bin/process.
+exe">

    <p><img border="0" src="http://127.0.0.1:8000/Logo.jpg" width="100
+0" height="217"><br><br>

    <font face="Franklin Gothic Medium">

    <b>Basic Loan Information</b></font><br><br>

    <table border="0" width="940">
        <tr>
            <td><font face="Franklin Gothic Medium">Loan Amount</font>
+ <input type="text" name="LoanAmount" size="20" onBlur="this.value=fo
+rmatCurrency(this.value);" style="border: 1px solid #000000; backgrou
+nd-color: #CCE6FF" value="$data[0]"></td>
            <td><font face="Franklin Gothic Medium">Estimated Property
+ Value</font> <input type="text" name="PropertyValue" size="20" onBlu
+r="this.value=formatCurrency(this.value);" style="border: 1px solid #
+000000; background-color: #CCE6FF" value="$data[1]">
            <font face="Franklin Gothic Medium" size="2">(or Purchase 
+Price) </font> </td>
        </tr>
    </table><br>

HTMLBREAK
;

if($data[2] eq "Fixed") {
    $fixed = "checked";
}
if($data[2] eq "ARM") {
    $ARM = "checked";
}

if($data[3] eq "Yes") {
    $EscroYes = "checked";
}

if($data[3] eq "No") {
    $EscroNo = "checked";
}


print <<HTMLBREAK;

    <table border="0" width="570" id="table1">
        <tr>
            <td><font face="Franklin Gothic Medium">Type of Loan 
            <input type="radio" value="Fixed" name="TypeofLoan" $fixed
+>Fixed
            <input type="radio" name="TypeofLoan" value="ARM" $ARM>ARM
            </font>
            </td>
            <td><font face="Franklin Gothic Medium">Escrow
            <input type="radio" name="Escro" value="Yes" $EscroYes>Yes
            <input type="radio" name="Escro" value="No" $EscroNo>No
            </td>
        </tr>
    </table><br>

HTMLBREAK
;

if ($data[4] eq "Primary Residence") {
    $UsePR = "checked";
}

if ($data[4] eq "Investments") {
    $UseIV = "checked";
}

if ($data[4] eq "Second Home") {
    $UseSH = "checked";
}

print <<HTMLBREAK;

    <table border="0" width="725" id="table2">
        <tr>
            <td><font face="Franklin Gothic Medium">Property Use
            </font>
            </td>
        </tr>
        <tr>    
            <td><font face="Franklin Gothic Medium">    
            <input type="radio" name="PropertyUse" value="Primary Resi
+dence" $UsePR>Primary Residence
            <input type="radio" name="PropertyUse" value="Investments"
+ $UseIV>Investment
            <input type="radio" name="PropertyUse" value="Second Home"
+ $UseSH>Second Home
            </font>
            </td>
        </tr>
    </table>

    <br>

HTMLBREAK
;

if($data[5] eq "Single Family") {
    $typeSF = "checked";
}
if($data[5] eq "Condo") {
    $typeCD = "checked";
}
if($data[5] eq "Multi Family") {
    $typeMF = "checked"
}

print <<HTMLBREAK;

    <table>
        <tr>
            <td><font face="Franklin Gothic Medium">Property Type
            </font>
            </td>
        </tr>
        <tr>
            <td><font face="Franklin Gothic Medium">
            <input type="radio" name="PropertyType" value="Single Fami
+ly" $typeSF>Single Family
            <input type="radio" name="PropertyType" value="Condo" $typ
+eCD>Condo
            <input type="radio" name="PropertyType" value="Multi Famil
+y" $typeMF>Multi Family
            </font>
            </td>
        </tr>
    </table>    


    <br>

HTMLBREAK
;


if($data[6] eq "10") {
    $y10 = "checked";
}
if($data[6] eq "15") {
    $y15 = "checked";
}
if($data[6] eq "20") {
    $y20 = "checked";
}
if($data[6] eq "25") {
    $y25 = "checked";
}
if($data[6] eq "30") {
    $y30 = "checked";
}
if($data[6] eq "40") {
    $y40 = "checked";
}
if($data[6] eq "Other") {
    $other = "checked";
    $OL = $data[7];
}


if($data[8] eq "Made an Offer"){
    $HBPMO = "checked";
}
if($data[8] eq "Made an Offer and Accepted") { 
    $HBPOA = "checked";
}
if($data[8] eq "Need Pre-Approval") {
    $HBPNP = "checked";
}



print <<HTML;

    <table border="0" width="920">
        <tr>
            <td width="398"><font face="Franklin Gothic Medium">Length
+ of Loan</font></td>
            <td><font face="Franklin Gothic Medium">Home Buying Proces
+s</font></td>
        </tr>
        <tr>
            <td width="398"><font face="Franklin Gothic Medium"><input
+ type="radio" name="LengthofLoan" value="10" $y10>10
            <input type="radio" name="LengthofLoan" value="15" $y15>15
            <input type="radio" name="LengthofLoan" value="20" $y20>20
            <input type="radio" name="LengthofLoan" value="25" $y25>25
            <input type="radio" name="LengthofLoan" value="30" $y30>30
            <input type="radio" name="LengthofLoan" value="40" $y40>40
            <input type="radio" name="LengthofLoan" value="Other" $oth
+er>Other <input type="text" name="OtherLength" size="2" style="border
+: 1px solid #000000; background-color: #CCE6FF" value="$OL">
            </font>
            </td>
            <td><font face="Franklin Gothic Medium"><input type="radio
+" name="HomeBuyingProcess" value="Made an Offer" $HBPMO>Made an Offer
            <input type="radio" name="HomeBuyingProcess" value="Made a
+n Offer and Accepted" $HBPOA>Made an Offer and Accepted
            <input type="radio" name="HomeBuyingProcess" value="Need P
+re-Approval" $HBPNP>Need Pre-Approval
            </font>
            </td>
        </tr>
    </table>
    <br>



    <table>
        <tr>
            <td><font face="Franklin Gothic Medium">Property Address
            </td>
        </tr>
        <tr>
            <td><font face="Franklin Gothic Medium">
            Street 
            <input type="text" name="Street" size="80" style="border: 
+1px solid #000000; background-color: #CCE6FF" value="$data[9]">
            City <input type="text" name="City" size="20" style="borde
+r: 1px solid #000000; background-color: #CCE6FF" value="$data[10]">
            State <input type="text" name="State" size="2" style="bord
+er: 1px solid #000000; background-color: #CCE6FF" value="$data[11]">
            </td>
        </tr>

    </table>

    <br>


    <tables>
        <tr>
            <td><font face="Franklin Gothic Medium">Number of Borrower
+s <input type="text" name="PrimaryNumberOfBorrowers" size="2" style="
+border: 1px solid #000000; background-color: #CCE6FF" value="$data[12
+]"></font></td>
        </tr>
    </tables>


    <br><br>
    <center><img src="http://127.0.0.1:8000/dot.jpg" width="200" heigh
+t="1"></center>
    <br>

    <b><font face="Franklin Gothic Medium">Primary Borrower Informatio
+n</font></b><br><br>

HTML
;

if($data[16] eq "SR") {
    $SSR = "checked";
}
if($data[16] eq "JR") {
    $SJR = "checked";
}
if($data[16] eq "None") {
    $SNone = "checked";
}
if($data[16] eq "Other") {
    $SOther = "checked";
    $Other = $data[17];
}

if($data[31] eq "Married") {
    $MSM = "checked";
}
if($data[31] eq "Single") {
    $MSS = "checked";
}
if($data[31] eq "Widowed-Divorced") {
    $MSWD = "checked";
}



print <<HTML;
    
    <table border="0">
        <tr>
            <td><font face="Franklin Gothic Medium">Primary Borrower</
+font>
            </td>
        </tr>
        <tr>
            <td><font face="Franklin Gothic Medium">First Name
            </font>
            </td>
            <td><font face="Franklin Gothic Medium">
            <input type="text" name="PrimaryFirst" size="20" style="bo
+rder: 1px solid #000000; background-color: #CCE6FF" value="$data[13]"
+></font></td>
        </tr>
        <tr>
            <td><font face="Franklin Gothic Medium">Middle Initial 
            </font> 
            </td>
            <td><font face="Franklin Gothic Medium"><input type="text"
+ name="PrimaryMiddle" size="1" style="border: 1px solid #000000; back
+ground-color: #CCE6FF" value="$data[14]"></font></td>
        </tr>
        <tr>
            <td><font face="Franklin Gothic Medium">Last Name
            </font>
            </td>
            <td><font face="Franklin Gothic Medium"><input type="text"
+ name="PrimaryLast" size="20" style="border: 1px solid #000000; backg
+round-color: #CCE6FF" value="$data[15]"></font></td>
        </tr>
        <tr>
            <td><font face="Franklin Gothic Medium">Suffix 
            </font> 
            </td>
            <td><font face="Franklin Gothic Medium"><input type="radio
+" name="PrimarySuffix" value="JR" $SJR>Jr.
                       <input type="radio" name="PrimarySuffix" value=
+"SR" $SSR>Sr.
                       <input type="radio" name="PrimarySuffix" value=
+"None" $SNone>None
                       <input type="radio" name="PrimarySuffix" value=
+"Other" $SOther>Other <input type="text" name="PrimaryOther" size="2"
+ style="border: 1px solid #000000; background-color: #CCE6FF" value="
+$Other"></font></td>
        </tr>
        <tr>
            <td><font face="Franklin Gothic Medium">Home Phone Number
            </font>
            </td>
            <td><font face="Franklin Gothic Medium"><input type="text"
+ name="PrimaryHomePhone" size="9" style="border: 1px solid #000000; b
+ackground-color: #CCE6FF" value="$data[18]"> </font></td>
        </tr>
        <tr>
            <td><font face="Franklin Gothic Medium">Cell Phone Number
            </font>
            </td>
            <td><font face="Franklin Gothic Medium"><input type="text"
+ name="PrimaryCell" size="9" style="border: 1px solid #000000; backgr
+ound-color: #CCE6FF" value="$data[19]"> </font></td>
        </tr>
        <tr>
            <td><font face="Franklin Gothic Medium">Email Address
            </font>
            </td>
            <td><font face="Franklin Gothic Medium"><input type="text"
+ name="PrimaryEmail" size="35" style="border: 1px solid #000000; back
+ground-color: #CCE6FF" value="$data[20]"></font></td>
        </tr>
        <tr>
            <td><font face="Franklin Gothic Medium">Current Address</f
+ont></td>
        </tr>
        <tr>
            <td colspan="2"><font face="Franklin Gothic Medium">
            Street <input type="text" name="PrimaryCurrentStreet" size
+="80" style="border: 1px solid #000000; background-color: #CCE6FF" va
+lue="$data[21]">
            City <input type="text" name="PrimaryCurrentCity" size="20
+" style="border: 1px solid #000000; background-color: #CCE6FF" value=
+"$data[22]">
            State <input type="text" name="PrimaryCurrentState" size="
+2" style="border: 1px solid #000000; background-color: #CCE6FF" value
+="$data[23]">
            </td>
        </tr>

        <tr>
            <td><font face="Franklin Gothic Medium">Mailing Address</f
+ont></td>
        </tr>
        <tr>
            <td colspan="2"><font face="Franklin Gothic Medium">
            Street <input type="text" name="PrimaryMailingStreet" size
+="80" style="border: 1px solid #000000; background-color: #CCE6FF" va
+lue="$data[24]">
            City <input type="text" name="PrimaryMailingCity" size="20
+" style="border: 1px solid #000000; background-color: #CCE6FF" value=
+"$data[25]">
            State <input type="text" name="PrimaryMailingState" size="
+2" style="border: 1px solid #000000; background-color: #CCE6FF" value
+="$data[26]">
            </td>
        </tr>

        <tr>
            <td><font face="Franklin Gothic Medium">Social Security Nu
+mber
            </font>
            </td>
            <td><font face="Franklin Gothic Medium"><input type="text"
+ name="PrimarySSN" size="11" style="border: 1px solid #000000; backgr
+ound-color: #CCE6FF" value="$data[27]"></font></td>
        </tr>
        <tr>
            <td><font face="Franklin Gothic Medium">Birth date
            </font>
            </td>
            <td><font face="Franklin Gothic Medium">Month <input type=
+"text" name="PrimaryMonth" size="3" style="border: 1px solid #000000;
+ background-color: #CCE6FF" value="$data[28]">
            Day <input type="text" name="PrimaryDay" size="2" style="b
+order: 1px solid #000000; background-color: #CCE6FF" value="$data[29]
+">
            Year <input type="text" name="PrimaryYear" size="4" style=
+"border: 1px solid #000000; background-color: #CCE6FF" value="$data[3
+0]">
            </font>
            </td>
        </tr>
        <tr>
            <td><font face="Franklin Gothic Medium">Marital Status
            </font>
            </td>
            <td><font face="Franklin Gothic Medium"><input type="radio
+" name="PrimaryMarital" value="Married" $MSM>Married
            <input type="radio" name="PrimaryMarital" value="Single" $
+MSS>Single
            <input type="radio" name="PrimaryMarital" value="Widowed-D
+ivorced" $MSWD>Widowed/Divorced</font></td>
        </tr>
    </table>
    

    <br><br>

    <center><img src="http://127.0.0.1:8000/dot.jpg" width="200" heigh
+t="1"></center>
    <br>

    <b><font face="Franklin Gothic Medium">Co-Borrower Information</fo
+nt></b><br><br>

HTML
;

if($data[35] eq "SR") {
    $CoSSR = "checked";
}
if($data[35] eq "JR") {
    $CoSJR = "checked";
}
if($data[35] eq "None") {
    $C0SNone = "checked";
}
if($data[35] eq "Other") {
    $CoSOther = "checked";
    $CoOther = $data[36];
}

if($data[50] eq "Married") {
    $CoMSM = "checked";
}
if($data[50] eq "Single") {
    $CoMSS = "checked";
}
if($data[50] eq "Widowed-Divorced") {
    $CoMSWD = "checked";
}




print <<HTML;

    <table border="0">
        <tr>
            <td><font face="Franklin Gothic Medium">Co-Borrower</font>
            </td>
        </tr>
        <tr>
            <td><font face="Franklin Gothic Medium">First Name
            </font>
            </td>
            <td><font face="Franklin Gothic Medium"><input type="text"
+ name="CoFirst" size="20" style="border: 1px solid #000000; backgroun
+d-color: #CCE6FF" value="$data[32]"></font></td>
        </tr>
        <tr>
            <td><font face="Franklin Gothic Medium">Middle Initial 
            </font> 
            </td>
            <td><font face="Franklin Gothic Medium"><input type="text"
+ name="CoMiddle" size="1" style="border: 1px solid #000000; backgroun
+d-color: #CCE6FF" value="$data[33]"></font></td>
        </tr>
        <tr>
            <td><font face="Franklin Gothic Medium">Last Name
            </font>
            </td>
            <td><font face="Franklin Gothic Medium"><input type="text"
+ name="CoLast" size="20" style="border: 1px solid #000000; background
+-color: #CCE6FF" value="$data[34]"></font></td>
        </tr>
        <tr>
            <td><font face="Franklin Gothic Medium">Suffix 
            </font> 
            </td>
            <td><font face="Franklin Gothic Medium"><input type="radio
+" name="CoSuffix" value="JR" $CoSJR>Jr.
                       <input type="radio" name="CoSuffix" value="SR" 
+$CoSSR>Sr.
                       <input type="radio" name="CoSuffix" value="None
+" $CoSNone>None
                       <input type="radio" name="CoSuffix" value="Othe
+r" $CoSOther>Other <input type="text" name="CoOther" size="2" style="
+border: 1px solid #000000; background-color: #CCE6FF" value="$CoOther
+"></font></td>
        </tr>
        <tr>
            <td><font face="Franklin Gothic Medium">Home Phone Number
            </font>
            </td>
            <td><font face="Franklin Gothic Medium"><input type="text"
+ name="CoHomePhone" size="9" style="border: 1px solid #000000; backgr
+ound-color: #CCE6FF" value="$data[37]"> </font></td>
        </tr>
        <tr>
            <td><font face="Franklin Gothic Medium">Cell Phone Number
            </font>
            </td>
            <td><font face="Franklin Gothic Medium"><input type="text"
+ name="CoCell" size="9" style="border: 1px solid #000000; background-
+color: #CCE6FF" value="$data[38]"> </font></td>
        </tr>
        <tr>
            <td><font face="Franklin Gothic Medium">Email Address
            </font>
            </td>
            <td><font face="Franklin Gothic Medium"><input type="text"
+ name="CoEmail" size="35" style="border: 1px solid #000000; backgroun
+d-color: #CCE6FF" value="$data[39]"></font></td>
        </tr>
        <tr>
            <td><font face="Franklin Gothic Medium">Current Address</f
+ont></td>
        </tr>
        <tr>
            <td colspan="2"><font face="Franklin Gothic Medium">
            Street <input type="text" name="CoCurrentStreet" size="80"
+ style="border: 1px solid #000000; background-color: #CCE6FF" value="
+$data[40]">
            City <input type="text" name="CoCurrentCity" size="20" sty
+le="border: 1px solid #000000; background-color: #CCE6FF" value="$dat
+a[41]">
            State <input type="text" name="CoCurrentState" size="2" st
+yle="border: 1px solid #000000; background-color: #CCE6FF" value="$da
+ta[42]">
            </td>
        </tr>

        <tr>
            <td><font face="Franklin Gothic Medium">Mailing Address</f
+ont></td>
        </tr>
        <tr>
            <td colspan="2"><font face="Franklin Gothic Medium">
            Street <input type="text" name="CoMailingStreet" size="80"
+ style="border: 1px solid #000000; background-color: #CCE6FF" value="
+$data[43]">
            City <input type="text" name="CoMailingCity" size="20" sty
+le="border: 1px solid #000000; background-color: #CCE6FF" value="$dat
+a[44]">
            State <input type="text" name="CoMailingState" size="2" st
+yle="border: 1px solid #000000; background-color: #CCE6FF" value="$da
+ta[45]">
            </td>
        </tr>
    
        <tr>
            <td><font face="Franklin Gothic Medium">Social Security Nu
+mber
            </font>
            </td>
            <td><font face="Franklin Gothic Medium"><input type="text"
+ name="CoSSN" size="11" style="border: 1px solid #000000; background-
+color: #CCE6FF" value="$data[46]"></font></td>
        </tr>
        <tr>
            <td><font face="Franklin Gothic Medium">Birth date
            </font>
            </td>
            <td><font face="Franklin Gothic Medium">Month <input type=
+"text" size="3" name="CoMonth" style="border: 1px solid #000000; back
+ground-color: #CCE6FF" value="$data[47]">
            Day <input type="text" name="CoDay" size="2" style="border
+: 1px solid #000000; background-color: #CCE6FF" value="$data[48]">
            Year <input type="text" name="CoYear" size="4" style="bord
+er: 1px solid #000000; background-color: #CCE6FF" value="$data[49]">
            </font>
            </td>
        </tr>
        <tr>
            <td><font face="Franklin Gothic Medium">Marital Status
            </font>
            </td>
            <td><font face="Franklin Gothic Medium"><input type="radio
+" name="CoMarital" value="Married" $CoMSM>Married
            <input type="radio" name="CoMarital" value="Single" $CoMSS
+>Single
            <input type="radio" name="CoMarital" value="Widowed-Divorc
+ed" $CoMSWD>Widowed/Divorced</font></td>
        </tr>
    </table>
    <br>

HTML
;

if($data[51] eq "Yes") {
    $CHY = "checked";
}
if($data[51] eq "No") {
    $CHN = "checked";
}



print <<HTML;

    <table>
        <tr>
            <td><font face="Franklin Gothic Medium">Do You agree to Al
+low Bank of Sullivan to run a Credit History?</font></td>
        </tr>
        <tr>
            <td><input type="radio" name="CreditHistory" value="Yes" $
+CHY>Yes
                <input type="radio" name="CreditHistory" value="No" $C
+HN>No</td>
        </tr>
    </table>


    <p><font size="1" face="Franklin Gothic Medium">The following info
+rmation is requested by the Federal Government for certain types of l
+oans 
    related to a dwelling in order to monitor the lender�s compliance 
+with equal credit opportunity, fair housing and home mortgage disclos
+ure 
    laws.  You are not required to furnish this information, but are e
+ncouraged to do so.  The law provides that a lender may not discrimin
+ate 
    either on the basis of this information, or on whether you choose 
+to furnish it.  If you furnish the information, please provide both 
    ethnicity and race.  For race, you may check more than one designa
+tion.  If you do not furnish ethnicity, race or sex, under Federal 
    regulations, this lender is required to note the information on th
+e basis of visual observation and surname if you have made this appli
+cation
    in person.  If you do not wish to furnish the information, please 
+check the box below.  (Lender must review the above material to assur
+e 
    that the disclosures satisfy all requirements to which the lender 
+is subject under applicable state law for the particular type of loan
+ a
    pplied for.)</font></p>

    <br>

    <font face="Franklin Gothic Medium">Do you wish to furnish basic r
+ace, ethnicity, and/or gender information?

    </font>

HTML
;

if($data[53] eq "Yes") {
    $POY = "checked";
}
if($data[53] eq "No") {
    $PON = "checked";
}

if($data[54] eq "Yes") {
    $CoOpY = "checked";
}
if($data[54] eq "No") {
    $CoOpN = "checked";
}



print <<HTML

    <table border="0" id="table3">
        <tr>
            <td width="445"><font face="Franklin Gothic Medium">Primar
+y Borrower 
            <input type="radio" name="PrimaryOptional" value="Yes" $PO
+Y>Yes
            <input type="radio" name="PrimaryOptional" value="No" $PON
+>No
            </font>
            </td>
            <td width="400"><font face="Franklin Gothic Medium">Co-Bor
+rower        
            <input type="radio" name="CoOptional" value="Yes" $CoOpY>Y
+es
            <input type="radio" name="CoOptional" value="No" $CoOpN>No
            </font>
            </td>
        </tr>
    </table>

    <font face="Franklin Gothic Medium">
    <br>

HTML
;

if($data[55] eq "HisLat") {
    $POEH = "checked";
}
if($data[55] eq "NotHisLat") {
    $POEN = "checked";
}

if($data[56] eq "HisLat") {
    $CoEH = "checked";
}
if($data[56] eq "NotHisLat") {
    $CoEN = "checked";
}


print <<HTML;

    Ethnicity
    </font>
    <table border="0" id="table4">
        <tr>
            <td width="445"><font face="Franklin Gothic Medium">Primar
+y Borrower  
            <input type="radio" name="PrimaryOptionalEthnicity" value=
+"HisLat" $POEH>Hispanic or Latino
            <input type="radio" name="PrimaryOptionalEthnicity" value=
+"NotHisLat" $POEN>Not Hispanic or Latino
            </font>
            </td>
            <td width="450"><font face="Franklin Gothic Medium">Co-Bor
+rower        
            <input type="radio" name="CoOptionalEthnicity" value="HisL
+at" $CoEH>Hispanic or Latino
            <input type="radio" name="CoOptionalEthnicity" value="NotH
+isLat" $CoEN>Not Hispanic or Latino
            </font>
            </td>
        </tr>
    </table>
<font face="Franklin Gothic Medium">
<br>

HTML
;

if($data[57] eq "American Indian or Alaska Native") {
    $AIAN = "checked";
}
if($data[57] eq "Native Hawaiian or Other Pacific Islander") {
    $NHOPI = "checked";
}
if($data[57] eq "Asia") {
    $Asia = "checked";
}
if($data[57] eq "White") {
    $white = "checked";
}
if($data[57] eq "Black or African American") {
    $Black = "checked";
}

if($data[58] eq "American Indian or Alaska Native") {
    $CoAIAN = "checked";
}
if($data[58] eq "Native Hawaiian or Other Pacific Islander") {
    $CoNHOPI = "checked";
}
if($data[58] eq "Asia") {
    $CoAsia = "checked";
}
if($data[58] eq "White") {
    $Cowhite = "checked";
}
if($data[58] eq "Black or African American") {
    $CoBlack = "checked";
}

print <<HTML;


    Race
    </font>
    <table border="0" id="table4">
        <tr>
            <td width="445"><font face="Franklin Gothic Medium">Primar
+y Borrower  
            </font>  
            </td>
            <td width="450"><font face="Franklin Gothic Medium">Co-Bor
+rower        
            </font>        
            </td>
        </tr>
        <tr>
            <td><font face="Franklin Gothic Medium"><input type="radio
+" name="PrimaryOptionalRace" value="American Indian or Alaska Native"
+ $AIAN>American Indian or Alaska Native
            </font>
            <td><font face="Franklin Gothic Medium"><input type="radio
+" name="CoOptionalRace" value="American Indian or Alaska Native" $CoA
+IAN>American Indian or Alaska Native
            </font>
            </td>    
        </tr>
        <tr>
            <td><font face="Franklin Gothic Medium"><input type="radio
+" name="PrimaryOptionalRace" value="Native Hawaiian or Other Pacific 
+Islander" $NHOPI>Native Hawaiian or Other Pacific Islander
            </font>
            <td><font face="Franklin Gothic Medium"><input type="radio
+" name="CoOptionalRace" value="Native Hawaiian or Other Pacific Islan
+der" $CoNHOPI>Native Hawaiian or Other Pacific Islander
            </font>
            </td>    
        </tr>
        <tr>
            <td><font face="Franklin Gothic Medium"><input type="radio
+" name="PrimaryOptionalRace" value="Asian" $Asia>Asian
            </font>
            <td><font face="Franklin Gothic Medium"><input type="radio
+" name="CoOptionalRace" value="Asian" $CoAsia>Asian
            </font>
            </td>    
        </tr>
        <tr>
            <td><font face="Franklin Gothic Medium"><input type="radio
+" name="PrimaryOptionalRace" value="White" $white>White
            </font>
            <td><font face="Franklin Gothic Medium"><input type="radio
+" name="CoOptionalRace" value="White" $Cowhite>White
            </font>
            </td>    
        </tr>
        <tr>
            <td><font face="Franklin Gothic Medium"><input type="radio
+" name="PrimaryOptionalRace" value="Black or African American" $Black
+>Black or African American
            </font>
            <td><font face="Franklin Gothic Medium"><input type="radio
+" name="CoOptionalRace" value="Black or African American" $CoBlack>Bl
+ack or African American
            </font>
            </td>    
        </tr>


    </table>

HTML
;

if($data[59] eq "Male") {
    $Male = "checked";
}
if($data[59] eq "Female") {
    $Female = "checked";
}

if($data[60] eq "Male") {
    $CoMale = "checked";
}
if($data[60] eq "Female") {
    $CoFemale = "checked";
}


print <<HTML;


    <font face="Franklin Gothic Medium">
    <br>

    Gender
    </font>
    <table border="0" id="table5">
        <tr>
            <td width="445"><font face="Franklin Gothic Medium">Primar
+y Borrower  
            <input type="radio" name="PrimaryOptionalGender" value="Ma
+le" $Male>Male
            <input type="radio" name="PrimaryOptionalGender" value="Fe
+male" $Female>Female
            </font>
            </td>
            <td width="450"><font face="Franklin Gothic Medium">Co-Bor
+rower        
            <input type="radio" name="CoOptionalGender" value="Male" $
+CoMale>Male
            <input type="radio" name="CoOptionalGender" value="Female"
+ $CoFemale>Female
            </font>
            </td>
        </tr>
    </table>
    <font face="Franklin Gothic Medium">
    <br>


    Additional Information
    </font>
    <br>
    <textarea name="AdditionalInfo" cols="75" rows="4" style="border: 
+1px solid #000000; background-color: #CCE6FF" value="$data[61]"></tex
+tarea>
    <br>
    <br>    



    <table width="150">
        <tr>
            <td width="100"><input type="submit" value="Submit" name="
+Submit"></td>
            <td><input type="reset" value="Reset" name="Reset"></td>
        </tr>
    </table>
    </form>

    
HTML
;
[download]

In reply to Javascript and Perl by SteveS832001

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		`&`
	<		`<`
	>		`>`
	[		`[`
	]		`]`

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.