Archived
1
0
Fork 0

Fix denfense publication

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

View file

@ -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};
}
}
}

View file

@ -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 $!;
}