loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.275, 2011/10/31 17:27:10	version 1.276, 2011/11/07 18:29:17
Line 1880 sub publishdirectory {	Line 1880 sub publishdirectory {
$thisdisfn=~s/\/+/\//g;	$thisdisfn=~s/\/+/\//g;
my $thisdisresdir=$thisdisfn;	my $thisdisresdir=$thisdisfn;
$thisdisresdir=~s/^\/priv\//\/res\//;	$thisdisresdir=~s/^\/priv\//\/res\//;
my $resdir='/home/httpd/html'.$thisdisresdir;	my $resdir = $r->dir_config('lonDocRoot').$thisdisresdir;
$r->print(&Apache::lonhtmlcommon::start_pick_box()	$r->print(&Apache::lonhtmlcommon::start_pick_box()
.&Apache::lonhtmlcommon::row_title(&mt('Directory'))	.&Apache::lonhtmlcommon::row_title(&mt('Directory'))
.'<span class="LC_filename">'.$thisdisfn.'</span>'	.'<span class="LC_filename">'.$thisdisfn.'</span>'