my ($self, %params) = @_;
$::form->{use_templates} = $self->defaults->templates ? 'existing' : 'new';
my ($self, %params) = @_;
$::form->{use_templates} = $self->defaults->templates ? 'existing' : 'new';
sub init_all_currencies { SL::DB::Manager::Currency->get_all_sorted }
sub init_all_weightunits { my $unit = SL::DB::Manager::Unit->find_by(name => 'kg'); $unit ? $unit->convertible_units : [] }
sub init_all_templates { +{ SL::Template->available_templates } }
sub init_all_currencies { SL::DB::Manager::Currency->get_all_sorted }
sub init_all_weightunits { my $unit = SL::DB::Manager::Unit->find_by(name => 'kg'); $unit ? $unit->convertible_units : [] }
sub init_all_templates { +{ SL::Template->available_templates } }
-sub init_h_unit_name { first { SL::DB::Manager::Unit->find_by(name => $_) } qw(Std h Stunde) };
+sub init_h_unit_name { first { SL::DB::Manager::Unit->find_by(name => $_) } qw(Std h Stunde) }
+sub init_all_project_types { SL::DB::Manager::ProjectType->get_all_sorted }
+sub init_all_project_statuses { SL::DB::Manager::ProjectStatus->get_all_sorted }
sub init_posting_options {
[ { title => t8("never"), value => 0 },
sub init_posting_options {
[ { title => t8("never"), value => 0 },
$self->render('client_config/form', title => t8('Client Configuration'),
make_chart_title => sub { $_[0]->accno . '--' . $_[0]->description },
make_templates_value => sub { 'templates/' . $_[0] },
);
}
$self->render('client_config/form', title => t8('Client Configuration'),
make_chart_title => sub { $_[0]->accno . '--' . $_[0]->description },
make_templates_value => sub { 'templates/' . $_[0] },
);
}