version 1.165, 2004/03/31 05:24:00
|
version 1.166, 2004/04/14 18:29:32
|
Line 126 use Apache::loncommon();
|
Line 126 use Apache::loncommon();
|
use Apache::lonmysql; |
use Apache::lonmysql; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::loncfile; |
use Apache::loncfile; |
use Apache::lonmeta; |
use LONCAPA::lonmetadata; |
use Apache::lonmsg; |
use Apache::lonmsg; |
use vars qw(%metadatafields %metadatakeys); |
use vars qw(%metadatafields %metadatakeys); |
|
|
Line 809 sub store_metadata {
|
Line 809 sub store_metadata {
|
$metadata{'url'}."'"); |
$metadata{'url'}."'"); |
if ($#oldmeta==0) { |
if ($#oldmeta==0) { |
# yes, there is one old entry, transfer to newmetadata |
# yes, there is one old entry, transfer to newmetadata |
%newmetadata=&Apache::lonmeta::metadata_col_to_hash(@{$oldmeta[0]}); |
%newmetadata=&LONCAPA::lonmetadata::metadata_col_to_hash(@{$oldmeta[0]}); |
# remove old entry |
# remove old entry |
$status=&Apache::lonmysql::remove_from_table |
$status=&Apache::lonmysql::remove_from_table |
('metadata','url',$metadata{'url'}); |
('metadata','url',$metadata{'url'}); |