loncom/publisher/loncfile.pm - diff

Return to loncfile.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.97, 2009/05/11 16:51:32	version 1.99, 2009/05/26 16:29:56
Line 1387 function writeDone() {	Line 1387 function writeDone() {
$loaditem{'onload'} = "writeDone()";	$loaditem{'onload'} = "writeDone()";
}	}

	# Breadcrumbs
	&Apache::lonhtmlcommon::clear_breadcrumbs();
	&Apache::lonhtmlcommon::add_breadcrumb({
	'text' => 'Construction Space',
	'href' => '', # FIXME Add link to /priv/[user]
	});
	&Apache::lonhtmlcommon::add_breadcrumb({
	'text' => 'File Operation',
	'title' => 'Construction Space File Operation',
	'href' => '',
	});

$r->print(&Apache::loncommon::start_page('Construction Space File Operation',	$r->print(&Apache::loncommon::start_page('Construction Space File Operation',
$js,	$js,
{'add_entries' => \%loaditem,}));	{'add_entries' => \%loaditem,})
	.&Apache::lonhtmlcommon::breadcrumbs()
	.&Apache::loncommon::head_subbox(
	&Apache::loncommon::CSTR_pageheader())
	);

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

if (($uname ne $env{'user.name'}) \|\| ($udom ne $env{'user.domain'})) {	if (($uname ne $env{'user.name'}) \|\| ($udom ne $env{'user.domain'})) {
$r->print('<p class="LC_warning">'	$r->print('<p class="LC_warning">'
.&mt('Co-Author [_1]:[_2]',$uname,$udom)	.&mt('Co-Author [_1]',$uname.':'.$udom)
.'</p>'	.'</p>'
);	);
}	}