The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

<html>
<body>
<script language="epl">
[-
$title = 'Add Recipients';
my $files = $fdat{fileSelector};
if (!defined($files)) {
$files = 1;
$fdat{fileSelector} = $files;
}
$maxrow = 10;
if ($files eq 'manual' || $files == 1) {
$table[0][0] = '';
}
else {
my $f = 1;
my $rows = $files / 2;
for (my $r = 0; $r < $rows; $r++) {
$table[$r][0] = $f++;
$table[$r][1] = $f++;
}
}
$sourceOption[0] = 'Make Selection';
$sourceOption[1] = 'Acme Vending';
$sourceOption[2] = 'ABC Rental';
-]
</script>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="ltAlign">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="80%" class="breadCrumbs">Audience &gt; Multiple Upload</td>
<td width="20%" class="rcJustify">
<form name="fileSelectorForm" method="post">
<select name="fileSelector" onChange="fileSelectorForm.submit()" class="controlText">
<option value="manual">Manual Upload</option>
<option value="1">Single File Upload</option>
<option value="2">Multiple Upload: 2 Files</option>
<option value="4">Multiple Upload: 4 Files</option>
<option value="6">Multiple Upload: 6 Files</option>
<option value="8">Multiple Upload: 8 Files</option>
<option value="10">Multiple Upload: 10 Files</option>
</select>
</form>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td class="textRowSpacer15">&nbsp;</td>
</tr>
<tr>
<td width="100%" class="thdPage">Upload Audience</td>
</tr>
<tr>
<td width="100%">
<table width="100%" border="1" cellspacing="2" cellpadding="0">
<tr>
<td class="cellBorder">
[- $file = $table[$r=$row][$c=$col] -]
[- use Data::Dumper ; -][+ Dumper (@table, $r, $c) +]
<table width="100%" border="0" cellspacing="2" cellpadding="0">
<tr>
<td class="ltAlign">
<table width="100%" border="0" cellspacing="2" cellpadding="0" name="filesourcetable">
<tr>
<td class="thdPage2ndLevel">Upload File [+ $file +]</td>
</tr>
<tr>
<td width="42%" class="text">&nbsp;</td>
</tr>
<tr>
<td width="42%" class="text">Browse for File to Upload</td>
</tr>
<tr>
<td>
<input type="File" name="add_file_[+ $file +]" size="35" value="" class="text">
</td>
</tr>
<tr>
<td width="42%" class="text">&nbsp;</td>
</tr>
<tr>
<td width="42%" class="text">Website</td>
</tr>
<tr>
<td width="42%" class="text">
<select name="source" class="text">
<option>Make Selection</option>
</select>
<!--
<select name="source" class="text">
<option>[+ $sourceOption[$row] +]</option>
</select>
-->
</td>
</tr>
<tr>
<td width="42%" class="text">&nbsp;</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>