Handle text direction when merging

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

diff --git a/lib/stemmaweb/Controller/Relation.pm b/lib/stemmaweb/Controller/Relation.pm
index fd5a452..a8e63d0 100644 (file)
--- a/lib/stemmaweb/Controller/Relation.pm
+++ b/lib/stemmaweb/Controller/Relation.pm
@@ -531,6 +531,9 @@ sub compress :Chained('text') :PathPart :Args(0) {
 
                $m->save($collation);
 
+               if ($collation->direction eq 'RL') {
+                       @nodes = reverse @nodes;
+               }
 
                $c->stash->{'result'} = {
                        success => 1,