loncom/interface/loncommunicate.pm - diff

Return to loncommunicate.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.10, 2002/06/24 14:33:21	version 1.12, 2002/09/16 20:06:12
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/) {	if (defined($sendtime) && $sendtime!~/error/) {
$sendtime = localtime($sendtime);	$sendtime = localtime($sendtime);
if ($status eq 'new') {	if ($status eq 'new') {
push @newmsgs, {	push @newmsgs, {