From: Marius Gavrilescu <marius@ieval.ro>
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;
 }