Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
[thread]3509[/thread]

suchen und vergleichen (Seite 11)



<< |< 1 ... 8 9 10 11 12 13 >| >> 125 Einträge, 13 Seiten
esskar
 2005-01-17 23:54
#32753 #32753
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
also das glaube ich nicht!
Kathrin
 2005-01-18 00:08
#32754 #32754
User since
2004-12-15
158 Artikel
BenutzerIn
[default_avatar]
das z.B. müsste dann doch die endgültig ausgewählten daten wiedergeben?
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 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();

}
esskar
 2005-01-18 00:26
#32755 #32755
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
jein...
die funktion ausgabe_eintragenform nimmt keine hash-referenz
esskar
 2005-01-18 00:28
#32756 #32756
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
außerdem kann doch ein docname zu verschiedenen identnummern gehören oder?
Kathrin
 2005-01-18 00:35
#32757 #32757
User since
2004-12-15
158 Artikel
BenutzerIn
[default_avatar]
nein ein docname kann nur zu einer identnr gehören. aber die identnr zu mehreren docnamen...
und wenn ich folgendes in die sub ausgabe_eintragenform einfüge?
Code: (dl )
1
2
my (%param) = @_;
my $param = \%param;
Kathrin
 2005-01-18 00:38
#32758 #32758
User since
2004-12-15
158 Artikel
BenutzerIn
[default_avatar]
aber es kann halt sein dass gleicher docname mit gleichem identnr bis zu drei mal auftaucht... De-EN-FR
esskar
 2005-01-18 00:39
#32759 #32759
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
[quote=Kathrin,17.01.2005, 23:35]und wenn ich folgendes in die sub ausgabe_eintragenform einfüge?
Code: (dl )
1
2
my (%param) = @_;
my $param =  \%param;
[/quote]
auch dann nicht bzw. es bewirkt nichts, da die sub doch nur die daten ausgibt, die zuvor mit $cgi->param ausgelesen wurden... und zwar global am anfang des scriptes...
Kathrin
 2005-01-18 00:53
#32760 #32760
User since
2004-12-15
158 Artikel
BenutzerIn
[default_avatar]
weißt du was ich jetzt machen würde, und zwar würde ich einfach die sub kopieren, anders benennen, und dann den hash übergeben, und so dann aufrufen in der sub...
ist zwar kein guter lösüngsweg, aber mehr fällt mir einfach nicht ein!
Kathrin
 2005-01-18 10:02
#32761 #32761
User since
2004-12-15
158 Artikel
BenutzerIn
[default_avatar]
wieso wird bei mir hier $docname und $identnr nicht ausgegeben??????
ich habs genau so übernommen und es kommt: identnr: $identnr docname: $ptr->{docname}; . die werte werden nicht übernommen
Code: (dl )
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>~;
}
esskar
 2005-01-18 10:15
#32762 #32762
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
hast du es in ausgabe_suchenerg auch genausso?

Code: (dl )
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



View all threads created 2004-12-16 16:21.