Ersetze diesen Teil:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
if ($sth->rows != 0){
print $cgi->start_html(-title => 'Antwort');
print qq~<center><h1>Suchergebnis</h1><hr><table border=1><tr><td width="200"><b>Familienname:</b></td>
<td width="100"><b>Vorname:</b></td><td width="200"><b>Abteilung:</b></td><td width="100">
<b>Telefon:</b></td></tr>~;
while (my ($familienname,$vorname,$abt,$telefon) = $sth->fetchrow_array()) {
print qq§<tr>\n<td><b>$familienname</b></td>\n<td>$vorname</td>\n<td>$abt</td>\n<td>$telefon</td>\n</tr>\n§;
}
print qq§</table>\n<p><a href="formular1.html">Neue Suche</a></p>\n<hr>\n</center>§;
}
else { ##Keine Treffer
print $cgi->start_html(-title => 'Antwort');
print qq~<body><p>Leider brachte die Suche keine Ergebnisse!</p><hr><p>
<a href="http://localhost/formular1.html">Neue Suche!</a></p>~;
}
durch diesen hier:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
print $cgi->start_html(-title => 'Antwort');
my $msg = qq~<center><h1>Suchergebnis</h1><hr><table border=1><tr><td width="200">
<b>Familienname:</b></td><td width="100"><b>Vorname:</b></td>
<td width="200"><b>Abteilung:</b></td>
<td width="100"><b>Telefon:</b></td></tr>~;
my $table = "";
while (my ($familienname,$vorname,$abt,$telefon) = $sth->fetchrow_array()) {
$table .= qq§<tr>\n<td><b>$familienname</b></td>\n<td>$vorname</td>
<td>$abt</td>\n<td>$telefon</td>\n</tr>\n§;
}
unless($table){
$msg = qq~<p>Leider brachte die Suche keine Ergebnisse!</p><hr>~;
}
else{
$msg .= $table.'</table>';
}
$msg .= qq~<p><a href="formular1.html">Neue Suche</a></p>\n<hr>\n</center>~;
print $msg;
\n\n
<!--EDIT|renee|1093586703-->