<& /htmlfooter &>

<%args>
$desig
$mpc_desig => undef
$disposition
$submitter
</%args>

<%init>
use PS::MOPS::DC::Instance;

# LD XXX need to wrap this into PS::MOPS::MPC::Export.
my $inst = PS::MOPS::DC::Instance->new(DBNAME => 'psmops_export');
my $dbh = $inst->dbh();
my $sql = <<"SQL";
update export.mpc_sub set mpc_desig=?, disposition=?, submitter=? where desig=?
SQL
$dbh->do($sql, undef, $mpc_desig, $disposition, $submitter, $desig) or die $dbh->errstr;
$m->redirect("/czar/manage_neo.html?desig=$desig");
</%init>
