kivitendo/SL/Presenter/RequirementSpecTextBlock.pm @ 90b47258
| bf9adfba | Moritz Bunkus | package SL::Presenter::RequirementSpecTextBlock;
|
||
| 54daa586 | Moritz Bunkus | |||
use strict;
|
||||
use Exporter qw(import);
|
||||
| 0e5e3501 | Sven Schöling | our @EXPORT_OK = qw(requirement_spec_text_block_jstree_data);
|
||
| 54daa586 | Moritz Bunkus | |||
use Carp;
|
||||
use SL::JSON;
|
||||
sub requirement_spec_text_block_jstree_data {
|
||||
| 0e5e3501 | Sven Schöling | my ($text_block, %params) = @_;
|
||
| 54daa586 | Moritz Bunkus | |||
| 786437b6 | Moritz Bunkus | my $class = 'text-block-context-menu tooltip';
|
||
| 90f4ba5d | Moritz Bunkus | $class .= ' flagged' if $text_block->is_flagged;
|
||
| 54daa586 | Moritz Bunkus | return {
|
||
data => $text_block->title || '',
|
||||
| e2f753a4 | Moritz Bunkus | metadata => { id => $text_block->id, type => 'text-block' },
|
||
| 786437b6 | Moritz Bunkus | attr => { id => "tb-" . $text_block->id, href => $params{href} || '#', class => $class, title => $text_block->content_excerpt },
|
||
| 54daa586 | Moritz Bunkus | };
|
||
}
|
||||
| 0e5e3501 | Sven Schöling | sub jstree_data { goto &requirement_spec_text_block_jstree_data }
|
||
| 54daa586 | Moritz Bunkus | 1;
|