X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/1c82a10ebeac06882c948e74bb94edb6f8a14495..63a18ccadab9564ec780c5087e3be498f25f5382:/bin/mozilla/is.pl diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl index 2f1f9b735..e73dc4f53 100644 --- a/bin/mozilla/is.pl +++ b/bin/mozilla/is.pl @@ -45,6 +45,7 @@ use English qw(-no_match_vars); use SL::DB::Default; use SL::DB::Customer; +use SL::DB::Department; use SL::DB::Invoice; use SL::DB::PaymentTerm; @@ -274,7 +275,7 @@ sub form_header { "currencies" => "ALL_CURRENCIES", "price_factors" => "ALL_PRICE_FACTORS"); - $form->{ALL_DEPARTMENTS} = SL::DB::Manager::Department->get_all; + $form->{ALL_DEPARTMENTS} = SL::DB::Manager::Department->get_all_sorted; # Projects my @old_project_ids = uniq grep { $_ } map { $_ * 1 } ($form->{"globalproject_id"}, map { $form->{"project_id_$_"} } 1..$form->{"rowcount"}); @@ -309,7 +310,6 @@ sub form_header { ] ] ]); - $TMPL_VAR{department_labels} = sub { "$_[0]->{description}--$_[0]->{id}" }; # currencies and exchangerate my @values = map { $_ } @{ $form->{ALL_CURRENCIES} };