# get defaults for account numbers and last numbers
AM->defaultaccounts(\%myconfig, \%$form);
+ $form->{ALL_UNITS} = AM->convertible_units(AM->retrieve_all_units(), 'g');
map { $form->{"defaults_${_}"} = $form->{defaults}->{$_} } keys %{ $form->{defaults} };
%countrycodes = User->country_codes;
- $countrycodes{""} = "American English";
$form->{COUNTRYCODES} = [];
foreach $countrycode (sort { $countrycodes{$a} cmp $countrycodes{$b} } keys %countrycodes) {
push @{ $form->{COUNTRYCODES} }, {
$form->{CAN_CHANGE_PASSWORD} = $auth->can_change_password();
$form->{todo_cfg} = { TODO->get_user_config('login' => $form->{login}) };
- $form->{title} = $locale->text('Edit Preferences for #1', $form->{login});
+ $form->{title} = $locale->text('Edit Preferences for #1', $form->{login});
$form->header();
print $form->parse_html_template('am/config');
TODO->save_user_config('login' => $form->{login}, %{ $form->{todo_cfg} || { } });
- $form->redirect($locale->text('Preferences saved!')) if (AM->save_preferences(\%myconfig, \%$form, $webdav));
+ $form->redirect($locale->text('Preferences saved!')) if (AM->save_preferences(\%myconfig, \%$form, 0));
$form->error($locale->text('Cannot save preferences!'));
$lxdebug->leave_sub();
( $form->{'searchid'} ? qq| WHERE snumbers = '| . $searchNo{$form->{'what2search'}} . qq|_| . $form->{'searchid'} . qq|'|
: qq| WHERE snumbers ~ '^| . $searchNo{$form->{'what2search'}} . qq|'|);
- my @ids = selectall_array_query($form, $dbh, $query);
+ my @ids = grep { $_ * 1 } selectall_array_query($form, $dbh, $query);
my $daten .= shift @ids;
$daten .= join '', map { " OR trans_id = $_" } @ids;