--- loncom/interface/lonhtmlcommon.pm 2009/11/24 06:13:20 1.249
+++ 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.249 2009/11/24 06:13:20 raeburn 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';
@@ -1501,7 +1504,7 @@ returns: nothing
$item =~ s///;
$html .= "$item";
}
- $html .= '';
+ $html .= '';
if ($category eq 'A') { $html .= "$$links"; }
}
$$links = $html.'';