Opened by Kathrin at 2005-01-24 12:34
User since
2004-12-15
158 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-12-15
158 Artikel
BenutzerIn
Moin moin alle miteinander,
bin gerade in ner Zwickmühle... Wie bekomme ich es hin dass in die sub warnung gesprungen wird, wenn keines der drei if anweisungen durchgeführt wurde! So wie unten angegeben funktioniert es zwar, aber ausgabe() wird jedesmal aufgerufen. ist ja logisch.
also quasi entweder ausgabe() oder warnung()
und ich kann ausgabe() auch nicht in die if anweisung schreiben, sonst wird es ja drei mal ausgegeben...
Tja eben eine richtige Zwickmühle ;-)
\n\n
<!--EDIT|Kathrin|1106562881-->
bin gerade in ner Zwickmühle... Wie bekomme ich es hin dass in die sub warnung gesprungen wird, wenn keines der drei if anweisungen durchgeführt wurde! So wie unten angegeben funktioniert es zwar, aber ausgabe() wird jedesmal aufgerufen. ist ja logisch.
also quasi entweder ausgabe() oder warnung()
und ich kann ausgabe() auch nicht in die if anweisung schreiben, sonst wird es ja drei mal ausgegeben...
Tja eben eine richtige Zwickmühle ;-)
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
sub tab_einf {
&check_doctype();
my $dbh = DBI->connect($DBN,$DBUSER,$DBPASS) or die $DBI::errstr;
my $statement_insert="INSERT INTO $TABELLE VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?)";
my $sth_insert=$dbh->prepare($statement_insert) or die $DBI::errstr;
if ($head_de) {
$sth_insert->execute($identnr,'DE',$doctyp,$docname,$head_de,$deutsch,$date,$ersteller,$werk,$check1,$check2,$check3,$check4) or die $DBI::errstr;
}
if ($head_en) {
$sth_insert->execute($identnr,'EN',$doctyp,$docname,$head_en,$englisch,$date,$ersteller,$werk,$check1,$check2,$check3,$check4) or die $DBI::errstr;
}
if ($head_fr) {
$sth_insert->execute($identnr,'FR',$doctyp,$docname,$head_fr,$franz,$date,$ersteller,$werk,$check1,$check2,$check3,$check4) or die $DBI::errstr;
}
else {
&warnung();
}
ausgabe();
$sth_insert->finish();
$dbh->disconnect();
}<!--EDIT|Kathrin|1106562881-->