loncom/interface/loncommunicate.pm - diff

Return to loncommunicate.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.9, 2002/05/07 19:24:28	version 1.11, 2002/08/21 17:18:08
Line 41 package Apache::loncommunicate;	Line 41 package Apache::loncommunicate;
use strict;	use strict;
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use Apache::lonmsg();	use Apache::lonmsg();
	use Apache::loncommon;

sub handler {	sub handler {
my $r = shift;	my $r = shift;
Line 55 sub handler {	Line 56 sub handler {
<head>	<head>
<title>The LearningOnline Network with CAPA</title>	<title>The LearningOnline Network with CAPA</title>
</head>	</head>
<body bgcolor="#FFFFFF">
<img align=right src=/adm/lonIcons/lonlogos.gif>
<h1>Communicate</h1>
END	END
	$r->print(&Apache::loncommon::bodytag("Communication and Messages"));
$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 90 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/) {
$sendtime = localtime($sendtime);	$sendtime = localtime($sendtime);
if ($status eq 'new') {	if ($status eq 'new') {
push @newmsgs, {	push @newmsgs, {
Line 101 END	Line 101 END
fromdom => $fromdom	fromdom => $fromdom
}	}
}	}
	}
}	}
if ($#newmsgs >= 0) {	if ($#newmsgs >= 0) {
$r->print(<<TABLEHEAD);	$r->print(<<TABLEHEAD);