loncom/publisher/loncfile.pm - diff

Return to loncfile.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.106.2.1, 2011/11/07 13:38:45	version 1.107, 2011/10/22 21:25:37
Line 175 sub url {	Line 175 sub url {

sub display {	sub display {
my $fn=shift;	my $fn=shift;
$fn=~s-^/home/($match_username)/public_html-/priv/$1-;	$fn=~s/^\/home\/httpd\/html//;
	$fn=~s/\/\.\//\//g;
return '<span class="LC_filename">'.$fn.'</span>';	return '<span class="LC_filename">'.$fn.'</span>';
}	}

Line 1475 function writeDone() {	Line 1476 function writeDone() {
\|;	\|;
$loaditem{'onload'} = "writeDone()";	$loaditem{'onload'} = "writeDone()";
}	}

# Breadcrumbs	# Breadcrumbs
&Apache::lonhtmlcommon::clear_breadcrumbs();	&Apache::lonhtmlcommon::clear_breadcrumbs();
&Apache::lonhtmlcommon::add_breadcrumb({	&Apache::lonhtmlcommon::add_breadcrumb({
Line 1493 function writeDone() {	Line 1494 function writeDone() {
{'add_entries' => \%loaditem,})	{'add_entries' => \%loaditem,})
.&Apache::lonhtmlcommon::breadcrumbs()	.&Apache::lonhtmlcommon::breadcrumbs()
.&Apache::loncommon::head_subbox(	.&Apache::loncommon::head_subbox(
&Apache::loncommon::CSTR_pageheader($fn))	&Apache::loncommon::CSTR_pageheader())
);	);

$r->print('<h3>'.&mt('Location').': '.&display($fn).'</h3>');	$r->print('<h3>'.&mt('Location').': '.&display($fn).'</h3>');