![]() |
|< 1 ... 8 9 10 11 12 13 >| | ![]() |
125 Einträge, 13 Seiten |
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 doc_vorhanden
{
my $db="DBI:mysql:produkte";
my $user="lidos";
my $pass="lidos";
my $dbh = DBI->connect($db,$user,$pass) or die $DBI::errstr;
my $statement_suchen="SELECT * FROM tbl0011990 where docname = '$docname'";
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];
}
&ausgabe_eintragenform(/%hash);
$sth_suchen->finish();
$dbh->disconnect();
}
1
2
3
4
5
6
7
8
9
10
sub ausgabe_auswahl
{
print qq~<html>
<head><title>Auswahl</title></head>
<body>
IdentNr: $identnr<br />
DocName: $docname
</body>
</html>~;
}
1
2
3
4
5
6
print qq~<tr>
<td>$ptr->{doctyp}</td>
<td>$ptr->{docname}</td>
<td>$ptr->{head}</td>
<td><a href="$SCRIPT?auswahl=1;identnr=$identnr;docname=$ptr->{docname}">Auswählen</a></td>
</tr>~;
![]() |
|< 1 ... 8 9 10 11 12 13 >| | ![]() |
125 Einträge, 13 Seiten |