version 1.226, 2007/07/13 19:23:33
|
version 1.228, 2007/08/07 01:52:44
|
Line 841 sub store_metadata {
|
Line 841 sub store_metadata {
|
if (($metadata{'obsolete'}) || ($metadata{'copyright'} eq 'priv') || |
if (($metadata{'obsolete'}) || ($metadata{'copyright'} eq 'priv') || |
($metadata{'copyright'} eq 'custom')) { |
($metadata{'copyright'} eq 'custom')) { |
# remove this entry |
# remove this entry |
$status=&LONCAPA::lonmetadata::delete_metadata($dbh,undef, |
my $delitem = 'url = '.$dbh->quote($metadata{'url'}); |
$metadata{'url'}); |
$status = &LONCAPA::lonmetadata::delete_metadata($dbh,undef,$delitem); |
|
|
} else { |
} else { |
$status = &LONCAPA::lonmetadata::update_metadata($dbh,undef,undef, |
$status = &LONCAPA::lonmetadata::update_metadata($dbh,undef,undef, |
\%metadata); |
\%metadata); |
Line 1440 sub phasetwo {
|
Line 1441 sub phasetwo {
|
&mt('No write permission to user directory, FAIL').'</span>'); |
&mt('No write permission to user directory, FAIL').'</span>'); |
return 0; |
return 0; |
} |
} |
|
|
|
if ($source =~ /\.rights$/) { |
|
$r->print('<p><span class="LC_warning">'.&mt('Warning: It can take up to 1 hour for rights changes to fully propagate.').'</span></p>'); |
|
} |
|
|
print $logfile |
print $logfile |
"\n================= Publish ".localtime()." Phase Two ================\n".$env{'user.name'}.':'.$env{'user.domain'}."\n"; |
"\n================= Publish ".localtime()." Phase Two ================\n".$env{'user.name'}.':'.$env{'user.domain'}."\n"; |
|
|