- $html_init .= qq!<FORM ACTION="$p/misc/upload-batch.cgi" METHOD="POST" ENCTYPE="multipart/form-data">!.
- qq!Upload results<BR>!.
- qq!Filename <INPUT TYPE="file" NAME="batch_results"><BR>!;
- if ( $fixed ) {
+ $html_init .= '<TR>'.
+ include('/elements/form-file_upload.html',
+ 'name' => 'FileUpload',
+ 'action' => "$p/misc/upload-batch.cgi",
+ 'num_files' => 1,
+ 'fields' => [ 'batchnum', 'format' ],
+ 'message' => 'Batch results uploaded.',
+ ) .
+ 'Upload results<BR></TR><TR>'.
+ include('/elements/file-upload.html',
+ 'field' => 'file',
+ 'label' => 'Filename',
+ 'no_table'=> 1
+ ).
+ '<BR></TR>'
+ ;
+ if ( $fixed and $fixed eq 'td_eft1464' ) {
+ # special case, this one has two upload formats
+ $html_init .= qq!<TR>Format !.
+ qq!<SELECT NAME="format">!.
+ qq!<OPTION VALUE="td_eftack264">TD EFT Acknowledgement</OPTION>!.
+ qq!<OPTION VALUE="td_eftret80">TD EFT Returned Items</OPTION>!.
+ qq!</SELECT><BR></TR>!;
+ }
+ elsif ( $fixed ) {