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 (file)
--- 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',