--- 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 ''.
+ &Apache::loncommon::help_open_topic('About_Bombs');
+ }
+ }
+ return '';
+}
+
+##############################################
+##############################################
=pod