}
incr index
}
+ rename z39.attributeDetails ""
} else {
.debug-window.top.t insert end "Ingen explain\n"
}
puts $crec
set rec [z39.targetInfo getExplain 1]
-
set trec [z39.targetInfo getExplain 1 targetInfo]
puts "--- targetInfo"
puts $rec
# 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
}
if {$refresh} {
explain-refresh $target $finish
+# get-attributeDetails $target $base
} else {
eval $finish [list $target]
}