Thread if anweisung (16 answers)
Opened by Kathrin at 2005-01-24 12:34

Kathrin
 2005-01-24 12:34
#51199 #51199
User since
2004-12-15
158 Artikel
BenutzerIn
[default_avatar]
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 ;-)
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();
}
\n\n

<!--EDIT|Kathrin|1106562881-->

View full thread if anweisung