X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fstemmaweb%2FController%2FRoot.pm;h=bc86c30baffe246d91ed6646b9538e1c58723188;hb=a919a152d9b5302279c6cfad6d51866082e6325c;hp=8fa2489ffc01d9b94e5b6c085a90d0e02aea5250;hpb=48156ccde369b0fbd72c5efb322e2f6e04f5444b;p=scpubgit%2Fstemmaweb.git

diff --git a/lib/stemmaweb/Controller/Root.pm b/lib/stemmaweb/Controller/Root.pm
index 8fa2489..bc86c30 100644
--- a/lib/stemmaweb/Controller/Root.pm
+++ b/lib/stemmaweb/Controller/Root.pm
@@ -396,21 +396,6 @@ sub stemma :Local :Args(2) {
 	if( $c->req->method eq 'POST' ) {
 		if( $ok eq 'full' ) {
 			my $dot = $c->request->body_params->{'dot'};
-			# Graph::Reader::Dot does not handle bare unicode. We get around this
-			# by wrapping all words in double quotes, as long as they aren't already
-			# wrapped, and as long as they aren't the initial '(di)?graph .*'.
-			# Horrible HACK.
-			my @dlines = split( "\n", $dot );
-			my $wdot = '';
-			foreach( @dlines ) {
-				unless( /^(di)?graph/ ) { # Skip the first line
-					s/(?<!")\b(\w+)\b(?!")/"$1"/g;
-				}
-				$wdot .= "$_\n";
-			}
-			# $dot =~ s/(?<!")\b(?!(?:digraph|stemma)\b)(\w+)\b(?!")/"$1"/g;
-			$dot = $wdot;
-			print STDERR "$dot\n";
 			try {
 				if( $stemmaid eq 'n' ) {
 					# We are adding a new stemma.