loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.39, 2004/01/02 16:34:03
+version 1.40, 2004/01/15 20:22:47
  Line 65  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
  =item textbox
  =cut