loncom/publisher/lonpubdir.pm - diff

Return to lonpubdir.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.121, 2009/05/19 22:52:29	version 1.123, 2009/07/14 12:27:57
Line 209 sub startpage {	Line 209 sub startpage {
{ 'only_body' => 1,}));	{ 'only_body' => 1,}));
}	}

$r->print(&Apache::lonhtmlcommon::breadcrumbs()); # FIXME add breadcrumbs	# Breadcrumbs
	&Apache::lonhtmlcommon::clear_breadcrumbs();
	&Apache::lonhtmlcommon::add_breadcrumb({
	'text' => 'Construction Space',
	'href' => &Apache::loncommon::authorspace(),
	});

	$r->print(&Apache::lonhtmlcommon::breadcrumbs());

$r->print(&Apache::loncommon::head_subbox(	$r->print(&Apache::loncommon::head_subbox(
&Apache::loncommon::CSTR_pageheader(1)));	&Apache::loncommon::CSTR_pageheader(1)));
Line 563 sub putdirectory {	Line 570 sub putdirectory {
}	}
$r->print('<tr class="LC_browser_folder">'.	$r->print('<tr class="LC_browser_folder">'.
'<td><img src="'.	'<td><img src="'.
$Apache::lonnet::perlvar{'lonIconsURL'}.'/folder_closed.gif" alt="folder" /></td>'.	$Apache::lonnet::perlvar{'lonIconsURL'}.'/navmap.folder.closed.gif" alt="folder" /></td>'.
'<td>'.$actionitem.'</td>'.	'<td>'.$actionitem.'</td>'.
'<td><span class="LC_filename"><a href="'.&HTML::Entities::encode($here.'/'.$dirname,'<>&"').'/" target="_parent">'.	'<td><span class="LC_filename"><a href="'.&HTML::Entities::encode($here.'/'.$dirname,'<>&"').'/" target="_parent">'.
$disfilename.'</a></span></td>'.	$disfilename.'</a></span></td>'.