--- loncom/homework/structuretags.pm	2009/12/06 21:18:24	1.461
+++ loncom/homework/structuretags.pm	2010/08/09 23:39:50	1.461.2.1
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: structuretags.pm,v 1.461 2009/12/06 21:18:24 raeburn Exp $
+# $Id: structuretags.pm,v 1.461.2.1 2010/08/09 23:39:50 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -654,7 +654,11 @@ item store_aggregates()
 
 sub store_aggregates {
     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 $cdomain = $env{'course.'.$env{'request.course.id'}.'.domain'};
     my $cname = $env{'course.'.$env{'request.course.id'}.'.num'};
@@ -669,6 +673,9 @@ sub store_aggregates {
 	    $Apache::lonhomework::results{'resource.'.$part.'.award'}
 	    eq 'EXACT_ANS') {
             $aggregate{$symb."\0".$part."\0correct"} = 1;
+            if ($tracksub) {
+                $subtracker{$env{'user.name'}.':'.$env{'user.domain'}."\0correct"} ++;
+            }
         }
         if ($Apache::lonhomework::results{'resource.'.$part.'.tries'} == 1) {
             $aggregate{$symb."\0".$part."\0users"} = 1;
@@ -681,11 +688,22 @@ sub store_aggregates {
             }
         }
         $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) {
 	&Apache::lonnet::cinc('nohist_resourcetracker',\%aggregate,
                             $cdomain,$cname);
     }
+    if (keys(%subtracker) > 0) {
+        &Apache::lonnet::cinc('nohist_submissiontracker',\%subtracker,
+                            $cdomain,$cname);
+    }
 }
 
 sub checkout_msg {