Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision a4d74009

Von Niclas Zimmermann vor mehr als 11 Jahren hinzugefügt

  • ID a4d740099476b4383a40a21ab5472e75806f3f4f
  • Vorgänger 714a28b1
  • Nachfolger 96dbc076

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.

Unterschiede anzeigen:

SL/CT.pm
71 71
  $sth->finish;
72 72

  
73 73
  #get name of currency instead of id:
74
  $query = qq|SELECT curr FROM currencies WHERE id=?|;
74
  $query = qq|SELECT name AS curr FROM currencies WHERE id=?|;
75 75
  ($form->{curr}) = selectrow_query($form, $dbh, $query, conv_i($form->{curr}));
76 76

  
77 77
  if ( $form->{salesman_id} ) {
......
320 320
    qq|user_password = ?, | .
321 321
    qq|c_vendor_id = ?, | .
322 322
    qq|klass = ?, | .
323
    qq|curr = (SELECT id FROM currencies WHERE curr = ?), | .
323
    qq|currency_id = (SELECT id FROM currencies WHERE name = ?), | .
324 324
    qq|taxincluded_checked = ? | .
325 325
    qq|WHERE id = ?|;
326 326
  my @values = (
......
472 472
    qq|  username = ?, | .
473 473
    qq|  user_password = ?, | .
474 474
    qq|  v_customer_id = ?, | .
475
    qq|  curr = (SELECT id FROM currencies WHERE curr = ?) | .
475
    qq|  currency_id = (SELECT id FROM currencies WHERE name = ?) | .
476 476
    qq|WHERE id = ?|;
477 477
  my @values = (
478 478
    $form->{vendornumber},

Auch abrufbar als: Unified diff