docbook/instant: fix a few more issues

2018-09-19 11:28:48 -06:00
parent 776e031b60
commit 7712950fb7
2 changed files with 8 additions and 7 deletions
--- a/cde/programs/dtdocbook/doc2sdl/docbook.tcl
+++ b/cde/programs/dtdocbook/doc2sdl/docbook.tcl
@@ -1624,10 +1624,12 @@ proc EndPart {} {

    # check that all the glossed terms have been defined
    foreach name [array names currentGlossArray] {
-	if {[lindex $currentGlossArray($name) 1] != "defined"} {
-	    set glossString [lindex $currentGlossArray($name) 2]
-	    UserError "No glossary definition for \"$glossString\"" no
-	}
+        if {[info exists currentGlossArray($name)]} {
+            if {[lindex $currentGlossArray($name) 1] != "defined"} {
+                set glossString [lindex $currentGlossArray($name) 2]
+                UserError "No glossary definition for \"$glossString\"" no
+            }
+        }
    }

    # delete this glossary array