--- loncom/metadata_database/LONCAPA/lonmetadata.pm	2012/03/14 20:53:56	1.35
+++ loncom/metadata_database/LONCAPA/lonmetadata.pm	2012/03/15 21:54:58	1.37
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonmetadata.pm,v 1.35 2012/03/14 20:53:56 www Exp $
+# $Id: lonmetadata.pm,v 1.37 2012/03/15 21:54:58 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -760,11 +760,12 @@ sub process_reseval_data {
     #
     # Process every stored element
     while (my ($storedkey,$value) = each(%{$evaldata})) {
-        my ($source,$file,$type) = split('___',$storedkey);
-        $source = &unescape($source);
+        my (@keycomponents) = split('___',$storedkey);
+        my $type=pop(@keycomponents);
+        my $file=&unescape(pop(@keycomponents));
+        my $source = &unescape(join('___',@keycomponents));
         $file = &unescape($file);
         $value = &unescape($value);
-         "    got ".$file."\n        ".$type." ".$source."\n";
         if ($type =~ /^(avetries|count|difficulty|stdno|timestamp)$/) {
             #
             # Statistics: $source is course id
@@ -974,18 +975,18 @@ sub dynamic_metadata_storage {
     my $courseid = $data->{'course'};
     my $sections = $data->{'sections'};
     my $numstu = $data->{'num_students'};
-    my $urlres = $data->{'urlres'};
-    my $key = $courseid.'&'.$sections.'&'.$numstu.'___'.$urlres.'___stats';
+    my $part = $data->{'part'};
+    my $symb = $data->{'symb'};
+    my $key = $courseid.'&'.$sections.'&'.$numstu.'&'.$part.'___'.$symb.'___stats';
     $Store{$key} =
         'course='.$courseid.'&'.
         'sections='.$sections.'&'.
         'timestamp='.time.'&'.
-        'stdno='.$data->{'num_students'}.'&'.
+        'part='.$part.'&'.
+        'stdno='.$numstu.'&'.
         'avetries='.$data->{'mean_tries'}.'&'.
-        'difficulty='.$data->{'deg_of_diff'};
-    if (exists($data->{'deg_of_disc'})) {
-        $Store{$key} .= '&'.'disc='.$data->{'deg_of_disc'};
-    }
+        'difficulty='.$data->{'deg_of_diff'}.'&'.
+        'disc='.$data->{'deg_of_disc'};
     return %Store;
 }