version 1.16, 2003/09/23 00:26:10
|
version 1.20, 2004/03/01 02:21:57
|
Line 25
|
Line 25
|
# |
# |
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
# (Internal Server Error Handler |
### |
# |
|
# (Login Screen |
|
# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14, |
|
# 1/14/00,5/29,5/30,6/1,6/29,7/1,11/9 Gerd Kortemeyer) |
|
# |
|
# 3/1/1 Gerd Kortemeyer) |
|
# |
|
# 3/1,2/6,7/27,8/3,8/15, |
|
# 11/5/01 Gerd Kortemeyer |
|
# |
|
package Apache::loncommunicate; |
package Apache::loncommunicate; |
|
|
use strict; |
use strict; |
Line 73 END
|
Line 64 END
|
'op' => 'Open', |
'op' => 'Open', |
'do' => 'Domain' |
'do' => 'Domain' |
); |
); |
|
my %help=(); |
|
foreach ('Course_Face_To_Face_Records,Course_Critical_Message', |
|
'Course_Broadcast_Message') { |
|
$help{$_}=&Apache::loncommon::help_open_topic($_); |
|
} |
|
|
|
# ----------------------------------------------------------------- Breadcrumbs |
|
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>"/adm/communicate", |
|
text=>"Communication/Messages", |
|
faq=>12,bug=>'Communication Tools',}); |
|
|
|
# ---------------------------------------------------------------------- Header |
|
&Apache::lonmsg::header($r); |
|
|
$r->print(&Apache::loncommon::bodytag("Communication and Messages")); |
# ------------------------------------------------------------------------ Menu |
$r->print(<<END); |
$r->print(<<END); |
<table cellspacing="10" cellpadding="2"> |
<table cellspacing="10" cellpadding="2"> |
<tr><td bgcolor="#FFFFAA"> |
<tr><td bgcolor="#FFFFAA"> |
Line 91 END
|
Line 97 END
|
(&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) { |
(&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) { |
$r->print(<<END); |
$r->print(<<END); |
<tr><td bgcolor="#FFFFAA"> |
<tr><td bgcolor="#FFFFAA"> |
<b><a href="/adm/email?compose=group">$lt{'bmc'}</a></b> |
<b><a href="/adm/email?compose=group">$lt{'bmc'}</a></b>$help{'Course_Broadcast_Message'} |
</td></tr> |
</td></tr> |
<tr><td bgcolor="#FFFFAA"> |
<tr><td bgcolor="#FFFFAA"> |
<b><a href="/adm/email?compose=upload">$lt{'dmu'}</a></b> |
<b><a href="/adm/email?compose=upload">$lt{'dmu'}</a></b> |
</td></tr> |
</td></tr> |
<tr><td bgcolor="#FFFFAA"> |
<tr><td bgcolor="#FFFFAA"> |
<b><a href="/adm/email?recordftf=query">$lt{'unr'}</a></b> |
<b><a href="/adm/email?recordftf=query">$lt{'unr'}</a></b>$help{'Course_Face_To_Face_Records,Course_Critical_Message'} |
</td></tr> |
</td></tr> |
|
|
END |
END |
Line 112 END
|
Line 118 END
|
my ($sendtime,$shortsubj,$fromname,$fromdom,$status)= |
my ($sendtime,$shortsubj,$fromname,$fromdom,$status)= |
&Apache::lonmsg::unpackmsgid($_); |
&Apache::lonmsg::unpackmsgid($_); |
if (defined($sendtime) && $sendtime!~/error/) { |
if (defined($sendtime) && $sendtime!~/error/) { |
$sendtime = localtime($sendtime); |
$sendtime = &Apache::lonlocal::locallocaltime($sendtime); |
if ($status eq 'new') { |
if ($status eq 'new') { |
push @newmsgs, { |
push @newmsgs, { |
msgid => $_, |
msgid => $_, |
Line 126 END
|
Line 132 END
|
} |
} |
if ($#newmsgs >= 0) { |
if ($#newmsgs >= 0) { |
$r->print(<<TABLEHEAD); |
$r->print(<<TABLEHEAD); |
<h3>$lt{'nm'}</h3> |
<h2>$lt{'nm'}</h2> |
<table border=2><tr><th> </th> |
<table border=2><tr><th> </th> |
<th>$lt{'da'}</th><th>$lt{'us'}</th><th>$lt{'do'}</th><th>$lt{'su'}</th></tr> |
<th>$lt{'da'}</th><th>$lt{'us'}</th><th>$lt{'do'}</th><th>$lt{'su'}</th></tr> |
TABLEHEAD |
TABLEHEAD |