[chronojump] Fixed bug on graph.R

[Xavier de Blas <xaviblas src gnome org>]

commit 0a6fd97d22b43f4bc146d7e2235ed92102aa4f90
Author: Xavier de Blas <xaviblas gmail com>
Date:   Mon Jan 21 11:29:29 2013 +0100

    Fixed bug on graph.R

 encoder/graph.R |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)
---
diff --git a/encoder/graph.R b/encoder/graph.R
index 206e40b..317cc2c 100644
--- a/encoder/graph.R
+++ b/encoder/graph.R
@@ -533,7 +533,7 @@ paint <- function(rawdata, eccon, xmin, xmax, yrange, knRanges, superpose, highl
 	}
 }
 
-paintPowerPeakPowerBars <- function(title, paf, myEccons, Eccon, height, n) {
+paintPowerPeakPowerBars <- function(singleFile, title, paf, myEccons, Eccon, height, n) {
 	pafColors=c("tomato1","tomato4",topo.colors(10)[3])
 	myNums = rownames(paf)
 	height = abs(height/10)
@@ -1028,11 +1028,11 @@ doProcess <- function(options) {
 
 		if(Analysis == "powerBars") {
 			if(! singleFile) 
-				paintPowerPeakPowerBars(Title, paf, 
+				paintPowerPeakPowerBars(singleFile, Title, paf, 
 							curves[,8], Eccon,	 	#myEccon, Eccon
 							curvesHeight, n)			#height
 			else 
-				paintPowerPeakPowerBars(Title, paf, 
+				paintPowerPeakPowerBars(singleFile, Title, paf, 
 							curves[,8], Eccon,		#myEccon, Eccon
 							rawdata.cumsum[curves[,2]]-curves[,3], n) #height
 		}