[GRASS-SVN] r53425 - grass-addons/grass7/raster/r.mess

[svn_grass at osgeo.org]

Author: pvanbosgeo
Date: 2012-10-16 06:00:35 -0700 (Tue, 16 Oct 2012)
New Revision: 53425

Modified:
   grass-addons/grass7/raster/r.mess/r.mess
Log:
Change to make this script work in GRASS64

Modified: grass-addons/grass7/raster/r.mess/r.mess
===================================================================
--- grass-addons/grass7/raster/r.mess/r.mess	2012-10-16 12:39:16 UTC (rev 53424)
+++ grass-addons/grass7/raster/r.mess/r.mess	2012-10-16 13:00:35 UTC (rev 53425)
@@ -244,7 +244,7 @@
 }
 
 for(i in 1:length(ipl)){
-    envir <- system(paste("r.univar -t map=", ipl[i], " separator=,", sep=""), intern=TRUE) # check: use separator in grass7 / fs in grass64
+    envir <- system(paste("r.univar -t map=", ipl[i], " fs=,", sep=""), intern=TRUE) # for use in grass7, change 'fs' to 'separator
     envir <- as.numeric(unlist(strsplit(envir[2], split=",")))
     envmax <- ifelse(envir[4]==maxp[i],maxp[i]+(maxp[i]-minp[i])*0.001,envir[4])
     envmin <- ifelse(envir[3]==minp[i],minp[i]-(maxp[i]-minp[i])*0.001,envir[3])