loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.249, 2009/11/24 06:13:20	version 1.251, 2009/11/30 06:32:26
Line 232 sub select_recent {	Line 232 sub select_recent {
unless ($value =~/^error\:/) {	unless ($value =~/^error\:/) {
my $escaped = &Apache::loncommon::escape_url($value);	my $escaped = &Apache::loncommon::escape_url($value);
&Apache::loncommon::inhibit_menu_check(\$escaped);	&Apache::loncommon::inhibit_menu_check(\$escaped);
	if ($area eq 'residx') {
	next if ((!&Apache::lonnet::allowed('bre',$value)) && (!&Apache::lonnet::allowed('bro',$value)));
	}
$return.="\n<option value='$escaped'>".	$return.="\n<option value='$escaped'>".
&unescape((split(/\&/,$recent{$value}))[1]).	&unescape((split(/\&/,$recent{$value}))[1]).
'</option>';	'</option>';
Line 1501 returns: nothing	Line 1504 returns: nothing
$item =~ s/<span(.*?)\/span>//;	$item =~ s/<span(.*?)\/span>//;
$html .= "<li>$item</li>";	$html .= "<li>$item</li>";
}	}
$html .= '</li></ul>';	$html .= '</ul></li>';
if ($category eq 'A') { $html .= "<li>$$links</li>"; }	if ($category eq 'A') { $html .= "<li>$$links</li>"; }
}	}
$$links = $html.'</ul>';	$$links = $html.'</ul>';