--- loncom/interface/lonhtmlcommon.pm	2004/01/02 16:34:03	1.39
+++ loncom/interface/lonhtmlcommon.pm	2004/01/15 20:22:47	1.40
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common html routines
 #
-# $Id: lonhtmlcommon.pm,v 1.39 2004/01/02 16:34:03 www Exp $
+# $Id: lonhtmlcommon.pm,v 1.40 2004/01/15 20:22:47 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -62,6 +62,33 @@ use strict;
 
 ##############################################
 ##############################################
+
+=pod
+
+=item authorbombs
+
+=cut
+
+##############################################
+##############################################
+
+sub authorbombs {
+    my $url=shift;
+    $url=&Apache::lonnet::declutter($url);
+    my ($udom,$uname)=($url=~/^(\w+)\/(\w+)\//);
+    my %bombs=&Apache::lonmsg::all_url_author_res_msg($uname,$udom);
+    foreach (keys %bombs) {
+	if ($_=~/^$udom\/$uname\//) {
+	    return '<a href="/adm/bombs/'.$url.
+		'"><img src="/adm/lonMisc/bomb.gif" border="0" /></a>'.
+		&Apache::loncommon::help_open_topic('About_Bombs');
+	}
+    }
+    return '';
+}
+
+##############################################
+##############################################
 
 =pod