diff --git a/process/files/intradata_get.pl b/process/files/intradata_get.pl
index 793d403..64d7c62 100644
--- a/process/files/intradata_get.pl
+++ b/process/files/intradata_get.pl
@@ -115,8 +115,10 @@ sub grades_generate
 
     for my $login (@logins)
     {
+	log DEBUG, "Generating grades for $login";
 	for my $dir (@trace_dirs)
 	{
+	    log DEBUG, "Generating grades from $dir";
 	    if (-f "$basedir/$year/$project_id/traces/$dir/$login.xml")
 	    {
 		open my $xmltrace, "<", "$basedir/$year/$project_id/traces/$dir/$login.xml" or croak "traces/$dir/$login.xml: $!";
@@ -124,14 +126,21 @@ sub grades_generate
 		my $trace = Trace->new($xmltrace);
 		close $xmltrace;
 
+		log DEBUG, "Fill from file: traces/$dir/$login.xml";
+		log TRACE, $trace->getIds;
+
 		$grading->fill($trace->getIds);
 	    }
 	}
 
+	log DEBUG, "Computed grades: ".$grading->compute();
+
 	open my $xmlgrade, ">", "$basedir/$year/$project_id/grades/$login.xml" or croak "grades/$login.xml";
 	binmode $xmlgrade;
 	print $xmlgrade $grading->computeXML($login);
 	close $xmlgrade;
+
+	$grading->reset();
     }
 
     return "Ok";