Implement JSON call to re-root stemma. #29

[scpubgit/stemmaweb.git] / lib / stemmaweb / Controller / Stemweb.pm

diff --git a/lib/stemmaweb/Controller/Stemweb.pm b/lib/stemmaweb/Controller/Stemweb.pm
index 2a31903..8f7aa4e 100644 (file)
--- a/lib/stemmaweb/Controller/Stemweb.pm
+++ b/lib/stemmaweb/Controller/Stemweb.pm
@@ -89,9 +89,9 @@ sub available :Local :Args(0) {
        my $ua = LWP::UserAgent->new();
        my $resp = $ua->get( $STEMWEB_BASE_URL . '/algorithms/available' );
        if( $resp->is_success ) {
-               $c->stash->{'result'} = $resp->content;
+               $c->stash->{'result'} = decode_json( $resp->content );
        } else {
-               $c->stash->{'result'} = '{}';
+               $c->stash->{'result'} = {};
        }
        $c->forward('View::JSON');
 }
@@ -160,7 +160,6 @@ sub _process_stemweb_result {
                        # Check all stemmata for the given jobid and return them.
                        @$stemmata = grep { $_->came_from_jobid && $_->from_jobid eq $answer->{jobid} } $tradition->stemmata;
                }
-       $DB::single = 1;
                if( @$stemmata ) {
                        # If we got here, success!
                        my @steminfo = map { {