projects
/
ir-tcl-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Removed printf call.
[ir-tcl-moved-to-github.git]
/
client2
/
explain.tcl
diff --git
a/client2/explain.tcl
b/client2/explain.tcl
index
004f59a
..
7a3af17
100644
(file)
--- a/
client2/explain.tcl
+++ b/
client2/explain.tcl
@@
-41,6
+41,7
@@
proc get-attributeDetails {target base} {
}
incr index
}
}
incr index
}
+ rename z39.attributeDetails ""
} else {
.debug-window.top.t insert end "Ingen explain\n"
}
} else {
.debug-window.top.t insert end "Ingen explain\n"
}
@@
-199,7
+200,7
@@
proc prettyDumpR {x ind} {
# Procedure explain-check-ok
proc explain-check-ok {target zz category finish} {
# Procedure explain-check-ok
proc explain-check-ok {target zz category finish} {
- global profile settingsChanged
+ global profile settingsChanged currentDb
puts ""
puts ""
puts ""
puts ""
@@
-210,7
+211,6
@@
proc explain-check-ok {target zz category finish} {
puts $crec
set rec [z39.targetInfo getExplain 1]
puts $crec
set rec [z39.targetInfo getExplain 1]
-
set trec [z39.targetInfo getExplain 1 targetInfo]
puts "--- targetInfo"
puts $rec
set trec [z39.targetInfo getExplain 1 targetInfo]
puts "--- targetInfo"
puts $rec
@@
-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
[lindex [lindex [lindex [lindex [lindex $trec 10] 1] 1] 1] 1]
set settingsChanged 1
+ get-attributeDetails $target $currentDb
eval $finish [list $target]
}
eval $finish [list $target]
}
@@
-271,14
+272,14
@@
proc explain-refresh {target finish} {
# Procedure explain-check
# Checks target for explain database.
# Evals "$finish $target" on 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]} {
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
# 1 day = 86400
if {$time > [expr 0 + $etime]} {
set refresh 1