candidate-delete.tcl

Location:

/packages/oct-election/www/candidate-delete.tcl

CVS ID:

$Id: candidate-delete.tcl,v 1.4 2014/08/07 07:32:17 gustafn Exp $

Related Files

• packages/oct-election/www/candidate-delete.tcl

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    @cvs-id $Id: candidate-delete.tcl,v 1.4 2014/08/07 07:32:17 gustafn Exp $
} {
    candidate_id:naturalnum,notnull
    election_id:naturalnum,notnull
} 

auth::require_login
permission::require_permission -object_id [ad_conn package_id] -privilege admin

db_dml candidate_delete {
    delete from oct_candidate 
    where candidate_id = :candidate_id
}

ad_returnredirect [export_vars -base "election" {election_id}]