loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

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'});