use parent qw(Exporter);
use Exporter qw(import);
-our @EXPORT = qw(requirement_spec_item_jstree_data requirement_spec_item_dependency_list);
+our @EXPORT = qw(requirement_spec_item_tree_node_title requirement_spec_item_jstree_data requirement_spec_item_dependency_list);
use Carp;
+sub requirement_spec_item_tree_node_title {
+ my ($self, $item) = @_;
+
+ return join(' ', map { $_ || '' } ($item->fb_number, $self->truncate($item->parent_id ? $item->description : $item->title, at => 30), '<' . $item->id . '>'));
+}
+
sub requirement_spec_item_jstree_data {
my ($self, $item, %params) = @_;
my $type = !$item->parent_id ? 'section' : 'function-block';
return {
- data => join(' ', map { $_ || '' } ($item->fb_number, $item->title, '<' . $item->id . '>')),
+ data => $self->requirement_spec_item_tree_node_title($item),
metadata => { id => $item->id, type => $type },
attr => { id => "fb-" . $item->id, href => $params{href} || '#', class => $type . '-context-menu' },
children => \@children,