Revision 9c8450d9
Von Niclas Zimmermann vor mehr als 11 Jahren hinzugefügt
| SL/AM.pm | ||
|---|---|---|
| 1287 | 1287 |
} |
| 1288 | 1288 |
|
| 1289 | 1289 |
$sth->finish; |
| 1290 |
|
|
| 1291 |
#Get currencies: |
|
| 1292 |
$query = qq|SELECT curr FROM currencies ORDER BY id|; |
|
| 1293 |
|
|
| 1294 |
$form->{CURRENCIES} = [];
|
|
| 1295 |
|
|
| 1296 |
$sth = prepare_execute_query($form, $dbh, $query); |
|
| 1297 |
$sth->execute || $form->dberror($query); |
|
| 1298 |
while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {
|
|
| 1299 |
push @{ $form->{ CURRENCIES } } , $ref;
|
|
| 1300 |
} |
|
| 1301 |
$sth->finish; |
|
| 1302 |
|
|
| 1303 |
#Which of them is the default currency? |
|
| 1304 |
$query = qq|SELECT curr AS defaultcurrency FROM currencies WHERE id = (SELECT curr FROM defaults LIMIT 1);|; |
|
| 1305 |
$sth = $dbh->prepare($query); |
|
| 1306 |
$sth->execute || $form->dberror($query); |
|
| 1307 |
|
|
| 1308 |
$form->{defaultcurrency} = ($sth->fetchrow_hashref("NAME_lc"))->{defaultcurrency};
|
|
| 1309 |
|
|
| 1310 |
$sth->finish; |
|
| 1311 |
|
|
| 1290 | 1312 |
$dbh->disconnect; |
| 1291 | 1313 |
|
| 1292 | 1314 |
$main::lxdebug->leave_sub(); |
Auch abrufbar als: Unified diff
Erstelle Tabelle currencies
Für das Upgrade currencies ist es nötig, dass alle Leerzeichen am
Anfang und Ende jeder Währung entfernt werden. Dafür sorgt das
Upgrade rm_whitespaces.pl.
Währungen durch einen Eintrag mit Doppelpunkten zu speichern ist
umständlich und unsicher. Dafür wird nun eine eigene Tabelle erstellt.
Die neue Tabelle currencies erhält 2 Spalten id und curr.
Alle bisherigen Spalten, in der die Währung gespeichert wurde, zeigen
nun auf die id. Die Spalte curr ist ein Textfeld und sollte ein
Kürzel der Währung enthalten (z.B. EUR).
Die Spalte curr in der defaults enthält nun nur noch die Standard-
währung. Dieses Feld sollte IMMER gefüllt sein und kann nach
erstellen der Datenbank nicht geändert werden.