[LON-CAPA-cvs] cvs: loncom /metadata_database/LONCAPA lonmetadata.pm

[www]

www		Thu Mar 15 23:01:59 2012 EDT

  Modified files:              
    /loncom/metadata_database/LONCAPA	lonmetadata.pm 
  Log:
  Work on Bug #6576
  
  
Index: loncom/metadata_database/LONCAPA/lonmetadata.pm
diff -u loncom/metadata_database/LONCAPA/lonmetadata.pm:1.37 loncom/metadata_database/LONCAPA/lonmetadata.pm:1.38
--- loncom/metadata_database/LONCAPA/lonmetadata.pm:1.37	Thu Mar 15 21:54:58 2012
+++ loncom/metadata_database/LONCAPA/lonmetadata.pm	Thu Mar 15 23:01:59 2012
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonmetadata.pm,v 1.37 2012/03/15 21:54:58 www Exp $
+# $Id: lonmetadata.pm,v 1.38 2012/03/15 23:01:59 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -788,8 +788,8 @@
             # $source is $cid\_$sec\_$stdno
             # $value is stat1=value&stat2=value&stat3=value,....
             #
-            my ($cid,$sec,$stdno)=split('&',$source);
-            my $crssec = $cid.'&'.$sec;
+            my ($cid,$sec,$stdno,$part,$instance)=split('&',$source);
+            my $datakey = $cid.'&'.$sec.'&'.$part.'&'.$instance;
             my @Data = split('&',$value);
             my %Statistics;
             while (my ($key,$value) = split('=',pop(@Data))) {
@@ -800,9 +800,9 @@
             #
             # Only store the data if the number of students is greater
             # than the data already stored
-            if (! exists($DynamicData{$file}->{'stats'}->{$crssec}) ||
-                $DynamicData{$file}->{'stats'}->{$crssec}->{'stdno'}<$stdno){
-                $DynamicData{$file}->{'stats'}->{$crssec}=\%Statistics;
+            if (! exists($DynamicData{$file}->{'stats'}->{$datakey}) ||
+                $DynamicData{$file}->{'stats'}->{$datakey}->{'stdno'}<$stdno){
+                $DynamicData{$file}->{'stats'}->{$datakey}=\%Statistics;
             }
         }
     }
@@ -977,7 +977,7 @@
     my $numstu = $data->{'num_students'};
     my $part = $data->{'part'};
     my $symb = $data->{'symb'};
-    my $key = $courseid.'&'.$sections.'&'.$numstu.'&'.$part.'___'.$symb.'___stats';
+    my $key = $courseid.'&'.$sections.'&'.$numstu.'&'.$part.'&'.$symb.'___stats';
     $Store{$key} =
         'course='.$courseid.'&'.
         'sections='.$sections.'&'.