loncom/metadata_database/LONCAPA/lonmetadata.pm - diff

Return to lonmetadata.pm CVS log

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

version 1.32, 2011/05/31 02:40:05	version 1.35, 2012/03/14 20:53:56
Line 384 sub create_metadata_storage {	Line 384 sub create_metadata_storage {
$text .= 'idx_'.$colname.' ('.$colname.')';	$text .= 'idx_'.$colname.' ('.$colname.')';
push (@Columns,$text);	push (@Columns,$text);
}	}
$request .= "(".join(", ",@Columns).") TYPE=MyISAM";	$request .= "(".join(", ",@Columns).") ENGINE=MyISAM";
return $request;	return $request;
}	}

Line 463 sub store_metadata {	Line 463 sub store_metadata {
$mdata->{$fname} eq '') {	$mdata->{$fname} eq '') {
push(@MData,'NULL');	push(@MData,'NULL');
} else {	} else {
push(@MData,$mdata->{$fname});	push(@MData, $field->{type} eq 'DATETIME' ?
	sqltime($mdata->{$fname}) : $mdata->{$fname});
}	}
} else {	} else {
push(@MData,undef);	push(@MData,undef);
Line 918 sub process_dynamic_metadata {	Line 919 sub process_dynamic_metadata {
$data{$type.'_list'} = join(',',@{$resdata->{$type}});	$data{$type.'_list'} = join(',',@{$resdata->{$type}});
}	}
}	}
	#
	# NOTE: usage is named sequsage elsewhere in LON-CAPA
	# The translation happens here
	#
if (defined($resdata->{'usage'}) &&	if (defined($resdata->{'usage'}) &&
ref($resdata->{'usage'}) eq 'ARRAY') {	ref($resdata->{'usage'}) eq 'ARRAY') {
$data{'sequsage'} = scalar(@{$resdata->{'usage'}});	$data{'sequsage'} = scalar(@{$resdata->{'usage'}});