Revision a4d74009
Von Niclas Zimmermann vor mehr als 11 Jahren hinzugefügt
| SL/AM.pm | ||
|---|---|---|
| 1103 | 1103 |
|
| 1104 | 1104 |
for my $i (1..$form->{rowcount}) {
|
| 1105 | 1105 |
if ($form->{"curr_$i"} ne $form->{"old_curr_$i"}) {
|
| 1106 |
$query = qq|UPDATE currencies SET curr = '| . $form->{"curr_$i"} . qq|' WHERE curr = '| . $form->{"old_curr_$i"} . qq|'|;
|
|
| 1106 |
$query = qq|UPDATE currencies SET name = '| . $form->{"curr_$i"} . qq|' WHERE name = '| . $form->{"old_curr_$i"} . qq|'|;
|
|
| 1107 | 1107 |
do_query($form, $dbh, $query); |
| 1108 | 1108 |
} |
| 1109 | 1109 |
} |
| 1110 | 1110 |
|
| 1111 | 1111 |
if (length($form->{new_curr}) > 0) {
|
| 1112 |
$query = qq|INSERT INTO currencies (curr) VALUES ('| . $form->{new_curr} . qq|')|;
|
|
| 1112 |
$query = qq|INSERT INTO currencies (name) VALUES ('| . $form->{new_curr} . qq|')|;
|
|
| 1113 | 1113 |
do_query($form, $dbh, $query); |
| 1114 | 1114 |
} |
| 1115 | 1115 |
|
| ... | ... | |
| 1292 | 1292 |
$sth->finish; |
| 1293 | 1293 |
|
| 1294 | 1294 |
#Get currencies: |
| 1295 |
$query = qq|SELECT curr FROM currencies ORDER BY id|; |
|
| 1295 |
$query = qq|SELECT name AS curr FROM currencies ORDER BY id|;
|
|
| 1296 | 1296 |
|
| 1297 | 1297 |
$form->{CURRENCIES} = [];
|
| 1298 | 1298 |
|
| ... | ... | |
| 1304 | 1304 |
$sth->finish; |
| 1305 | 1305 |
|
| 1306 | 1306 |
#Which of them is the default currency? |
| 1307 |
$query = qq|SELECT curr AS defaultcurrency FROM currencies WHERE id = (SELECT curr FROM defaults LIMIT 1);|;
|
|
| 1307 |
$query = qq|SELECT name AS defaultcurrency FROM currencies WHERE id = (SELECT currency_id FROM defaults LIMIT 1);|;
|
|
| 1308 | 1308 |
$sth = $dbh->prepare($query); |
| 1309 | 1309 |
$sth->execute || $form->dberror($query); |
| 1310 | 1310 |
|
Auch abrufbar als: Unified diff
Verbesserungen in Upgrade-Scripten
In den Scripten currencies.pl rm_whitespaces wurden einige Ver-
besserungen durchgeführt:
1. Umbenennung von Spalten curr in currency_id in allen Tabellen
außer currencies.
2. Umbenennung von Spalte curr in name in Tabelle currencies.
3. Update in rm_whitespaces wird jetzt in einer Schleife erledigt
anstatt für jede Tabelle eigenen Code zu schreiben.
4. Tabelle currencies hat jetzt id als Primärschlüssel und nicht
mehr curr.
Die oben aufgeführten Änderungen führen natürlich auch zu notwendigen
Änderungen im Programm, welche dieses Commit ebenfalls enthält.