--- capa/capa51/GUITools/webpage.tcl	1999/09/28 21:25:37	1.1.1.1
+++ capa/capa51/GUITools/webpage.tcl	2000/01/05 21:11:15	1.3
@@ -172,7 +172,7 @@ proc optionlist { match } {
     }
     set confID [open "class.conf"]
     set aline [gets $confID]
-    while {![eof $confID]} {
+    while {!([eof $confID] && ($aline == ""))} {
 	set type [lindex $aline 3]
 	if { [lsearch $type $match] != -1 } {
 	    set classname [lindex $aline 0]
@@ -195,24 +195,28 @@ proc main {} {
 	class.* -
 	index.* {
 	    puts "Content-type: text/html\n\n"
+	    puts "<!-- class.html 5.1 -->"
 	    puts [subst -nocommands ${class.head}]
 	    optionlist class
 	    puts [subst -nocommands ${class.tail}]
 	}
 	emailid.* {
 	    puts "Content-type: text/html\n\n"
+	    puts "<!-- emailid.html 5.1 -->"
 	    puts [subst -nocommands ${emailid.head}]
 	    optionlist emailid
 	    puts [subst -nocommands ${emailid.tail}]
 	}
 	getid.* {
 	    puts "Content-type: text/html\n\n"
+	    puts "<!-- getid.html 5.1 -->"
 	    puts [subst -nocommands ${getid.head}]
 	    optionlist getid
 	    puts [subst -nocommands ${getid.tail}]
 	}
 	capaid.* {
 	    puts "Content-type: text/html\n\n"
+	    puts "<!-- capaid.html 5.1 -->"
 	    puts [subst -nocommands ${capaid.head}]
 	    optionlist capaid
 	    puts [subst -nocommands ${capaid.tail}]