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