--- loncom/lonnet/perl/lonnet.pm	2012/05/18 20:03:22	1.1170
+++ loncom/lonnet/perl/lonnet.pm	2012/05/21 18:35:30	1.1172
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1170 2012/05/18 20:03:22 droeschl Exp $
+# $Id: lonnet.pm,v 1.1172 2012/05/21 18:35:30 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -10760,6 +10760,7 @@ sub declutter {
     $thisfn=~s|^adm/wrapper/||;
     $thisfn=~s|^adm/coursedocs/showdoc/||;
     $thisfn=~s/^res\///;
+    $thisfn=~s/^priv\///;
     unless (($thisfn =~ /^ext/) || ($thisfn =~ /\.(page|sequence)___\d+___ext/)) {
         $thisfn=~s/\?.+$//;
     }
@@ -11682,6 +11683,11 @@ B<rolesinit($udom,$username)>: get user
 returns user role, first access and timer interval hashes
 
 =item *
+X<privileged()>
+B<privileged($username,$domain)>: returns a true if user has a
+privileged and active role (i.e. su or dc), false otherwise.
+
+=item *
 X<getsection()>
 B<getsection($udom,$uname,$cname)>: finds the section of student in the
 course $cname, return section name/number or '' for "not in course"