Opened by Kathrin at 2004-12-16 16:21
User since
2003-08-04
7321 Artikel
ModeratorIn
2003-08-04
7321 Artikel
ModeratorIn
mach es mal so (ungetestet):
Code: (dl
)
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
sub ausgabe_suchenerg
{
my ($daten) = @_;
print "<html>\<n";
print "<head><title>FORMULAR</title></head>\<n";
print qq~<script language="javascript" type="text/javascript">
<!--
function docname_and_submit(name)
{
document.form.docname.value = name;
document.form.submit();
}
// --></script>~;
print "<body>";
print '<span style="font-size:20pt"><center><b>Bestellhinweis</b></center></span>';
print qq~<form method="POST" action="$SCRIPT" id="form">~;
print "<p>Ident-Nummer:";
print '<input name="identnr" size="20" maxlength="15" value='.$identnr.'>';
print '<input type="hidden" name="suchen" value="1" />';
print '<input type="hidden" name="docname" value="" />';
print '<input name="such" TYPE="submit" VALUE="Suchen">';
print '<p>';
print '<table border="1" rules="groups">
<colgroup>
<col width="50">
<col width="80">
<col width="300">
<col width="50">
</colgroup>
<thead>
<tr>
<th>doc_typ</th>
<th>doc_name</th>
<th>headline</th>
</tr></thead>
<tbody>';
foreach my $ptr (@{$daten})
{
print '<tr>';
print qq~<td>$ptr->{doctyp}</td>
<td>$ptr->{docname}</td>
<td>$ptr->{head}</td>
<td><input type="button" value="Auswahl" onClick="docname_and_submit($ptr->{docname})"></td>
</tr>~;
}
print '</tbody></table>';
print '<p><p><input type="button" value="Zurück" onClick="history.back()">';
print "</form>
</body>
</html>";
}