X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fstemmaweb%2FController%2FStexaminer.pm;h=535bd296fac4cb45065f7638d9e6587f8d3225fd;hb=fdb375813058a9ce84302986d594f4f08cc9f291;hp=0b5b39580ca7d9b3a35004363dc095e694986440;hpb=d3cdef68c7090fe2883ed66d69a325cc0f47b59e;p=scpubgit%2Fstemmaweb.git diff --git a/lib/stemmaweb/Controller/Stexaminer.pm b/lib/stemmaweb/Controller/Stexaminer.pm index 0b5b395..535bd29 100644 --- a/lib/stemmaweb/Controller/Stexaminer.pm +++ b/lib/stemmaweb/Controller/Stexaminer.pm @@ -46,7 +46,9 @@ sub index :Path :Args(2) { if( $tradition->stemma_count ) { my $stemma = $tradition->stemma( $stemid ); - $c->stash->{svg} = $stemma->as_svg( { size => [ 600, 350 ] } ); + my $svgstr = $stemma->as_svg(); + $svgstr =~ s/\n/ /g; + $c->stash->{svg} = $svgstr; $c->stash->{graphdot} = $stemma->editable({ linesep => ' ' }); $c->stash->{text_id} = $textid; $c->stash->{text_title} = $tradition->name; @@ -139,7 +141,7 @@ sub graphsvg :Local { open my $stemma_fh, '<', \$dot; binmode( $stemma_fh, ':encoding(UTF-8)' ); my $tempstemma = Text::Tradition::Stemma->new( 'dot' => $stemma_fh ); - my $svgopts = { size => [ 600, 350 ] }; + my $svgopts = {}; if( @layerwits ) { $svgopts->{'layerwits'} = \@layerwits; }