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

diff --git a/client2/explain.tcl b/client2/explain.tcl
index 004f59a..fcf2455 100644
--- a/client2/explain.tcl
+++ b/client2/explain.tcl
@@ -41,6 +41,7 @@ proc get-attributeDetails {target base} {
 			}	
 			incr index
 		}
+		rename z39.attributeDetails ""
 	} else {
 		.debug-window.top.t insert end "Ingen explain\n"
 	}
@@ -210,7 +211,6 @@ proc explain-check-ok {target zz category finish} {
     puts $crec
 
     set rec [z39.targetInfo getExplain 1]
-
     set trec [z39.targetInfo getExplain 1 targetInfo]
     puts "--- targetInfo"
     puts $rec
@@ -271,14 +271,14 @@ proc explain-refresh {target finish} {
 # Procedure explain-check
 #   Checks target for explain database.
 #   Evals "$finish $target" on finish.
-proc explain-check {target finish} {
+proc explain-check {target finish base} {
     global profile
     
     set refresh 0
     set time [clock seconds]
     set etime $profile($target,timeLastExplain)
     if {[string length $etime]} {
-        # Check last explain. If 1 day since last explain do explain egain.
+        # Check last explain. If 1 day since last explain do explain again.
         # 1 day = 86400
         if {$time > [expr 0 + $etime]} {
 	    	set refresh 1
@@ -295,6 +295,7 @@ proc explain-check {target finish} {
     }
     if {$refresh} {
 		explain-refresh $target $finish
+#		get-attributeDetails $target $base
     } else {
 		eval $finish [list $target]
     }