loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.423, 2013/11/26 00:25:32	version 1.426, 2014/01/06 17:31:09
Line 514 sub create_submenu {	Line 514 sub create_submenu {
if ($count == $numsub) {	if ($count == $numsub) {
$borderbot = 'border-bottom:1px solid black;';	$borderbot = 'border-bottom:1px solid black;';
}	}
	unless (($href eq '') \|\| ($href =~ /^\#/)) {
	$target = ' target="_top"';
	}
$menu .= '<li style="margin:0;padding:0;'.	$menu .= '<li style="margin:0;padding:0;'.
$borderbot.'"><a href="'.$href.'">';	$borderbot.'"><a href="'.$href.'"'.$target.'>';
if ($translate) {	if ($translate) {
$menu .= &mt($item->[1]);	$menu .= &mt($item->[1]);
} else {	} else {
Line 1387 sub rawconfig {	Line 1390 sub rawconfig {

sub check_for_rcrs {	sub check_for_rcrs {
my $showreqcrs = 0;	my $showreqcrs = 0;
my @reqtypes = ('official','unofficial','community');	my @reqtypes = ('official','unofficial','community','textbook');
foreach my $type (@reqtypes) {	foreach my $type (@reqtypes) {
if (&Apache::lonnet::usertools_access($env{'user.name'},	if (&Apache::lonnet::usertools_access($env{'user.name'},
$env{'user.domain'},	$env{'user.domain'},