Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 07427030

Von Sven Schöling vor mehr als 11 Jahren hinzugefügt

  • ID 074270304efb5b943490320e80f0e8b9de652fd6
  • Vorgänger a84958db
  • Nachfolger c0931303

Warnungen gefixt

Unterschiede anzeigen:

SL/User.pm
273 273
  # load chart of accounts
274 274
  $dbupdater->process_query($dbh, "sql/$form->{chart}-chart.sql");
275 275

  
276
  my $query = qq|UPDATE defaults SET coa = ?, accounting_method = ?, profit_determination = ?, inventory_system = ?, curr = ?|;
276
  $query = qq|UPDATE defaults SET coa = ?, accounting_method = ?, profit_determination = ?, inventory_system = ?, curr = ?|;
277 277
  do_query($form, $dbh, $query, map { $form->{$_} } qw(chart accounting_method profit_determination inventory_system defaultcurrency));
278 278

  
279 279
  $dbh->disconnect;
......
341 341
sub cmp_script_version {
342 342
  my ($a_from, $a_to, $b_from, $b_to);
343 343
  my ($i, $res_a, $res_b);
344
  my ($my_a, $my_b) = ($a, $b);
344
  my ($my_a, $my_b) = do { no warnings 'once'; ($a, $b) };
345 345

  
346 346
  $my_a =~ s/.*-upgrade-//;
347 347
  $my_a =~ s/.sql$//;

Auch abrufbar als: Unified diff