Add statement writer support to gruntmaster-problem

diff --git a/gruntmaster-problem b/gruntmaster-problem
index b942897ac41d12388c93b4427474dd0c34a94db0..fa1403e71c3692a7900566a63e78b5eca50f9c39 100755 (executable)
--- a/gruntmaster-problem
+++ b/gruntmaster-problem
@@ -24,6 +24,7 @@ sub cmd_add{
        my $private = prompt('Private?', '-yn') eq 'y';
        my $contest = prompt 'Contest';
        my $author = prompt 'Problem author (full name)';
+       my $writer = prompt 'Problem statement writer (full name)';
        my $owner = prompt 'Problem owner (username)';
        my $level = prompt 'Problem level', -menu => "beginner\neasy\nmedium\nhard";
        my $statement = read_file prompt 'File with problem statement', -complete => 'filenames';
@@ -60,6 +61,7 @@ sub cmd_add{
                level => $level,
                statement => $statement,
                author => $author,
+               writer => $writer,
                owner => $owner,
                generator => $generator,
                runner => $runner,