my %replace = ();

	$text = '';		
		
	my ($name, $value) = ();
	while (($name, $value) = each %FORM) {
	$replace{$name} = $value;
	next if ($name =~ m!^(shared|genesis_system)_!); # separate name-spaces
	next if (($name eq 'Action') or ($name eq 'Template') or ($name eq 'CWD') or ($name eq 'web_auth_cp')); # reversed names
	$text .= &ue($name) . '=' . &ue($value) . "\n";
	}
	&_load_system_values( \%replace, $FORM{'Template'} );

	# save the name-value pairs that are specific to this template:
<br>
	my $datafile = ".$FORM{'Template'}";
	$datafile =~ s!/!.!g;
	$err = &WriteFile( $datafile, $text);
	next Err if ($err);