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 '. |