Revision 03457b5b
Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt
| sql/Pg-upgrade2/USTVA_at.pl | ||
|---|---|---|
| 48 | 48 |
q{ DELETE FROM tax.report_variables; },
|
| 49 | 49 |
); |
| 50 | 50 |
|
| 51 |
map({ $self->db_query("DELETE FROM $_ ;", 0); } @clear);
|
|
| 51 |
$self->db_query("DELETE FROM $_") for @clear;
|
|
| 52 | 52 |
|
| 53 | 53 |
return 1; |
| 54 | 54 |
|
| ... | ... | |
| 303 | 303 |
|
| 304 | 304 |
); |
| 305 | 305 |
|
| 306 |
for my $statement ( 0 .. $#copy_statements ) {
|
|
| 307 |
my $query = $copy_statements[$statement]; |
|
| 308 |
#print $query . "<br />"; # Diagnose only! |
|
| 309 |
$self->db_query($query, 0); |
|
| 310 |
} |
|
| 306 |
$self->db_query($_) for @copy_statements; |
|
| 311 | 307 |
|
| 312 | 308 |
return 1; |
| 313 | 309 |
} |
Auch abrufbar als: Unified diff
Perl-Upgrade-Scripte: db_query nun auch mit Bind-Parametern