search-form.tcl

Form for search box

Location:

/packages/forums/lib/search/search-form.tcl

Author:

Emmanuelle Raffenne <eraffenne@gmail.com>

Created:

2007-12-23

CVS ID:

$Id: search-form.tcl,v 1.3.2.3 2022/08/23 15:35:33 antoniop Exp $

Related Files

• packages/openacs-bootstrap3-theme/resources/templates/packages/forums/lib/search/search-form.tcl
• packages/openacs-bootstrap3-theme/resources/templates/packages/forums/lib/search/search-form.adp
• packages/forums/lib/search/search-form.tcl
• packages/forums/lib/search/search-form.adp

[ hide source ] | [ make this the default ]

File Contents

ad_include_contract {
    Form for search box

    @author Emmanuelle Raffenne (eraffenne@gmail.com)
    @creation-date 2007-12-23
    @cvs-id $Id: search-form.tcl,v 1.3.2.3 2022/08/23 15:35:33 antoniop Exp $
} {
    forum_id:object_type(forums_forum),optional
}

form create search -action search -has_submit 0
forums::form::search search

if { [form is_request search] && [info exists forum_id] } {
    element set_properties search forum_id -value $forum_id
}

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: