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

« back to all changes in this revision

Viewing changes to test/html/subtextarea.htm

  • Committer: Bazaar Package Importer
  • Author(s): Angus Lees
  • Date: 2004-02-15 14:23:39 UTC
  • Revision ID: james.westby@ubuntu.com-20040215142339-n21gqf7mx9tmyb8d
Tags: upstream-2.0b10
ImportĀ upstreamĀ versionĀ 2.0b10

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
<html>
 
2
<head>
 
3
<title>Embperl Tests</title>
 
4
</head>
 
5
<body bgcolor="#ffffff">
 
6
 
 
7
    [$ foreach $k (@ffld) $]
 
8
        [+ $k +] = [+ $fdat{$k} +]<br>
 
9
    [$endforeach$]
 
10
 
 
11
     [$ sub EntryRow $]
 
12
         <input name="[+ $_[1] +]" type=text size=40 maxlength=255><br>
 
13
     [$ endsub $]
 
14
 
 
15
    <form method=post action="ta3.htm">
 
16
         <textarea name="summary" rows=4 cols=45></textarea>
 
17
         <br>
 
18
 
 
19
         [- EntryRow('Title*', 'title') -]
 
20
         [- EntryRow('Pub. Date*', 'pubdate', '(m/d/y, "today"...)') -]
 
21
 
 
22
         <br>
 
23
         <textarea name="content" rows=15 cols=45></textarea>
 
24
 
 
25
         <input name="more">
 
26
 
 
27
        <input type="submit">
 
28
    </form>
 
29
 
 
30
</body>
 
 
b'\\ No newline at end of file'