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