Revision 07427030
Von Sven Schöling vor mehr als 11 Jahren hinzugefügt
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
Warnungen gefixt