loncom/metadata_database/LONCAPA/lonmetadata.pm - diff

Return to lonmetadata.pm CVS log

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

version 1.12, 2005/03/11 03:25:18	version 1.13, 2005/11/29 19:56:42
Line 483 sub metadata_col_to_hash {	Line 483 sub metadata_col_to_hash {
my %hash=();	my %hash=();
for (my $i=0; $i<=$#Metadata_Table_Description;$i++) {	for (my $i=0; $i<=$#Metadata_Table_Description;$i++) {
$hash{$Metadata_Table_Description[$i]->{'name'}}=$cols[$i];	$hash{$Metadata_Table_Description[$i]->{'name'}}=$cols[$i];
	unless ($hash{$Metadata_Table_Description[$i]->{'name'}}) {
	if ($Metadata_Table_Description[$i]->{'type'} eq 'TEXT') {
	$hash{$Metadata_Table_Description[$i]->{'name'}}='';
	} elsif ($Metadata_Table_Description[$i]->{'type'} eq 'DATETIME') {
	$hash{$Metadata_Table_Description[$i]->{'name'}}='0000-00-00 00:00:00';
	} else {
	$hash{$Metadata_Table_Description[$i]->{'name'}}=0;
	}
	}
}	}
return %hash;	return %hash;
}	}