version 1.55, 2004/01/04 00:50:11
|
version 1.56, 2004/01/05 22:13:16
|
Line 271 sub putdirectory {
|
Line 271 sub putdirectory {
|
($dirname eq '.')) { |
($dirname eq '.')) { |
my $kaputt=0; |
my $kaputt=0; |
foreach (keys %{$bombs}) { |
foreach (keys %{$bombs}) { |
if ($_=~/^$resdir\/$disfilename\//) { $kaputt=1; last; } |
if ($_=~m:^\Q$resdir\E/\Q$disfilename\E/:) { $kaputt=1; last; } |
} |
} |
%Apache::lonpublisher::metadatafields=(); |
%Apache::lonpublisher::metadatafields=(); |
%Apache::lonpublisher::metadatakeys=(); |
%Apache::lonpublisher::metadatakeys=(); |
my $construct=$here; |
my $construct=$here; |
$construct=~s/^\/priv\/(\w+)$/\/home\/$1\/public_html/; |
$construct=~s:^/priv/(\w+)$:/home/$1/public_html:; |
&Apache::lonpublisher::metaeval(&Apache::lonnet::getfile( |
&Apache::lonpublisher::metaeval(&Apache::lonnet::getfile( |
$construct.'/'.$dirname.'/default.meta' |
$construct.'/'.$dirname.'/default.meta' |
)); |
)); |