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 "\n";
print "Warnung\n";
print "\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 "
Bitte geben Sie einen Text zur Überschrift ein.";
}
unless ($check1 or $check2 or $check3 or $check4) {
print "
Bitte geben Sie mindestens einen Betreff für die Maschinen ein.";
}
unless ($ersteller) {
print "
Bitte geben Sie den Namen des Erstellers ein.";
}
unless ($werk) {
print "