From 0c1a74e16cf41487bd3837f1e4942a3f4d0e2b7f Mon Sep 17 00:00:00 2001
From: Rob van Son <r.j.j.h.vanson@gmail.com>
Date: Wed, 9 Jul 2014 15:21:28 +0200
Subject: [PATCH] Corrected up/down of wordlists

---
 Config.praat | 39 ++++++++++++++++++++++++---------------
 1 file changed, 24 insertions(+), 15 deletions(-)

diff --git a/Config.praat b/Config.praat
index 83b74d5..5206e75 100644
--- a/Config.praat
+++ b/Config.praat
@@ -516,11 +516,14 @@ procedure load_word_list .localdir$ .relnumber
             .currentName$ = Get string... '.i'
 			if .currentName$ <> "directory.txt"
 				select Table AllWordLists
-				Append row
-				.te.currentWordlistRow = Get number of rows
-				Set string value... '.te.currentWordlistRow' Name '.currentName$'
-		    	.currentDirectory$ = globalwordlists$+"/"+.currentName$
-				Set string value... '.te.currentWordlistRow' Directory '.currentDirectory$'
+				.listExist = Search column: "Name", .currentName$
+				if not .listExist
+					Append row
+					.te.currentWordlistRow = Get number of rows
+					Set string value... '.te.currentWordlistRow' Name '.currentName$'
+			    	.currentDirectory$ = globalwordlists$+"/"+.currentName$
+					Set string value... '.te.currentWordlistRow' Directory '.currentDirectory$'
+				endif
 			endif
         endfor
         select Strings WordList
@@ -536,11 +539,14 @@ procedure load_word_list .localdir$ .relnumber
             .currentName$ = Get string... '.i'
 			if .currentName$ <> "directory.txt"
 				select Table AllWordLists
-				Append row
-				.te.currentWordlistRow = Get number of rows
-				Set string value... '.te.currentWordlistRow' Name '.currentName$'
-		    	.currentDirectory$ = sgc2wordlists$+"/"+.currentName$
-				Set string value... '.te.currentWordlistRow' Directory '.currentDirectory$'
+				.listExist = Search column: "Name", .currentName$
+				if not .listExist
+					Append row
+					.te.currentWordlistRow = Get number of rows
+					Set string value... '.te.currentWordlistRow' Name '.currentName$'
+			    	.currentDirectory$ = sgc2wordlists$+"/"+.currentName$
+					Set string value... '.te.currentWordlistRow' Directory '.currentDirectory$'
+				endif
 			endif
         endfor
         select Strings WordList
@@ -556,11 +562,14 @@ procedure load_word_list .localdir$ .relnumber
             .currentName$ = Get string... '.i'
 			if .currentName$ <> "directory.txt"
 				select Table AllWordLists
-				Append row
-				.te.currentWordlistRow = Get number of rows
-				Set string value... '.te.currentWordlistRow' Name '.currentName$'
-		    	.currentDirectory$ = .localdir$+"/"+.currentName$
-				Set string value... '.te.currentWordlistRow' Directory '.currentDirectory$'
+				.listExist = Search column: "Name", .currentName$
+				if not .listExist
+					Append row
+					.te.currentWordlistRow = Get number of rows
+					Set string value... '.te.currentWordlistRow' Name '.currentName$'
+			    	.currentDirectory$ = .localdir$+"/"+.currentName$
+					Set string value... '.te.currentWordlistRow' Directory '.currentDirectory$'
+				endif
 			endif
     	endfor
         select Strings WordList
-- 
2.11.4.GIT