From: Tara L Andrews Date: Mon, 16 Jul 2012 10:48:45 +0000 (+0200) Subject: switch to new version of IDP program X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c30a4fdbd9929f2a74ea5801f0d7ad2518ddb9f1;p=scpubgit%2Fstemmatology.git switch to new version of IDP program --- 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',