OR / AND anwendung - #51512 (Allgemeines zu Perl)

Kathrin

2005-02-02 15:16

User since
2004-12-15
158 Artikel
BenutzerIn
[default_avatar]

sorry ich meinte natürlich in die if anweisung...

taulmarill
nicht schlecht, einfach alle gemeinsamkeiten mal in die ertse if anweisung zu packen :)

hmmm aber mein problem ist leider damit nicht gelöst...
wenn z.B. $head_de und $deutsch angegeben wird, und dazu noch $head_fr ohne $franz dann sollte gar nichts gespeichert werden, sondern fehlermeldung, dass eine Headline ohne text eingegeben wurde...

mein code bis jetzt:

Code: (dl )

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;
my $merker = 0;
if ($head_de and $deutsch and ($check1 || $check2 || $check3 ||$check4) and $ersteller and $werk)
        {
        $sth_insert->execute(.......) or die $DBI::errstr;
        $merker = 1;
        }
if ($head_en and $englisch and ($check1 || $check2 || $check3 ||$check4) and $ersteller and $werk)
        {
        $sth_insert->execute(........) or die $DBI::errstr;
        $merker = 1;
        }
if ($head_fr and $franz and ($check1 || $check2 || $check3 ||$check4) and $ersteller and $werk)
        {
        $sth_insert->execute(.........) or die $DBI::errstr;
        $merker = 1;
        }

if ($merker == 0)  {
        &warnung();
        }
else  {
        &ausgabe();
        }
        $sth_insert->finish();
        $dbh->disconnect();
        }

sub warnung {
        print "<HTML>\n";
        print "<head><title>Warnung</title></head>\n";
        print "<body>\n";
        print "Der Eintrag konnte nicht gespeichert werden!\n";
        unless (($head_de and $deutsch) or ($head_en and $englisch) or ($head_fr and $franz))
        {
                print "<p>Bitte geben Sie einen <b>Text</b> zur Überschrift ein.";
        }
        unless ($check1 or $check2 or $check3 or $check4) {
                print "<p>Bitte geben Sie mindestens einen <b>Betreff für die Maschinen</b> ein.";
        }
        unless ($ersteller)  {
                print "<p>Bitte geben Sie den <b>Namen des Erstellers</b> ein.";
        }
        unless ($werk) {
                 print "<p>Bitte geben Sie den <b>Werksnamen</b> ein.";
        }
        print '<p><input type="button" value="Zur&uuml;ck" onClick="history.back()">';
        print "</body>";
        print "</HTML>";
        }