loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.68, 2004/05/05 14:12:54	version 1.69, 2004/05/06 17:54:11
Line 980 returns: nothing	Line 980 returns: nothing
if ($menulink && exists($ENV{'request.course.id'}) && $ENV{'request.course.id'} ne '') {	if ($menulink && exists($ENV{'request.course.id'}) && $ENV{'request.course.id'} ne '') {
my $cid = $ENV{'request.course.id'};	my $cid = $ENV{'request.course.id'};
unshift(@Crumbs,{	unshift(@Crumbs,{
href=>'/adm/menu',	href =>'/adm/menu',
title=>'Go to main menu',	title =>'Go to main menu',
text=>$ENV{'course.'.$cid.'.description'},	target =>'_top',
	text =>$ENV{'course.'.$cid.'.description'},
});	});
}	}
my $links .=	my $links .=
Line 990 returns: nothing	Line 991 returns: nothing
map {	map {
$faq = $_->{'faq'} if (exists($_->{'faq'}));	$faq = $_->{'faq'} if (exists($_->{'faq'}));
$bug = $_->{'bug'} if (exists($_->{'bug'}));	$bug = $_->{'bug'} if (exists($_->{'bug'}));
'<a href="'.$_->{'href'}.'" title="'.&mt($_->{'title'}).'">'.	my $result = '<a href="'.$_->{'href'}.'" ';
&mt($_->{'text'}).'</a>'	if (defined($_->{'target'}) && $_->{'target'} ne '') {
	$result .= 'target="'.$_->{'target'}.'" ';
	}
	$result .='title="'.&mt($_->{'title'}).'">'.
	&mt($_->{'text'}).'</a>';
	$result;
} @Crumbs	} @Crumbs
);	);
$links .= '->' if ($links ne '');	$links .= '->' if ($links ne '');