epita-std/ACU
Archived
1
0
Fork 0
Code Releases Activity

Fix denfense publication

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-11-21 14:47:36 +01:00
parent b25a862650
commit 44722fdd93
2 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
ACU/Defense.pm
View file

@ -144,6 +144,7 @@ sub genIds ($;$)
} }
else { else {
$grp_i += 1; $grp_i += 1;
$cur_gid = $group->{id};
} }
my $qst_i = 0; my $qst_i = 0;
@ -160,6 +161,7 @@ sub genIds ($;$)
} }
else { else {
$qst_i += 1; $qst_i += 1;
$cur_qid = $question->{id};
} }
my $ans_i = 0; my $ans_i = 0;
@ -176,6 +178,7 @@ sub genIds ($;$)
} }
else { else {
$ans_i += 1; $ans_i += 1;
$cur_aid = $answer->{id};
} }
} }
} }

2
process/files/intradata_get.pl
View file

@ -283,7 +283,7 @@ sub update_defense
if (! -e "$basedir/$year/$project_id/traces/defense_$defense_id/") { if (! -e "$basedir/$year/$project_id/traces/defense_$defense_id/") {
mkdir "$basedir/$year/$project_id/traces/defense_$defense_id/" or die $!; mkdir "$basedir/$year/$project_id/traces/defense_$defense_id/" or die $!;
my ($login, $pass, $uid, $gid) = getpwnam("www-data"); 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 $!; chmod 0775, "$basedir/$year/$project_id/traces/defense_$defense_id/" or die $!;
} }