if( $tradition->can('language') ) {
$textinfo->{'language'} = $tradition->language;
}
- my @stemmasvg = map { { name => $_->identifier, svg => $_->as_svg() } }
+ my @stemmasvg = map { {
+ name => $_->identifier,
+ directed => _json_bool( !$_->is_undirected ),
+ svg => $_->as_svg() } }
$tradition->stemmata;
map { $_ =~ s/\n/ /mg } @stemmasvg;
$textinfo->{stemmata} = \@stemmasvg;
$c->stash->{'result'} = {
'stemmaid' => $stemmaid,
'name' => $stemma->identifier,
+ 'directed' => _json_bool( !$stemma->is_undirected ),
'svg' => $stemma_xml };
$c->forward('View::JSON');
}
return 0;
}
+sub _json_bool {
+ return $_[0] ? JSON::true : JSON::false;
+}
+
=head2 default
Standard 404 error page