loncom/publisher/lonpubdir.pm - diff

Return to lonpubdir.pm CVS log

Up to [LON-CAPA] / loncom / publisher

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