loncom/publisher/loncleanup.pm - diff

Return to loncleanup.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.15, 2011/11/03 00:30:32	version 1.16, 2011/11/14 00:20:31
Line 419 sub handler {	Line 419 sub handler {
return HTTP_NOT_ACCEPTABLE;	return HTTP_NOT_ACCEPTABLE;
}	}

$fn=~s{^/priv/$LONCAPA::domain_re/$LONCAPA::username_re}{};

&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;

# Breadcrumbs	# Breadcrumbs
my $brcrum = [{'href' => &Apache::loncommon::authorspace(),	my $brcrum = [{'href' => &Apache::loncommon::authorspace($fn),
'text' => 'Construction Space'},	'text' => 'Construction Space'},
{'href' => '',	{'href' => '',
'text' => 'Cleanup XML Document'}];	'text' => 'Cleanup XML Document'}];

	$fn=~s{^/priv/$LONCAPA::domain_re/$LONCAPA::username_re}{};

$r->print(&Apache::loncommon::start_page('Cleanup XML Document',	$r->print(&Apache::loncommon::start_page('Cleanup XML Document',
undef,	undef,
{'bread_crumbs' => $brcrum,}));	{'bread_crumbs' => $brcrum,}));