Opened by Kathrin at 2004-12-16 16:21
User since
2004-12-15
158 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-12-15
158 Artikel
BenutzerIn
hmm esskar es ging noch einfacher. jetzt gibt er mir alles wieder, auser die Headlines und die texte...
wenn ich z.B. nur einen docnamen habe, aber mehrere einträge (DE-EN-FR), nimmt er nur eine HL und füllt es in jede zeile...
Wie gesagt der Rest (doctyp, identnr, docname, werk, ersteller,....)funktioniert jetzt...
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
foreach my $ptr (@{$daten}) {
print qq~<tr>
<td>$ptr->{doctyp}</td>
<td>$ptr->{docname}</td>
<td>$ptr->{head}</td>
<td><a href="/cgi-bin/frontl.cgi?auswahl=1;
identnr=$identnr;
docname=$ptr->{docname};
ersteller=$ptr->{ersteller};
head_de=$ptr->{head};
deutsch=$ptr->{deutsch};
head_en=$ptr->{head};
englisch=$ptr->{englisch};
head_fr=$ptr->{head};
franz=$ptr->{franz};
check1=$ptr->{check1};
check2=$ptr->{check2};
check3=$ptr->{check3};
check4=$ptr->{check4};
werk=$ptr->{werk};
doctyp=$ptr->{doctyp} ">Auswählen</a></td>
</tr>~;
}wenn ich z.B. nur einen docnamen habe, aber mehrere einträge (DE-EN-FR), nimmt er nur eine HL und füllt es in jede zeile...
Wie gesagt der Rest (doctyp, identnr, docname, werk, ersteller,....)funktioniert jetzt...
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
print "<HTML>\n";
print "<HEAD><TITLE>FORMULAR</TITLE>";
print "</HEAD>\n<BODY>\n";
if ($auswahl){
print '<span style="font-size:20pt"><center><b>Dokumententyp:'.$doctyp.'</b></cente
r></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 ($auswahl) {
print '<INPUT name="suchen" TYPE="submit" VALUE="Suchen">';
}
print "<p>DE:<br>";
print '<input name="head_de" type="text" size="50" value='.$head_de.'><br>';
if ($doctyp eq 'EI') {
print '<textarea name="deutsch" cols="50" rows="5">'.$deutsch.'</textarea>';
}
print "<p>EN:<br>";
print '<input name="head_en" type="text" size="50" value='.$head_en.'><br>';
if ($doctyp eq 'EI') {
print '<textarea name="englisch" cols="50" rows="5">'.$englisch.'</textarea>';
}
print "<p>FR:<br>";
print '<input name="head_fr" type="text" size="50" value='.$head_fr.'><br>';
if ($doctyp eq 'EI') {
print '<textarea name="franz" cols="50" rows="5">'.$franz.'</textarea>';
}