--- loncom/auth/lonroles.pm 2003/12/30 22:45:59 1.81
+++ loncom/auth/lonroles.pm 2004/03/09 21:01:55 1.88
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# User Roles Screen
#
-# $Id: lonroles.pm,v 1.81 2003/12/30 22:45:59 www Exp $
+# $Id: lonroles.pm,v 1.88 2004/03/09 21:01:55 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -25,20 +25,6 @@
#
# http://www.lon-capa.org/
#
-# (Directory Indexer
-# (Login Screen
-# YEAR=1999
-# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14 Gerd Kortemeyer)
-# 11/23 Gerd Kortemeyer)
-# YEAR=2000
-# 1/14,03/06,06/01,07/22,07/24,07/25,
-# 09/04,09/06,09/28,09/29,09/30,10/2,10/5,10/26,10/28,
-# 12/08,12/28,
-# YEAR=2001
-# 01/15/01 Gerd Kortemeyer
-# 03/02,05/03,05/25,05/30,06/01,07/06,08/06 Gerd Kortemeyer
-# 12/29 Gerd Kortemeyer
-#
###
package Apache::lonroles;
@@ -77,17 +63,6 @@ ENDREDIR
return;
}
-sub authorbombs {
- my ($uname,$udom)=@_;
- my %bombs=&Apache::lonmsg::all_url_author_res_msg($uname,$udom);
- foreach (keys %bombs) {
- if ($_=~/^$udom\/$uname\//) {
- return '';
- }
- }
- return '';
-}
-
sub handler {
my $r = shift;
@@ -167,6 +142,10 @@ ENDENTERKEY
}
}
}
+ &Apache::lonnet::log($ENV{'user.domain'},
+ $ENV{'user.name'},
+ $ENV{'user.home'},
+ "Role ".$trolecode);
my $tadv=0;
if (($trolecode!~/^st/) &&
($trolecode!~/^ta/) &&
@@ -248,8 +227,10 @@ ENDENTERKEY
my $swinfo=&Apache::lonmenu::rawconfig();
my $bodytag=&Apache::loncommon::bodytag('User Roles');
- my $helptag=&Apache::loncommon::help_open_topic
- ("General_Intro",&mt("Click here for help"));
+ my $helptag='
'.&Apache::loncommon::help_open_topic + ("General_Intro",&mt("Click here for help")).' | '. + &Apache::loncommon::help_open_faq(1,&mt('Click here for FAQ')).' | '. + &Apache::loncommon::help_open_bug('',&mt('Click here to report bugs')).' |