NSC Supply's Material Request Confirmation Perl Program

NSC Supply
Partial
Perl Programming for
Material Request Confirmation

&blank_response1 unless $FORM{date};
sub blank_response1
{
 print "Your request was not sent because you did not specify today's date. \n";
 print "Please press the back button to return to the previous page and fill in this required information. \n";
 print "Then, submit your request again. Thank you. \n";
 print "<FORM><INPUT TYPE=\"button\" VALUE=\" BACK \" onClick=\"history.go(-1)\"></FORM></PRE>\n";
exit;
}

&blank_response2 unless $FORM{name};
sub blank_response2
{
 print "Your request was not sent because you did not specify your name. \n";
 print "Please press the back button to return to the previous page and fill in this required information. \n";
 print "Then, submit your request again. Thank you. \n";
 print "<FORM><INPUT TYPE=\"button\" VALUE=\" BACK \" onClick=\"history.go(-1)\"></FORM></PRE>\n";
exit;
}

&blank_response3 unless $FORM{phone};
sub blank_response3
{
 print "Your request was not sent because you did not specify your phone number. \n";
 print "Please press the back button to return to the previous page and fill in this required information. \n";
 print "Then, submit your request again. Thank you. \n";
 print "<FORM><INPUT TYPE=\"button\" VALUE=\" BACK \" onClick=\"history.go(-1)\"></FORM></PRE>\n";
exit;
}

&blank_response31 unless $FORM{depart};
sub blank_response31
{
 print "Your request was not sent because you did not specify your department. \n";
 print "Please press the back button to return to the previous page and fill in this required information. \n";
 print "Then, submit your request again. Thank you. \n";
 print "<FORM><INPUT TYPE=\"button\" VALUE=\" BACK \" onClick=\"history.go(-1)\"></FORM></PRE>\n";
exit;
}

&blank_response4 unless $FORM{lab};
sub blank_response4
{
 print "Your request was not sent because you did not specify your lab number. \n";
 print "Please press the back button to return to the previous page and fill in this required information. \n";
 print "Then, submit your request again. Thank you. \n";
 print "<FORM><INPUT TYPE=\"button\" VALUE=\" BACK \" onClick=\"history.go(-1)\"></FORM></PRE>\n";
exit;
}

&blank_response5 unless $FORM{bldg};
sub blank_response5
{
 print "Your request was not sent because you did not specify the building (NSC, S.Annex, or Kell). \n";
 print "Please press the back button to return to the previous page and select the appropriate building. \n";
 print "Then, submit your request again. Thank you. \n";
 print "<FORM><INPUT TYPE=\"button\" VALUE=\" BACK \" onClick=\"history.go(-1)\"></FORM></PRE>\n";
exit;
}

&blank_response6 unless $FORM{pdate};
sub blank_response6
{
 print "Your request was not sent because you did not specify the pickup date. \n";
 print "Please press the back button to return to the previous page and fill in this required information. \n";
 print "Then, submit your request again. Thank you. \n";
 print "<FORM><INPUT TYPE=\"button\" VALUE=\" BACK \" onClick=\"history.go(-1)\"></FORM></PRE>\n";
exit;
}

&blank_response7 unless $FORM{tt};
sub blank_response7
{
 print "Your request was not sent because you did not specify the pickup time. \n";
 print "Please press the back button to return to the previous page and select the appropriate building. \n";
 print "Then, submit your request again. Thank you. \n";
 print "<FORM><INPUT TYPE=\"button\" VALUE=\" BACK \" onClick=\"history.go(-1)\"></FORM></PRE>\n";
exit;
}

&blank_response8 unless $FORM{pi};
sub blank_response8
{
 print "Your request was not sent because you did not specify the principle researcher. \n";
 print "Please press the back button to return to the previous page and fill in this required information. \n";
 print "Then, submit your request again. Thank you. \n";
 print "<FORM><INPUT TYPE=\"button\" VALUE=\" BACK \" onClick=\"history.go(-1)\"></FORM></PRE>\n";
exit;
}

&blank_response9 unless $FORM{pro};
sub blank_response9
{
 print "Your request was not sent because you did not specify the project number. \n";
 print "Please press the back button to return to the previous page and fill in this required information. \n";
 print "Then, submit your request again. Thank you. \n";
 print "<FORM><INPUT TYPE=\"button\" VALUE=\" BACK \" onClick=\"history.go(-1)\"></FORM></PRE>\n";
exit;
}

print "</CENTER>\n";

print "<CENTER>Your completed form was delivered. \n";
print "Here is the information you have just submitted.</CENTER>\n";
print "You MUST print out a copy of this confirmation page and bring it to 262 NSC window for pickup. \n";
print "<HR>\n";

print "Date:    $FORM{'date'} \n";
print "Requestor:    $FORM{'name'} \n";
print "Phone#:    $FORM{'phone'} \n";
print "Department:    $FORM{'depart'} \n";
print "Lab:    $FORM{'lab'}    $FORM{'bldg'} \n";
print "Pickup Date:    $FORM{'pdate'} \n";
print "Time:    $FORM{'tt'} \n";
print "Principle Researcher:    $FORM{'pi'} \n";
print "Project Number:    $FORM{'pro'} \n";

print "<HR>\n";

if ($FORM{'p1q1'}) { print "Beaker: Pyrex/Kimax 100ml Corning/Kimble GBE003: $FORM{'p1q1'}@$FORM{'p1unit1'} \n\n";}
if ($FORM{'p1q2'}) { print "Beaker: Pyrex/Kimax 150ml Corning/Kimble GBE004: $FORM{'p1q2'}@$FORM{'p1unit2'} \n\n";}
if ($FORM{'p1q3'}) { print "Beaker: Pyrex/Kimax 250ml Corning/Kimble GBE005: $FORM{'p1q3'}@$FORM{'p1unit3'} \n\n";}
if ($FORM{'p1q4'}) { print "Beaker: Pyrex/Kimax 400ml Corning/Kimble GBE006: $FORM{'p1q4'}@$FORM{'p1unit4'} \n\n";}
if ($FORM{'p1q5'}) { print "Beaker: Pyrex/Kimax 600ml Corning/Kimble GBE001: $FORM{'p1q5'}@$FORM{'p1unit5'} \n\n";}
if ($FORM{'p1q6'}) { print "Beaker: Pyrex/Kimax 1L Corning/Kimble GBE002: $FORM{'p1q6'}@$FORM{'p1unit6'} \n\n";}
if ($FORM{'p1q7'}) { print "Beaker: Pyrex/Kimax 2L Corning/Kimble GBE008: $FORM{'p1q7'}@$FORM{'p1unit7'} \n\n";}
if ($FORM{'p1q8'}) { print "Bottle: Amber Wide, w/poly lid 30ml Qorpak GBO014: $FORM{'p1q8'}@$FORM{'p1unit8'} \n\n";}
if ($FORM{'p1q9'}) { print "Bottle: Amber Wide, w/poly lid 60ml Qorpak GBO001: $FORM{'p1q9'}@$FORM{'p1unit9'} \n\n";}
if ($FORM{'p1q10'}) { print "Bottle: Amber Wide, w/poly lid 120ml Qorpak GBO002: $FORM{'p1q10'}@$FORM{'p1unit10'} \n\n";}
if ($FORM{'p1q11'}) { print "Bottle: Amber Narr, w/teflon lid 120ml Qorpak GBO003: $FORM{'p1q11'}@$FORM{'p1unit11'} \n\n";}
if ($FORM{'p1q12'}) { print "Bottle: Amber Narr, w/poly lid 16oz Qorpak GBO013: $FORM{'p1q12'}@$FORM{'p1unit12'} \n\n";}
if ($FORM{'p1q121'}) { print "Bottle: Amber Narr, w/poly lid 32oz Qorpak GBO022: $FORM{'p1q121'}@$FORM{'p1unit121'} \n\n";}
if ($FORM{'p1q131'}) { print "Bottle: Clear Wide, w/poly lid 16oz Qorpak GBO021: $FORM{'p1q131'}@$FORM{'p1unit131'} \n\n";}
if ($FORM{'p1q13'}) { print "Bottle: Clear Wide, w/poly lid 32oz Qorpak GBO005: $FORM{'p1q13'}@$FORM{'p1unit13'} \n\n";}
if ($FORM{'p1q14'}) { print "Bottle: Clear Narr, w/poly lid 16oz Qorpak GBO004: $FORM{'p1q14'}@$FORM{'p1unit14'} \n\n";}
if ($FORM{'p1q15'}) { print "Bottle: Dropper Amber 60ml Qorpak GBO006: $FORM{'p1q15'}@$FORM{'p1unit15'} \n\n";}
if ($FORM{'p1q161'}) { print "Bottle: Screw Cap, grad. Pyrex 30ml Corning GBO023: $FORM{'p1q161'}@$FORM{'p1unit161'} \n\n";}
if ($FORM{'p1q16'}) { print "Bottle: Screw Cap, grad. Pyrex 100ml Corning GBO007: $FORM{'p1q16'}@$FORM{'p1unit16'} \n\n";}
if ($FORM{'p1q17'}) { print "Bottle: Screw Cap, grad. Pyrex 250ml Corning GBO008: $FORM{'p1q17'}@$FORM{'p1unit17'} \n\n";}
if ($FORM{'p1q18'}) { print "Bottle: Screw Cap, grad. Pyrex 500ml Corning GBO009: $FORM{'p1q18'}@$FORM{'p1unit18'} \n\n";}
if ($FORM{'p1q19'}) { print "Bottle: Screw Cap, grad. Pyrex 1L Corning GBO010: $FORM{'p1q19'}@$FORM{'p1unit19'} \n\n";}
if ($FORM{'p1q20'}) { print "Bottle: Screw Cap, grad. Pyrex 2L Corning GBO011: $FORM{'p1q20'}@$FORM{'p1unit20'} \n\n";}
if ($FORM{'p1q201'}) { print "Bottle: Screw Cap, grad. Pyrex 4L Corning GBO020: $FORM{'p1q201'}@$FORM{'p1unit201'} \n\n";}
if ($FORM{'p1q21'}) { print "Cover Slips: Standard 22mm various GCO001: $FORM{'p1q21'}@$FORM{'p1unit21'} \n\n";}
if ($FORM{'p1q22'}) { print "Cuvette: Spec 20 13mm Milton-Roy GCU002: $FORM{'p1q22'}@$FORM{'p1unit22'} \n\n";}
if ($FORM{'p1q23'}) { print "Cylinder, Graduated: Pyrex 10ml Corning GCY002: $FORM{'p1q23'}@$FORM{'p1unit23'} \n\n";}
if ($FORM{'p1q24'}) { print "Cylinder, Graduated: Red Stripe 10ml Kimble GCY007: $FORM{'p1q24'}@$FORM{'p1unit24'} \n\n";}
if ($FORM{'p1q25'}) { print "Cylinder, Graduated: Red Stripe 25ml Kimble GCY008: $FORM{'p1q25'}@$FORM{'p1unit25'} \n\n";}
if ($FORM{'p1q26'}) { print "Cylinder, Graduated: Pyrex 50ml Corning GCY003: $FORM{'p1q26'}@$FORM{'p1unit26'} \n\n";}
if ($FORM{'p1q27'}) { print "Cylinder, Graduated: Red Stripe 50ml Kimble GCY009: $FORM{'p1q27'}@$FORM{'p1unit27'} \n\n";}
if ($FORM{'p1q28'}) { print "Cylinder, Graduated: Pyrex 100ml Corning GCY004: $FORM{'p1q28'}@$FORM{'p1unit28'} \n\n";}
if ($FORM{'p1q29'}) { print "Cylinder, Graduated: Red Stripe 100ml Kimble GCY010: $FORM{'p1q29'}@$FORM{'p1unit29'} \n\n";}
if ($FORM{'p1q30'}) { print "Cylinder, Graduated: Red Stripe 250ml Kimble GCY011: $FORM{'p1q30'}@$FORM{'p1unit30'} \n\n";}
if ($FORM{'p1q31'}) { print "Cylinder, Graduated: Red Stripe 500ml Kimble GCY012: $FORM{'p1q31'}@$FORM{'p1unit31'} \n\n";}
if ($FORM{'p1q32'}) { print "Cylinder, Graduated: Pyrex 1L Corning GCY005: $FORM{'p1q32'}@$FORM{'p1unit32'} \n\n";}
if ($FORM{'p1q33'}) { print "Cylinder, Graduated: Pyrex, w/Teflon Rim 1L Corning GCY006: $FORM{'p1q33'}@$FORM{'p1unit33'} \n\n";}
if ($FORM{'p1q34'}) { print "Cylinder, Graduated: Red Stripe 1L Kimble GCY013: $FORM{'p1q34'}@$FORM{'p1unit34'} \n\n";}
if ($FORM{'p2q1'}) { print "Column: Distilling Ts 19/22 200mm Kimble GDI001: $FORM{'p2q1'}@$FORM{'p2unit1'} \n\n";}
if ($FORM{'p2q101'}) { print "Column: Distilling Condensor Ts 19/22 Synthware GDI002: $FORM{'p2q101'}@$FORM{'p2unit101'} \n\n";}
if ($FORM{'p2q2'}) { print "Flask: Culture, Pyrex 125ml Corning GFL001: $FORM{'p2q2'}@$FORM{'p2unit2'} \n\n";}
if ($FORM{'p2q3'}) { print "Flask: Erlenmeyer, Pyrex/Kimax 25ml Corning/Kimble GFL002: $FORM{'p2q3'}@$FORM{'p2unit3'} \n\n";}
if ($FORM{'p2q4'}) { print "Flask: Erlenmeyer, Ts 16 w/stop 25ml Kimble GFL018: $FORM{'p2q4'}@$FORM{'p2unit4'} \n\n";}
if ($FORM{'p2q5'}) { print "Flask: Erlenmeyer, Pyrex/Kimax 50ml Corning/Kimble GFL003: $FORM{'p2q5'}@$FORM{'p2unit5'} \n\n";}
if ($FORM{'p2q6'}) { print "Flask: Erlenmeyer, Ts 19 w/stop 50ml Kimble GFL019: $FORM{'p2q6'}@$FORM{'p2unit6'} \n\n";}
if ($FORM{'p2q7'}) { print "Flask: Erlenmeyer, Pyrex/Kimax 125ml Corning/Kimble GFL004: $FORM{'p2q7'}@$FORM{'p2unit7'} \n\n";}
if ($FORM{'p2q8'}) { print "Flask: Erlenmeyer, Pyrex, Ts 24/40 125ml Corning GFL014: $FORM{'p2q8'}@$FORM{'p2unit8'} \n\n";}
if ($FORM{'p2q9'}) { print "Flask: Erlenmeyer, Ts 22 w/stopper 125ml Kimble GFL020: $FORM{'p2q9'}@$FORM{'p2unit9'} \n\n";}
if ($FORM{'p2q10'}) { print "Flask: Erlenmeyer, Pyrex/Kimax 250ml Corning/Kimble GFL005: $FORM{'p2q10'}@$FORM{'p2unit10'} \n\n";}
if ($FORM{'p2q11'}) { print "Flask: Erlenmeyer, Pyrex, Ts 24/40 250ml Corning GFL015: $FORM{'p2q11'}@$FORM{'p2unit11'} \n\n";}
if ($FORM{'p2q12'}) { print "Flask: Erlenmeyer, Pyrex/Kimax 500ml Corning/Kimble GFL006: $FORM{'p2q12'}@$FORM{'p2unit12'} \n\n";}
if ($FORM{'p2q13'}) { print "Flask: Erlenmeyer, Pyrex, Ts 24/40 500ml Corning GFL016: $FORM{'p2q13'}@$FORM{'p2unit13'} \n\n";}
if ($FORM{'p2q14'}) { print "Flask: Erlenmeyer, Pyrex/Kimax 1L Corning/Kimble GFL030: $FORM{'p2q14'}@$FORM{'p2unit14'} \n\n";}
if ($FORM{'p2q15'}) { print "Flask: Erlenmeyer, Pyrex, Ts 24/40 1L Corning GFL017 : $FORM{'p2q15'}@$FORM{'p2unit15'} \n\n";}
if ($FORM{'p2q16'}) { print "Flask: Erlenmeyer, Ts 32 w/stopper 1L Kimble GFL021: $FORM{'p2q16'}@$FORM{'p2unit16'} \n\n";}
if ($FORM{'p2q17'}) { print "Flask: Erlenmeyer, Pyrex/Kimax 2L Corning/Kimble GFL007: $FORM{'p2q17'}@$FORM{'p2unit17'} \n\n";}
if ($FORM{'p2q18'}) { print "Flask: Erlenmeyer, Pyrex/Kimax 4L Corning/Kimble GFL031: $FORM{'p2q18'}@$FORM{'p2unit18'} \n\n";}
if ($FORM{'p2q19'}) { print "Flask: Erlenmeyer, Pyrex/Kimax 6L Corning/Kimble GFL008: $FORM{'p2q19'}@$FORM{'p2unit19'} \n\n";}
if ($FORM{'p2q20'}) { print "Flask: Filtering, w/connector 125ml Kimble GFL024: $FORM{'p2q20'}@$FORM{'p2unit20'} \n\n";}
if ($FORM{'p2q21'}) { print "Flask: Filtering, w/connector 500ml Kimble GFL025 : $FORM{'p2q21'}@$FORM{'p2unit21'} \n\n";}
if ($FORM{'p2q22'}) { print "Flask: Filtering, coated 500ml Corning GFL022: $FORM{'p2q22'}@$FORM{'p2unit22'} \n\n";}
if ($FORM{'p2q23'}) { print "Flask: Filtering, w/side arm 500ml Kimble GFL023: $FORM{'p2q23'}@$FORM{'p2unit23'} \n\n";}
if ($FORM{'p2q24'}) { print "Flask: Volumetric, w/cap 10ml Kimble/Corning GFL026: $FORM{'p2q24'}@$FORM{'p2unit24'} \n\n";}
if ($FORM{'p2q25'}) { print "Flask: Volumetric, w/cap 25ml Kimble/Corning GFL027: $FORM{'p2q25'}@$FORM{'p2unit25'} \n\n";}
if ($FORM{'p2q26'}) { print "Flask: Volumetric, w/cap 50ml Kimble/Corning GFL028: $FORM{'p2q26'}@$FORM{'p2unit26'} \n\n";}
if ($FORM{'p2q27'}) { print "Flask: Volumetric, w/cap 100ml Kimble/Corning GFL029: $FORM{'p2q27'}@$FORM{'p2unit27'} \n\n";}
if ($FORM{'p2q28'}) { print "Funnel: Buchner, Porcelain 83ml Coors GFU001: $FORM{'p2q28'}@$FORM{'p2unit28'} \n\n";}
if ($FORM{'p2q29'}) { print "Funnel: Buchner, Porcelain 100ml Coors GFU002: $FORM{'p2q29'}@$FORM{'p2unit29'} \n\n";}
if ($FORM{'p2q30'}) { print "Funnel: Hirsch, Porcelain 42mm Coors GFU004: $FORM{'p2q30'}@$FORM{'p2unit30'} \n\n";}
if ($FORM{'p2q31'}) { print "Funnel: Hirsch, Porcelain 78mm Coors GFU005: $FORM{'p2q31'}@$FORM{'p2unit31'} \n\n";}
if ($FORM{'p2q32'}) { print "Funnel: Kimax/Pyrex 45mm Corning/Kimble GFU003: $FORM{'p2q32'}@$FORM{'p2unit32'} \n\n";}
if ($FORM{'p2q33'}) { print "Funnel: Kimax/Pyrex 50mm Corning/Kimble GFU006: $FORM{'p2q33'}@$FORM{'p2unit33'} \n\n";}
if ($FORM{'p3q1'}) { print "Pipet: Pasteur, Borosilicate 5.75 in VWR GPI006: $FORM{'p3q1'}@$FORM{'p3unit1'} \n\n";}
if ($FORM{'p3q2'}) { print "Pipet: Pasteur, Borosilicate 9 in VWR GPI021: $FORM{'p3q2'}@$FORM{'p3unit2'} \n\n";}
if ($FORM{'p3q3'}) { print "Pipet: Pasteur, Flint w/plug 5.75 in VWR GPI018: $FORM{'p3q3'}@$FORM{'p3unit3'} \n\n";}
if ($FORM{'p3q311'}) { print "Pipet: Pasteur, Flint w/plug 9 in VWR GPI020: $FORM{'p3q311'}@$FORM{'p3unit311'} \n\n";}
if ($FORM{'p3q4'}) { print "Pipet: Pasteur, Flint 5.75 in Fisher GPI005: $FORM{'p3q4'}@$FORM{'p3unit4'} \n\n";}
if ($FORM{'p3q5'}) { print "Pipet: Pasteur, Flint 9 in Fisher GPI007: $FORM{'p3q5'}@$FORM{'p3unit5'} \n\n";}
if ($FORM{'p3q6'}) { print "Pipet: Serological, Disposable Sterile 1x0.1 various GPI001: $FORM{'p3q6'}@$FORM{'p3unit6'} \n\n";}
if ($FORM{'p3q7'}) { print "Pipet: Serological, Disposable Sterile 1x0.01 various GPI002: $FORM{'p3q7'}@$FORM{'p3unit7'} \n\n";}
if ($FORM{'p3q71'}) { print "Pipet: Serological, Disposable Sterile 1x0.01 Corning GPI029: $FORM{'p3q71'}@$FORM{'p3unit71'} \n\n";}
if ($FORM{'p3q8'}) { print "Pipet: Serological, Disposable Sterile 5ml various GPI003: $FORM{'p3q8'}@$FORM{'p3unit8'} \n\n";}
if ($FORM{'p3q9'}) { print "Pipet: Serological, Disposable Sterile 10ml various GPI004: $FORM{'p3q9'}@$FORM{'p3unit9'} \n\n";}
if ($FORM{'p3q10'}) { print "Pipet: Volumetric, Std. 0.5ml various GPI010: $FORM{'p3q10'}@$FORM{'p3unit10'} \n\n";}
if ($FORM{'p3q11'}) { print "Pipet: Volumetric, Std. 1ml various GPI016: $FORM{'p3q11'}@$FORM{'p3unit11'} \n\n";}
if ($FORM{'p3q12'}) { print "Pipet: Volumetric, Std. 2ml various GPI011: $FORM{'p3q12'}@$FORM{'p3unit12'} \n\n";}
if ($FORM{'p3q13'}) { print "Pipet: Volumetric, Std. 3ml various GPI012: $FORM{'p3q13'}@$FORM{'p3unit13'} \n\n";}
if ($FORM{'p3q14'}) { print "Pipet: Volumetric, Std. 5ml various GPI013: $FORM{'p3q14'}@$FORM{'p3unit14'} \n\n";}
if ($FORM{'p3q15'}) { print "Pipet: Volumetric, Std. 10ml various GPI014: $FORM{'p3q15'}@$FORM{'p3unit15'} \n\n";}
if ($FORM{'p3q16'}) { print "Pipet: Volumetric, Std. 20ml various GPI015: $FORM{'p3q16'}@$FORM{'p3unit16'} \n\n";}
if ($FORM{'p3q17'}) { print "Pipet: Volumetric, Std. 25ml various GPI017: $FORM{'p3q17'}@$FORM{'p3unit17'} \n\n";}
if ($FORM{'p3q18'}) { print "Slide, Microscope: Standard, 25x75mm various GSL001: $FORM{'p3q18'}@$FORM{'p3unit18'} \n\n";}
if ($FORM{'p3q19'}) { print "Tube: Adapter, Straight 19/22Ts Kimble GTU001: $FORM{'p3q19'}@$FORM{'p3unit19'} \n\n";}
if ($FORM{'p3q20'}) { print "Tube: Centrifuge,Conical 15ml Kimble GTU002: $FORM{'p3q20'}@$FORM{'p3unit20'} \n\n";}
if ($FORM{'p3q21'}) { print "Tube: Connecting, Distilling 19/22Ts Kimble GTU003: $FORM{'p3q21'}@$FORM{'p3unit21'} \n\n";}
if ($FORM{'p3q22'}) { print "Tube: Connecting, 3-Way 19/22Ts Corning GTU004: $FORM{'p3q22'}@$FORM{'p3unit22'} \n\n";}
if ($FORM{'p3q23'}) { print "Tube: Culture, Pyrex, w/o rim 13x100mm Corning GTU005: $FORM{'p3q23'}@$FORM{'p3unit23'} \n\n";}
if ($FORM{'p3q24'}) { print "Tube: Culture, Borosilicate 10x75mm various GTU012: $FORM{'p3q24'}@$FORM{'p3unit24'} \n\n";}
if ($FORM{'p3q25'}) { print "Tube: Culture, Borosilicate 12x75mm various GTU006: $FORM{'p3q25'}@$FORM{'p3unit25'} \n\n";}
if ($FORM{'p3q26'}) { print "Tube: Culture, Borosilicate 13x100mm various GTU007: $FORM{'p3q26'}@$FORM{'p3unit26'} \n\n";}
if ($FORM{'p3q261'}) { print "Tube: Culture, Borosilicate 15x85mm various GTU013: $FORM{'p3q261'}@$FORM{'p3unit261'} \n\n";}
if ($FORM{'p3q27'}) { print "Tube: Culture, Borosilicate 16x150mm various GTU010: $FORM{'p3q27'}@$FORM{'p3unit27'} \n\n";}
if ($FORM{'p3q271'}) { print "Tube: Culture, Borosilicate 18x150mm various GTU014: $FORM{'p3q271'}@$FORM{'p3unit271'} \n\n";}
if ($FORM{'p3q28'}) { print "Tube: NMR, 80MHz, 5mm OD 7 in Kontes GTU011: $FORM{'p3q28'}@$FORM{'p3unit28'} \n\n";}
if ($FORM{'p3q29'}) { print "Vial: Scintillation, Borosilicate 20ml VWR GVI001: $FORM{'p3q29'}@$FORM{'p3unit29'} \n\n";}
if ($FORM{'p3q30'}) { print "Vial: Stopper, Tooled Neck 7dr Kimble GVI002: $FORM{'p3q30'}@$FORM{'p3unit30'} \n\n";}
if ($FORM{'p3q31'}) { print "Vial: Specimen 4ml Wheaton GVI003: $FORM{'p3q31'}@$FORM{'p3unit31'} \n\n";}
if ($FORM{'p3q32'}) { print "Watch Glass: Pyrex/Kimax 75mm Corning/Kimble GWA001: $FORM{'p3q32'}@$FORM{'p3unit32'} \n\n";}
if ($FORM{'p4q1'}) { print "Bottle: Wash Acetone 500ml Fisher PBO002: $FORM{'p4q1'}@$FORM{'p4unit1'} \n\n";}
if ($FORM{'p4q2'}) { print "Bottle: Wash Water 500ml Fisher PBO003: $FORM{'p4q2'}@$FORM{'p4unit2'} \n\n";}
if ($FORM{'p4q3'}) { print "Bottle: Polyethylene (non-autoclavable) 1 L Nalge PBO004: $FORM{'p4q3'}@$FORM{'p4unit3'} \n\n";}
if ($FORM{'p4q311'}) { print "Bottle: Wash Bottle 1 L Nalge PBO005: $FORM{'p4q311'}@$FORM{'p4unit311'} \n\n";}
if ($FORM{'p4q4'}) { print "Cap: Culture Tube, Natural PP 13mm various PCA001: $FORM{'p4q4'}@$FORM{'p4unit4'} \n\n";}
if ($FORM{'p4q5'}) { print "Filter Unit: Analytic, 0.45 m 115ml Nalge PFI001: $FORM{'p4q5'}@$FORM{'p4unit5'} \n\n";}
if ($FORM{'p4q6'}) { print "Filter Unit: Analytic, 0.45 m 150ml Nalge PFI004: $FORM{'p4q6'}@$FORM{'p4unit6'} \n\n";}
if ($FORM{'p4q7'}) { print "Filter Unit: Analytic, 0.2 m 150ml Nalge PFI002: $FORM{'p4q7'}@$FORM{'p4unit7'} \n\n";}
if ($FORM{'p4q8'}) { print "Filter Unit: Vacucap 90 0.45um Gelman PFI003: $FORM{'p4q8'}@$FORM{'p4unit8'} \n\n";}
if ($FORM{'p4q9'}) { print "Funnel: Powder, Nalgene 65mm Nalge PFU001: $FORM{'p4q9'}@$FORM{'p4unit9'} \n\n";}
if ($FORM{'p4q10'}) { print "Funnel: Powder, Nalgene 80mm Nalge PFU002: $FORM{'p4q10'}@$FORM{'p4unit10'} \n\n";}
if ($FORM{'p4q11'}) { print "Funnel: Powder, Nalgene 150mm Nalge PFU004: $FORM{'p4q11'}@$FORM{'p4unit11'} \n\n";}
if ($FORM{'p4q12'}) { print "Funnel: Buchner, Nalgene 70mm Nalge PFU003: $FORM{'p4q12'}@$FORM{'p4unit12'} \n\n";}
if ($FORM{'p4q13'}) { print "Petri Plate 60x15mm various PPE001: $FORM{'p4q13'}@$FORM{'p4unit13'} \n\n";}
if ($FORM{'p4q14'}) { print "Petri Plate: Treated culture dish 60x15mm various PPE004: $FORM{'p4q14'}@$FORM{'p4unit14'} \n\n";}
if ($FORM{'p4q15'}) { print "Petri Plate 100x15mm VWR PPE002: $FORM{'p4q15'}@$FORM{'p4unit15'} \n\n";}
if ($FORM{'p4q16'}) { print "Petri Plate: For NB Pourer 100x15mm Valmark PPE003: $FORM{'p4q16'}@$FORM{'p4unit16'} \n\n";}
if ($FORM{'p4q17'}) { print "Pipet: Polystyrene, Disposable 1x0.1 various PPI017: $FORM{'p4q17'}@$FORM{'p4unit17'} \n\n";}
if ($FORM{'p4q18'}) { print "Pipet: Polystyrene, Disposable 1x0.01 various PPI001: $FORM{'p4q18'}@$FORM{'p4unit18'} \n\n";}
if ($FORM{'p4q19'}) { print "Pipet: Polystyrene, Disposable 5ml various PPI002: $FORM{'p4q19'}@$FORM{'p4unit19'} \n\n";}
if ($FORM{'p4q20'}) { print "Pipet: Polystyrene, Disposable 10ml various PPI003: $FORM{'p4q20'}@$FORM{'p4unit20'} \n\n";}
if ($FORM{'p4q21'}) { print "Pipet: Polystyrene, Disposable 25ml various PPI004: $FORM{'p4q21'}@$FORM{'p4unit21'} \n\n";}
if ($FORM{'p4q22'}) { print "Pipet: Transfer, Sterile 5ml various PPI005: $FORM{'p4q22'}@$FORM{'p4unit22'} \n\n";}
if ($FORM{'p4q23'}) { print "Pipet Tip: Gilson Rain P2&P10, 96/Box .1-10ul various PPI008: $FORM{'p4q23'}@$FORM{'p4unit23'} \n\n";}
if ($FORM{'p4q24'}) { print "Pipet Tip: Gilson Rain P2&P10, Bulk .1-10ul various PPI014: $FORM{'p4q24'}@$FORM{'p4unit24'} \n\n";}
if ($FORM{'p4q25'}) { print "Pipet Tip: Epp Ult Micro, Bulk .5-10ul various PPI011: $FORM{'p4q25'}@$FORM{'p4unit25'} \n\n";}
if ($FORM{'p4q26'}) { print "Pipet Tip: Gel Rack, Box 200ul various PPI010: $FORM{'p4q26'}@$FORM{'p4unit26'} \n\n";}
if ($FORM{'p4q27'}) { print "Pipet Tip: Universal, Bulk Yellow 200ul VWR PPI009: $FORM{'p4q27'}@$FORM{'p4unit27'} \n\n";}
if ($FORM{'p4q28'}) { print "Pipet Tip: Universal, Box Yellow Sterile 200ul various PPI006: $FORM{'p4q28'}@$FORM{'p4unit28'} \n\n";}
if ($FORM{'p4q29'}) { print "Pipet Tip: Universal, Bulk Blue 1000ul VWR PPI012: $FORM{'p4q29'}@$FORM{'p4unit29'} \n\n";}
if ($FORM{'p4q30'}) { print "Pipet Tip: Universal, Bulk Blue 1000ul Fisher/Wheaton PPI013: $FORM{'p4q30'}@$FORM{'p4unit30'} \n\n";}
if ($FORM{'p4q31'}) { print "Pipet Tip: Universal, Box Blue 1000ul various PPI007: $FORM{'p4q31'}@$FORM{'p4unit31'} \n\n";}
if ($FORM{'p4q32'}) { print "Pipet Tip: Eppendorf, Box 1000ul various PPI016: $FORM{'p4q32'}@$FORM{'p4unit32'} \n\n";}
if ($FORM{'p4q33'}) { print "Pipet Tip: Universal, Box Blue Sterile 1000ul various PPI015: $FORM{'p4q33'}@$FORM{'p4unit33'} \n\n";}
if ($FORM{'p5q1'}) { print "Rack: Microfuge, 80 place 2ml VWR PRA001: $FORM{'p5q1'}@$FORM{'p5unit1'} \n\n";}
if ($FORM{'p5q2'}) { print "Tube: Microcentrifuge, Clear 1.7ml NatSci/Mµlti-safSeal PTU002: $FORM{'p5q2'}@$FORM{'p5unit2'} \n\n";}
if ($FORM{'p5q3'}) { print "Tube: Microcentrifuge, Rainbow 1.7ml NatSci/Mµlti-safSeal PTU011: $FORM{'p5q3'}@$FORM{'p5unit3'} \n\n";}
if ($FORM{'p5q4'}) { print "Tube: Microcentrifuge, Rainbow 1.7ml VWR/Fisher PTU010: $FORM{'p5q4'}@$FORM{'p5unit4'} \n\n";}
if ($FORM{'p5q5'}) { print "Tube: Centrifuge, Open-Top, PPCO 13.5ml Nalge PTU003: $FORM{'p5q5'}@$FORM{'p5unit5'} \n\n";}
if ($FORM{'p5q51'}) { print "Tube: Centrifuge, Open-Top, PPCO 15ml Nalge PTU021: $FORM{'p5q51'}@$FORM{'p5unit51'} \n\n";}
if ($FORM{'p5q6'}) { print "Tube: Centrifuge, Conical Polystyrene 15ml various PTU005: $FORM{'p5q6'}@$FORM{'p5unit6'} \n\n";}
if ($FORM{'p5q7'}) { print "Tube: Centrifuge, Conical Polypropyl 15ml various PTU004: $FORM{'p5q7'}@$FORM{'p5unit7'} \n\n";}
if ($FORM{'p5q8'}) { print "Tube: Centrifuge, Conical Polypropyl 50ml various PTU006: $FORM{'p5q8'}@$FORM{'p5unit8'} \n\n";}
if ($FORM{'p5q81'}) { print "Tube: Culture, w/Caps 12x75mm-5ml VWR PTU028: $FORM{'p5q81'}@$FORM{'p5unit81'} \n\n";}
if ($FORM{'p5q9'}) { print "Tube: Culture, w/Caps 17x100mm-14ml VWR PTU007: $FORM{'p5q9'}@$FORM{'p5unit9'} \n\n";}
if ($FORM{'p5q91'}) { print "Tube: Culture, w/Caps 17x100mm-14ml Falcon PTU020: $FORM{'p5q91'}@$FORM{'p5unit91'} \n\n";}
if ($FORM{'p5q10'}) { print "Tube: PCR, Thermowell .5ml Costar PTU008: $FORM{'p5q10'}@$FORM{'p5unit10'} \n\n";}
if ($FORM{'p5q11'}) { print "Vial: Cryogenic, Nalgene 2ml Nalge PVI001: $FORM{'p5q11'}@$FORM{'p5unit11'} \n\n";}
if ($FORM{'p5q12'}) { print "Weigh Boat: Polystyrene Sm various PWE001: $FORM{'p5q12'}@$FORM{'p5unit12'} \n\n";}
if ($FORM{'p5q13'}) { print "Weigh Boat: Polystyrene Md various PWE002: $FORM{'p5q13'}@$FORM{'p5unit13'} \n\n";}
if ($FORM{'p5q14'}) { print "Weigh Boat: Polystyrene Lg various PWE003: $FORM{'p5q14'}@$FORM{'p5unit14'} \n\n";}
if ($FORM{'p6q1'}) { print "Acetic Acid, Glacial, 99.7 percent 2.5L various CAC001: $FORM{'p6q1'}@$FORM{'p6unit1'} \n\n";}
if ($FORM{'p6q2'}) { print "Acetone, HPLC Grade 4L various CAC003: $FORM{'p6q2'}@$FORM{'p6unit2'} \n\n";}
if ($FORM{'p6q3'}) { print "Acetone, Histological 20L various CAC010: $FORM{'p6q3'}@$FORM{'p6unit3'} \n\n";}
if ($FORM{'p6q4'}) { print "Acetonitrile, Optima Grade 4L Fisher CAC006: $FORM{'p6q4'}@$FORM{'p6unit4'} \n\n";}
if ($FORM{'p6q5'}) { print "Acrylamide 500g JT Baker CAC008: $FORM{'p6q5'}@$FORM{'p6unit5'} \n\n";}
if ($FORM{'p6q6'}) { print "Acrylamide, Ultrapure 500g US-75820 CAC009: $FORM{'p6q6'}@$FORM{'p6unit6'} \n\n";}
if ($FORM{'p6q7'}) { print "Agarose, Ultrapure 100g USB CAG001: $FORM{'p6q7'}@$FORM{'p6unit7'} \n\n";}
if ($FORM{'p6q8'}) { print "Ammonium Hydroxide, 28-30 percent 2.5L various CAM001: $FORM{'p6q8'}@$FORM{'p6unit8'} \n\n";}
if ($FORM{'p6q9'}) { print "Bleach, Clorox® 1 gal Clorox OBL001: $FORM{'p6q9'}@$FORM{'p6unit9'} \n\n";}
if ($FORM{'p6q10'}) { print "Boric Acid 500g various CBO001: $FORM{'p6q10'}@$FORM{'p6unit10'} \n\n";}
if ($FORM{'p6q11'}) { print "Bromine 250ml various CBR002: $FORM{'p6q11'}@$FORM{'p6unit11'} \n\n";}
if ($FORM{'p6q12'}) { print "Butyl Alcohol 500ml various CBU001: $FORM{'p6q12'}@$FORM{'p6unit12'} \n\n";}
if ($FORM{'p6q13'}) { print "Butyl Alcohol 4L various CBU002: $FORM{'p6q13'}@$FORM{'p6unit13'} \n\n";}
if ($FORM{'p6q14'}) { print "sec-Butyl Alcohol 1L various CBU003: $FORM{'p6q14'}@$FORM{'p6unit14'} \n\n";}
if ($FORM{'p6q15'}) { print "Calcium Chloride, Anhydrous 2.5Kg various CCA001: $FORM{'p6q15'}@$FORM{'p6unit15'} \n\n";}
if ($FORM{'p6q16'}) { print "Carbon Tetrachloride 500ml various CCA002: $FORM{'p6q16'}@$FORM{'p6unit16'} \n\n";}
if ($FORM{'p6q17'}) { print "Cesium Chloride, Ultrapure 100g US-75822 CCE001: $FORM{'p6q17'}@$FORM{'p6unit17'} \n\n";}
if ($FORM{'p6q18'}) { print "Chloroform, HPLC 4L various CCH003: $FORM{'p6q18'}@$FORM{'p6unit18'} \n\n";}
if ($FORM{'p6q181'}) { print "Chloroform, OmniSolv 4L various CCH001: $FORM{'p6q181'}@$FORM{'p6unit181'} \n\n";}
if ($FORM{'p6q19'}) { print "Chloroform-[D1, 99.8 percent] 100g ICN CCH002: $FORM{'p6q19'}@$FORM{'p6unit19'} \n\n";}
if ($FORM{'p6q20'}) { print "Cupric Sulfate, 5-Hydrate 500g various CCU001: $FORM{'p6q20'}@$FORM{'p6unit20'} \n\n";}
if ($FORM{'p6q21'}) { print "Denhardt Solution 50ml US-70468 CDE001: $FORM{'p6q21'}@$FORM{'p6unit21'} \n\n";}
if ($FORM{'p6q22'}) { print "Dessicant, indicating (wasCDR001) 2.5Kg Drierite CDE002: $FORM{'p6q22'}@$FORM{'p6unit22'} \n\n";}
if ($FORM{'p6q23'}) { print "Dessicant, indicating (T.H.E.) 2.0Kg EM Science CDE003: $FORM{'p6q23'}@$FORM{'p6unit23'} \n\n";}
if ($FORM{'p6q24'}) { print "Dextrose (Glucose) monohydr 500g various CGL001: $FORM{'p6q24'}@$FORM{'p6unit24'} \n\n";}
if ($FORM{'p6q25'}) { print "Dextrose (Glucose) anhydr 500g various CGL005: $FORM{'p6q25'}@$FORM{'p6unit25'} \n\n";}
if ($FORM{'p6q26'}) { print "N-N-Dimethylformamide 1L various CDI001: $FORM{'p6q26'}@$FORM{'p6unit26'} \n\n";}
if ($FORM{'p6q27'}) { print "N-N-Dimethylformamide 4L various CDI002: $FORM{'p6q27'}@$FORM{'p6unit27'} \n\n";}
if ($FORM{'p6q28'}) { print "DNA Sequencing Gel Mix, 6 percent US-72990 CDN001: $FORM{'p6q28'}@$FORM{'p6unit28'} \n\n";}
if ($FORM{'p6q29'}) { print "DNA Sequencing Gel Mix, 8 percent US-70090 CDN002: $FORM{'p6q29'}@$FORM{'p6unit29'} \n\n";}
if ($FORM{'p7q1'}) { print "Ethanol, 95 percent (190 Proof) Aaper CET001: $FORM{'p7q1'}@$FORM{'p7unit1'} \n\n";}
if ($FORM{'p7q2'}) { print "Ethanol, 100 percent (200 Proof) 1pt Aaper CET002: $FORM{'p7q2'}@$FORM{'p7unit2'} \n\n";}
if ($FORM{'p7q3'}) { print "Ethyl Acetate, HPLC solvent 1L various CET003: $FORM{'p7q3'}@$FORM{'p7unit3'} \n\n";}
if ($FORM{'p7q4'}) { print "EDTA 500g various CET004: $FORM{'p7q4'}@$FORM{'p7unit4'} \n\n";}
if ($FORM{'p7q5'}) { print "EDTA, disodium 500g various CET006: $FORM{'p7q5'}@$FORM{'p7unit5'} \n\n";}
if ($FORM{'p7q6'}) { print "EDTA, disodium Ultrapure 500g various CET007: $FORM{'p7q6'}@$FORM{'p7unit6'} \n\n";}
if ($FORM{'p7q7'}) { print "D(+)-Glucose, monohydrate 500g various CGL001: $FORM{'p7q7'}@$FORM{'p7unit7'} \n\n";}
if ($FORM{'p7q8'}) { print "D(+)-Glucose, anhydrous 500g various CGL005: $FORM{'p7q8'}@$FORM{'p7unit8'} \n\n";}
if ($FORM{'p7q9'}) { print "Glycerol 1Kg various CGL002: $FORM{'p7q9'}@$FORM{'p7unit9'} \n\n";}
if ($FORM{'p7q10'}) { print "Glycerol 4L various CGL003: $FORM{'p7q10'}@$FORM{'p7unit10'} \n\n";}
if ($FORM{'p7q11'}) { print "Glycine 500g various CGL004: $FORM{'p7q11'}@$FORM{'p7unit11'} \n\n";}
if ($FORM{'p7q111'}) { print "Glycerin 1L various CGL005: $FORM{'p7q111'}@$FORM{'p7unit111'} \n\n";}
if ($FORM{'p7q112'}) { print "Glycerin 4L various CGL006: $FORM{'p7q112'}@$FORM{'p7unit112'} \n\n";}
if ($FORM{'p7q12'}) { print "Hexanes 4L various CHE001: $FORM{'p7q12'}@$FORM{'p7unit12'} \n\n";}
if ($FORM{'p7q13'}) { print "Hydrobromic Acid 500ml various CHY004: $FORM{'p7q13'}@$FORM{'p7unit13'} \n\n";}
if ($FORM{'p7q14'}) { print "Hydrochloric Acid 2.5L various CHY002: $FORM{'p7q14'}@$FORM{'p7unit14'} \n\n";}
if ($FORM{'p7q15'}) { print "Hydrogen Peroxide 1L various CHY003: $FORM{'p7q15'}@$FORM{'p7unit15'} \n\n";}
if ($FORM{'p7q16'}) { print "Isopropanol 4L various CIS001: $FORM{'p7q16'}@$FORM{'p7unit16'} \n\n";}
if ($FORM{'p7q17'}) { print "Isopropanol 20L various CIS002: $FORM{'p7q17'}@$FORM{'p7unit17'} \n\n";}
if ($FORM{'p7q18'}) { print "Magnesium Sulfate, Anhydrous 500g various CMA001: $FORM{'p7q18'}@$FORM{'p7unit18'} \n\n";}
if ($FORM{'p7q19'}) { print "Magnesium Sulfate.7H2O 500g various CMA002: $FORM{'p7q19'}@$FORM{'p7unit19'} \n\n";}
if ($FORM{'p7q20'}) { print "Methanol, ACS 1L various CME006: $FORM{'p7q20'}@$FORM{'p7unit20'} \n\n";}
if ($FORM{'p7q21'}) { print "Methanol, ACS 4L various CME001: $FORM{'p7q21'}@$FORM{'p7unit21'} \n\n";}
if ($FORM{'p7q22'}) { print "Methanol, HPLC 4L various CME005: $FORM{'p7q22'}@$FORM{'p7unit22'} \n\n";}
if ($FORM{'p7q23'}) { print "Methanol 20L various CME002: $FORM{'p7q23'}@$FORM{'p7unit23'} \n\n";}
if ($FORM{'p7q24'}) { print "N-N-Methylenebisacrylamide 100g Acros CME003: $FORM{'p7q24'}@$FORM{'p7unit24'} \n\n";}
if ($FORM{'p7q25'}) { print "Methylene Chloride, HPLC 4L various CME004: $FORM{'p7q25'}@$FORM{'p7unit25'} \n\n";}
if ($FORM{'p7q26'}) { print "Mineral Oil, Light 4L various CMI001: $FORM{'p7q26'}@$FORM{'p7unit26'} \n\n";}
if ($FORM{'p7q27'}) { print "Molecular Sieves, Grade 514 500g various CMO001: $FORM{'p7q27'}@$FORM{'p7unit27'} \n\n";}
if ($FORM{'p7q28'}) { print "Nitric Acid, 69-71 percent 2.5L various CNI001: $FORM{'p7q28'}@$FORM{'p7unit28'} \n\n";}
if ($FORM{'p8q1'}) { print "Pentane, HPLC Grade 4L various CPE001: $FORM{'p8q1'}@$FORM{'p8unit1'} \n\n";}
if ($FORM{'p8q2'}) { print "pH Buffer, 4.00, Red 500ml various CPH001: $FORM{'p8q2'}@$FORM{'p8unit2'} \n\n";}
if ($FORM{'p8q3'}) { print "pH Buffer, 7.00, Yellow 500ml various CPH002: $FORM{'p8q3'}@$FORM{'p8unit3'} \n\n";}
if ($FORM{'p8q4'}) { print "pH Buffer, 10.00, Blue 500ml various CPH003: $FORM{'p8q4'}@$FORM{'p8unit4'} \n\n";}
if ($FORM{'p8q5'}) { print "Phenol, solid 500g various n/a: $FORM{'p8q5'}@$FORM{'p8unit5'} \n\n";}
if ($FORM{'p8q6'}) { print "Phenol, Equilibrated, Ultrapure 400ml US-75829 CPH004: $FORM{'p8q6'}@$FORM{'p8unit6'} \n\n";}
if ($FORM{'p8q7'}) { print "Phosphoric Acid 2.5L various CPH005: $FORM{'p8q7'}@$FORM{'p8unit7'} \n\n";}
if ($FORM{'p8q8'}) { print "Potassium Acetate 250g various CPO002: $FORM{'p8q8'}@$FORM{'p8unit8'} \n\n";}
if ($FORM{'p8q9'}) { print "Potassium Chloride 500g various CPO001: $FORM{'p8q9'}@$FORM{'p8unit9'} \n\n";}
if ($FORM{'p8q10'}) { print "Potassium Hydrogen Phthalate 500g various CPO003: $FORM{'p8q10'}@$FORM{'p8unit10'} \n\n";}
if ($FORM{'p8q11'}) { print "Potassium Hydroxide, 45 percent 4L various CPO004: $FORM{'p8q11'}@$FORM{'p8unit11'} \n\n";}
if ($FORM{'p8q12'}) { print "Potassium Hydroxide, Pellets 500g various CPO005: $FORM{'p8q12'}@$FORM{'p8unit12'} \n\n";}
if ($FORM{'p8q13'}) { print "Potassium Iodate 125g various CPO010: $FORM{'p8q13'}@$FORM{'p8unit13'} \n\n";}
if ($FORM{'p8q14'}) { print "Potassium Iodide 10Kg Fisher CPO006: $FORM{'p8q14'}@$FORM{'p8unit14'} \n\n";}
if ($FORM{'p8q15'}) { print "Potassium Permanganate 500g various CPO007: $FORM{'p8q15'}@$FORM{'p8unit15'} \n\n";}
if ($FORM{'p8q16'}) { print "Potassium Phosphate, Dibasic 500g various CPO008: $FORM{'p8q16'}@$FORM{'p8unit16'} \n\n";}
if ($FORM{'p8q17'}) { print "Potassium Phosphate, Mono. 500g various CPO009: $FORM{'p8q17'}@$FORM{'p8unit17'} \n\n";}
if ($FORM{'p8q18'}) { print "Silica Gel, Grade 633 1Kg various CSI001: $FORM{'p8q18'}@$FORM{'p8unit18'} \n\n";}
if ($FORM{'p8q19'}) { print "Silver Nitrate, Crystal 500g various CSI003: $FORM{'p8q19'}@$FORM{'p8unit19'} \n\n";}
if ($FORM{'p8q20'}) { print "Sodium Acetate, Anhydrous 500g various CSO013: $FORM{'p8q20'}@$FORM{'p8unit20'} \n\n";}
if ($FORM{'p8q21'}) { print "Sodium Acetate, Trihydrate 500g various CSO001: $FORM{'p8q21'}@$FORM{'p8unit21'} \n\n";}
if ($FORM{'p8q22'}) { print "Sodium Bicarbonate, molec bio 500g various CSO014: $FORM{'p8q22'}@$FORM{'p8unit22'}\n\n";}
if ($FORM{'p8q23'}) { print "Sodium Bicarbonate, Powder 2.5Kg various CSO002: $FORM{'p8q23'}@$FORM{'p8unit23'}\n\n";}
if ($FORM{'p8q24'}) { print "Sodium Chloride 500g various CSO003: $FORM{'p8q24'}@$FORM{'p8unit24'}\n\n";}
if ($FORM{'p8q25'}) { print "Sodium Chloride 2.5K various CSO015: $FORM{'p8q25'}@$FORM{'p8unit25'} \n\n";}
if ($FORM{'p8q251'}) { print "Sodium Chloride 3.0K various CSO020: $FORM{'p8q251'}@$FORM{'p8unit251'} \n\n";}
if ($FORM{'p8q26'}) { print "Sodium Citrate•2H2O 500g various CSO005: $FORM{'p8q26'}@$FORM{'p8unit26'} \n\n";}
if ($FORM{'p8q27'}) { print "Sodium Hydroxide, Pellets 500g various CSO006: $FORM{'p8q27'}@$FORM{'p8unit27'} \n\n";}
if ($FORM{'p8q28'}) { print "Sodium Hydroxide, 50 percent 4L various CSO004: $FORM{'p8q28'}@$FORM{'p8unit28'} \n\n";}
if ($FORM{'p8q29'}) { print "Sodium Phosphate, Dibasic 500g various CSO007: $FORM{'p8q29'}@$FORM{'p8unit29'} \n\n";}
if ($FORM{'p8q30'}) { print "Sodium Phosphate, Monobasic 500g various CSO008: $FORM{'p8q30'}@$FORM{'p8unit30'} \n\n";}
if ($FORM{'p8q31'}) { print "Sodium Sulfate 500g various CSO009: $FORM{'p8q31'}@$FORM{'p8unit31'} \n\n";}
if ($FORM{'p8q32'}) { print "Sodium Thiosulfate, Crystal 500g various CSO010: $FORM{'p8q32'}@$FORM{'p8unit32'} \n\n";}
if ($FORM{'p8q33'}) { print "Sodium, Pellets 500g various CSO012: $FORM{'p8q33'}@$FORM{'p8unit33'} \n\n";}
if ($FORM{'p8q34'}) { print "Sulfuric Acid, 95-98 percent 2.5L various CSU001: $FORM{'p8q34'}@$FORM{'p8unit34'} \n\n";}
if ($FORM{'p8q35'}) { print "Sucrose 500g various CSU002: $FORM{'p8q35'}@$FORM{'p8unit35'} \n\n";}
if ($FORM{'p9q1'}) { print "Tetrahydrofurnan (THF), cert. 4L various CTE001: $FORM{'p9q1'}@$FORM{'p9unit1'} \n\n";}
if ($FORM{'p9q2'}) { print "Toluene 4L various CTO001: $FORM{'p9q2'}@$FORM{'p9unit2'} \n\n";}
if ($FORM{'p9q3'}) { print "Tris, Ultrapure 1Kg US-75825 CTR002: $FORM{'p9q3'}@$FORM{'p9unit3'} \n\n";}
if ($FORM{'p9q4'}) { print "Tris, NH2C(CH2OH)3 (base) 1Kg various CTR001: $FORM{'p9q4'}@$FORM{'p9unit4'} \n\n";}
if ($FORM{'p9q5'}) { print "Urea, molec biol grade 500g various CUR001: $FORM{'p9q5'}@$FORM{'p9unit5'} \n\n";}
if ($FORM{'p9q6'}) { print "Urea, Ultrapure 500g US-75826 CUR002: $FORM{'p9q6'}@$FORM{'p9unit6'} \n\n";}
if ($FORM{'p10q1'}) { print "Agar, Bacto-Agar 1.0 lb Difco MAG001: $FORM{'p10q1'}@$FORM{'p10unit1'} \n\n";}
if ($FORM{'p10q2'}) { print "MacConkey Agar 500g Difco MMA001: $FORM{'p10q2'}@$FORM{'p10unit2'} \n\n";}
if ($FORM{'p10q3'}) { print "Peptone 500g Difco MPE001: $FORM{'p10q3'}@$FORM{'p10unit3'} \n\n";}
if ($FORM{'p10q4'}) { print "Tryptic Soy Agar 500g Difco MTR001: $FORM{'p10q4'}@$FORM{'p10unit4'} \n\n";}
if ($FORM{'p10q5'}) { print "Tryptone 500g Difco MTR002: $FORM{'p10q5'}@$FORM{'p10unit5'} \n\n";}
if ($FORM{'p10q6'}) { print "Yeast Extract 500g Difco MYE001: $FORM{'p10q6'}@$FORM{'p10unit6'} \n\n";}
if ($FORM{'p11q1'}) { print "Applicators: Polyester Fiber various OAP001: $FORM{'p11q1'}@$FORM{'p11unit1'} \n\n";}
if ($FORM{'p11q2'}) { print "Applicators: Cotton Fiber various OAP002: $FORM{'p11q2'}@$FORM{'p11unit2'} \n\n";}
if ($FORM{'p11q3'}) { print "Bleach: Clorox 1gal Clorox OBL001: $FORM{'p11q3'}@$FORM{'p11unit3'} \n\n";}
if ($FORM{'p11q4'}) { print "Broken Glass Container lg various OCO001: $FORM{'p11q4'}@$FORM{'p11unit4'} \n\n";}
if ($FORM{'p11q5'}) { print "Broken Glass Container sm various OCO002: $FORM{'p11q5'}@$FORM{'p11unit5'} \n\n";}
if ($FORM{'p11q6'}) { print "Brush, Buret cleaning various OBR001: $FORM{'p11q6'}@$FORM{'p11unit6'} \n\n";}
if ($FORM{'p11q7'}) { print "Buret Holder, Talon VWR OBU003: $FORM{'p11q7'}@$FORM{'p11unit7'} \n\n";}
if ($FORM{'p11q8'}) { print "Film: Biomax, Scientific Imaging 13x18cm Kodak OFI001: $FORM{'p11q8'}@$FORM{'p11unit8'} \n\n";}
if ($FORM{'p11q9'}) { print "Film: Biomax, Scientific Imaging 35x43cm Kodak OFI002: $FORM{'p11q9'}@$FORM{'p11unit9'} \n\n";}
if ($FORM{'p11q10'}) { print "Film: Polaroid 667 3.25 x 4.25 in Polaroid OFI007: $FORM{'p11q10'}@$FORM{'p11unit10'} \n\n";}
if ($FORM{'p11q11'}) { print "Filter Paper: #1 70mm Whatman OFI006: $FORM{'p11q11'}@$FORM{'p11unit11'} \n\n";}
if ($FORM{'p11q12'}) { print "Filter Paper: #2V 150mm Whatman OFI004: $FORM{'p11q12'}@$FORM{'p11unit12'} \n\n";}
if ($FORM{'p11q13'}) { print "Filter Paper: #42 70mm Whatman OFI005: $FORM{'p11q13'}@$FORM{'p11unit13'} \n\n";}
if ($FORM{'p11q14'}) { print "Safety Glasses various OGL001: $FORM{'p11q14'}@$FORM{'p11unit14'} \n\n";}
if ($FORM{'p11q15'}) { print "Goggles: Polycarbonate various OGO001: $FORM{'p11q15'}@$FORM{'p11unit15'} \n\n";}
if ($FORM{'p11q16'}) { print "Goggles: (Not Chemical Rated) Sellstrom OGO002: $FORM{'p11q16'}@$FORM{'p11unit16'} \n\n";}
if ($FORM{'p11q17'}) { print "Gloves: Latex, Powder-Free, smooth Sm Microflex, Evo 1 OGL002: $FORM{'p11q17'}@$FORM{'p11unit17'} \n\n";}
if ($FORM{'p11q18'}) { print "Gloves: Latex, Powder-Free, smooth Md Microflex, Evo 1 OGL003: $FORM{'p11q18'}@$FORM{'p11unit18'} \n\n";}
if ($FORM{'p11q19'}) { print "Gloves: Latex, Powder-Free, smooth Lg Microflex, Evo 1 OGL004: $FORM{'p11q19'}@$FORM{'p11unit19'} \n\n";}
if ($FORM{'p11q20'}) { print "Gloves: Latex, Powder-Free, rough Sm Microflex, Di. Grip OGL019: $FORM{'p11q20'}@$FORM{'p11unit20'} \n\n";}
if ($FORM{'p11q21'}) { print "Gloves: Latex, Powder-Free, rough Md Microflex, Di. Grip OGL020: $FORM{'p11q21'}@$FORM{'p11unit21'} \n\n";}
if ($FORM{'p11q22'}) { print "Gloves: Latex, Powder-Free, rough Lg Microflex, Di. Grip OGL021: $FORM{'p11q22'}@$FORM{'p11unit22'} \n\n";}
if ($FORM{'p11q23'}) { print "Gloves: Vinyl, Powdered Sm various OGL013: $FORM{'p11q23'}@$FORM{'p11unit23'} \n\n";}
if ($FORM{'p11q24'}) { print "Gloves: Vinyl, Powdered Md various OGL014: $FORM{'p11q24'}@$FORM{'p11unit24'} \n\n";}
if ($FORM{'p11q25'}) { print "Gloves: Vinyl, Powdered Lg various OGL015: $FORM{'p11q25'}@$FORM{'p11unit25'} \n\n";}
if ($FORM{'p11q26'}) { print "Gloves: Nitrile Sm various OGL016: $FORM{'p11q26'}@$FORM{'p11unit26'} \n\n";}
if ($FORM{'p11q27'}) { print "Gloves: Nitrile Md various OGL017: $FORM{'p11q27'}@$FORM{'p11unit27'} \n\n";}
if ($FORM{'p11q28'}) { print "Gloves: Nitrile Lg various OGL018: $FORM{'p11q28'}@$FORM{'p11unit28'} \n\n";}
if ($FORM{'p11q281'}) { print "Gloves: Nitrile X-Lg various OGL022: $FORM{'p11q281'}@$FORM{'p11unit281'} \n\n";}
if ($FORM{'p11q29'}) { print "Marker: Cryoware, 4 Color Set various OMA001: $FORM{'p11q29'}@$FORM{'p11unit29'} \n\n";}
if ($FORM{'p12q1'}) { print "Needles: 18G Disposable 1.5 in B-D ONE001: $FORM{'p12q1'}@$FORM{'p12unit1'} \n\n";}
if ($FORM{'p12q2'}) { print "Needles: 22G Disposable 1 in B-D ONE002: $FORM{'p12q2'}@$FORM{'p12unit2'} \n\n";}
if ($FORM{'p12q3'}) { print "Parafilm: Laboratory Film 2 in x 250 ft Am Natl Can OFI003: $FORM{'p12q3'}@$FORM{'p12unit3'} \n\n";}
if ($FORM{'p12q4'}) { print "Parafilm: Laboratory Film 4 in x 250 ft Am Natl Can OFI009: $FORM{'p12q4'}@$FORM{'p12unit4'} \n\n";}
if ($FORM{'p12q5'}) { print "Pipet Bulb: Pastuer Pipet 2ml various OBU001: $FORM{'p12q5'}@$FORM{'p12unit5'} \n\n";}
if ($FORM{'p12q6'}) { print "Pipet Bulb: Universal-The Safety Bulb Secure Medical OBU002: $FORM{'p12q6'}@$FORM{'p12unit6'} \n\n";}
if ($FORM{'p12q7'}) { print "pH Paper: 1.0-4.3 Dual-Tint 17 ft JT Baker OPH001: $FORM{'p12q7'}@$FORM{'p12unit7'} \n\n";}
if ($FORM{'p12q8'}) { print "pH Paper: 3.5-6.8 Dual-Tint 17 ft JT Baker OPH002: $FORM{'p12q8'}@$FORM{'p12unit8'} \n\n";}
if ($FORM{'p12q9'}) { print "pH Paper: 5.0-8.0 Dual-Tint 17 ft JT Baker OPH003: $FORM{'p12q9'}@$FORM{'p12unit9'} \n\n";}
if ($FORM{'p12q10'}) { print "pH Paper: 7.0-10.0 Dual-Tint 17 ft JT Baker OPH004: $FORM{'p12q10'}@$FORM{'p12unit10'} \n\n";}
if ($FORM{'p12q11'}) { print "pH Paper: 9.5-14.0 Dual-Tint 17 ft JT Baker OPH005: $FORM{'p12q11'}@$FORM{'p12unit11'} \n\n";}
if ($FORM{'p12q12'}) { print "pH Paper: 1-11 Hydrion 15 ft x 2 Micro Essential OPH006: $FORM{'p12q12'}@$FORM{'p12unit12'} \n\n";}
if ($FORM{'p12q13'}) { print "Rack: For Test Tube, Wooden 22mm Fisher ORA001: $FORM{'p12q13'}@$FORM{'p12unit13'} \n\n";}
if ($FORM{'p12q14'}) { print "Soap: SoftCide, Anti-micro Pump 32oz Stahmer West. OSO001: $FORM{'p12q14'}@$FORM{'p12unit14'} \n\n";}
if ($FORM{'p12q15'}) { print "Soap: SoftCide, Anti-micro Pump 1gal Stahmer West. OSO003: $FORM{'p12q15'}@$FORM{'p12unit15'} \n\n";}
if ($FORM{'p12q16'}) { print "Soap: Extran Liquid Dish Soap 1L VWR OSO002: $FORM{'p12q16'}@$FORM{'p12unit16'} \n\n";}
if ($FORM{'p12q161'}) { print "Soap: BacDown, Anti-micro Pump 500ml BacDown OSO004: $FORM{'p12q161'}@$FORM{'p12unit161'} \n\n";}
if ($FORM{'p12q162'}) { print "Princeton Separation Spin Columns Centrisep OSP001: $FORM{'p12q162'}@$FORM{'p12unit162'} \n\n";}
if ($FORM{'p12q17'}) { print "Stir Bar: Teflon, Octagonal 1/5 in various OST005: $FORM{'p12q17'}@$FORM{'p12unit17'} \n\n";}
if ($FORM{'p12q18'}) { print "Stir Bar: Teflon, Octagonal 1 in various OST006: $FORM{'p12q18'}@$FORM{'p12unit18'} \n\n";}
if ($FORM{'p12q19'}) { print "Stir Bar: Teflon, Octagonal 2 in various OST002: $FORM{'p12q19'}@$FORM{'p12unit19'} \n\n";}
if ($FORM{'p13q1'}) { print "Table Liner: Kaydry 20 in x 300 ft Kimberly-Clark OTA001: $FORM{'p13q1'}@$FORM{'p13unit1'} \n\n";}
if ($FORM{'p13q2'}) { print "Tape: Autoclave Indicating .75 x 2160 in VWR OTA002: $FORM{'p13q2'}@$FORM{'p13unit2'} \n\n";}
if ($FORM{'p13q3'}) { print "Tape: Label, Assorted Colors .5x500 in VWR OTA003: $FORM{'p13q3'}@$FORM{'p13unit3'} \n\n";}
if ($FORM{'p13q4'}) { print "Tape: Label, Assorted Colors .75x500 in VWR OTA004: $FORM{'p13q4'}@$FORM{'p13unit4'} \n\n";}
if ($FORM{'p13q5'}) { print "Tape: Teflon .5x300 in various OTA005: $FORM{'p13q5'}@$FORM{'p13unit5'} \n\n";}
if ($FORM{'p13q6'}) { print "Thermometer: Non-Mercury -20 to 100 various OTH001: $FORM{'p13q6'}@$FORM{'p13unit6'} \n\n";}
if ($FORM{'p13q7'}) { print "Kimwipes Tissues 4.5x8.5 in Kimberly-Clark OTI002: $FORM{'p13q7'}@$FORM{'p13unit7'} \n\n";}
if ($FORM{'p13q8'}) { print "Paper Towels: Multifold 9.25x9.5 in Acclaim-Envision OTO002: $FORM{'p13q8'}@$FORM{'p13unit8'} \n\n";}
if ($FORM{'p13q81'}) { print "Paper Towels: Multifold 9.25x9.5 in Kimberly-Clark OTO005: $FORM{'p13q81'}@$FORM{'p13unit81'} \n\n";}
if ($FORM{'p13q9'}) { print "Tongs Beaker 50-2000mm Humbolt OTO001: $FORM{'p13q9'}@$FORM{'p13unit9'} \n\n";}
if ($FORM{'p13q10'}) { print "Tubing: Amber Latex (50 ft) 5/16 in various OTU001: $FORM{'p13q10'}@$FORM{'p13unit10'} \n\n";}
if ($FORM{'p13q11'}) { print "Tubing: Dialysis, 50 ft Carolina OTU002: $FORM{'p13q11'}@$FORM{'p13unit11'} \n\n";}
if ($FORM{'p13q12'}) { print "Water Purification: Nanopure Kit Type I Barnstead OFI010: $FORM{'p13q12'}@$FORM{'p13unit12'} \n\n";}
if ($FORM{'p13q13'}) { print "Water Purification: Q-Pak 2 Kit Millipore OFI008: $FORM{'p13q13'}@$FORM{'p13unit13'} \n\n";}
if ($FORM{'p14q1'}) { print "tRNA, Yeast 50mg Gibco/15401-029 ERN001: $FORM{'p14q1'}@$FORM{'p14unit1'} \n\n";}
if ($FORM{'p14q2'}) { print "Ready Reaction Sequencing Kit 24rxn Applied Biosys/402123 ERR001: $FORM{'p14q2'}@$FORM{'p14unit2'} \n\n";}
if ($FORM{'p14q3'}) { print "Ready Reaction Sequencing Kit 100rxn Applied Biosys/402079 ERR002: $FORM{'p14q3'}@$FORM{'p14unit3'} \n\n";}
if ($FORM{'p14q4'}) { print "Big Dye Ready Reaction Kit 100rxn Applied Biosys/4303152 ERR003: $FORM{'p14q4'}@$FORM{'p14unit4'} \n\n";}
if ($FORM{'p14q5'}) { print "Sequenase v. 2.0 (enzyme only) 1000u AmershamUSB/US70775 ESQ001: $FORM{'p14q5'}@$FORM{'p14unit5'} \n\n";}
if ($FORM{'p14q6'}) { print "Sequenase v. 2.0 Sequencing Kit AmershamUSB/US70770 ESQ002: $FORM{'p14q6'}@$FORM{'p14unit6'} \n\n";}
if ($FORM{'p15q1'}) { print "BamH I 1,000u 220 612: $FORM{'p15q1'}@$FORM{'p15unit1'} \n\n";}
if ($FORM{'p15q2'}) { print "Bgl II 500u 348 767: $FORM{'p15q2'}@$FORM{'p15unit2'} \n\n";}
if ($FORM{'p15q3'}) { print "EcoR I 10,000u 1175 084: $FORM{'p15q3'}@$FORM{'p15unit3'} \n\n";}
if ($FORM{'p15q4'}) { print "EcoR V 2,000u 667145: $FORM{'p15q4'}@$FORM{'p15unit4'} \n\n";}
if ($FORM{'p15q5'}) { print "Hind III 5,000u 656 313: $FORM{'p15q5'}@$FORM{'p15unit5'} \n\n";}
if ($FORM{'p15q6'}) { print "Nde I 1,000u 1040 227: $FORM{'p15q6'}@$FORM{'p15unit6'} \n\n";}
if ($FORM{'p15q7'}) { print "Pst I 3,000u 621 625: $FORM{'p15q7'}@$FORM{'p15unit7'} \n\n";}
if ($FORM{'p15q8'}) { print "Pvu I 100u 650 137: $FORM{'p15q8'}@$FORM{'p15unit8'} \n\n";}
if ($FORM{'p15q9'}) { print "Pvu I 500u 650 129: $FORM{'p15q9'}@$FORM{'p15unit9'} \n\n";}
if ($FORM{'p15q10'}) { print "Sal I (Xma, Rph I) 500u 348 783: $FORM{'p15q10'}@$FORM{'p15unit10'} \n\n";}
if ($FORM{'p15q11'}) { print "Sma I (Xcy, Xma I) 1,000u 220 566: $FORM{'p15q11'}@$FORM{'p15unit11'} \n\n";}
if ($FORM{'p15q12'}) { print "Sph I 200u 1026950: $FORM{'p15q12'}@$FORM{'p15unit12'} \n\n";}
if ($FORM{'p15q13'}) { print "Xba I 1,000u 674 257: $FORM{'p15q13'}@$FORM{'p15unit13'} \n\n";}
if ($FORM{'p15q14'}) { print "Taq DNA Polymerase 100u 1146 165: $FORM{'p15q14'}@$FORM{'p15unit14'} \n\n";}
if ($FORM{'p15q15'}) { print "Taq DNA Polymerase 500u 1146 173: $FORM{'p15q15'}@$FORM{'p15unit15'} \n\n";}
if ($FORM{'p15q16'}) { print "T4 DNA Ligase 100u 481 220: $FORM{'p15q16'}@$FORM{'p15unit16'} \n\n";}
if ($FORM{'p15q17'}) { print "DIG DNA Labeling Mix 50ml 1277 065: $FORM{'p15q17'}@$FORM{'p15unit17'} \n\n";}
if ($FORM{'p15q18'}) { print "Hexanucleotide Mix 100ml 1277 081: $FORM{'p15q18'}@$FORM{'p15unit18'} \n\n";}
if ($FORM{'p15q19'}) { print "Anti-DIG-AP 150u 1093 274: $FORM{'p15q19'}@$FORM{'p15unit19'} \n\n";}
if ($FORM{'p15q20'}) { print "Ampicillin 50g 835 269: $FORM{'p15q20'}@$FORM{'p15unit20'} \n\n";}
if ($FORM{'p15q21'}) { print "Lysozyme 1g 107 255: $FORM{'p15q21'}@$FORM{'p15unit21'} \n\n";}
if ($FORM{'p15q22'}) { print "DNA Molecular Weight Marker II 50ul 236250: $FORM{'p15q22'}@$FORM{'p15unit22'} \n\n";}
if ($FORM{'p15q23'}) { print "DNase I 20,000u 104 132: $FORM{'p15q23'}@$FORM{'p15unit23'} \n\n";}
if ($FORM{'p15q24'}) { print "DNase I, RNase-free 10,000u 776 785: $FORM{'p15q24'}@$FORM{'p15unit24'} \n\n";}
if ($FORM{'p15q25'}) { print "RNase A 25mg 109 142: $FORM{'p15q25'}@$FORM{'p15unit25'} \n\n";}
if ($FORM{'p15q26'}) { print "RNase A 100mg 109 169: $FORM{'p15q26'}@$FORM{'p15unit26'} \n\n";}
if ($FORM{'p15q27'}) { print "RNase H 25u 786 349: $FORM{'p15q27'}@$FORM{'p15unit27'} \n\n";}
if ($FORM{'p15q28'}) { print "RNase Inhibitor 2,000u 799 017: $FORM{'p15q28'}@$FORM{'p15unit28'} \n\n";}
if ($FORM{'p15q29'}) { print "Proteinase K 25mg 161 519: $FORM{'p15q29'}@$FORM{'p15unit29'} \n\n";}
if ($FORM{'p15q30'}) { print "Agarose Gel Extraction Kit 100 rxn 1 696 505: $FORM{'p15q30'}@$FORM{'p15unit30'} \n\n";}
if ($FORM{'p15q31'}) { print "Shrimp Alkaline Phosphatase 1000u 1 758 250: $FORM{'p15q31'}@$FORM{'p15unit31'} \n\n";}
if ($FORM{'p15q32'}) { print "AMV Reverse Transcriptase 500u 1 459 062: $FORM{'p15q32'}@$FORM{'p15unit32'} \n\n";}
if ($FORM{'p15q33'}) { print "C Therm DNA Polymerase 50 rxn 2 016 311: $FORM{'p15q33'}@$FORM{'p15unit33'} \n\n";}
if ($FORM{'p15q34'}) { print "Complete Mini 25 tabs 1 836 153: $FORM{'p15q34'}@$FORM{'p15unit34'} \n\n";}
if ($FORM{'p15q35'}) { print "Complete Mini, EDTA Free 25 tabs 1 836 170: $FORM{'p15q35'}@$FORM{'p15unit35'} \n\n";}
if ($FORM{'p15q36'}) { print "Expand High-Fidelity PCR System 100u 1 732 641: $FORM{'p15q36'}@$FORM{'p15unit36'} \n\n";}
if ($FORM{'p15q37'}) { print "Expand Long Template PCR System 100u 1 681 834: $FORM{'p15q37'}@$FORM{'p15unit37'} \n\n";}
if ($FORM{'p15q38'}) { print "Fugene 6 Reagent 1 ml 1 814 443: $FORM{'p15q38'}@$FORM{'p15unit38'} \n\n";}
if ($FORM{'p15q39'}) { print "High Pure Plasmid Kit 50 rxns 1 754 777: $FORM{'p15q39'}@$FORM{'p15unit39'} \n\n";}
if ($FORM{'p15q40'}) { print "High Pure RNA Isolation Kit 50 rxns 1 828 665: $FORM{'p15q40'}@$FORM{'p15unit40'} \n\n";}
if ($FORM{'p15q41'}) { print "Lumi-Light POD Western Blotting Substrate for 4000 sq. cm 2 015 200: $FORM{'p15q41'}@$FORM{'p15unit41'} \n\n";}
if ($FORM{'p15q42'}) { print "Lumi-Light Plus Western Blotting Substrate for 100 sq. cm 2 015 196: $FORM{'p15q42'}@$FORM{'p15unit42'} \n\n";}
if ($FORM{'p15q43'}) { print "PCR Grade Nucleotide Mix 100 rxns 1 581 295: $FORM{'p15q43'}@$FORM{'p15unit43'} \n\n";}
if ($FORM{'p15q44'}) { print "PCR Grade dNtp set 4x25 umol (250umol) 1 969 064: $FORM{'p15q44'}@$FORM{'p15unit44'} \n\n";}
if ($FORM{'p15q45'}) { print "High Pure PCR Template Set 100 rxns 1 796 828: $FORM{'p15q45'}@$FORM{'p15unit45'} \n\n";}
if ($FORM{'p15q46'}) { print "Rapid DNA Ligation Kit 40 rxns 1 635 379: $FORM{'p15q46'}@$FORM{'p15unit46'} \n\n";}
if ($FORM{'p15q47'}) { print "Taq DNA Polymerase 250u 1 815 105: $FORM{'p15q47'}@$FORM{'p15unit47'} \n\n";}
if ($FORM{'p15q48'}) { print "Titan One-Tube RT-PCR System 50 RT-PCR rxns 1 939 823: $FORM{'p15q48'}@$FORM{'p15unit48'} \n\n";}
if ($FORM{'p15q49'}) { print "Titan RT-PCR System 25 rxns 1 855 476: $FORM{'p15q49'}@$FORM{'p15unit49'} \n\n";}
if ($FORM{'p15q50'}) { print "Titan One-Tube PCR System 25 rxns 1 888 382: $FORM{'p15q50'}@$FORM{'p15unit50'} \n\n";}
if ($FORM{'p15q51'}) { print "Agarose MP 100mg 1 388 983: $FORM{'p15q51'}@$FORM{'p15unit51'} \n\n";}
if ($FORM{'p16q1'}) { print "BamH I 10,000u 136S: $FORM{'p16q1'}@$FORM{'p16unit1'} \n\n";}
if ($FORM{'p16q2'}) { print "Bgl II 2,000u 144S: $FORM{'p16q2'}@$FORM{'p16unit2'} \n\n";}
if ($FORM{'p16q3'}) { print "Cla I 500u 197S: $FORM{'p16q3'}@$FORM{'p16unit3'} \n\n";}
if ($FORM{'p16q4'}) { print "EcoR I 10,000u 101S: $FORM{'p16q4'}@$FORM{'p16unit4'} \n\n";}
if ($FORM{'p16q5'}) { print "EcoR V 2,000u 195S: $FORM{'p16q5'}@$FORM{'p16unit5'} \n\n";}
if ($FORM{'p16q6'}) { print "Hind III 10,000u 104S: $FORM{'p16q6'}@$FORM{'p16unit6'} \n\n";}
if ($FORM{'p16q7'}) { print "Kpn I 3,000u 142S: $FORM{'p16q7'}@$FORM{'p16unit7'} \n\n";}
if ($FORM{'p16q8'}) { print "Nco I 1,000u 193S: $FORM{'p16q8'}@$FORM{'p16unit8'} \n\n";}
if ($FORM{'p16q9'}) { print "Pvu I 150u 150S: $FORM{'p16q9'}@$FORM{'p16unit9'} \n\n";}
if ($FORM{'p16q10'}) { print "Pvu II 5,000u 151S: $FORM{'p16q10'}@$FORM{'p16unit10'} \n\n";}
if ($FORM{'p16q11'}) { print "Sal I 2,000u 138S: $FORM{'p16q11'}@$FORM{'p16unit11'} \n\n";}
if ($FORM{'p16q12'}) { print "Xba I 3,000u 145S: $FORM{'p16q12'}@$FORM{'p16unit12'} \n\n";}
if ($FORM{'p16q13'}) { print "Xho I 4,000u 146S: $FORM{'p16q13'}@$FORM{'p16unit13'} \n\n";}
if ($FORM{'p16q14'}) { print "Alkaline Phosphatase (CIP) 1,000u 290S: $FORM{'p16q14'}@$FORM{'p16unit14'} \n\n";}
if ($FORM{'p16q15'}) { print "DNA Polymerase I (Klenow) 200u 210S: $FORM{'p16q15'}@$FORM{'p16unit15'} \n\n";}
if ($FORM{'p16q16'}) { print "T4 DNA Ligase, 300W 20,000u 202S: $FORM{'p16q16'}@$FORM{'p16unit16'} \n\n";}
if ($FORM{'p16q17'}) { print "T4 Polynucleotide Kinase 500u 201S: $FORM{'p16q17'}@$FORM{'p16unit17'} \n\n";}
if ($FORM{'p16q18'}) { print "Vent DNA Polymerase 200u 254S: $FORM{'p16q18'}@$FORM{'p16unit18'} \n\n";}
if ($FORM{'p16q19'}) { print "(Lambda)DNA BstE II digest 150ug 301-4S: $FORM{'p16q19'}@$FORM{'p16unit19'} \n\n";}
if ($FORM{'p16q20'}) { print "(Lambda)DNA Hind III digest 150ug 301-2S: $FORM{'p16q20'}@$FORM{'p16unit20'} \n\n";}
if ($FORM{'p16q21'}) { print "(Phi Chi)174 DNA Hae III digest 20ug 302-6S: $FORM{'p16q21'}@$FORM{'p16unit21'} \n\n";}
if ($FORM{'p16q22'}) { print "RNA Cap Structure Analog 25u OS1404S: $FORM{'p16q22'}@$FORM{'p16unit22'} \n\n";}
if ($FORM{'p16q23'}) { print "NEBuffer Pack 5ea 007: $FORM{'p16q23'}@$FORM{'p16unit23'} \n\n";}
if ($FORM{'p16q24'}) { print "Bovine Serum Albumin 5ea 007-BSA: $FORM{'p16q24'}@$FORM{'p16unit24'} \n\n";}
if ($FORM{'p17q1'}) { print "BamH I 2,500u R6021: $FORM{'p17q1'}@$FORM{'p17unit1'} \n\n";}
if ($FORM{'p17q2'}) { print "Eco RI 5,000u R6011: $FORM{'p17q2'}@$FORM{'p17unit2'} \n\n";}
if ($FORM{'p17q3'}) { print "Hind III 5,000u R6041: $FORM{'p17q3'}@$FORM{'p17unit3'} \n\n";}
if ($FORM{'p17q4'}) { print "Mlu I 1,000u R6381: $FORM{'p17q4'}@$FORM{'p17unit4'} \n\n";}
if ($FORM{'p17q5'}) { print "Pst I 3,000u R6111: $FORM{'p17q5'}@$FORM{'p17unit5'} \n\n";}
if ($FORM{'p17q6'}) { print "Pvu II 1,000u R6331: $FORM{'p17q6'}@$FORM{'p17unit6'} \n\n";}
if ($FORM{'p17q7'}) { print "Sac I 1,000u R6061: $FORM{'p17q7'}@$FORM{'p17unit7'} \n\n";}
if ($FORM{'p17q8'}) { print "Sal I 2,000u R6051: $FORM{'p17q8'}@$FORM{'p17unit8'} \n\n";}
if ($FORM{'p17q9'}) { print "Sma I 1,000u R6121: $FORM{'p17q9'}@$FORM{'p17unit9'} \n\n";}
if ($FORM{'p17q10'}) { print "Stu I 400u R6421: $FORM{'p17q10'}@$FORM{'p17unit10'} \n\n";}
if ($FORM{'p17q11'}) { print "Xba I 2,000u R6181: $FORM{'p17q11'}@$FORM{'p17unit11'} \n\n";}
if ($FORM{'p17q12'}) { print "Calf Alkaline Phosphatase 1,000u M1821: $FORM{'p17q12'}@$FORM{'p17unit12'} \n\n";}
if ($FORM{'p17q13'}) { print "Klenow 150u M2201: $FORM{'p17q13'}@$FORM{'p17unit13'} \n\n";}
if ($FORM{'p17q14'}) { print "RQ1 DNase 1,000u M6101: $FORM{'p17q14'}@$FORM{'p17unit14'} \n\n";}
if ($FORM{'p17q15'}) { print "SP6 RNA Polymerase 1,000u P1085: $FORM{'p17q15'}@$FORM{'p17unit15'} \n\n";}
if ($FORM{'p17q16'}) { print "T4 Polynucleotide Kinase 100u M4101: $FORM{'p17q16'}@$FORM{'p17unit16'} \n\n";}
if ($FORM{'p17q17'}) { print "T4 DNA Ligase 100u M1801: $FORM{'p17q17'}@$FORM{'p17unit17'} \n\n";}
if ($FORM{'p17q18'}) { print "T4 DNA Polymerase 100u M4211: $FORM{'p17q18'}@$FORM{'p17unit18'} \n\n";}
if ($FORM{'p17q19'}) { print "T7 RNA Polymerase 1,000u P2075: $FORM{'p17q19'}@$FORM{'p17unit19'} \n\n";}
if ($FORM{'p17q20'}) { print "Sequencing Taq DNA Polymerase 100u M2031: $FORM{'p17q20'}@$FORM{'p17unit20'} \n\n";}
if ($FORM{'p17q21'}) { print "Taq DNA Polymerase 100u M1661: $FORM{'p17q21'}@$FORM{'p17unit21'} \n\n";}
if ($FORM{'p17q22'}) { print "Pfu DNA Polymerase 100u M7741: $FORM{'p17q22'}@$FORM{'p17unit22'} \n\n";}
if ($FORM{'p17q23'}) { print "rRNasin 2,500u N2511: $FORM{'p17q23'}@$FORM{'p17unit23'} \n\n";}
if ($FORM{'p17q24'}) { print "100bp DNA Ladder 250ul G2101: $FORM{'p17q24'}@$FORM{'p17unit24'} \n\n";}
if ($FORM{'p17q25'}) { print "pGEM Markers 50ug G1741: $FORM{'p17q25'}@$FORM{'p17unit25'} \n\n";}
if ($FORM{'p17q26'}) { print "(Phi Chi) 174 DNA/Hae III 50ug G1761: $FORM{'p17q26'}@$FORM{'p17unit26'} \n\n";}
if ($FORM{'p17q27'}) { print "(Lambda) DNA/Hind III 100ug G1711: $FORM{'p17q27'}@$FORM{'p17unit27'} \n\n";}
if ($FORM{'p17q28'}) { print "dNTPs (dATP, dCTP, dGTP, dTTP) 10umol(ea) U1330: $FORM{'p17q28'}@$FORM{'p17unit28'} \n\n";}
if ($FORM{'p17q29'}) { print "DTT 5g V3151: $FORM{'p17q29'}@$FORM{'p17unit29'} \n\n";}
if ($FORM{'p17q30'}) { print "IPTG 1g V3955: $FORM{'p17q30'}@$FORM{'p17unit30'} \n\n";}
if ($FORM{'p17q31'}) { print "X-Gal 100mg V3941: $FORM{'p17q31'}@$FORM{'p17unit31'} \n\n";}
if ($FORM{'p17q32'}) { print "Proteinase K 100mg V3021: $FORM{'p17q32'}@$FORM{'p17unit32'} \n\n";}
if ($FORM{'p17q33'}) { print "Wizard Miniprep System 50p reps A7100: $FORM{'p17q33'}@$FORM{'p17unit33'} \n\n";}
if ($FORM{'p17q34'}) { print "Prime-a-Gene System 30 rxns U1100: $FORM{'p17q34'}@$FORM{'p17unit34'} \n\n";}
if ($FORM{'p17q35'}) { print "Vector System IPGEMRT A3600: $FORM{'p17q35'}@$FORM{'p17unit35'} \n\n";}
if ($FORM{'p17q36'}) { print "Wizard PLSSV A1330: $FORM{'p17q36'}@$FORM{'p17unit36'} \n\n";}
if ($FORM{'p17q37'}) { print "Bgl II (Takara) 500u TAK 1021S: $FORM{'p17q37'}@$FORM{'p17unit37'} \n\n";}
if ($FORM{'p17q38'}) { print "Nco I (Takara) 250u TAK 1160S: $FORM{'p17q38'}@$FORM{'p17unit38'} \n\n";}
if ($FORM{'p17q39'}) { print "Kpn I (Takara) 2500u TAK 1068S: $FORM{'p17q39'}@$FORM{'p17unit39'} \n\n";}
if ($FORM{'p17q40'}) { print "Ex Taq Polymerase (Takara) 250u TAK RR001A: $FORM{'p17q40'}@$FORM{'p17unit40'} \n\n";}
if ($FORM{'p18q1'}) { print "QIAprep Spin Miniprep Kit 50 rxns 27104: $FORM{'p18q1'}@$FORM{'p18unit1'} \n\n";}
if ($FORM{'p18q2'}) { print "QIAprep Spin Miniprep Kit 250 rxns 27106: $FORM{'p18q2'}@$FORM{'p18unit2'} \n\n";}
if ($FORM{'p18q3'}) { print "QIAGEN Plasmid Mini Kit 25 rxns 12123: $FORM{'p18q3'}@$FORM{'p18unit3'} \n\n";}
if ($FORM{'p18q4'}) { print "QIAGEN Plasmid Midi Kit 25 rxns 12143: $FORM{'p18q4'}@$FORM{'p18unit4'} \n\n";}
if ($FORM{'p18q5'}) { print "QIAGEN Plasmid Maxi Kit 10 rxns 12162: $FORM{'p18q5'}@$FORM{'p18unit5'} \n\n";}
if ($FORM{'p18q6'}) { print "QIAGEN Plasmid Maxi Kit 25 rxns 12163: $FORM{'p18q6'}@$FORM{'p18unit6'} \n\n";}
if ($FORM{'p18q7'}) { print "EndoFree Plasmid Maxi Kit 10 rxns 12362: $FORM{'p18q7'}@$FORM{'p18unit7'} \n\n";}
if ($FORM{'p18q8'}) { print "QIAfilter Plasmid Midi Kit 25 rxns 12243: $FORM{'p18q8'}@$FORM{'p18unit8'} \n\n";}
if ($FORM{'p18q9'}) { print "QIAfilter Plasmid Maxi Kit 10 rxns 12262: $FORM{'p18q9'}@$FORM{'p18unit9'} \n\n";}
if ($FORM{'p18q10'}) { print "QIAfilter Plasmid Maxi Kit 25 rxns 12263: $FORM{'p18q10'}@$FORM{'p18unit10'} \n\n";}
if ($FORM{'p18q11'}) { print "QIAquick PCR Purification Kit 50 rxns 28104: $FORM{'p18q11'}@$FORM{'p18unit11'} \n\n";}
if ($FORM{'p18q12'}) { print "QIAquick PCR Purification Kit 250 rxns 28106: $FORM{'p18q12'}@$FORM{'p18unit12'} \n\n";}
if ($FORM{'p18q13'}) { print "QIAquick Nucleotide Removal Kit 50 rxns 28304: $FORM{'p18q13'}@$FORM{'p18unit13'} \n\n";}
if ($FORM{'p18q14'}) { print "QIAquick Gel Extraction Kit 50 rxns 28704: $FORM{'p18q14'}@$FORM{'p18unit14'} \n\n";}
if ($FORM{'p18q15'}) { print "QIAquick Gel Extraction Kit 250 rxns 28706: $FORM{'p18q15'}@$FORM{'p18unit15'} \n\n";}
if ($FORM{'p18q16'}) { print "QIAEX II Gel Extraction Kit 150 rxns 20021: $FORM{'p18q16'}@$FORM{'p18unit16'} \n\n";}
if ($FORM{'p18q17'}) { print "DNeasy Tissue Kit 50 rxns 69504: $FORM{'p18q17'}@$FORM{'p18unit17'} \n\n";}
if ($FORM{'p18q18'}) { print "QIAamp DNA Blood Mini Kit 50 rxns 51104: $FORM{'p18q18'}@$FORM{'p18unit18'} \n\n";}
if ($FORM{'p18q19'}) { print "Blood and Cell Culture DNA Midi Kit 25 rxns 13343: $FORM{'p18q19'}@$FORM{'p18unit19'} \n\n";}
if ($FORM{'p18q20'}) { print "QIAamp DNA Blood Midi Kit 20 rxns 51183: $FORM{'p18q20'}@$FORM{'p18unit20'} \n\n";}
if ($FORM{'p18q21'}) { print "Oligotex Direct mRNA Mini Kit 12 rxns 72022: $FORM{'p18q21'}@$FORM{'p18unit21'} \n\n";}
if ($FORM{'p18q22'}) { print "RNeasy Mini Kit 20 rxns 74103: $FORM{'p18q22'}@$FORM{'p18unit22'} \n\n";}
if ($FORM{'p18q23'}) { print "RNeasy Mini Kit 50 rxns 74104: $FORM{'p18q23'}@$FORM{'p18unit23'} \n\n";}
if ($FORM{'p18q24'}) { print "RNeasy Midi Kit 10 rxns 75142: $FORM{'p18q24'}@$FORM{'p18unit24'} \n\n";}
if ($FORM{'p18q25'}) { print "QIAshredder 50 rxns 79654: $FORM{'p18q25'}@$FORM{'p18unit25'} \n\n";}
if ($FORM{'p18q26'}) { print "Taq DNA Polymerase 250u 201203: $FORM{'p18q26'}@$FORM{'p18unit26'} \n\n";}
if ($FORM{'p18q27'}) { print "Taq PCR Core Kit 250u 201223: $FORM{'p18q27'}@$FORM{'p18unit27'} \n\n";}
if ($FORM{'p18q28'}) { print "Taq PCR Master Mix 250u 201443: $FORM{'p18q28'}@$FORM{'p18unit28'} \n\n";}
if ($FORM{'p18q29'}) { print "HotStarTaq DNA Polymerase 250u 203203: $FORM{'p18q29'}@$FORM{'p18unit29'} \n\n";}
if ($FORM{'p18q30'}) { print "Omniscript RT Kit 50 rxns 205111: $FORM{'p18q30'}@$FORM{'p18unit30'} \n\n";}
if ($FORM{'p18q31'}) { print "Sensiscript RT Kit 50 rxns 205211: $FORM{'p18q31'}@$FORM{'p18unit31'} \n\n";}
if ($FORM{'p18q32'}) { print "Effectene Transfection Reagent 1.0ml 301425: $FORM{'p18q32'}@$FORM{'p18unit32'} \n\n";}
if ($FORM{'p18q33'}) { print "Superfect Transfection Reagent 1.2ml 301305: $FORM{'p18q33'}@$FORM{'p18unit33'} \n\n";}

print <<2;
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="620">
<TR>
<TD><H3>Received by: Supply/Stockroom Manager</H3> </TD>
</TR>
<TR>
<TD valign="TOP" width="600">
Pickup Date:    $FORM{'pdate'} 
Time:    $FORM{'tt'} 
</TD>
</TR>
</TABLE>

<TR><TD>Testing!!:    $FORM{'p1q1'}    $FORM{'p1unit1'}</TD></TR>
<TR><TD> </TD></TR>

</table>
</FORM>

<table border="0" cellspacing="0">
 <tr>
 <td align="center"> </td>
 <td align="center">| <a
 href="http://www.gsu.edu/nscsupply/index.html">NSC Supply Homepage</a> | <a
 href="http://www.gsu.edu/~wwwnsc/request.html">Another Request
 </a> | <a
 href="http://www.gsu.edu/~safmklx/index.html">Mike's Home</a> |</td>
 </tr>
</table>
</center></div>