Revision 377efe44
Von Moritz Bunkus vor etwa 18 Jahren hinzugefügt
| sql/Pg-upgrade/Pg-upgrade-2.2.0.27-2.2.0.28.pl | ||
|---|---|---|
| 49 | 49 |
my $form = $main::form; |
| 50 | 50 |
|
| 51 | 51 |
my @valid_coas = map({ s/^sql\///; s/-chart.sql//; $_; } <sql/*-chart.sql>);
|
| 52 |
$main::lxdebug->dump(0, "mufti", \@valid_coas); |
|
| 53 | 52 |
|
| 54 | 53 |
my $query = "SELECT coa FROM defaults"; |
| 55 | 54 |
my ($coa) = $dbh->selectrow_array($query); |
Auch abrufbar als: Unified diff
Debugcode entfernt.