--- loncom/publisher/lonpublisher.pm 2011/10/22 15:16:20 1.268
+++ loncom/publisher/lonpublisher.pm 2011/10/22 22:05:23 1.270
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Publication Handler
#
-# $Id: lonpublisher.pm,v 1.268 2011/10/22 15:16:20 www Exp $
+# $Id: lonpublisher.pm,v 1.270 2011/10/22 22:05:23 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1080,16 +1080,16 @@ sub publish {
# ------------------------------------------------ Check out directory hierachy
my $thisdisfn=$source;
- $thisdisfn=~s/^\/home\/\Q$cuname\E\///;
- my @urlparts=split(/\//,$thisdisfn);
+ $thisdisfn=~s/^\Q$docroot\E\/priv\/\Q$cudom\E\/\Q$cuname\E\///;
+ my @urlparts=('.',split(/\//,$thisdisfn));
$#urlparts--;
- my $currentpath='/home/'.$cuname.'/';
+ my $currentpath=$docroot.'/priv/'.$cudom.'/'.$cuname.'/';
my $prefix='../'x($#urlparts);
- foreach (@urlparts) {
- $currentpath.=$_.'/';
+ foreach my $subdir (@urlparts) {
+ $currentpath.=$subdir.'/';
$scrout.=&metaread($logfile,$currentpath.'default.meta',$prefix);
$prefix=~s|^\.\./||;
}
@@ -1223,14 +1223,12 @@ sub publish {
my $intr_scrout.='
'
.'