version 1.53, 2003/04/02 00:50:46
|
version 1.55, 2003/06/20 14:55:01
|
Line 165 sub sendnotification {
|
Line 165 sub sendnotification {
|
my $critical=($crit?' critical':''); |
my $critical=($crit?' critical':''); |
my $url='http://'. |
my $url='http://'. |
$Apache::lonnet::hostname{&Apache::lonnet::homeserver($touname,$toudom)}. |
$Apache::lonnet::hostname{&Apache::lonnet::homeserver($touname,$toudom)}. |
'/adm/login&username='.$touname.'&domain='.$toudom; |
'/adm/email?username='.$touname.'&domain='.$toudom; |
my $body=(<<ENDMSG); |
my $body=(<<ENDMSG); |
You received a$critical message from $sender in LON-CAPA. The subject is |
You received a$critical message from $sender in LON-CAPA. The subject is |
|
|
Line 616 sub compout {
|
Line 616 sub compout {
|
<td>$domform</td></tr> |
<td>$domform</td></tr> |
ENDREC |
ENDREC |
} |
} |
|
my $latexHelp = Apache::loncommon::helpLatexCheatsheet(); |
if ($broadcast ne 'upload') { |
if ($broadcast ne 'upload') { |
$r->print(<<"ENDCOMP"); |
$r->print(<<"ENDCOMP"); |
<tr><td>Additional Recipients<br><tt>username\@domain,username\@domain, ... |
<tr><td>Additional Recipients<br><tt>username\@domain,username\@domain, ... |
Line 623 ENDREC
|
Line 624 ENDREC
|
<input type=text size=50 name=additionalrec></td></tr> |
<input type=text size=50 name=additionalrec></td></tr> |
<tr><td>Subject:</td><td><input type=text size=50 name=subject value="$dissub"> |
<tr><td>Subject:</td><td><input type=text size=50 name=subject value="$dissub"> |
</td></tr></table> |
</td></tr></table> |
|
$latexHelp |
<textarea name=message cols=80 rows=10 wrap=hard>$dismsg |
<textarea name=message cols=80 rows=10 wrap=hard>$dismsg |
</textarea><p> |
</textarea><p> |
$dispcrit |
$dispcrit |