toggle-approved.tcl

Location:

/packages/attachments/www/toggle-approved.tcl

Author:

yon@openforce.net

Created:

2002-08-29

CVS ID:

$Id: toggle-approved.tcl,v 1.4 2017/08/07 23:48:04 gustafn Exp $

Related Files

• packages/attachments/www/toggle-approved.tcl

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {

    @author yon@openforce.net
    @creation-date 2002-08-29
    @cvs-id $Id: toggle-approved.tcl,v 1.4 2017/08/07 23:48:04 gustafn Exp $

} -query {
    {object_id:naturalnum,notnull}
    {item_id:naturalnum,notnull}
    {approved_p:boolean ""}
    {return_url:localurl,notnull}
}

attachments::toggle_approved -object_id $object_id -item_id $item_id -approved_p $approved_p

ad_returnredirect $return_url

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