X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/baac72df4777f1d63da63867e893c302b5c0bf5a..c1569bc195865fa5c25c6945bbad78c872fa2046:/SL/DB/RequirementSpecTextBlock.pm diff --git a/SL/DB/RequirementSpecTextBlock.pm b/SL/DB/RequirementSpecTextBlock.pm index b87166d3e..b89eacccf 100644 --- a/SL/DB/RequirementSpecTextBlock.pm +++ b/SL/DB/RequirementSpecTextBlock.pm @@ -4,12 +4,21 @@ use strict; use SL::DB::MetaSetup::RequirementSpecTextBlock; use SL::DB::Manager::RequirementSpecTextBlock; -# ActsAsList does not support position arguments grouped by other -# columns, e.g. by the requirement_spec_id in this case. So we cannot -# use it yet. -# use SL::DB::Helper::ActsAsList; +use SL::DB::Helper::ActsAsList; use SL::Locale::String; +__PACKAGE__->meta->add_relationships( + requirement_spec => { + type => 'one to many', + class => 'SL::DB::RequirementSpec', + column_map => { requirement_spec_id => 'id' }, + }, +); + +__PACKAGE__->meta->initialize; + +__PACKAGE__->configure_acts_as_list(group_by => [qw(requirement_spec_id output_position)]); + sub validate { my ($self) = @_;