X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fstemmaweb%2FController%2FRoot.pm;h=82fde7dac51bd0e5342e2c9c9a5d86255a411d31;hb=c2b80bba7c5c1620828f6aa4d7ee841bf8d9a8e4;hp=f33761d7db3105ad9aa5b8b3cb242dbbc311a3b7;hpb=ed0ce314499c09f02a26f836cb5828919cc6f3fc;p=scpubgit%2Fstemmaweb.git

diff --git a/lib/stemmaweb/Controller/Root.pm b/lib/stemmaweb/Controller/Root.pm
index f33761d..82fde7d 100644
--- a/lib/stemmaweb/Controller/Root.pm
+++ b/lib/stemmaweb/Controller/Root.pm
@@ -1,6 +1,7 @@
 package stemmaweb::Controller::Root;
 use Moose;
 use namespace::autoclean;
+use JSON qw ();
 use LWP::UserAgent;
 use TryCatch;
 use XML::LibXML;
@@ -324,7 +325,6 @@ sub textinfo :Local :Args(1) {
 	my $textinfo = {
 		textid => $textid,
 		name => $tradition->name,
-		#language => $tradition->language,
 		public => $tradition->public || 0,
 		owner => $tradition->user ? $tradition->user->email : undef,
 		witnesses => [ map { $_->sigil } $tradition->witnesses ],
@@ -332,6 +332,9 @@ sub textinfo :Local :Args(1) {
 	if( $tradition->can('language') ) {
 		$textinfo->{'language'} = $tradition->language;
 	}
+	if( $tradition->can('stemweb_jobid') ) {
+		$textinfo->{'stemweb_jobid'} = $tradition->stemweb_jobid || 0;
+	}
 	my @stemmasvg = map { { 
 			name => $_->identifier, 
 			directed => _json_bool( !$_->is_undirected ),