X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=client2%2Fexplain.tcl;fp=client2%2Fexplain.tcl;h=7a3af17cfa22d9b6e12d8abc43f36077c87b3a16;hb=b9f97a478872ed0bdb483e50805529b0d73cf6fc;hp=fcf2455b82253228ff1b2547645fcbb3581db6f8;hpb=28500a1e0369e989973f214e839039e9f9e38622;p=ir-tcl-moved-to-github.git

diff --git a/client2/explain.tcl b/client2/explain.tcl
index fcf2455..7a3af17 100644
--- a/client2/explain.tcl
+++ b/client2/explain.tcl
@@ -200,7 +200,7 @@ proc prettyDumpR {x ind} {
 
 # Procedure explain-check-ok
 proc explain-check-ok {target zz category finish} {
-    global profile settingsChanged
+    global profile settingsChanged currentDb
 
     puts ""
     puts ""
@@ -259,6 +259,7 @@ proc explain-check-ok {target zz category finish} {
 		[lindex [lindex [lindex [lindex [lindex $trec 10] 1] 1] 1] 1]
     
     set settingsChanged 1
+    get-attributeDetails $target $currentDb
 
     eval $finish [list $target]
 }
@@ -295,7 +296,6 @@ proc explain-check {target finish base} {
     }
     if {$refresh} {
 		explain-refresh $target $finish
-#		get-attributeDetails $target $base
     } else {
 		eval $finish [list $target]
     }