loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.150, 2003/12/26 16:27:20	version 1.151, 2003/12/26 18:25:29
Line 767 Returns: (error,status). error is undef	Line 767 Returns: (error,status). error is undef
#########################################	#########################################
#########################################	#########################################
sub store_metadata {	sub store_metadata {
my %metadata = %{shift()};	my %metadata = @_;
my $error;	my $error;
# Determine if the table exists	# Determine if the table exists
my $status = &Apache::lonmysql::check_table('metadata');	my $status = &Apache::lonmysql::check_table('metadata');
Line 784 sub store_metadata {	Line 784 sub store_metadata {
&Apache::lonnet::logthis($error);	&Apache::lonnet::logthis($error);
return ($error,undef);	return ($error,undef);
}	}
# Remove old value from table
$status = &Apache::lonmysql::remove_from_table
('metadata','url',$metadata{'url'});
if (! defined($status)) {
$error = '<font color="red">Error when removing old values from '.
'metadata table in LON-CAPA database.</font>';
&Apache::lonnet::logthis($error);
return ($error,undef);
}
# Store data in table.
$status = &Apache::lonmysql::store_row('metadata',\%metadata);	$status = &Apache::lonmysql::store_row('metadata',\%metadata);
if (! defined($status)) {	if (! defined($status)) {
$error='<font color="red">Error occured storing new values in '.	$error='<font color="red">Error occured storing new values in '.