my $key = '';
	foreach $key (keys %$p_upload_files) {
	my $p_hash = $$p_upload_files{$key};
	next unless (($p_hash) and (defined($$p_hash{'server file name'})));
	$FORM{$key . "_filename"} = $$p_hash{'server file name'};

##</code><code>##

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);