version 1.236, 2008/05/19 18:43:16
|
version 1.237, 2008/05/28 22:22:35
|
Line 850 sub store_metadata {
|
Line 850 sub store_metadata {
|
return ($error,undef); |
return ($error,undef); |
} |
} |
my $dbh = &Apache::lonmysql::get_dbh(); |
my $dbh = &Apache::lonmysql::get_dbh(); |
if (($metadata{'obsolete'}) || ($metadata{'copyright'} eq 'priv') || |
if (($metadata{'obsolete'}) || ($metadata{'copyright'} eq 'priv')) { |
($metadata{'copyright'} eq 'custom')) { |
|
# remove this entry |
# remove this entry |
my $delitem = 'url = '.$dbh->quote($metadata{'url'}); |
my $delitem = 'url = '.$dbh->quote($metadata{'url'}); |
$status = &LONCAPA::lonmetadata::delete_metadata($dbh,undef,$delitem); |
$status = &LONCAPA::lonmetadata::delete_metadata($dbh,undef,$delitem); |