loncom/interface/loncommunicate.pm - diff

Return to loncommunicate.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.11, 2002/08/21 17:18:08	version 1.13, 2002/12/27 14:59:42
Line 77 END	Line 77 END
<b><a href="/adm/email?compose=group">Broadcast message to course</a></b>	<b><a href="/adm/email?compose=group">Broadcast message to course</a></b>
</td></tr>	</td></tr>
<tr><td bgcolor="#FFFFAA">	<tr><td bgcolor="#FFFFAA">
<b><a href="/adm/email?compose=upload">Upload messages to course</a></b>	<b><a href="/adm/email?compose=upload">Distribute messages from uploaded file to course</a></b>
</td></tr>	</td></tr>
	<tr><td bgcolor="#FFFFAA">
	<b><a href="/adm/email?recordftf=query">User records of face-to-face discusssions and messages</a></b>
	</td></tr>

END	END
}	}
$r->print('</table>');	$r->print('</table>');
Line 90 END	Line 94 END
foreach (@msgids) {	foreach (@msgids) {
my ($sendtime,$shortsubj,$fromname,$fromdom,$status)=	my ($sendtime,$shortsubj,$fromname,$fromdom,$status)=
&Apache::lonmsg::unpackmsgid($_);	&Apache::lonmsg::unpackmsgid($_);
if ($sendtime!~/error/) {	if (defined($sendtime) && $sendtime!~/error/) {
$sendtime = localtime($sendtime);	$sendtime = localtime($sendtime);
if ($status eq 'new') {	if ($status eq 'new') {
push @newmsgs, {	push @newmsgs, {