X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=gruntmaster-problem;h=3ab12196135a778d6ce1734de7c2e0645933a02c;hb=d923d4bfc488bd13c95975b3b736a86e311948f0;hp=76e921f7fc788ab65d17dac7a89b01f00a15ec75;hpb=646feed421894c0a4b59b4adf6e8c97e14578e14;p=gruntmaster-data.git diff --git a/gruntmaster-problem b/gruntmaster-problem index 76e921f..3ab1219 100755 --- a/gruntmaster-problem +++ b/gruntmaster-problem @@ -2,7 +2,6 @@ use v5.14; use Gruntmaster::Data; -use Gruntmaster::Page::Submit; use IO::Prompter [ -style => 'bold', '-stdio', '-verbatim' ]; use File::Slurp qw/read_file/; @@ -21,7 +20,7 @@ sub prompt_file{ my ($meta, $name, $prefix) = @_; my $filename = prompt '$prefix filename', -complete => 'filenames'; $meta->{files}{$name}{content} = read_file $filename; - $meta->{files}{$name}{format} = prompt '$prefix format', -menu => Gruntmaster::Page::Submit::FORMATS; + $meta->{files}{$name}{format} = prompt '$prefix format', -menu => [qw/C CPP MONO JAVA PASCAL PERL PYTHON/]; $meta->{files}{$name}{name} = prompt "$prefix filename [$filename]", -default => $filename; }