PERL-SQL Anweisungen

[Juha]

Hallo Zusammen

Folgend schildere ich mal mein Problem mit SQL-Anweisungen in meinem Perlprogramm.

Je nach dem was in $absenz steht möchte ich verschiedene Einträge in die Datenbank machen.

steht in $absenz kompensieren so funktioniert der folgende code und es entsteht der richtige Eintrag in der Datenbank!

steht in $absenz eintrag so geht das Programm zwar in die ifschleife aber es wird nichts in die Datenbank eingetragen, wieso nicht?

if($absenz eq "Kompensation")
{
    # Kompensation in Datenbank eintragen
    $db_command = "insert into zeiten
    (
 pers_id,
 def_id,
 zeiten_datum,
 zeiten_zeit
 zeiten_absenz
    )
    values (
 $hash_name->{pers_id},
 1,
 '$startdatum',
 '00:00:00',
 2
 )";
    $add = $dbh->do($db_command);
}
else
{
    if($absenz eq "Eintrag")
    {
 $db_command = "insert into zeiten
 (
  pers_id,
  def_id,
  zeiten_datum,
  zeiten_zeit
  zeiten_absenz
 )
 values (
  $hash_name->{pers_id},
  1,
  '$startdatum',
  '03:00:00',
  2
  )";
 $add = $dbh->do($db_command);
    }
}

Könnt ihr mir da weiterhelfen?
Mit freundlichen Grüssen
Juha