--- loncom/metadata_database/LONCAPA/lonmetadata.pm 2012/03/14 20:53:56 1.35 +++ loncom/metadata_database/LONCAPA/lonmetadata.pm 2012/03/15 20:53:27 1.36 @@ -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.36 2012/03/15 20:53:27 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -974,18 +974,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; }