Opened by Kathrin at 2004-12-16 16:21
Guten Morgen Forum,
sorry renee kann ich natürlich auch nicht von dir erwarten, hellzusehen ;-)
In der Fehlermeldung wird zwar auf den Parameter "$franz" gezeigt, doch er kommt erst in den folgenden Zeilen vor.
sorry renee kann ich natürlich auch nicht von dir erwarten, hellzusehen ;-)
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
sub such_eintr {
my ($param)=@_;
print "<HTML>\n";
print "<HEAD><TITLE>FORMULAR</TITLE>";
print "</HEAD>\n<BODY>\n";
if ($suchen){ #### Zeile 225
print '<span style="font-size:20pt"><center><b>Dokumententyp:'.$param->{doctyp}.'</
b></center></span>';
}
elsif ($eintragen) {
print '<span style="font-size:20pt"><center><b>Dokumententyp: '.$doctyp.'</b></center></span>';
}
print '<form method="POST" action="/cgi-bin/frontl.cgi">';
print "<p>Ident-Nummer:";
print '<INPUT name="identnr" size="20" maxlength="15" value='.$identnr.'> ';
if ($suchen) {
print '<INPUT name="suchen" TYPE="submit" VALUE="Suchen">';
}
print "<p>DE:<br>";
print '<input name="head_de" type="text" size="50" value='.$param->{head_de}.'><br>';
if ($doctyp eq 'EI') {
print '<textarea name="deutsch" cols="50" rows="5">'.$param->{deutsch}.'</textarea>';
}
print "<p>EN:<br>";
print '<input name="head_en" type="text" size="50" value='.$param->{head_en}.'><br>';
if ($doctyp eq 'EI') {
print '<textarea name="englisch" cols="50" rows="5">'.$param->{englisch}.'</textarea>';
}
print "<p>FR:<br>";
print '<input name="head_fr" type="text" size="50" value='.$param->{head_fr}.'><br>';
if ($doctyp eq 'EI') {
print '<textarea name="franz" cols="50" rows="5">'.$param->{franz}.'</textarea>'; ###$franz
}In der Fehlermeldung wird zwar auf den Parameter "$franz" gezeigt, doch er kommt erst in den folgenden Zeilen vor.