capa/capa51/GUITools/webpage.tcl - diff

Return to webpage.tcl CVS log

Up to [LON-CAPA] / capa / capa51 / GUITools

version 1.2, 1999/12/07 19:10:47	version 1.3, 2000/01/05 21:11:15
Line 195 proc main {} {	Line 195 proc main {} {
class.* -	class.* -
index.* {	index.* {
puts "Content-type: text/html\n\n"	puts "Content-type: text/html\n\n"
	puts "<!-- class.html 5.1 -->"
puts [subst -nocommands ${class.head}]	puts [subst -nocommands ${class.head}]
optionlist class	optionlist class
puts [subst -nocommands ${class.tail}]	puts [subst -nocommands ${class.tail}]
}	}
emailid.* {	emailid.* {
puts "Content-type: text/html\n\n"	puts "Content-type: text/html\n\n"
	puts "<!-- emailid.html 5.1 -->"
puts [subst -nocommands ${emailid.head}]	puts [subst -nocommands ${emailid.head}]
optionlist emailid	optionlist emailid
puts [subst -nocommands ${emailid.tail}]	puts [subst -nocommands ${emailid.tail}]
}	}
getid.* {	getid.* {
puts "Content-type: text/html\n\n"	puts "Content-type: text/html\n\n"
	puts "<!-- getid.html 5.1 -->"
puts [subst -nocommands ${getid.head}]	puts [subst -nocommands ${getid.head}]
optionlist getid	optionlist getid
puts [subst -nocommands ${getid.tail}]	puts [subst -nocommands ${getid.tail}]
}	}
capaid.* {	capaid.* {
puts "Content-type: text/html\n\n"	puts "Content-type: text/html\n\n"
	puts "<!-- capaid.html 5.1 -->"
puts [subst -nocommands ${capaid.head}]	puts [subst -nocommands ${capaid.head}]
optionlist capaid	optionlist capaid
puts [subst -nocommands ${capaid.tail}]	puts [subst -nocommands ${capaid.tail}]