X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2Fstemmatology.git;a=blobdiff_plain;f=lib%2FText%2FTradition%2FAnalysis.pm;fp=lib%2FText%2FTradition%2FAnalysis.pm;h=96d5607f3717433bc804035d42dd5eb833906a2b;hp=18999526e0afa3c55076c19d7c19713ce8785187;hb=c30a4fdbd9929f2a74ea5801f0d7ad2518ddb9f1;hpb=428bcf0bc79f77a7857b21ef881708faa792e33a

diff --git a/lib/Text/Tradition/Analysis.pm b/lib/Text/Tradition/Analysis.pm
index 1899952..96d5607 100644
--- a/lib/Text/Tradition/Analysis.pm
+++ b/lib/Text/Tradition/Analysis.pm
@@ -508,8 +508,10 @@ sub solve_variants {
 	foreach my $graphkey ( keys %$graph_problems ) {
 		my $graph = $graph_problems->{$graphkey}->{'object'};
 		my $groupings = $graph_problems->{$graphkey}->{'groups'};
-		my $json = encode_json( _safe_wit_strings( $graph, $stemma->collation,
-			$groupings, $witness_map ) );
+		my $req = _safe_wit_strings( $graph, $stemma->collation,
+			$groupings, $witness_map );
+		$req->{'command'} = 'findGroupings';
+		my $json = encode_json( $req );
 		# Send it off and get the result
 		#print STDERR "Sending request: $json\n";
 		my $resp = $ua->post( $solver_url, 'Content-Type' => 'application/json',