From 44722fdd93472fde6dc631eb7b4e61cea29c5398 Mon Sep 17 00:00:00 2001
From: Mercier Pierre-Olivier <nemunaire@acu.epita.fr>
Date: Thu, 21 Nov 2013 14:47:36 +0100
Subject: [PATCH] Fix denfense publication

---
 ACU/Defense.pm                 | 3 +++
 process/files/intradata_get.pl | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/ACU/Defense.pm b/ACU/Defense.pm
index 6150716..ae14f44 100644
--- a/ACU/Defense.pm
+++ b/ACU/Defense.pm
@@ -144,6 +144,7 @@ sub genIds ($;$)
 	}
 	else {
 	    $grp_i += 1;
+	    $cur_gid = $group->{id};
 	}
 
 	my $qst_i = 0;
@@ -160,6 +161,7 @@ sub genIds ($;$)
 	    }
 	    else {
 		$qst_i += 1;
+		$cur_qid = $question->{id};
 	    }
 
 	    my $ans_i = 0;
@@ -176,6 +178,7 @@ sub genIds ($;$)
 		}
 		else {
 		    $ans_i += 1;
+		    $cur_aid = $answer->{id};
 		}
 	    }
 	}
diff --git a/process/files/intradata_get.pl b/process/files/intradata_get.pl
index afb953f..3efbce9 100644
--- a/process/files/intradata_get.pl
+++ b/process/files/intradata_get.pl
@@ -283,7 +283,7 @@ sub update_defense
     if (! -e "$basedir/$year/$project_id/traces/defense_$defense_id/") {
 	mkdir "$basedir/$year/$project_id/traces/defense_$defense_id/" or die $!;
 	my ($login, $pass, $uid, $gid) = getpwnam("www-data");
-	chown $uid, $gid, "$basedir/$year/$project_id/traces/defense_$defense_id/" or die $!;
+	chown $uid, $gid, "$basedir/$year/$project_id/traces/defense_$defense_id/";# or die $!; #FIXME
 	chmod 0775, "$basedir/$year/$project_id/traces/defense_$defense_id/" or die $!;
     }