File: selecttab.htm

package info (click to toggle)
libembperl-perl 2.5.0-17
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, sid
  • size: 7,632 kB
  • sloc: ansic: 21,387; perl: 14,497; javascript: 4,280; cpp: 467; xml: 49; makefile: 35; sh: 24
file content (120 lines) | stat: -rw-r--r-- 3,788 bytes parent folder | download | duplicates (11)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
<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>