igor 8 compatibility

pearl/pearl-data-explorer.ipf

@@ -5,6 +5,7 @@
 #include "pearl-area-import"
 #include "pearl-area-profiles"
 #include "pearl-area-display"
+#include "pearl-compat"
 #include "pearl-pshell-import"
 #if exists("MFR_OpenResultFile")
 #include "pearl-matrix-import"
@@ -826,7 +827,7 @@ static function attributes_notebook(attr_names, attr_values, title)
 	setdatafolder $package_path
 	wave /t/z attr_filter, attr_filter_summary
 
-	string name = CleanupName("nb_" + title[0,28], 0)
+	string name = PearlCleanupName("nb_" + title[0,27])
 	if (WinType(name) == 5)
 		Notebook $name selection={startOfFile, endOfFile}	
 		Notebook $name text=""
@@ -1302,7 +1303,7 @@ function /s itx_suggest_foldername(filename, [ignoredate,sourcename,unique])
 			sprintf nickname, "%s_%s_%s", sourcename, datepart, indexpart
 		endif
 	else
-		nickname = CleanupName(basename, 0)
+		nickname = PearlCleanupName(basename)
 	endif
 	
 	if (unique && CheckName(nickname, 11))