messages-table.tcl

Search messages for a string

Location:
/packages/forums/lib/message/messages-table.tcl
Author:
Rob Denison <rob@thaum.net>
Created:
2003-12-08
CVS ID:
$Id: messages-table.tcl,v 1.6 2018/04/07 19:07:31 gustafn Exp $

Related Files

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    
    Search messages for a string

    @author Rob Denison (rob@thaum.net)
    @creation-date 2003-12-08
    @cvs-id $Id: messages-table.tcl,v 1.6 2018/04/07 19:07:31 gustafn Exp $

}

set useScreenNameP [parameter::get -parameter "UseScreenNameP" -default 0]

template::list::create -name results -multirow messages -no_data "#forums.No_Messages#" -elements {
    subject {
        label "#forums.Subject#"
        display_template {
            <a href="message-view?message_id=@messages.message_id@">@messages.subject@</a>
        }
    }
    author {
        label "#forums.Author#"
        display_template {
            <a href="user-history?user_id=@messages.user_id@">@messages.author@</a>
        }
    }
    posting_date_pretty {
        label "#forums.Posting_Date#"
    }
}

if {[info exists alt_template] && $alt_template ne ""} {
  ad_return_template $alt_template
}

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