loncom/publisher/loncleanup.pm - diff

Return to loncleanup.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.18, 2012/12/05 18:19:45	version 1.22, 2023/07/23 13:16:29
Line 40 use Apache::lonlocal;	Line 40 use Apache::lonlocal;
use Apache::lonnet;	use Apache::lonnet;
use lib '/home/httpd/lib/perl/';	use lib '/home/httpd/lib/perl/';
use LONCAPA;	use LONCAPA;
	use HTML::Entities();


sub latextrans {	sub latextrans {
Line 448 sub handler {	Line 449 sub handler {
$r->send_http_header;	$r->send_http_header;

# Breadcrumbs	# Breadcrumbs
my $brcrum = [{'href' => &Apache::loncommon::authorspace($fn),	my $text = 'Authoring Space';
'text' => 'Construction Space'},	my $href = &Apache::loncommon::authorspace($fn);
	if ($env{'request.course.id'}) {
	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
	if ($href eq "/priv/$cdom/$cnum/") {
	$text = 'Course Authoring Space';
	}
	}
	my $brcrum = [{'href' => $href,
	'text' => $text},
{'href' => '',	{'href' => '',
'text' => 'Cleanup XML Document'}];	'text' => 'Cleanup XML Document'}];