#!/usr/local/qddb/bin/qtclsh

lappend auto_path $qddb_library/hx

set dir /var/lib/www/pubcgi/qddb/bugs
set mypath /cgi-bin/qddb/bugs/search
set webmaster webmaster@knotwork.com
set hostname www.knotwork.com
set dbname Bugs
set title "Bugs Search Form"
set opening "Welcome to the Bugs search form"
set message "Please enter any search criteria you like using the standard
<a href=http://www.hsdi.com/qddb>Qddb</a> syntax.    \".*\" in any 
field will bring up all the people who have entered a Bug
and filled in that field.
If you don't know Qddb's simple search syntax, you can read
about it in the
<a href=http://www.hsdi.com/qddb/manual/node15.html>Guide to Qddb</a>.
<br>
"
set signature "The Bugfix Team"

#------- end variable definitions --------

proc QddbBugs_SearchEntryProc {schema} {
	Hx:DefinedEntryForm $schema {
		{Date 14 text 40}
		{Name.First 14 text 20} {Name.Last 12 text 20}
		{Email 14 text 40} 
		{Version 14 text 20}
		{Status 14 label 0} {Status 2 radio 0 0 Open} \
		{Status 2 radio 0 0 "In progress"} {Status 2 radio 0 0 Closed}
		{BugReport 14 textarea 60 5}
		{Comments 14 textarea 60 5}
	}
}

Hx:GenericSearchEngine $dbname $webmaster $hostname $mypath $dir 10 100 \
	$title $opening $message $signature {
	QddbBugs_SearchEntryProc
	Hx:GenericListing
	Hx:FormatTable
	Hx:ColumnSpecs
	Hx:SortSpecs
}

exit 0

