X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FPlack%2FApp%2FGruntmaster.pm;h=7b927d5958b27863254b7f4617f497b2e4294e33;hb=bf660b84639bcfd78ce2851bf6b6169b92f9007a;hp=2c07bd569017005b29bc1fab078529229b74aef8;hpb=25ed3a342819b81afaf9d04c8c6f8db372a22392;p=plack-app-gruntmaster.git

diff --git a/lib/Plack/App/Gruntmaster.pm b/lib/Plack/App/Gruntmaster.pm
index 2c07bd5..7b927d5 100644
--- a/lib/Plack/App/Gruntmaster.pm
+++ b/lib/Plack/App/Gruntmaster.pm
@@ -28,6 +28,7 @@ use constant FORMAT_EXTENSION => {
 	GOLANG => 'go',
 	GOLFSCRIPT => 'gs',
 	HASKELL => 'hs',
+	OBERON => 'm',
 	MONO => 'cs',
 	JAVA => 'java',
 	PASCAL => 'pas',
@@ -106,7 +107,7 @@ sub dispatch_request{
 		},
 
 		sub (/st/:contest) {
-			my @pb = map { [$_->{id}, $_->{name}] } @{problem_list contest => $_{contest}};
+			my @pb = map { [$_->{id}, $_->{name}] } sort { $a->{value} <=> $b->{value} } @{problem_list contest => $_{contest}};
 			response st => 'Standings', {problems => \@pb, st => standings $_{contest}}, 10
 		},
 
@@ -129,7 +130,7 @@ sub dispatch_request{
 		sub (/log/ + ?:contest~&:owner~&:page~&:problem~&:private~&:result~) {
 			forbid $_{private};
 			my ($jobs, $pageinfo) = job_list(%_);
-			response log => 'Job list', {log => $jobs, %$pageinfo}, 5
+			response log => 'Job log', {log => $jobs, %$pageinfo}, 5
 		},
 		sub (/pb/  + ?:owner~&:contest~&:private~)                  {
 			forbid $_{private};