#!/usr/local/bin/perl
# edit_assign.cgi
# Edit an existing mail user assigment

require './qmail-lib.pl';
&ReadParse();
@assigns = &list_assigns();
$a = $assigns[$in{'idx'}];

&header($text{'sform_edit'}, "");
print "<hr>\n";
&assign_form($a);
print "<hr>\n";
&footer("list_assigns.cgi", $text{'assigns_return'});

