← Back to branch summary

~ubuntu-branches/debian/sid/libembperl-perl/sid

« back to all changes in this revision

Viewing changes to test/html/selecttab.htm

  • Committer: Bazaar Package Importer
  • Author(s): Angus Lees
  • Date: 2004-02-15 14:23:39 UTC
  • Revision ID: james.westby@ubuntu.com-20040215142339-f2pqlcugymgn16bq
Tags: 2.0b10-1
http://bugs.debian.org/229917
http://bugs.debian.org/229922
* New upstream release.
* Extend Dependencies to include libcgi-pm-perl | perl-modules (>= 5.8.0).
* Goswin von Brederlow:
 - test.pl: Progressively sleep longer till apache gets started
   on slow or loaded systems. Hopefully fixes m68k build failure.
   Closes: #229917
 - Build for all archs again since they keep libembperl-perl out of
   testing anyway and maybe someone can track it down.
* Include bugfixes from Embperl CVS:
 - fix Validate JS code
 - fix endless loop with call sub inside table
 - fix select without name dynamic loop
 - fix nesting of tab and select
 - fix upload with CGI 3.01+ (perl 5.8.3)
* Remove more files during clean, closes: #229922.

Show diffs side-by-side

added added

removed removed

Lines of Context:
test/html/selecttab.htm
 
1
<html>
 
2
<body>
 
3
<script language="epl">
 
4
[-
 
5
  $title = 'Add Recipients';
 
6
 
 
7
  my $files = $fdat{fileSelector};
 
8
  if (!defined($files)) {
 
9
    $files = 1;
 
10
    $fdat{fileSelector} = $files;
 
11
  }
 
12
 
 
13
  $maxrow = 10;
 
14
  if ($files eq 'manual' || $files == 1) {
 
15
    $table[0][0] = '';
 
16
  }
 
17
  else {
 
18
    my $f = 1;
 
19
    my $rows = $files / 2;
 
20
    for (my $r = 0; $r < $rows; $r++) {
 
21
      $table[$r][0] = $f++;
 
22
      $table[$r][1] = $f++;
 
23
    }
 
24
  }
 
25
 
 
26
  $sourceOption[0] = 'Make Selection';
 
27
  $sourceOption[1] = 'Acme Vending';
 
28
  $sourceOption[2] = 'ABC Rental';
 
29
 
 
30
-]
 
31
</script>
 
32
 
 
33
<table width="100%" border="0" cellspacing="0" cellpadding="0">
 
34
  <tr>
 
35
    <td class="ltAlign">
 
36
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
 
37
        <tr>
 
38
          <td width="80%" class="breadCrumbs">Audience &gt; Multiple Upload</td>
 
39
          <td width="20%" class="rcJustify">
 
40
            <form name="fileSelectorForm" method="post">
 
41
              <select name="fileSelector" onChange="fileSelectorForm.submit()" class="controlText">
 
42
                <option value="manual">Manual Upload</option>
 
43
                <option value="1">Single File Upload</option>
 
44
                <option value="2">Multiple Upload: 2 Files</option>
 
45
                <option value="4">Multiple Upload: 4 Files</option>
 
46
                <option value="6">Multiple Upload: 6 Files</option>
 
47
                <option value="8">Multiple Upload: 8 Files</option>
 
48
                <option value="10">Multiple Upload: 10 Files</option>
 
49
              </select>
 
50
            </form>
 
51
          </td>
 
52
        </tr>
 
53
      </table>
 
54
    </td>
 
55
  </tr>
 
56
  <tr>
 
57
    <td class="textRowSpacer15">&nbsp;</td>
 
58
  </tr>
 
59
  <tr>
 
60
    <td width="100%" class="thdPage">Upload Audience</td>
 
61
  </tr>
 
62
  <tr>
 
63
    <td width="100%">
 
64
      <table width="100%" border="1" cellspacing="2" cellpadding="0">
 
65
        <tr>
 
66
          <td class="cellBorder">
 
67
            [- $file = $table[$r=$row][$c=$col] -]
 
68
            [- use Data::Dumper ; -][+ Dumper (@table, $r, $c) +]
 
69
            <table width="100%" border="0" cellspacing="2" cellpadding="0">
 
70
              <tr>
 
71
                <td class="ltAlign">
 
72
                  <table width="100%" border="0" cellspacing="2" cellpadding="0" name="filesourcetable">
 
73
                    <tr>
 
74
                      <td class="thdPage2ndLevel">Upload File [+ $file +]</td>
 
75
                    </tr>
 
76
                    <tr>
 
77
                      <td width="42%" class="text">&nbsp;</td>
 
78
                    </tr>
 
79
                    <tr>
 
80
                      <td width="42%" class="text">Browse for File to Upload</td>
 
81
                    </tr>
 
82
                    <tr>
 
83
                      <td>
 
84
                        <input type="File" name="add_file_[+ $file +]" size="35" value="" class="text">
 
85
                      </td>
 
86
                    </tr>
 
87
                    <tr>
 
88
                      <td width="42%" class="text">&nbsp;</td>
 
89
                    </tr>
 
90
                    <tr>
 
91
                      <td width="42%" class="text">Website</td>
 
92
                    </tr>
 
93
                    <tr>
 
94
                      <td width="42%" class="text">
 
95
                        <select name="source" class="text">
 
96
                          <option>Make Selection</option>
 
97
                        </select>
 
98
<!--
 
99
                        <select name="source" class="text">
 
100
                          <option>[+ $sourceOption[$row] +]</option>
 
101
                        </select>
 
102
-->
 
103
                      </td>
 
104
                    </tr>
 
105
                    <tr>
 
106
                      <td width="42%" class="text">&nbsp;</td>
 
107
                    </tr>
 
108
                  </table>
 
109
                </td>
 
110
              </tr>
 
111
            </table>
 
112
          </td>
 
113
        </tr>
 
114
      </table>
 
115
    </td>
 
116
  </tr>
 
117
</table>
 
118
</body>
 
119
</html>
 
120