loncom/interface/loncommunicate.pm - diff

Return to loncommunicate.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncommunicate.pm between versions 1.21 and 1.33

version 1.21, 2004/03/26 19:35:59	version 1.33, 2006/04/25 17:08:27
Line 31 package Apache::loncommunicate;	Line 31 package Apache::loncommunicate;

use strict;	use strict;
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use Apache::lonmsg();	use Apache::lonmsgdisplay();
use Apache::loncommon;	use Apache::loncommon;
use Apache::lonlocal;	use Apache::lonlocal;
	use Apache::lonnet;

sub menu {	sub menu {
my $r=shift;	my $r=shift;
my %lt=&Apache::lonlocal::texthash(	my %lt=&Apache::lonlocal::texthash(
'vam' => 'View All Messages',	'mnf' => 'Make New Folder',
'vcm' => 'View Critical Messages',	'vcm' => 'View Critical Messages',
'smu' => 'Send Message to User(s)',	'smu' => 'Send Message to User(s)',
'bmc' => 'Broadcast Message to Course',	'bmc' => 'Broadcast Message to Course',
'dmu' => 'Distribute Messages from Uploaded File to Course',	'dmu' => 'Distribute Messages from Uploaded File to Course',
'unr' =>	'unr' =>
'User Notes, Records of Face-to-Face Discussions, and Critical Messages',	'User Notes, Records of Face-to-Face Discussions, and Critical Messages',
'nm' => 'New Messages',
'su' => 'Subject',	'cbs' => 'Configure Blocking of Student Communication during Exams',
'da' => 'Date',	'blog' => 'Add or Edit Blog Entries'
'us' => 'Username',
'op' => 'Open',
'do' => 'Domain'
);	);
my %help=();	my %help=();
foreach ('Course_Face_To_Face_Records,Course_Critical_Message',	foreach ('Course_Face_To_Face_Records,Course_Critical_Message',
Line 60 sub menu {	Line 59 sub menu {
# ------------------------------------------------------------------------ Menu	# ------------------------------------------------------------------------ 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"><form method="post" action="/adm/email">
<b><a href="/adm/email/">$lt{'vam'}</a></b>	<input type="submit" value="$lt{'mnf'}" />
</td></tr>	<input type="text" size="15" name="newfolder" value="" />
<tr><td bgcolor="#FFFFAA">	</form></td>
<b><a href="/adm/email?critical=display">$lt{'vcm'}</a></b>	<td bgcolor="#FFFFAA">
</td></tr>
<tr><td bgcolor="#FFFFAA">
<b><a href="/adm/email?compose=individual">$lt{'smu'}</a></b>	<b><a href="/adm/email?compose=individual">$lt{'smu'}</a></b>
</td></tr>	</td></tr>
	<tr><td bgcolor="#FFFFAA">
	<b><a href="/adm/$env{'user.domain'}/$env{'user.name'}/_rss.html">$lt{'blog'}</a></b>
	</td><td></td></tr>
END	END
if (($ENV{'request.course.id'}) &&	if (($env{'request.course.id'}) &&
(&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) {	(
	&Apache::lonnet::allowed('srm',$env{'request.course.id'}) \|\|
	&Apache::lonnet::allowed('srm',$env{'request.course.id'}.'/'.$env{'request.course.sec'})
	)) {
$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>$help{'Course_Broadcast_Message'}	<b><a href="/adm/email?compose=group">$lt{'bmc'}</a></b>$help{'Course_Broadcast_Message'}
</td></tr>	</td>
<tr><td bgcolor="#FFFFAA">	<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>$help{'Course_Face_To_Face_Records,Course_Critical_Message'}	<b><a href="/adm/email?recordftf=query">$lt{'unr'}</a></b>$help{'Course_Face_To_Face_Records,Course_Critical_Message'}
	</td>
	<td bgcolor="#FFFFAA">
	<b><a href="/adm/email?block=display">$lt{'cbs'}</a>
</td></tr>	</td></tr>

END	END
}	}
$r->print('</table>');	$r->print('</table>');
my @msgids = sort split(/\&/,&Apache::lonnet::reply
('keys:'.$ENV{'user.domain'}.':'.
$ENV{'user.name'}.':nohist_email',
$ENV{'user.home'}));
my @newmsgs;
foreach (@msgids) {
my ($sendtime,$shortsubj,$fromname,$fromdom,$status)=
&Apache::lonmsg::unpackmsgid($_);
if (defined($sendtime) && $sendtime!~/error/) {
$sendtime = &Apache::lonlocal::locallocaltime($sendtime);
if ($status eq 'new') {
push @newmsgs, {
msgid => $_,
sendtime => $sendtime,
shortsub => &Apache::lonnet::unescape($shortsubj),
from => $fromname,
fromdom => $fromdom
}
}
}
}
if ($#newmsgs >= 0) {
$r->print(<<TABLEHEAD);
<h2>$lt{'nm'}</h2>
<table border=2><tr><th>&nbsp</th>
<th>$lt{'da'}</th><th>$lt{'us'}</th><th>$lt{'do'}</th><th>$lt{'su'}</th></tr>
TABLEHEAD
foreach my $msg (@newmsgs) {
$r->print(<<"ENDLINK");
<tr bgcolor="#FFBB77">
<td><a href="/adm/email?display=$msg->{'msgid'}">$lt{'op'}</a></td>
ENDLINK
foreach ('sendtime','from','fromdom','shortsub') {
$r->print("<td>$msg->{$_}</td>");
}
$r->print("</td></tr>");
}
$r->print('</table></body></html>');
} else {
$r->print("<h3>".&mt('You have no unread messages')."</h3>");
}
}	}

sub handler {	sub handler {
Line 137 sub handler {	Line 101 sub handler {
#	#
# Start document	# Start document
#	#
$r->print(<<END);
<html>
<head>
<title>The LearningOnline Network with CAPA</title>
</head>
END

# ----------------------------------------------------------------- Breadcrumbs	# ----------------------------------------------------------------- Breadcrumbs
&Apache::lonhtmlcommon::clear_breadcrumbs();	&Apache::lonhtmlcommon::clear_breadcrumbs();
Line 152 END	Line 110 END
faq=>12,bug=>'Communication Tools',});	faq=>12,bug=>'Communication Tools',});

# ---------------------------------------------------------------------- Header	# ---------------------------------------------------------------------- Header
&Apache::lonmsg::header($r);	&Apache::lonmsgdisplay::header($r);
&menu($r);	&menu($r);
	&Apache::lonmsgdisplay::disall($r,'new');
	$r->print(&Apache::loncommon::end_page());
return OK;	return OK;
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.21
changed lines
	Added in v.1.33