Initial file upload:

    
    
                # 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{'serv
+er file name'})));
                    $FORM{$key . "_filename"} = $$p_hash{'server file 
+name'};
                    delete $FORM{$key};
                    }
                }
            }
[download]

and for the text fields:

        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'} );
[download]

# save the name-value pairs that are specific to this template:

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

This stores the information in the .shared.template for later retrieval so when a user opens a form
to make changes the information is still present in that particular form.
# save the name-value pairs that are specific to this template:

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

# save the name-value pairs that are shared. This operation is a merge:

        $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);
[download]