# Explain Driver
#
# $Log: explain.tcl,v $
-# Revision 1.3 1998-02-12 13:32:42 adam
+# Revision 1.4 1998-04-02 14:32:00 adam
+# Minor changes to EXPLAIN driver.
+#
+# Revision 1.3 1998/02/12 13:32:42 adam
# Updated configuration system.
#
ir-set $zz z39
$zz databaseNames IR-Explain-1
$zz preferredRecordSyntax explain
- $zz search "@attrset exp1 @attr 1=1 $category"
+ $zz search "@attrset exp1 @attr 1=1 @attr 2=3 @attr 3=3 @attr 4=3 $category"
}
# Procedure explain-search-response
# Procedure explain-check-0
# Phase 0: CategoryList
-proc explain-check-0 {target finish} {
+proc explain-check-0 {target zz category finish} {
show-status Explaining 1 0
show-message CategoryList
- explain-search-request $target z39.categoryList TargetInfo $finish \
+ explain-search-request $target z39.categoryList CategoryList $finish \
explain-check-5 explain-check-fail
}
# Procedure explain-refresh
proc explain-refresh {target finish} {
- explain-check-0 $target $finish
+ explain-check-0 $target {} {} $finish
}
# Procedure explain-check