sub site_html_add_form {
# --------------------------------------------------------
# This routine determines how the add form page will look like.
#
&html_print_headers;

my $category = shift;
$category ?
($category = qq~$category <input type=hidden name="Category" value="$category">~) :
($category = &build_select_field ("Category", "$in{'Category'}"));

print &load_template ('add.html', {
Category => $category,
hopto => &hopto_category,
%globals
});
}

sub hopto_cgi {
open DB, $db_category_name;
LINE: while (<DB> ) {
/^#/ and next LINE;
/^\s*$/ and next LINE;
chomp;
push @categories, (split /\Q$db_delim\E/, $_)[$db_main_category];
}
close DB;

$output = qq~
<script>
<!--
function taking() {
location= document.take.take2.options[document.take.take2.selectedIndex].value
}
//-->
</script>
<form name="take"><b><font size="2">Hop to: </font></b>
<select name="take2">
<option selected value="">Select a Category</option>
<option value="">-------------------------------</option>
~;

foreach (sort @categories) {
$output .= qq~<option value="$build_root_url/$_/">~ . &build_unlinked_title ($_) . qq~</option>~;
}

$output .= qq~</select><input type="button" value="Go!" name="B1" onClick="taking()"></form>~;
}

hopto => &hopto_cgi,