version 1.461, 2009/12/06 21:18:24
|
version 1.461.2.1, 2010/08/09 23:39:50
|
Line 654 item store_aggregates()
|
Line 654 item store_aggregates()
|
|
|
sub store_aggregates { |
sub store_aggregates { |
my ($symb,$courseid) = @_; |
my ($symb,$courseid) = @_; |
my %aggregate; |
my (%aggregate,%subtracker); |
|
my $tracksub; |
|
if ($symb =~ m{^uploaded/gcitest/$LONCAPA::match_courseid/default_1261144274.sequence___\d+___gci/gci/}) { |
|
$tracksub = 1; |
|
} |
my @parts; |
my @parts; |
my $cdomain = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $cdomain = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $cname = $env{'course.'.$env{'request.course.id'}.'.num'}; |
my $cname = $env{'course.'.$env{'request.course.id'}.'.num'}; |
Line 669 sub store_aggregates {
|
Line 673 sub store_aggregates {
|
$Apache::lonhomework::results{'resource.'.$part.'.award'} |
$Apache::lonhomework::results{'resource.'.$part.'.award'} |
eq 'EXACT_ANS') { |
eq 'EXACT_ANS') { |
$aggregate{$symb."\0".$part."\0correct"} = 1; |
$aggregate{$symb."\0".$part."\0correct"} = 1; |
|
if ($tracksub) { |
|
$subtracker{$env{'user.name'}.':'.$env{'user.domain'}."\0correct"} ++; |
|
} |
} |
} |
if ($Apache::lonhomework::results{'resource.'.$part.'.tries'} == 1) { |
if ($Apache::lonhomework::results{'resource.'.$part.'.tries'} == 1) { |
$aggregate{$symb."\0".$part."\0users"} = 1; |
$aggregate{$symb."\0".$part."\0users"} = 1; |
Line 681 sub store_aggregates {
|
Line 688 sub store_aggregates {
|
} |
} |
} |
} |
$aggregate{$symb."\0".$part."\0attempts"} = 1; |
$aggregate{$symb."\0".$part."\0attempts"} = 1; |
|
if ($tracksub) { |
|
if ($Apache::lonhomework::type eq 'survey') { |
|
$subtracker{$env{'user.name'}.':'.$env{'user.domain'}."\0surveysubs"} ++; |
|
} else { |
|
$subtracker{$env{'user.name'}.':'.$env{'user.domain'}."\0attempts"} ++; |
|
} |
|
} |
} |
} |
if (keys (%aggregate) > 0) { |
if (keys (%aggregate) > 0) { |
&Apache::lonnet::cinc('nohist_resourcetracker',\%aggregate, |
&Apache::lonnet::cinc('nohist_resourcetracker',\%aggregate, |
$cdomain,$cname); |
$cdomain,$cname); |
} |
} |
|
if (keys(%subtracker) > 0) { |
|
&Apache::lonnet::cinc('nohist_submissiontracker',\%subtracker, |
|
$cdomain,$cname); |
|
} |
} |
} |
|
|
sub checkout_msg { |
sub checkout_msg { |