bugfixes

[d.git] / evade-mail-admin

diff --git a/evade-mail-admin b/evade-mail-admin
index 5b997bd1bf15fcf280ffd39fbe31d2a132824fe3..dc5e37ef2db5385531c390287242c736c56cf7cc 100755 (executable)
--- a/evade-mail-admin
+++ b/evade-mail-admin
@@ -320,6 +320,7 @@ sub action_create {
 
 sub action_choose {
     genopts;
+    $|=1;
     my $template = rhsargs({'redirect'=>$user, 'comment'=>''});
     $template->{'user'} = $user;
     prepare_create();
@@ -350,6 +351,7 @@ sub action_choose {
            1;
        }) {
            my $newrow = { %$template, 'localpart' => $s };
+           insertrow($newrow);
            $dbh->commit();
            prow($newrow);
        } else {