From: Marius Gavrilescu Date: Wed, 26 Feb 2014 08:14:24 +0000 (+0200) Subject: Use a static list of formats in gruntmaster-problem X-Git-Tag: 5999.000_002~3 X-Git-Url: http://git.ieval.ro/?a=commitdiff_plain;h=f1e0b2b219a0b771c0d2c206564edf518fa4affb;p=gruntmaster-data.git Use a static list of formats in gruntmaster-problem --- 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; }