[chronojump] Fixed recent bug with on analysis encoder options

[Xavier de Blas <xaviblas src gnome org>]

commit 9993c0bce107445b5af7ea45859dd7e3a957eba0
Author: Xavier de Blas <xaviblas gmail com>
Date:   Thu Nov 14 21:33:42 2013 +0100

    Fixed recent bug with on analysis encoder options

 encoder/graph.R |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)
---
diff --git a/encoder/graph.R b/encoder/graph.R
index 0d4ad38..0bdd346 100644
--- a/encoder/graph.R
+++ b/encoder/graph.R
@@ -1602,8 +1602,10 @@ doProcess <- function(options) {
        print(OutputData2)
        print(SpecialData)
 
+       #TODO: write this clearer
        analysisSingleOrSideSAFE = unlist(strsplit(Analysis, "\\;"))
-       Analysis = analysisSingleOrSideSAFE[1]
+       if(analysisSingleOrSideSAFE[1] == "single" || analysisSingleOrSideSAFE[1] == "side")
+               Analysis = analysisSingleOrSideSAFE[1]
 
        #read AnalysisOptions
        #if is propulsive and rotatory inertial is: "p;ri;0.010" (last is momentum)