loncom/metadata_database/LONCAPA/lonmetadata.pm - diff

Return to lonmetadata.pm CVS log

Up to [LON-CAPA] / loncom / metadata_database / LONCAPA

version 1.36, 2012/03/15 20:53:27	version 1.37, 2012/03/15 21:54:58
Line 760 sub process_reseval_data {	Line 760 sub process_reseval_data {
#	#
# Process every stored element	# Process every stored element
while (my ($storedkey,$value) = each(%{$evaldata})) {	while (my ($storedkey,$value) = each(%{$evaldata})) {
my ($source,$file,$type) = split('___',$storedkey);	my (@keycomponents) = split('___',$storedkey);
$source = &unescape($source);	my $type=pop(@keycomponents);
	my $file=&unescape(pop(@keycomponents));
	my $source = &unescape(join('___',@keycomponents));
$file = &unescape($file);	$file = &unescape($file);
$value = &unescape($value);	$value = &unescape($value);
" got ".$file."\n ".$type." ".$source."\n";
if ($type =~ /^(avetries\|count\|difficulty\|stdno\|timestamp)$/) {	if ($type =~ /^(avetries\|count\|difficulty\|stdno\|timestamp)$/) {
#	#
# Statistics: $source is course id	# Statistics: $source is course id