#! /bin/sh

cat <<EOF
Content-type: text/html

EOF

PATH=/usr/bin:/bin:$PATH
export PATH

. data/bin/common.sh
. $DATADIR/forms

format_default="selected"
case "$QUERY_fm" in
	"table")	format_table="selected" ; format_default="" ;;
	"line") format_line="selected" ; format_default="" ;;
esac

case "$QUERY_spc" in
	"Any")  QUERY_spc=""
		unset QUERY_spc
	        ;;
	"Bat Game") specialty_bat="selected"
		    specialty_default=""
		    ;;
	"Bingo Machine") specialty_bingo="selected"
			 specialty_default="" ;;
	"Cocktail Table Machine") specialty_cocktail="selected"
				  specialty_default=""
				  ;;
	"Non-Commercial Machine") specialty_noncommercial="selected"
				  specialty_default=""
				  ;;
	"Payout Machine") specialty_payout="selected"
			  specialty_default=""
			  ;;
	"Shaker Ball Machine") specialty_shaker="selected"
			       specialty_default=""
			       ;;
	"Table Top Game") specialty_tabletop="selected"
			  specialty_default=""
			  ;;
	"Wide-Body Machine") specialty_widebody="selected"
			     specialty_default=""
                             ;;
esac

#
# Handle sort order
#

sort_default="selected"
case "$QUERY_so" in
	id) sort_id="selected"; sort_default="" ;;
	date) sort_date="selected"; sort_default="" ;;
	name) sort_name="selected"; sort_default="" ;;
	manufacturer) sort_manufacturer="selected"; sort_default="" ;;
esac


tag_pasture "Search the Internet Pinball Database"
tag_pasture_font 0
tag_pasture_hn 1 "Search the Internet Pinball Database"
tag_pasture_text

cat <<EOF
    <p><form method=get action="$IPD_URL/search.cgi">
    <input type="hidden" name="qf" value="$QUERY_qf">
EOF

cat <<EOF
    <hr noshade size=1>
    <div align=center>
EOF

tag_pasture_linkbar "Instructions" "instructions.html" \
                    "Linking to the IPD" "linking.html" \
                    "New Basic Search" "search.cgi?qf=b" \
                    "New Advanced Search" "search.cgi?qf=x" 

cat <<EOF
    </div>
    <hr noshade size=1>
EOF


if [ -z "$QUERY_qh" ] ; then

    anyfake=""
    if [ -z "$QUERY_any" ] ; then
         anyfake="$QUERY_ppl"
    fi

    case "$QUERY_qf" in
        b) ipd_simple_form ;;
        x) ipd_expert_form ;;
        *) ipd_simple_form ;;
    esac
    
    cat <<EOF
        <p>Sort Order: <select name="so">
	<option value="manufacturer" $sort_manufacturer \
				     $sort_default>By manufacturer
	<option value="date" $sort_date>By date
	<option value="name" $sort_name>By name
	<option value="id" $sort_id>By ID
	</select>
	Format: <select name="fm">
	<option value="table" $format_table $format_default>Detailed
	<option value="line" $format_line>Brief
	</select>
	<input type=submit value="Start Search">
EOF
fi

cat <<EOF
	</form>
        <hr>
EOF


if [ ! -z "$QUERY_STRING" ] ; then
tag_pasture_text_end
    $BINDIR/pdbsearch
else
    echo "<i>No search words</i>"
    tag_pasture_text_end
fi

tag_pasture_text
tag_pasture_footer "The Internet Pinball Database" \
                   data/pinball.db \
                   "Back to the Pinball Pasture" "$PASTURE_URL" \
                   "Back to the Internet Pinball Database" "$IPD_URL"
tag_pasture_text_end
tag_pasture_font_end
tag_pasture_end