- explain-search-request $target z39.databaseInfo DatabaseInfo $finish \
- explain-check-ok explain-check-fail
+ explain-search-request $target z39.databaseInfo DatabaseInfo \
+ $finish explain-check-15 explain-check-fail
+}
+
+# Procedure explain-check-15
+# AttributeDetails
+proc explain-check-15 {target zz category finish} {
+ show-status Explaining 1 0
+ show-message AttributeDetails
+ explain-search-request $target z39.attributeDetails AttributeDetails \
+ $finish explain-check-ok explain-check-ok