minor tweaks to display logic

[scpubgit/stemmatology.git] / stemmaweb / lib / stemmaweb / Controller / Stexaminer.pm

diff --git a/stemmaweb/lib/stemmaweb/Controller/Stexaminer.pm b/stemmaweb/lib/stemmaweb/Controller/Stexaminer.pm
index d2aa261..e556e32 100644 (file)
--- 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