--- loncom/auth/lonroles.pm	2003/12/09 21:25:53	1.80
+++ loncom/auth/lonroles.pm	2003/12/30 22:45:59	1.81
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # User Roles Screen
 #
-# $Id: lonroles.pm,v 1.80 2003/12/09 21:25:53 albertel Exp $
+# $Id: lonroles.pm,v 1.81 2003/12/30 22:45:59 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -77,6 +77,17 @@ 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 '<img src="/adm/lonMisc/bomb.gif" />';
+	}
+    }
+    return '';
+}
+
 sub handler {
 
     my $r = shift;
@@ -417,6 +428,7 @@ ENDHEADER
 			': '.$tdom.'<br />'.
                         ' '.&mt('Server').':&nbsp;'.$home;
                     $ENV{'course.'.$tdom.'_'.$trest.'.description'}='ca';
+		    $tremark.=&authorbombs($trest,$tdom);
 		    $sortkey=$role."$trest:$tdom";
                 } elsif ($role eq 'au') {
                     # Authors
@@ -436,6 +448,7 @@ ENDHEADER
                     $twhere=&mt('Domain').': '.$tdom.'<br />'.&mt('Server').
 			':&nbsp;'.$home;
                     $ENV{'course.'.$tdom.'_'.$trest.'.description'}='ca';
+		    $tremark.=&authorbombs($ENV{'user.name'},$tdom);
 		    $sortkey=$role;
                 } elsif ($trest) {
                     $ttype='Course';