--- loncom/metadata_database/LONCAPA/lonmetadata.pm 2012/03/15 20:53:27 1.36 +++ 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.36 2012/03/15 20:53:27 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