X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=stemmaweb%2Flib%2Fstemmaweb%2FController%2FStexaminer.pm;fp=stemmaweb%2Flib%2Fstemmaweb%2FController%2FStexaminer.pm;h=e556e320c4cdae5d5e16667ca742028a9275d137;hb=e41080b62247df50142675a091efb3b369d08f1d;hp=d2aa2617d787fca0938760827f2a735a83ec81b0;hpb=d120c995b9d6154a340858d90b46436af3758d90;p=scpubgit%2Fstemmatology.git

diff --git a/stemmaweb/lib/stemmaweb/Controller/Stexaminer.pm b/stemmaweb/lib/stemmaweb/Controller/Stexaminer.pm
index d2aa261..e556e32 100644
--- a/stemmaweb/lib/stemmaweb/Controller/Stexaminer.pm
+++ b/stemmaweb/lib/stemmaweb/Controller/Stexaminer.pm
@@ -48,6 +48,11 @@ sub index :Path :Args(1) {
 			foreach my $rhash ( @{$loc->{'readings'}} ) {
 				my $gst = wit_stringify( $rhash->{'group'} );
 				$rhash->{'group'} = $gst;
+				my $roots = join( ', ', @{$rhash->{'independent_occurrence'}} );
+				$rhash->{'independent_occurrence'} = $roots;
+				unless( $rhash->{'text'} ) {
+					$rhash->{'text'} = $rhash->{'readingid'};
+				}
 			}
 		}
 		# Values for TT rendering