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