projekt kivitendo

package SL::Presenter::RequirementSpecTextBlock;

use strict;

use parent qw(Exporter);

use Exporter qw(import);

our @EXPORT = qw(requirement_spec_text_block_jstree_data);

use Carp;

use SL::JSON;

sub requirement_spec_text_block_jstree_data {

  my ($self, $text_block, %params) = @_;

  return {

    data     => $text_block->title || '',

    metadata => { id =>         $text_block->id, type => 'textblock' },

    attr     => { id => "tb-" . $text_block->id, href => $params{href} || '#', class => 'text-block-context-menu' },

  };

}

1;