loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.109, 2005/10/06 22:16:32	version 1.110, 2005/10/06 22:20:30
Line 932 sub present_editable_metadata {	Line 932 sub present_editable_metadata {
my $fn=&Apache::lonnet::filelocation('',$uri);	my $fn=&Apache::lonnet::filelocation('',$uri);
$disuri=~s/^\/\~/\/priv\//;	$disuri=~s/^\/\~/\/priv\//;
$disuri=~s/\.meta$//;	$disuri=~s/\.meta$//;
	$disuri=~s\|^/editupload\|\|;
my $target=$uri;	my $target=$uri;
$target=~s/^\/\~/\/res\/$env{'request.role.domain'}\//;	$target=~s/^\/\~/\/res\/$env{'request.role.domain'}\//;
$target=~s/\.meta$//;	$target=~s/\.meta$//;
Line 985 ENDDEL	Line 986 ENDDEL
%Apache::lonpublisher::metadatakeys=();	%Apache::lonpublisher::metadatakeys=();
my $result=&Apache::lonnet::getfile($fn);	my $result=&Apache::lonnet::getfile($fn);
if ($result == -1){	if ($result == -1){
$r->print('Creating new '.$fn);	$r->print('Creating new '.$disuri);
} else {	} else {
&Apache::lonpublisher::metaeval($result);	&Apache::lonpublisher::metaeval($result);
}	}