--- loncom/interface/lonhtmlcommon.pm 2009/11/23 14:04:37 1.248
+++ loncom/interface/lonhtmlcommon.pm 2009/11/30 06:32:26 1.251
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common html routines
#
-# $Id: lonhtmlcommon.pm,v 1.248 2009/11/23 14:04:37 wenzelju Exp $
+# $Id: lonhtmlcommon.pm,v 1.251 2009/11/30 06:32:26 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -232,6 +232,9 @@ sub select_recent {
unless ($value =~/^error\:/) {
my $escaped = &Apache::loncommon::escape_url($value);
&Apache::loncommon::inhibit_menu_check(\$escaped);
+ if ($area eq 'residx') {
+ next if ((!&Apache::lonnet::allowed('bre',$value)) && (!&Apache::lonnet::allowed('bro',$value)));
+ }
$return.="\n';
@@ -1138,7 +1141,7 @@ sub crumbs {
my $output='';
unless ($noformat) { $output.='
'; }
$output.=''.$prefix.'/';
- if (($env{'user.adv'}) | ($env{'user.author'})) {
+ if (($env{'user.adv'}) || ($env{'user.author'})) {
my $path=$prefix.'/';
foreach my $dir (split('/',$uri)) {
if (! $dir) { next; }
@@ -1501,7 +1504,7 @@ returns: nothing
$item =~ s///;
$html .= "$item";
}
- $html .= '';
+ $html .= '';
if ($category eq 'A') { $html .= "$$links"; }
}
$$links = $html.'';