loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.202, 2008/12/10 21:46:58	version 1.203, 2008/12/15 16:37:44
Line 2245 sub handler {	Line 2245 sub handler {
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
# Give the LON-CAPA page header	# Give the LON-CAPA page header
my @brcrum = [{href=>"/adm/portfolio",text=>"Portfolio Manager"}];	my $brcrum = [{href=>"/adm/portfolio",text=>"Portfolio Manager"}];

if ($env{"form.mode"} eq 'selectfile'){	if ($env{"form.mode"} eq 'selectfile'){
$r->print(&Apache::loncommon::start_page($title,undef,	$r->print(&Apache::loncommon::start_page($title,undef,
{'only_body' => 1}));	{'only_body' => 1}));
Line 2253 sub handler {	Line 2254 sub handler {
$r->print(&Apache::loncommon::start_page('New role-based condition',undef,	$r->print(&Apache::loncommon::start_page('New role-based condition',undef,
{'no_nav_bar' => 1, }));	{'no_nav_bar' => 1, }));
} else {	} else {
$r->print(&Apache::loncommon::start_page($title,undef,{bread_crumbs => @brcrum}));	$r->print(&Apache::loncommon::start_page($title,undef,
	{'bread_crumbs' => $brcrum}));
}	}
$r->rflush();	$r->rflush();
if (!&Apache::lonnet::usertools_access($uname,$udom,'portfolio')) {	if (!&Apache::lonnet::usertools_access($uname,$udom,'portfolio')) {