X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;ds=sidebyside;f=gruntmaster-problem;h=3ab12196135a778d6ce1734de7c2e0645933a02c;hb=f1e0b2b219a0b771c0d2c206564edf518fa4affb;hp=76e921f7fc788ab65d17dac7a89b01f00a15ec75;hpb=16fe7a4c26f7680e85adf5d8ad8752f8b3ea113c;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; }