loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.274, 2011/10/30 20:49:33	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>'
Line 2157 sub handler {	Line 2157 sub handler {
$r->print(&Apache::loncommon::start_page('Resource Publication',$js)	$r->print(&Apache::loncommon::start_page('Resource Publication',$js)
.&Apache::lonhtmlcommon::breadcrumbs()	.&Apache::lonhtmlcommon::breadcrumbs()
.&Apache::loncommon::head_subbox(	.&Apache::loncommon::head_subbox(
&Apache::loncommon::CSTR_pageheader()) # FIXME crumbs broken?	&Apache::loncommon::CSTR_pageheader($docroot.$fn))
);	);

my $thisdisfn=&HTML::Entities::encode($fn,'<>&"');	my $thisdisfn=&HTML::Entities::encode($fn,'<>&"');