Revision 1960c18c
Von Moritz Bunkus vor etwa 18 Jahren hinzugefügt
| sql/Pg-upgrade/Pg-upgrade-2.2.0.33-2.2.0.34.pl | ||
|---|---|---|
|
sub create_buchungsgruppen {
|
||
|
my $form = $main::form;
|
||
|
|
||
|
$main::lxdebug->dump(0, "gaby", $form);
|
||
|
for (my $i = 1; $i <= $form->{"rowcount"}; $i++) {
|
||
|
next unless ($form->{"description_$i"} &&
|
||
|
$form->{"inventory_accno_id_$i"} &&
|
||
| ... | ... | |
|
push(@values, (split(/--/, $form->{"${acc}_${i}"}))[0]);
|
||
|
}
|
||
|
|
||
|
$main::lxdebug->dump(0, "klaus$i", \@values);
|
||
|
|
||
|
mydoquery($query, @values);
|
||
|
$main::lxdebug->message(0, "nachklausi$i");
|
||
|
}
|
||
|
|
||
|
$main::lxdebug->message(0, "commit: " . $dbh->commit());
|
||
|
$main::lxdebug->message(0, "errstr: " . $dbh->errstr);
|
||
|
$dbh->commit();
|
||
|
$dbh->begin_work();
|
||
|
}
|
||
|
|
||
Auch abrufbar als: Unified diff
Debugcode entfernt.