Opened by Kathrin at 2004-12-16 16:21
User since
2003-08-04
7321 Artikel
ModeratorIn
2003-08-04
7321 Artikel
ModeratorIn
ich versteh deine logik eh nicht so ganz
ist eigentlich klar, dass da nur ein wert raus kommt; du überschreibst ja pro zeile die werte in %hash
diese docnamen hast du dir doch schon mit der abfrage oben drüber geholt; macht nicht viel sinn, oder?
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
my $statement_suchen="SELECT * FROM tbl0011990 where ident_nr = '$identnr'";
my $sth_suchen=$dbh->prepare($statement_suchen) or die $DBI::errstr;
$sth_suchen->execute;
my %hash;
while (my @row = $sth_suchen->fetchrow_array())
{
$hash{identnr} = $row[0];
$hash{doctyp} = $row[2];
$hash{docname} = $row[3];
$hash{head_de} = $row[4] if ($row[1] eq 'DE');
$hash{head_en} = $row[4] if ($row[1] eq 'EN');
$hash{head_fr} = $row[4] if ($row[1] eq 'FR');
$hash{deutsch} = $row[5] if ($row[1] eq 'DE');
$hash{englisch} = $row[5] if ($row[1] eq 'EN');
$hash{franz} = $row[5] if ($row[1] eq 'FR');
$hash{ersteller}= $row[7];
$hash{werk} = $row[8];
$hash{check1} = $row[9];
$hash{check2} = $row[10];
$hash{check3} = $row[11];
$hash{check4} = $row[12];
}
ist eigentlich klar, dass da nur ein wert raus kommt; du überschreibst ja pro zeile die werte in %hash
Code: (dl
)
1
2
3
my $statement_doc="SELECT docname FROM tbl0011990 where ident_nr = ?";
my $sth_doc=$dbh->prepare($statement_doc) or die $DBI::errstr;
$sth_doc->execute;
diese docnamen hast du dir doch schon mit der abfrage oben drüber geholt; macht nicht viel sinn, oder?