Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision fa45de43

Von Sven Schöling vor mehr als 11 Jahren hinzugefügt

  • ID fa45de43235dd040e7d64fb20819778f4dc5c27c
  • Vorgänger 4491f15f
  • Nachfolger 5fed92b8

Fehler von Datenbankqueires über $sth->execute statt $DBI::err

Unterschiede anzeigen:

SL/USTVA.pm
518 518
  my $filename = "sql/$table.sql";
519 519

  
520 520
  my $tst = $dbh->prepare("SELECT * FROM $table");
521
  $tst->execute;
522
  if ($DBI::err) {
523

  
521
  $tst->execute || do {
524 522
    #There is no table, read the table from sql/finanzamt.sql
525 523
    print qq|<p>Bitte warten, Tabelle $table wird einmalig in Datenbank:
526 524
    $myconfig->{dbname} als Benutzer: $myconfig->{dbuser} hinzugefügt...</p>|;
......
529 527
    #execute second last call
530 528
    my $dbh = $form->dbconnect($myconfig) or $self->error(DBI->errstr);
531 529
    $dbh->disconnect();
532
  }
530
  };
533 531
  $tst->finish();
534 532

  
535 533
  #$dbh->disconnect();

Auch abrufbar als: Unified diff