# upload some files?
				
				
			if (%$p_upload_files) {
				$err = &ui_Upload($p_upload_files);
				next Err if ($err);
				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'};
					delete $FORM{$key};
					}
				}
			}


##</code><code>##



		my %replace = ();

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

##</code><code>##

		my $datafile = ".$FORM{'Template'}";
		$datafile =~ s!/!.!g;
		$err = &WriteFile( $datafile, $text );
		next Err if ($err);


##</code><code>##

	my $datafile = ".$FORM{'Template'}";
		$datafile =~ s!/!.!g;
		$err = &WriteFile( $datafile, $text );
		next Err if ($err);

##</code><code>##

		$datafile = '.shared.template';
		my $shared = '';
		if (-e $datafile) {
			($err, $text) = &ReadFile($datafile);
			foreach (split(m!\n!, $text)) {
				next unless (m!^(.+)\=(.*)$!);
				next if (defined($FORM{"shared_$1"}));
				$shared .= "$_\n";
				}
			}
		foreach (keys %FORM) {
			next unless (m!^shared_(.+)$!);
			$shared .= &ue($1) . '=' . &ue($FORM{$_}) . "\n";
			}
		$err = &WriteFile($datafile, $shared);
		next Err if ($err);