dist/admin/pages/include/catname_form

<table border="0" cellpadding="0" cellspacing="0" width="400">
	<tr>
	  <td width="75" VALIGN=CENTER><font size="-1"><B>Catalog name:</B> </font><BR></td>
	  <td>[help name=CATALOGNAME int]<input name="CATALOGNAME" type="TEXT" size="12"
		  		value="[value name=CATALOGNAME]" > </td>
	</tr>
	<tr>
	  <td width="75" VALIGN=CENTER><font size="-1"><B>Template to use:</B> </font><BR></td>
	  <td><BR>[help name=TEMPLATE int]<input name="TEMPLATE" type="TEXT" size="12"
		  		value="[default TEMPLATE simple]"> 
		</td>
	</tr>
[embed]
if($^O =~ /win32/i) {
	return qq{<INPUT TYPE=hidden NAME=BASEDIR VALUE="$Global::VendRoot/catalogs">};
}
elsif ($ENV{HOME} and $ENV{HOME} ne $::Values->{HOMEDIR}) {
	return <<EOF;
	<tr>
	  <td width="75" VALIGN=CENTER><font size="-1"><B>Catalog base:</B> </font><BR></td>
	  <td>[help name=BASEDIR int]<input name="BASEDIR" type="TEXT" size="38"
		  		value="[default BASEDIR $ENV{HOME}/catalogs]" > </td>
	</tr>
EOF
}
return '';
[/embed]
</table>