sub ExtendProfile  {
	$title = "Extra Profile Options";
	headerA();
	fopen(FILE,"$prefs/ProfileSections.txt");
	@profilesections = <FILE>;
	fclose(FILE);
	chomp @profilesections;

	fopen(FILE,"$prefs/ProfileSubsections.txt");
	@sections = <FILE>;
	fclose(FILE);
	chomp @sections;
	foreach(@sections) {
		($id) = split(/\|/,$_);
		$sections{$id} = $_;
	}

	fopen(FILE,"$prefs/ProfileVariables.txt");
	@sections = <FILE>;
	fclose(FILE);
	chomp @sections;
	foreach(@sections) {
		($t,$id) = split(/\|/,$_);
		$option{$id} = $_;
	}

	foreach(@profilesections) {
		($sectionname,$sortedids) = split(/\|/,$_);
		$ebout .= <<"EOT";
<table cellpadding="5" cellspacing="1" class="border" width="98%">
 <tr>
  <td class="titlebg"><input type="input" name="top_$sectionname" value="$sectionname" size="30"></td>
 </tr>
EOT

		foreach $sidss (split(/\//,$sortedids)) {
			($t,$subsectionname,$options,$image) = split(/\|/,$sections{$sidss});
			$ebout .= <<"EOT";
 <tr>
  <td class="win3"><input type="input" name="mid_$subsectionname" value="$subsectionname" size="30"></td>
 </tr><tr>
  <td class="win" style="padding: 0px">
   <table cellpadding="5" cellspacing="0" width="100%">
    <tr class="win3">
     <td class="smalltext"><strong>Sub Section</strong></td>
	 <td class="smalltext"><strong>Variable ID</strong></td>
	 <td class="smalltext"><strong>Variable Name</strong></td>
	 <td class="smalltext"><strong>Option Type</strong></td>
	 <td class="smalltext"><strong>Allowed Values</strong></td>
	</tr>
EOT
			@options = ();
			foreach $opts (split(/\//,$options)) { push(@options,$option{$opts}); }
			@sections = sort {$a cmp $b} @sections;

			foreach $topts (@options) {
				($subsubsect,$optionvar,$option,$type,$values) = split(/\|/,$topts);
					if($subsubsect ne $oldvalue) { $oldvalue = $subsubsect; $ebout .= qq~<tr><td class="win4" colspan="5">$subsubsect</td></tr>~; }
					%select = ();
					$select{$type} = ' selected="selected"';
					$ebout .= <<"EOT";
 <tr>
  <td class="win2"><input type="input" name="low_$optionvar" value="$subsubsect" /></td>
  <td class="win2">$optionvar</td>
  <td class="win2"><input type="input" name="option_$optionvar" value="$option" /></td>
  <td class="win2"><select name="type_$optionvar"><option value="1"$select{1}>Checkbox</option><option value="2"$select{2}>Text Input</option><option value="3"$select{3}>Select</option><option value="4"$select{4}>Textarea</option></select></td>
  <td class="win2"><input type="type" name="input" value="$values" size="50" /></td>
 </tr>
EOT
			}
			$ebout .= qq~</table></td></tr>~;
		}
		$ebout .= <<"EOT";
EOT
	}

	$ebout .= <<"EOT";
 <tr>
  <td class="center win"><input type="submit" value="Save" /></td>
 </tr>
</table>
EOT