choose-thread-move.tcl

Show a list of available messages so that user can choose one.

Location:
/packages/forums/lib/message/choose-thread-move.tcl
Author:
Natalia Perez <nperper@it.uc3m.es>
Created:
2005-03-17

Related Files

[ hide source ] | [ make this the default ]

File Contents

# packages/forums/admin/moderate/choose_message_move.tcl

ad_page_contract {

    Show a list of available messages so that user can choose one.

    @author Natalia Perez (nperper@it.uc3m.es)
    @creation-date 2005-03-17    
} {
    {return_url:localurl "../message-view"}
} -properties {
    context:onevalue
} -validate {
} -errors {
}

 template::list::create \
    -name available_messages \
    -multirow messages \
    -key message_id \
    -elements {
        selected {
        label #forums.Selected#
        display_template {
            <input name="selected_message" value="@messages.message_id@" type="radio" title="Move to @messages.name@ @messages.subject@">        
        }
    }
    message_id {
        hide_p 1
    }
    forum_id {
        label #forums.Name_of_forum#
        display_col name
    }
    message_subject {
        label #forums.Message_Subject#
        display_col subject
    }
    }


db_0or1row get_package_id "select distinct(package_id) from forums_forums where forum_id = $message(forum_id)"        
db_multirow messages get_messages "
    select fm.forum_id, fm.message_id, fm.subject, ff.name 
    from forums_messages fm, forums_forums ff
    where ff.package_id = :package_id and ff.enabled_p='t' and fm.message_id <> $message(message_id) and fm.parent_id is null
    and fm.forum_id = ff.forum_id
    order by fm.forum_id
"


set msg_id $message(message_id)

# set context & title
set context [list "[_ forums.Available_Messages]"]
set title "[_ forums.Available_Messages]"

        

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