##########################################################
##						Record Layout					##
##########################################################

sub html_record_form {
# --------------------------------------------------------
# The form fields that will be displayed each time a record is
# edited (including searching). You don't want to put the 
# <FORM> and </FORM tags, merely the <INPUT> tags for each field.
# The values to be displayed are in %rec and should be incorporated
# into your form. You can use &build_select_field, &build_checkbox_field 
# and &build_radio_field to generate the respective input boxes. Text and
# Textarea inputs can be inserted as is. If you turn on form auto
# generation, the program will build the forms for you (all though they may
# not be as nice). See the README for more info.

	my (%rec) = @_;
	$rec{$db_key} =~ s/<?.B>//g;
	($db_auto_generate and print &build_html_record_form(%rec) and return);
	
	my $font = 'Font face="Tahoma" Size=2 Color=#003399';
   print qq|

			<center>
	 			 <input type=hidden NAME="ID2" VALUE="$rec{'ID2'}" MAXLENGTH="5">   
	 			 <input type=hidden NAME="Date" VALUE="$rec{'Date'}" MAXLENGTH="12">
	 			 <input type=hidden NAME="Memorabilia" VALUE="$rec{'Memorabilia'}">		 		
	 			 <input type=hidden NAME="Banner" VALUE="$rec{'Banner'}">    		 		                       
	 			 <input type=hidden NAME="Jumbo" VALUE="$rec{'Jumbo'}">   		 		
            	 <input type=hidden NAME="Table" VALUE="$rec{'Table'}">    		 		
            	 <input type=hidden NAME="Payment" VALUE="$rec{'Payment'}">  		 		
            	 <input type=hidden NAME="Red_Flag" VALUE="$rec{'Red_Flag'}">   		 	
            	 <input type=hidden NAME="Graphics" VALUE="$rec{'Graphics'}">     	 		
            	 <input type=hidden NAME="Alt_Phone" VALUE="$rec{'Alt_Phone'}">  		 	
            	 <input type=hidden NAME="Lead" VALUE="$rec{'Lead'}">    		 		
            	 <input type=hidden NAME="AD_Size" VALUE="$rec{'AD_Size'}" MAXLENGTH="12">
	 			 <input type=hidden NAME="Art" VALUE="$rec{'Art'}" MAXLENGTH="12">
	 			 <input type=hidden NAME="Proof" VALUE="$rec{'Proof'}">   		 		
            	 <input type=hidden NAME="ADNumber" VALUE="$rec{'ADNumber'}">  		 		
            	 <input type=hidden NAME="AD_Size2" VALUE="$rec{'AD_Size2'}">		   	 	
	  			 <input type=hidden NAME="Art2" VALUE="$rec{'Art2'}">    		 		
            	 <input type=hidden NAME="Proof2" VALUE="$rec{'Proof2'}">        	 		
            	 <input type=hidden NAME="ADNumber2" VALUE="$rec{'ADNumber2'}">  		 		
            	 <input type=hidden NAME="Art3" VALUE="$rec{'Art3'}">        	 		
            	 <input type=hidden NAME="Proof3" VALUE="$rec{'Proof3'}">    		 		
           	 	 <input type=hidden NAME="BNumber" VALUE="$rec{'BNumber'}">  		 		
            	 <input type=hidden NAME="Art4" VALUE="$rec{'Art4'}">    		 		
            	 <input type=hidden NAME="Proof4" VALUE="$rec{'Proof4'}">  		 		
            	 <input type=hidden NAME="JNumber" VALUE="$rec{'JNumber'}">  		 		
            	 <input type=hidden NAME="VIP" VALUE="$rec{'VIP'}">				 		
            	 <input type=hidden NAME="Tickets" VALUE="$rec{'Tickets'}">        	 		
            	 <input type=hidden NAME="Pickup_date" VALUE="$rec{'Pickup_date'}">        	 	
            	 <input type=hidden NAME="JDel1" VALUE="$rec{'JDel1'}">			 		
            	 <input type=hidden NAME="JDel2" VALUE="$rec{'JDel2'}">			 		
            	 <input type=hidden NAME="JDel3" VALUE="$rec{'JDel3'}">			 		
            	 <input type=hidden NAME="JDel4" VALUE="$rec{'JDel4'}">	  		 		
	 			 <input type=hidden NAME="Blank8" VALUE="$rec{'Blank8'}"> 
            	 <input type=hidden NAME="Blank9" VALUE="$rec{'Blank9'}">
            	 <input type=hidden NAME="Blank10" VALUE="$rec{'Blank10'}">
            	 <input type=hidden NAME="Blank11" VALUE="$rec{'Blank11'}">
            	 <input type=hidden NAME="Blank12" VALUE="$rec{'Blank12'}">
            	 <input type=hidden NAME="Blank13" VALUE="$rec{'Blank13'}">
            	 <input type=hidden NAME="Blank14" VALUE="$rec{'Blank14'}">
            	 <input type=hidden NAME="Blank15" VALUE="$rec{'Blank15'}">
            	 <input type=hidden NAME="Dino_Pro" VALUE="$rec{'Dino_Pro'}">
            	 <input type=hidden NAME="Blank18" VALUE="$rec{'Blank18'}">
            <table width="1000" border="0" cellspacing="0" cellpadding="3" bgcolor="#E0E0D6">
  <tr>
    <td colspan=3 bgcolor="#8A148A"></td><td colspan=2 bgcolor="#8A148A"><font color="#ffffff">Master Data Base</font></td><td colspan=3 bgcolor="#8A148A"></td>
    </tr>
  <tr>
    <td>|; print &build_select_field ("Promotion", "$rec{'Promotion'}"); print qq|</td>
    <td>|; print &build_select_field ("Pdate", "$rec{'Pdate'}"); print qq|</td>
    <td>|; print &build_select_field ("Dino_Pro", "$rec{'Dino_Pro'}"); print qq|</td>
    <td colspan="2">Week:<input type="text" name="Week" VALUE="$rec{'Week'}" size="3"></td>
  	<td></td>
    <td colspan="2">Sale:|; print &build_select_field ("Tap", "$in{'Tap'}"); print qq|</td>
	</tr>
  <tr>
    <td colspan="3">Company:<input type="text" name="Company" VALUE="$rec{'Company'}" size="40"></td>
    <td colspan="2">Phone: <input type="text" name="Phone" VALUE="$rec{'Phone'}"></td>
    <td></td>
    <td colspan="2">Amount:<input type="text" name="Amount" VALUE="$rec{'Amount'}"></td>
    </tr>
  <tr>
    <td colspan="3">Contact:<input type="text" name="Contact" VALUE="$rec{'Contact'}" size="40"></td>
    <td colspan="2">Email:<input type="text" name="Email" VALUE="$rec{'Email'}"></td>
    <td></td>
         		|;
    if ($per_admin) { 
		print qq|
	<td colspan="2">Collected Date &nbsp<input name="Collected_date" value="$rec{'Collected_date'}" type="text"></td> |;
      	}
      	else { 
  			print qq|<td colspan="2"></td>|; 
				} 
				print qq|		
	</tr>
  <tr>
    <td colspan="3">Address:<input type="text" name="Address" VALUE="$rec{'Address'}" size="40"></td>
    		|;
    if ($per_admin) { 
		print qq|
	<td colspan="2">Sales Rep: &nbsp; |; print &build_external_select_field ("Userid", "$rec{'Userid'}"); print qq|</td>|; print qq| |;
      	}
      	print qq| 
	<td></td>
    <td colspan="2">Trigger: &nbsp; |; print &build_checkbox_field ("Trigger", "$rec{'Trigger'}"); print qq|</td>
	</tr>
  <tr>
    <td colspan="3"><p>City:&nbsp;<input type="text" name="CSZ" VALUE="$rec{'CSZ'}" size="40"></td>
    <td></td>
    <td>Jerseys</td>
    <td></td>
    <td></td>
    <td></td>
  </tr>
  <tr>
    <td><input name="JName1" value="$rec{'JName1'}" size="20" type="text"></td>
    <td></td>
    <td><input name="JName2" value="$rec{'JName2'}" size="20" type="text"></td>
    <td></td>
    <td><input name="JName3" value="$rec{'JName3'}" size="20" type="text"></td>
    <td></td>
    <td><input name="JName4" value="$rec{'JName4'}" size="20" type="text"></td>
    <td></td>
  </tr>
  </table>
<table width="1000" bgcolor="69B310" border="0" cellspacing="2" cellpadding="3">
  <tr>
    <td colspan="8">Special Inst: <input type="text" name="Special_Inst" VALUE="$rec{'Special_Inst'}" size="120"></td>
  </tr>
  </table>
</center>
	|;
}