}
incr index
}
+ rename z39.attributeDetails ""
} else {
.debug-window.top.t insert end "Ingen explain\n"
}
# Procedure explain-check-ok
proc explain-check-ok {target zz category finish} {
- global profile settingsChanged
+ global profile settingsChanged currentDb
puts ""
puts ""
puts $crec
set rec [z39.targetInfo getExplain 1]
-
set trec [z39.targetInfo getExplain 1 targetInfo]
puts "--- targetInfo"
puts $rec
[lindex [lindex [lindex [lindex [lindex $trec 10] 1] 1] 1] 1]
set settingsChanged 1
+ get-attributeDetails $target $currentDb
eval $finish [list $target]
}
# 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