Revision 217d32f3
Von Moritz Bunkus vor mehr als 13 Jahren hinzugefügt
| SL/IC.pm | ||
|---|---|---|
| 671 | 671 |
|
| 672 | 672 |
my %columns = ( "assembly" => "id", "parts" => "id" ); |
| 673 | 673 |
|
| 674 |
for my $table (qw(prices partstax makemodel inventory assembly license translation parts)) {
|
|
| 674 |
for my $table (qw(prices partstax makemodel inventory assembly translation parts)) {
|
|
| 675 | 675 |
my $column = defined($columns{$table}) ? $columns{$table} : "parts_id";
|
| 676 | 676 |
do_query($form, $dbh, qq|DELETE FROM $table WHERE $column = ?|, @values); |
| 677 | 677 |
} |
Auch abrufbar als: Unified diff
Feature "Lizenzen" entfernt
Hat grob gesehen niemand benutzt, es funktionierte nicht, und wurde
seit gefühlten 20 Jahren nicht weiter entwickelt.