File: inputjava.htm

package info (click to toggle)
libhtml-embperl-perl 1.3.3-2
  • links: PTS
  • area: main
  • in suites: woody
  • size: 2,372 kB
  • ctags: 1,124
  • sloc: ansic: 8,207; perl: 4,196; makefile: 66
file content (22 lines) | stat: -rw-r--r-- 816 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
  <html>
  <body>
    [- $s = "script.htm" -]
    [$ if (($fdat{'Screen'} || 0) != 1) $]
    <form action="[+ $s +]" method="POST">
      <input type=hidden name="Screen" value="1">

      Screen 1<br>
      <input type=submit name="Command" value="Start" onClick="document.forms[0].Command.action = 'Start'">
      <input type=submit name="Command" value="Next" onClick="document.forms[0].Command.action = 'Next'">
    </form>
    [$ else $]
    <form action="[+ $s +]" method="POST">
      <input type=hidden name="Screen" value="2">

      Screen 2<br>
      <input type=submit name="Command" value="Back" onClick="document.forms[0].Command.action = 'Back'">
      <input type=submit name="Command" value="Done" onClick="document.forms[0].Command.action = 'Done'">
    </form>
    [$ endif $]
  </body>
  </html>