X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FAM.pm;h=2ec225238a2ca63ab14fd156e73b4cb5846c15ae;hb=a0ae7b99a32757f1ce42e0712429ebef554c6037;hp=0ba1ec8f575917373faa2d7cbfabcb520992eda7;hpb=486d0a3bc8e6ff90823a1b5e0461d0b61c11b771;p=kivitendo-erp.git diff --git a/SL/AM.pm b/SL/AM.pm index 0ba1ec8f5..2ec225238 100644 --- a/SL/AM.pm +++ b/SL/AM.pm @@ -54,6 +54,7 @@ use SL::DB; use SL::GenericTranslations; use SL::Helper::UserPreferences::PositionsScrollbar; use SL::Helper::UserPreferences::PartPickerSearch; +use SL::Helper::UserPreferences::TimeRecording; use SL::Helper::UserPreferences::UpdatePositions; use strict; @@ -106,7 +107,7 @@ sub get_account { # get the taxkeys of the account $form->{ACCOUNT_TAXKEYS} = []; - foreach my $taxkey ( @{ $chart_obj->taxkeys } ) { + foreach my $taxkey ( sort { $b->startdate <=> $a->startdate } @{ $chart_obj->taxkeys } ) { push @{ $form->{ACCOUNT_TAXKEYS} }, { id => $taxkey->id, chart_id => $taxkey->chart_id, tax_id => $taxkey->tax_id, @@ -546,12 +547,16 @@ sub positions_show_update_button { SL::Helper::UserPreferences::UpdatePositions->new()->get_show_update_button(); } +sub time_recording_use_duration { + SL::Helper::UserPreferences::TimeRecording->new()->get_use_duration(); +} + sub save_preferences { $main::lxdebug->enter_sub(); my ($self, $form) = @_; - my $employee = SL::DB::Manager::Employee->find_by(login => $::myconfig{login}); + my $employee = SL::DB::Manager::Employee->current; $employee->update_attributes(name => $form->{name}); my $user = SL::DB::Manager::AuthUser->find_by(login => $::myconfig{login}); @@ -583,6 +588,9 @@ sub save_preferences { if (exists $form->{positions_show_update_button}) { SL::Helper::UserPreferences::UpdatePositions->new()->store_show_update_button($form->{positions_show_update_button}) } + if (exists $form->{time_recording_use_duration}) { + SL::Helper::UserPreferences::TimeRecording->new()->store_use_duration($form->{time_recording_use_duration}) + } $main::lxdebug->leave_sub(); @@ -1207,7 +1215,7 @@ sub _save_tax { chart_categories, id ) - VALUES (?, ?, ?, ?, (SELECT accno FROM chart WHERE id = ?), ?, ?, ?, ?)|; + VALUES (?, ?, ?, ?, ?, ?, ?, ?)|; } push(@values, $form->{id}); do_query($form, $dbh, $query, @values); @@ -1241,6 +1249,8 @@ sub save_warehouse { my ($self, $myconfig, $form) = @_; + croak('Need at least one new bin') unless $form->{number_of_new_bins} > 0; + SL::DB->client->with_transaction(sub { my $dbh = SL::DB->client->dbh;