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
Items added to medium-MARC record display.
[ir-tcl-moved-to-github.git]
/
client2
/
explain.tcl
diff --git
a/client2/explain.tcl
b/client2/explain.tcl
index
fcf2455
..
7a3af17
100644
(file)
--- 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} {
# Procedure explain-check-ok
proc explain-check-ok {target zz category finish} {
- global profile settingsChanged
+ global profile settingsChanged currentDb
puts ""
puts ""
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
[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]
}
@@
-295,7
+296,6
@@
proc explain-check {target finish base} {
}
if {$refresh} {
explain-refresh $target $finish
}
if {$refresh} {
explain-refresh $target $finish
-# get-attributeDetails $target $base
} else {
eval $finish [list $target]
}
} else {
eval $finish [list $target]
}