#!/usr/bin/perl

## from a exercise-id -->
##   shows the questions from  ../MEX/mex.db 
##   accepts an answer 
##   validates the answers it according to  ../MEX/mex.db --> perguntas e rexpostas
##   saves the user inf  ../MEX/user.db --> histório de cada user

use strict;
use utf8::all;
use CGI q(:all);
use Fcntl ;
use Data::Dumper; $Data::Dumper::Terse=2; $Data::Dumper::Indent=2;

BEGIN{
	my $passarola_path = "#PASS_PATH";
	# protect system by only allowing select bins to be executed
	#$ENV{PATH} = "$passarola_path/bin";
	$Exercise::Gen::Verify::passarola_dir="$passarola_path/.passarola/db";
}

use Exercise::Gen::Verify;

print header(-charset=>'utf-8');
print start_html(-title => 'MEX',
#                  -style => { -src => 'styles2.css',
 #                             -type => 'text/css'
                           # }
);

print_hidescript();

my $topid = get_topid();
my ($users_ref, $questions_ref) = get_stats();

my %users = %$users_ref;
my %questions = %$questions_ref;

print "<div align=center><table id='newspaper-b'>\n<tr><td>Aluno\\Exercicio</td>";
for(1..$topid-1){
	print "<td>$_</td>";
}
print "\n<td>Média Alunos</td><tr>\n";



for(keys %users){
	print "<tr><td>$_</td>";
	for my $id(1..$topid-1){
		print "<td>";
		printf ("%.2f", $users{$_}{$id}) if defined $users{$_}{$id};
		print "</td>";
		}
	printf ("<td>%.2f</td></tr>\n", $users{$_}{avg});
}

print "<tr><td>Média Exercícios</td>";
for(1..$topid-1){
	printf("<td>%.2f</td>", $questions{$_});
}

print "<td></td></tr>\n</table></table>";
print end_form, end_html;

sub print_hidescript{
  my $q = q{
<style media="screen" type="text/css">
body {
	margin: 0;
	padding: 0;
	color: #000;
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 80%;
	line-height: 1.4;
}

#newspaper-b{
	font-family:"Lucida Sans Unicode", "Lucida Grande", Sans-Serif;
	font-size:10px;
	width:480px;
	text-align:center;
	border-collapse:collapse;
	border:1px solid #000;
	margin:20px;
}

#newspaper-b th{
	font-weight:bold;
	font-size:12px;
	color:#000;
	padding:10px 10px 10px;
}

#newspaper-b tbody{
	background:#E4E6EB;
}

#newspaper-b td{
	color:000;
	border-top:1px dashed #fff;
	padding:8px;
}

#newspaper-b tbody tr:hover td{
	color:#FFF;
	background:#4E5869;
}

#newspaper-b tbody tr:hover td a{
		color:#FFF;
}
</style>


	};
  print $q;
}