loncom/publisher/loncleanup.pm - diff

Return to loncleanup.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.12, 2011/10/23 23:46:07	version 1.13, 2011/10/24 22:39:21
Line 407 sub handler {	Line 407 sub handler {
my $uname;	my $uname;
my $udom;	my $udom;

($uname,$udom)=	($uname,$udom)=&Apache::loncacc::constructaccess($fn);
&Apache::loncacc::constructaccess($fn,$r->dir_config('lonDefDomain'));
unless (($uname) && ($udom)) {	unless (($uname) && ($udom)) {
$r->log_reason($uname.' at '.$udom.	$r->log_reason($uname.' at '.$udom.
' trying to cleanup file '.$env{'form.filename'}.	' trying to cleanup file '.$env{'form.filename'}.
Line 451 sub handler {	Line 450 sub handler {
'</form>'	'</form>'
.&Apache::lonhtmlcommon::start_funclist()	.&Apache::lonhtmlcommon::start_funclist()
.&Apache::lonhtmlcommon::add_item_funclist(	.&Apache::lonhtmlcommon::add_item_funclist(
'<a href="/priv/'.$uname.'/'.$fn.'">'.&mt('Back to Source File').'</a>')	'<a href="/priv/'.$udom.'/'.$uname.'/'.$fn.'">'.&mt('Back to Source File').'</a>')
.&Apache::lonhtmlcommon::add_item_funclist(	.&Apache::lonhtmlcommon::add_item_funclist(
'<a href="/priv/'.$uname.'/'.$dir.'">'.&mt('Back to Source Directory').'</a>')	'<a href="/priv/'.$udom.'/'.$uname.'/'.$dir.'">'.&mt('Back to Source Directory').'</a>')
.&Apache::lonhtmlcommon::end_funclist()	.&Apache::lonhtmlcommon::end_funclist()
.&Apache::loncommon::end_page()	.&Apache::loncommon::end_page()
);	);