richter at apache
Feb 13, 2004, 1:39 PM
Post #1 of 1
(816 views)
Permalink
|
|
cvs commit: embperl/test/html selecttab.htm selecttab2.htm
|
|
richter 2004/02/13 12:39:20
Added: test/cmp selecttab.htm selecttab2.htm
test/html selecttab.htm selecttab2.htm
Log:
fix nesting of tab and select
Revision Changes Path
1.1 embperl/test/cmp/selecttab.htm
Index: selecttab.htm
===================================================================
<html>
<body>
<script language="epl">
</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 > 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" selected>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"> </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">
$VAR1 = [
''
];
$VAR2 = 0;
$VAR3 = 0;
<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 </td>
</tr>
<tr>
<td width="42%" class="text"> </td>
</tr>
<tr>
<td width="42%" class="text">Browse for File to Upload</td>
</tr>
<tr>
<td>
<input type="File" name="add_file_" size="35" value="" class="text">
</td>
</tr>
<tr>
<td width="42%" class="text"> </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>Make Selection</option>
<option>Acme Vending</option>
<option>ABC Rental</option>
</select>
-->
</td>
</tr>
<tr>
<td width="42%" class="text"> </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
1.1 embperl/test/cmp/selecttab2.htm
Index: selecttab2.htm
===================================================================
<table class=1>
<tr>
<td>
<table width="100%" border="0" cellspacing="2" cellpadding="0" name="filesourcetable">
<tr width=1>
<td class="thdPage2ndLevel">Upload File 1</td>
</tr>
<tr width=2>
<td width="42%" class="text">
<select name="source1" class="text">
<option>Make Selection</option>
</select>
<select name="source2" class="text">
<option>Make Selection</option>
<option>Acme Vending</option>
<option>ABC Rental</option>
</select>
</td>
</tr>
</table>
</td>
<td>
<table width="100%" border="0" cellspacing="2" cellpadding="0" name="filesourcetable">
<tr width=1>
<td class="thdPage2ndLevel">Upload File 2</td>
</tr>
<tr width=2>
<td width="42%" class="text">
<select name="source1" class="text">
<option>Make Selection</option>
</select>
<select name="source2" class="text">
<option>Make Selection</option>
<option>Acme Vending</option>
<option>ABC Rental</option>
</select>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="2" cellpadding="0" name="filesourcetable">
<tr width=1>
<td class="thdPage2ndLevel">Upload File 11</td>
</tr>
<tr width=2>
<td width="42%" class="text">
<select name="source1" class="text">
<option>Make Selection</option>
</select>
<select name="source2" class="text">
<option>Make Selection</option>
<option>Acme Vending</option>
<option>ABC Rental</option>
</select>
</td>
</tr>
</table>
</td>
<td>
<table width="100%" border="0" cellspacing="2" cellpadding="0" name="filesourcetable">
<tr width=1>
<td class="thdPage2ndLevel">Upload File 22</td>
</tr>
<tr width=2>
<td width="42%" class="text">
<select name="source1" class="text">
<option>Make Selection</option>
</select>
<select name="source2" class="text">
<option>Make Selection</option>
<option>Acme Vending</option>
<option>ABC Rental</option>
</select>
</td>
</tr>
</table>
</td>
</tr>
</table>
1.1 embperl/test/html/selecttab.htm
Index: selecttab.htm
===================================================================
<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 > 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"> </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"> </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"> </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"> </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
1.1 embperl/test/html/selecttab2.htm
Index: selecttab2.htm
===================================================================
[-
$sourceOption[0] = 'Make Selection';
$sourceOption[1] = 'Acme Vending';
$sourceOption[2] = 'ABC Rental';
@table = ([1, 2], [11,22]) ;
-]
<table class=1>
<tr>
<td>
[- $file = $table[$row][$col] -]
<table width="100%" border="0" cellspacing="2" cellpadding="0" name="filesourcetable">
<tr width=1>
<td class="thdPage2ndLevel">Upload File [+ $file +]</td>
</tr>
<tr width=2>
<td width="42%" class="text">
<select name="source1" class="text">
<option>Make Selection</option>
</select>
<select name="source2" class="text">
<option>[+ $sourceOption[$row] +]</option>
</select>
</td>
</tr>
</table>
</td>
</tr>
</table>
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe [at] perl
For additional commands, e-mail: embperl-cvs-help [at] perl
|
