loncom/interface/lonmsgdisplay.pm - diff

Return to lonmsgdisplay.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmsgdisplay.pm between versions 1.61 and 1.75

version 1.61, 2007/01/04 02:02:36	version 1.75, 2007/05/03 12:13:35
Line 33 package Apache::lonmsgdisplay;	Line 33 package Apache::lonmsgdisplay;

=head1 NAME	=head1 NAME

Apache::lonmsg: supports internal messaging	Apache::lonmsgdisplay: supports internal messaging

=head1 SYNOPSIS	=head1 SYNOPSIS

lonmsg provides routines for sending messages, receiving messages, and	lonmsgdisplay provides a handler to allow users to read, send,
a handler to allow users to read, send, and delete messages.	and delete messages, and to create and delete message folders,
	and to move messages between folders.

=head1 OVERVIEW	=head1 OVERVIEW

Line 93 addresses on their B<PREF> screen, but g	Line 94 addresses on their B<PREF> screen, but g
are much more useful than traditional email can be made to be, even	are much more useful than traditional email can be made to be, even
with HTML support.	with HTML support.

Right now, this document will cover just how to send a message, since
it is likely you will not need to programmatically read messages,
since lonmsg already implements that functionality.

The routines used to package messages and unpackage messages are not
only used by lonmsg when creating/extracting messages for LON-CAPA's
internal messaging system, but also by lonnotify.pm which is available
for use by Domain Coordinators to broadcast standard e-mail to specified
users in their domain. The XML packaging used in the two cases is very
similar. The differences are the use of <recuser>$uname</recuser> and
<recdomain>$udom</recdomain> in stored internal messages, compared
with <recipient username="$uname:$udom">$email</recipient> in stored
Domain Coordinator e-mail for the storage of information about
recipients of the message/e-mail.

=head1 FUNCTIONS

=over 4

=cut	=cut

use strict;	use strict;
Line 119 use Apache::lonnet;	Line 101 use Apache::lonnet;
use HTML::TokeParser();	use HTML::TokeParser();
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use Apache::loncommon();	use Apache::loncommon();
	use Apache::lonhtmlcommon();
use Apache::lontexconvert();	use Apache::lontexconvert();
use HTML::Entities();	use HTML::Entities();
use Apache::lonlocal;	use Apache::lonlocal;
Line 407 sub renamefolder {	Line 390 sub renamefolder {
if ($env{'form.renamed'} eq '') {	if ($env{'form.renamed'} eq '') {
return &mt('The folder "[_1]" may not be renamed to "[_2]" as the new name you requested is an invalid name.',$folder,$newname);	return &mt('The folder "[_1]" may not be renamed to "[_2]" as the new name you requested is an invalid name.',$folder,$newname);
}	}
	if (defined($permfolders{$folder})) {
	return &mt('The folder "[_1]" may not be renamed as it is a folder provided by the system.',$folder);
	}
if (defined($permfolders{$newname})) {	if (defined($permfolders{$newname})) {
return &mt('The folder "[_1]" may not be renamed to "[_2]" as the new name you requested is reserved for folders provided automatically by the system.',$folder,$newname);	return &mt('The folder "[_1]" may not be renamed to "[_2]" as the new name you requested is reserved for folders provided automatically by the system.',$folder,$newname);
}	}
Line 751 $content{'sendername'}.':'.	Line 737 $content{'sendername'}.':'.
'<br />'.&mt('Subject').': '.$content{'subject'}.	'<br />'.&mt('Subject').': '.$content{'subject'}.
'<br /><pre>'.	'<br /><pre>'.
&Apache::lontexconvert::msgtexconverted($content{'message'}).	&Apache::lontexconvert::msgtexconverted($content{'message'}).
'</pre><small>'.	'</pre><small>';
&mt('You have to confirm that you received this message. After confirmation, this message will be moved to your regular inbox').	my $rec_button = &mt('Move to Inbox');
'</small><br />'.	my $reprec_button = &mt('Move to Inbox/Compose reply');
'<input type="submit" name="rec_'.$key.'" value="'.&mt('Confirm Receipt').'" />'.	if ($content{'sendback'}) {
	$rec_button = &mt('Confirm Receipt');
	$reprec_button = &mt('Confirm Receipt and Reply');
	$result .= &mt('You have to confirm that you have received this message before you can view other pages. After confirmation, this message will be moved to your regular inbox');
	} else {
	$result .= &mt('Click one of the buttons below to move the message to your inbox').' '.&mt('Access to other pages will be prevented until you have done this.');
	}
	$result .= '</small><br />'.
	'<input type="submit" name="rec_'.$key.'" value="'.$rec_button.'" />'.
'<input type="submit" name="reprec_'.$key.'" '.	'<input type="submit" name="reprec_'.$key.'" '.
'value="'.&mt('Confirm Receipt and Reply').'" />';	'value="'.$reprec_button.'" />';
}	}
# Check to see if there were any messages.	# Check to see if there were any messages.
if ($result eq '') {	if ($result eq '') {
Line 924 sub disfolder {	Line 918 sub disfolder {
nome => 'No messages have been selected to apply ths action to.',	nome => 'No messages have been selected to apply ths action to.',
chec => 'Check the checkbox for at least one message.',	chec => 'Check the checkbox for at least one message.',
);	);
	my $jscript = &Apache::loncommon::check_uncheck_jscript();
$r->print(<<ENDDISHEADER);	$r->print(<<ENDDISHEADER);
<script type="text/javascript">	<script type="text/javascript">
function checkall() {	$jscript
for (i=0; i<document.forms.disall.delmark.length; i++) {
document.forms.disall.delmark[i].checked=true;
}
}

function uncheckall() {
for (i=0; i<document.forms.disall.delmark.length; i++) {
document.forms.disall.delmark[i].checked=false;
}
}
function checkfoldermove() {	function checkfoldermove() {
if (document.disall.checkedaction.options[document.disall.checkedaction.selectedIndex].value == 'markedmove') {	if (document.disall.checkedaction.options[document.disall.checkedaction.selectedIndex].value == 'markedmove') {
if (document.disall.movetofolder.options[document.disall.movetofolder.selectedIndex].value == "") {	if (document.disall.movetofolder.options[document.disall.movetofolder.selectedIndex].value == "") {
Line 956 sub disfolder {	Line 942 sub disfolder {
}	}
}	}
var checktotal = 0;	var checktotal = 0;
for (var i=0; i<document.forms.disall.delmark.length; i++) {	if (document.forms.disall.delmark.length > 0) {
if (document.forms.disall.delmark[i].checked) {	for (var i=0; i<document.forms.disall.delmark.length; i++) {
	if (document.forms.disall.delmark[i].checked) {
	checktotal ++;
	}
	}
	} else {
	if (document.forms.disall.delmark.checked) {
checktotal ++;	checktotal ++;
}	}
}	}
if (checktotal == 0) {	if (checktotal == 0) {
alert("$lt{'nome'}\\n$lt{'chec'}");	alert("$lt{'nome'}\\n$lt{'chec'}");
return;	return;
Line 982 ENDDISHEADER	Line 974 ENDDISHEADER
} else {	} else {
$r->print('<h2>'.&mt('There are no '.lc($statushash{$msgstatus}).' messages in this folder.').'</h2>');	$r->print('<h2>'.&mt('There are no '.lc($statushash{$msgstatus}).' messages in this folder.').'</h2>');
}	}
	if ($numblocked > 0) {
	$r->print(&blocked_in_folder($numblocked,$startblock,$endblock,
	\%setters));
	}
return;	return;
}	}
my $interdis = $env{'form.interdis'};	my $interdis = $env{'form.interdis'};
Line 1052 ENDDISHEADER	Line 1048 ENDDISHEADER
}	}
my ($dis_name,$dis_domain) = ($fromname,$fromdomain);	my ($dis_name,$dis_domain) = ($fromname,$fromdomain);
if ($folder eq 'sent') {	if ($folder eq 'sent') {
if (defined($recv_name) && !defined($recv_domain)) {	if (defined($recv_name) && defined($recv_domain)) {
$dis_name = join('<br />',@{$recv_name});	if (ref($recv_name) eq 'ARRAY' &&
$dis_domain = join('<br />',@{$recv_domain});	ref($recv_domain) eq 'ARRAY') {
	$dis_name = join('<br />',@{$recv_name});
	$dis_domain = join('<br />',@{$recv_domain});
	}
} else {	} else {
my $msg_id = &unescape($origID);	my $msg_id = &unescape($origID);
my %message = &Apache::lonnet::get('nohist_email'.$suffix,	my %message = &Apache::lonnet::get('nohist_email'.$suffix,
[$msg_id]);	[$msg_id]);
my %content = &Apache::lonmsg::unpackagemsg($message{$msg_id});	my %content = &Apache::lonmsg::unpackagemsg($message{$msg_id});
$dis_name = join('<br />',@{$content{'recuser'}});	if (ref($content{'recuser'}) eq 'ARRAY') {
$dis_domain = join('<br />',@{$content{'recdomain'}});	$dis_name = join('<br />',@{$content{'recuser'}});
	}
	if (ref($content{'recdomain'}) eq 'ARRAY') {
	$dis_domain = join('<br />',@{$content{'recdomain'}});
	}
}	}
}	}
my $localsenttime = &Apache::lonlocal::locallocaltime($sendtime);	my $localsenttime = &Apache::lonlocal::locallocaltime($sendtime);
Line 1097 ENDDISHEADER	Line 1100 ENDDISHEADER
$r->print('<table border="0" cellspacing="2" cellpadding="2">	$r->print('<table border="0" cellspacing="2" cellpadding="2">
<tr>	<tr>
<td>'.	<td>'.
'<input type="button" onclick="javascript:checkall()" value="'.&mt('Check All').'" /><br />'."\n".	'<input type="button" onclick="javascript:checkAll(document.disall.delmark)" value="'.&mt('Check All').'" /><br />'."\n".
'<input type="button" onclick="javascript:uncheckall()" value="'.&mt('Uncheck All').'" />'."\n".	'<input type="button" onclick="javascript:uncheckAll(document.disall.delmark)" value="'.&mt('Uncheck All').'" />'."\n".
'<input type="hidden" name="sortedby" value="'.$env{'form.sortedby'}.'" /></td><td> </td>'."\n".	'<input type="hidden" name="sortedby" value="'.$env{'form.sortedby'}.'" /></td><td> </td>'."\n".
'<td align="center"><b>'.&mt('Action').'</b><br />'."\n".	'<td align="center"><b>'.&mt('Action').'</b><br />'."\n".
' <select name="checkedaction" onchange="javascript:checkfoldermove()">'."\n");	' <select name="checkedaction" onchange="javascript:checkfoldermove()">'."\n");
Line 1138 ENDDISHEADER	Line 1141 ENDDISHEADER
my $postedstartdis=$startdis+1;	my $postedstartdis=$startdis+1;
$r->print('<input type="hidden" name="folder" value="'.$folder.'" /><input type="hidden" name="startdis" value="'.$postedstartdis.'" /><input type="hidden" name="interdis" value="'.$env{'form.interdis'}.'" /><input type="hidden" name="msgstatus" value="'.$msgstatus.'" ><input type="hidden" name="markedaction" value="" /></form>');	$r->print('<input type="hidden" name="folder" value="'.$folder.'" /><input type="hidden" name="startdis" value="'.$postedstartdis.'" /><input type="hidden" name="interdis" value="'.$env{'form.interdis'}.'" /><input type="hidden" name="msgstatus" value="'.$msgstatus.'" ><input type="hidden" name="markedaction" value="" /></form>');
if ($numblocked > 0) {	if ($numblocked > 0) {
my $beginblock = &Apache::lonlocal::locallocaltime($startblock);	$r->print(&blocked_in_folder($numblocked,$startblock,$endblock,
my $finishblock = &Apache::lonlocal::locallocaltime($endblock);	\%setters));
$r->print('<br /><br />'.
&mt('[quant,_1,message is, messages are] not viewable because display of LON-CAPA messages sent to you by other students between [_2] and [_3] is currently being blocked because of online exams.',$numblocked,$beginblock,$finishblock));
$r->print(&Apache::loncommon::build_block_table($startblock,$endblock,
\%setters));
}	}
}	}

	sub blocked_in_folder {
	my ($numblocked,$startblock,$endblock,$setters) = @_;
	my $beginblock = &Apache::lonlocal::locallocaltime($startblock);
	my $finishblock = &Apache::lonlocal::locallocaltime($endblock);
	my $output = '<br /><br />'.
	&mt('[quant,_1,message is, messages are] not viewable because display of LON-CAPA messages sent to you by other students between [_2] and [_3] is currently being blocked because of online exams.',$numblocked,$beginblock,$finishblock);
	$output .= &Apache::loncommon::build_block_table($startblock,$endblock,
	$setters);
	return $output;
	}

# ============================================================== Compose output	# ============================================================== Compose output

sub compout {	sub compout {
Line 1187 sub compout {	Line 1197 sub compout {
text=>"Display All Messages"});	text=>"Display All Messages"});
&printheader($r,'/adm/email?compose=multiforward',	&printheader($r,'/adm/email?compose=multiforward',
'Forwarding Multiple Messages');	'Forwarding Multiple Messages');
$r->print(&mt('Each of the <b>[quant,_1,message]</b> you checked will be forwarded to the recipient(s) you select below.',$multiforward).'<br />');	if ($multiforward > 1) {
	$r->print(&mt('Each of the <b>[quant,_1,message]</b> you checked
	will be forwarded to the recipient(s) you select below.',$multiforward).'<br />');
	} else {
	$r->print(&mt('The message you checked will be forwarded to the recipient(s) you select below.').'<br />');
	}

} else {	} else {
&printheader($r,'/adm/email?compose=upload',	&printheader($r,'/adm/email?compose=upload',
'Distribute from Uploaded File');	'Distribute from Uploaded File');
Line 1223 sub compout {	Line 1239 sub compout {
&mt('Send copy to permanent email address (if known)').'</label></p>'.	&mt('Send copy to permanent email address (if known)').'</label></p>'.
'<p><label><input type="checkbox" name="rsspost" /> '.	'<p><label><input type="checkbox" name="rsspost" /> '.
&mt('Include in course RSS newsfeed').'</label></p>';	&mt('Include in course RSS newsfeed').'</label></p>';
}	}
	if ($broadcast ne 'group') {
	if (&Apache::lonnet::allowed('dff',$env{'request.course.id'}) \|\|
	&Apache::lonnet::allowed('dff',$env{'request.course.id'}.
	'/'.$env{'request.course.sec'})) {

	$dispcrit.='<p><label>'.
	'<input type="checkbox" name="courserecord" value="1" /> '.
	&mt("Include in course's 'User records' for recipient(s)").
	'</label></p>';
	}
	}

my %message;	my %message;
my %content;	my %content;
my $defdom=$env{'user.domain'};	my $defdom=$env{'user.domain'};
Line 1256 sub compout {	Line 1284 sub compout {
if ($content{'baseurl'}) {	if ($content{'baseurl'}) {
$disbase='<input type="hidden" name="baseurl" value="'.&escape($content{'baseurl'}).'" />';	$disbase='<input type="hidden" name="baseurl" value="'.&escape($content{'baseurl'}).'" />';
if ($env{'user.adv'}) {	if ($env{'user.adv'}) {
$disbase.='<label><input type="checkbox" name="storebasecomment" />'.&mt('Store message for re-use').	$disbase.='<label><input type="checkbox" name="storebasecomment" />'.&mt('Save message for re-use').
'</label> <a href="/adm/email?showcommentbaseurl='.	'</label> <a href="/adm/email?showcommentbaseurl='.
&escape($content{'baseurl'}).'" target="comments">'.	&escape($content{'baseurl'}).'" target="comments">'.
&mt('Show re-usable messages').'</a><br />';	&mt('Show re-usable messages').'</a><br />';
}	}
}	}
	my $jscript = &Apache::loncommon::check_uncheck_jscript();
	$r->print(<<"ENDREPSCRIPT");
	<script type="text/javascript">
	$jscript
	</script>
	ENDREPSCRIPT
}	}
my $citation=&displayresource(%content);	my $citation=&displayresource(%content);
my ($can_grp_broadcast,$viewgrps,$editgrps);	my ($can_grp_broadcast,$viewgrps,$editgrps);
Line 1301 sub compout {	Line 1335 sub compout {
'<input type="hidden" name="recuname" value="'.$content{'sendername'}.'" />'.	'<input type="hidden" name="recuname" value="'.$content{'sendername'}.'" />'.
'<input type="hidden" name="recdomain" value="'.$content{'senderdomain'}.'" />'.	'<input type="hidden" name="recdomain" value="'.$content{'senderdomain'}.'" />'.
'</td></tr>');	'</td></tr>');
	if ($content{'recipid'}) {
	my @ccs = &retrieve_cc_recips('replying',%content);
	if (@ccs > 0) {
	my $replyall = qq\|
	<span class="LC_nobreak">
	<input type="button" value="check all"
	onclick="javascript:checkAll(document.compemail.replying_cc)" />

	<input type="button" value="uncheck all"
	onclick="javascript:uncheckAll(document.compemail.replying_cc)" />
	</span>
	\|;
	my $cclist = join(' ',@ccs);
	$r->print('<tr><td>'.&mt('Reply to other recipients').':<br />'.$replyall.'</td><td>'.$cclist.'</td></tr>');
	}
	}
} else {	} else {
$r->print(&recipient_input_row($defdom,%lt));	$r->print(&recipient_input_row($defdom,%lt));
}	}
Line 1420 ENDREC	Line 1470 ENDREC

sub additional_rec_row {	sub additional_rec_row {
my ($lt) = @_;	my ($lt) = @_;
	my $cc = &mt('Cc:');
	my $bcc = &mt('Bcc:');
my $output = <<"ENDADD";	my $output = <<"ENDADD";
<tr><td>$lt->{'ad'}:<br /><tt>username:domain,username:domain, ...	<tr><td>$lt->{'ad'} :<br /><tt>username:domain,username:domain, ...
</tt></td><td>	</tt></td><td> <span class="span.LC_nobreak">$cc
<input type="text" size="50" name="additionalrec" /></td></tr>	<input type="text" size="50" name="additionalrec_cc" /></nospan><br />
	<span class="span.LC_nobreak">$bcc <input type="text" size="50" name="additionalrec_bcc" /></nospan></td></tr>
ENDADD	ENDADD
return $output;	return $output;
}	}
Line 1508 sub disfacetoface {	Line 1561 sub disfacetoface {
'<b>'.&mt('Subject').': '.$content{'subject'}.'</b><br />'.	'<b>'.&mt('Subject').': '.$content{'subject'}.'</b><br />'.
$content{'message'};	$content{'message'};
}	}
}	}
	} elsif ($content{'subject'}=~/^Archive/) {
	$result.='<h3>'.&mt('Archived Message').'</h3>';
	if (defined($content{'coursemsgid'})) {
	my $crsmsgid = &escape($content{'coursemsgid'});
	my $archive_message = &general_message($crsmsgid);
	$content{'message'} = '<b>'.&mt('Subject').': '.$content{'message'}.'</b><br />'.$archive_message;
	} else {
	%content=&Apache::lonmsg::unpackagemsg($content{'message'});
	$content{'message'} =
	'<b>'.&mt('Subject').': '.$content{'subject'}.'</b><br
	'.
	$content{'message'};
	}
} else {	} else {
$result.='<h3>'.&mt('Critical Message').'</h3>';	$result.='<h3>'.&mt('Critical Message').'</h3>';
if (defined($content{'coursemsgid'})) {	if (defined($content{'coursemsgid'})) {
Line 1571 sub facetoface {	Line 1637 sub facetoface {
: 'faculty and staff';	: 'faculty and staff';
&printheader($r,	&printheader($r,
'/adm/email?recordftf=query',	'/adm/email?recordftf=query',
"User Notes, Face-to-Face, Critical Messages, Broadcast Messages");	"User Notes, Face-to-Face, Critical Messages, Broadcast Messages, Archived Messages");
# from query string	# from query string

if ($env{'form.recname'}) { $env{'form.recuname'}=$env{'form.recname'}; }	if ($env{'form.recname'}) { $env{'form.recuname'}=$env{'form.recname'}; }
Line 1586 sub facetoface {	Line 1652 sub facetoface {
('stdselect','recuname','recdomain');	('stdselect','recuname','recdomain');
my %lt=&Apache::lonlocal::texthash('user' => 'Username',	my %lt=&Apache::lonlocal::texthash('user' => 'Username',
'dom' => 'Domain',	'dom' => 'Domain',
'head' => "User Notes, Records of Face-To-Face Discussions, Critical Messages, and Broadcast Messages in $crstype",	'head' => "User Notes, Records of Face-To-Face Discussions, Critical Messages, Broadcast Messages and Archived Messages in $crstype",
'subm' => 'Retrieve discussion and message records',	'subm' => 'Retrieve discussion and message records',
'newr' => 'New Record (record is visible to '.lc($crstype).' '.$leaders.')',	'newr' => 'New Record (record is visible to '.lc($crstype).' '.$leaders.')',
'post' => 'Post this Record');	'post' => 'Post this Record');
Line 1650 sub examblock {	Line 1716 sub examblock {
'cbds' => 'Communication blocking during scheduled exams',	'cbds' => 'Communication blocking during scheduled exams',
'desc' => "You can use communication blocking to prevent $usertype enrolled in this course from displaying LON-CAPA messages sent by other $usertype during an online exam. As blocking of communication could potentially interrupt legitimate communication between $usertype who are also both enrolled in a different LON-CAPA course, please be careful that you select the correct start and end times for your scheduled exam when setting or modifying these parameters.",	'desc' => "You can use communication blocking to prevent $usertype enrolled in this course from displaying LON-CAPA messages sent by other $usertype during an online exam. As blocking of communication could potentially interrupt legitimate communication between $usertype who are also both enrolled in a different LON-CAPA course, please be careful that you select the correct start and end times for your scheduled exam when setting or modifying these parameters.",
'mecb' => 'Modify existing communication blocking periods',	'mecb' => 'Modify existing communication blocking periods',
'ncbc' => 'No communication blocks currently stored',	'ncbc' => 'No communication blocks currently saved',
'stor' => 'Store',	'stor' => 'Save',
);	);

my %ltext = &Apache::lonlocal::texthash(	my %ltext = &Apache::lonlocal::texthash(
Line 1954 sub displaymessage {	Line 2020 sub displaymessage {
}	}
my %message=&Apache::lonnet::get('nohist_email'.$suffix,[$msgid]);	my %message=&Apache::lonnet::get('nohist_email'.$suffix,[$msgid]);
my %content=&Apache::lonmsg::unpackagemsg($message{$msgid});	my %content=&Apache::lonmsg::unpackagemsg($message{$msgid});

my $counter=0;	my $counter=0;
$r->print('<pre>');	$r->print('<pre>');
my $escmsgid=&escape($msgid);	my $escmsgid=&escape($msgid);
Line 2009 sub displaymessage {	Line 2074 sub displaymessage {
}	}
$r->print('</tr></table>');	$r->print('</tr></table>');
}	}
my $tolist;	my ($tolist,$cclist);
my @recipients = ();	my (@recipients,@ccs);
for (my $i=0; $i<@{$content{'recuser'}}; $i++) {	if (ref($content{'recuser'}) eq 'ARRAY') {
$recipients[$i] = &Apache::loncommon::aboutmewrapper(	for (my $i=0; $i<@{$content{'recuser'}}; $i++) {
&Apache::loncommon::plainname($content{'recuser'}[$i],	$recipients[$i] = &Apache::loncommon::aboutmewrapper(
	&Apache::loncommon::plainname($content{'recuser'}[$i],
$content{'recdomain'}[$i]),	$content{'recdomain'}[$i]),
$content{'recuser'}[$i],$content{'recdomain'}[$i]).	$content{'recuser'}[$i],$content{'recdomain'}[$i]).
' ('.$content{'recuser'}[$i].' at '.$content{'recdomain'}[$i].') ';	' ('.$content{'recuser'}[$i].' at '.$content{'recdomain'}[$i].') ';
	}
}	}
$tolist = join(', ',@recipients);	$tolist = join(', ',@recipients);
	if ($content{'recipid'}) {
	@ccs = &retrieve_cc_recips('display',%content);
	$cclist = join(', ',@ccs);
	}
my ($restitle,$baseurl,$refers_to);	my ($restitle,$baseurl,$refers_to);
if (defined($content{'resource_title'})) {	if (defined($content{'resource_title'})) {
$restitle = $content{'resource_title'};	$restitle = $content{'resource_title'};
Line 2030 sub displaymessage {	Line 2101 sub displaymessage {
if (defined($content{'baseurl'})) {	if (defined($content{'baseurl'})) {
$baseurl = &Apache::lonenc::check_encrypt($content{'baseurl'});	$baseurl = &Apache::lonenc::check_encrypt($content{'baseurl'});
}	}
$r->print('<br /><b>'.&mt('Subject').':</b> '.$content{'subject'}.	$r->print(&Apache::loncommon::student_image_tag($content{'senderdomain'},$content{'sendername'}));
($folder ne 'sent'?'<br /><b>'.&mt('From').':</b> '.	$r->print('<br /><b>'.&mt('Subject').':</b> '.$content{'subject'});
	if ($folder eq 'sent') {
	$r->print('<br /><b>'.&mt('To').':</b> '.$tolist);
	} else {
	$r->print('<br /><b>'.&mt('From').':</b> '.
&Apache::loncommon::aboutmewrapper(	&Apache::loncommon::aboutmewrapper(
&Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),	&Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),
$content{'sendername'},$content{'senderdomain'}).' ('.	$content{'sendername'},$content{'senderdomain'}).' ('.
$content{'sendername'}.' at '.	$content{'sendername'}.' at '.
$content{'senderdomain'}.') ':'<br /><b>'.&mt('To').':</b> '.	$content{'senderdomain'}.') ');
$tolist).	if ($cclist) {
($content{'courseid'}?'<br /><b>'.&mt($crstype).':</b> '.$courseinfo{'description'}.	$r->print('<br /><b>'.&mt('Cc').':</b> '.$cclist);
($content{'coursesec'}?' ('.&mt('Section').': '.$content{'coursesec'}.')':''):'').	}
'<br /><b>'.&mt('Time').':</b> '.$content{'time'});	}
	if ($content{'courseid'}) {
	$r->print('<br /><b>'.&mt($crstype).':</b> '.$courseinfo{'description'});
	if ($content{'coursesec'}) {
	$r->print(' ('.&mt('Section').': '.$content{'coursesec'}.')');
	}
	}
	$r->print('<br /><b>'.&mt('Time').':</b> '.$content{'time'});
if ($baseurl) {	if ($baseurl) {
if (defined($content{'courseid'}) && defined($env{'request.course.id'})) {	if (defined($content{'courseid'}) && defined($env{'request.course.id'})) {
if ($content{'courseid'} eq $env{'request.course.id'}) {	if ($content{'courseid'} eq $env{'request.course.id'}) {
my $symblink;	my $symblink;
	my $showsymb = &Apache::lonenc::check_decrypt($symb);
	my $showurl = &Apache::lonenc::check_decrypt($baseurl);
	my $encrypturl = &Apache::lonnet::EXT('resource.0.encrypturl',
	$showsymb,$env{'user.domain'},$env{'user.name'});
if ($symb) {	if ($symb) {
&Apache::lonenc::check_decrypt(\$symb);	if ($encrypturl =~ /^yes$/i && !$env{'request.role.adv'}) {
$symblink = '?symb='.$symb;	$showsymb = &Apache::lonenc::check_encrypt($symb);
	}
	$symblink = '?symb='.$showsymb;
	}
	if ($encrypturl =~ /^yes$/i && !$env{'request.role.adv'}) {
	$showurl = $baseurl;
}	}
&Apache::lonenc::check_decrypt(\$baseurl);	$r->print('<br /><b>'.&mt('Refers to').':</b> <a href="'.$showurl.$symblink.'">'.$restitle.'</a>');
$r->print('<br /><b>'.&mt('Refers to').':</b> <a href="'.$baseurl.$symblink.'">'.$restitle.'</a>');
$refers_to = 1;	$refers_to = 1;
}	}
}	}
if (!$refers_to) {	if (!$refers_to) {
if ($baseurl =~ m-^/enc/-) {	if ($baseurl =~ m-^/enc/-) {
if (defined($content{'courseid'})) {	if (defined($content{'courseid'})) {
my $unencurl =	if (!$env{'request.course.id'}) {
&Apache::lonenc::unencrypted($baseurl,	my $unencurl =
$content{'courseid'});	&Apache::lonenc::unencrypted($baseurl,
if (defined($unencurl)) {	$content{'courseid'});
if (&Apache::lonnet::allowed('bre',$unencurl)) {	if ($unencurl ne '') {
$r->print('<br /><b>'.&mt('Refers to').	if (&Apache::lonnet::allowed('bre',$unencurl)) {
':</b> <a href="'.$unencurl.'">'.$restitle.'</a>');	$r->print('<br /><b>'.&mt('Refers to').
	':</b> <a href="'.$unencurl.'">'.
	$restitle.'</a>');
	}
}	}
}	}
}	}
Line 2082 sub displaymessage {	Line 2175 sub displaymessage {
return;	return;
}	}

	sub retrieve_cc_recips {
	my ($context,%content) = @_;
	my %reciphash =
	&Apache::lonnet::get('nohist_emailrecip',[$content{'recipid'}],
	$content{'senderdomain'},$content{'sendername'});
	my $recipinfo = $reciphash{$content{'recipid'}};
	my @ccs;
	if (ref($recipinfo) eq 'HASH') {
	if (ref($recipinfo->{'cc'}) eq 'HASH') {
	foreach my $cc (sort(keys(%{$recipinfo->{'cc'}}))) {
	my ($ccname,$ccdom) = split(/:/,$cc);
	if (!(($ccname eq $env{'user.name'}) &&
	($ccdom eq $env{'user.domain'}))) {
	my $showcc ='<span class="LC_nobreak">';
	if ($context eq 'replying') {
	$showcc = '<label><input type="checkbox" name="replying_cc" value="'.$cc.'" />';
	}
	$showcc .= &Apache::loncommon::aboutmewrapper(
	&Apache::loncommon::plainname($ccname,
	$ccdom),$ccname,$ccdom);
	if ($context eq 'replying') {
	$showcc .='</label>';
	}
	$showcc .= '</span>';
	push(@ccs,$showcc);
	}
	}
	}
	}
	return @ccs;
	}

# =========================================================== Show the citation	# =========================================================== Show the citation

sub displayresource {	sub displayresource {
Line 2166 sub storedcommentlisting {	Line 2291 sub storedcommentlisting {
my ($r)=@_;	my ($r)=@_;
my %msgs=&Apache::lonnet::dump('nohist_stored_comments',undef,undef,	my %msgs=&Apache::lonnet::dump('nohist_stored_comments',undef,undef,
'^'.&escape(&escape($env{'form.showcommentbaseurl'})));	'^'.&escape(&escape($env{'form.showcommentbaseurl'})));
$r->print(&Apache::loncommon::start_page('Stored Comment Listing',undef,	$r->print(&Apache::loncommon::start_page('Saved Comment Listing',undef,
{'onlybody' => 1}));	{'onlybody' => 1}));
if ((keys %msgs)[0]=~/^error\:/) {	if ((keys %msgs)[0]=~/^error\:/) {
$r->print(&mt('No stored comments yet.'));	$r->print(&mt('No saved comments yet.'));
} else {	} else {
my $found=0;	my $found=0;
foreach my $key (sort(keys(%msgs))) {	foreach my $key (sort(keys(%msgs))) {
Line 2177 sub storedcommentlisting {	Line 2302 sub storedcommentlisting {
$found=1;	$found=1;
}	}
unless ($found) {	unless ($found) {
$r->print(&mt('No stored comments yet for this resource.'));	$r->print(&mt('No saved comments yet for this resource.'));
}	}
}	}
}	}
Line 2188 sub sendoffmail {	Line 2313 sub sendoffmail {
my ($r,$folder)=@_;	my ($r,$folder)=@_;
my $suffix=&Apache::lonmsg::foldersuffix($folder);	my $suffix=&Apache::lonmsg::foldersuffix($folder);
my $sendstatus='';	my $sendstatus='';
my %specialmsg_status;	my %msg_status;
my $numspecial = 0;	my $numsent = 0;
	my $nosentstore = 1;
my ($cdom,$cnum,$group);	my ($cdom,$cnum,$group);
if (exists($env{'form.group'})) {	if (exists($env{'form.group'})) {
$group = $env{'form.group'};	$group = $env{'form.group'};
Line 2228 sub sendoffmail {	Line 2354 sub sendoffmail {
&Apache::loncommon::get_env_multiple('form.selectedusers_forminput');	&Apache::loncommon::get_env_multiple('form.selectedusers_forminput');
my $mode = $env{'form.sendmode'};	my $mode = $env{'form.sendmode'};

my %toaddr;	my (%toaddr,$cc,$bcc);
if (@to) {	if (@to) {
foreach my $dest (@to) {	foreach my $dest (@to) {
my ($user,$domain) = split(/:/, $dest);	my ($user,$domain) = split(/:/, $dest);
Line 2246 sub sendoffmail {	Line 2372 sub sendoffmail {
}	}
}	}
} elsif ($env{'form.sendmode'} eq 'upload') {	} elsif ($env{'form.sendmode'} eq 'upload') {
	$nosentstore = 0;
foreach my $line (split(/[\n\r\f]+/,$env{'form.upfile'})) {	foreach my $line (split(/[\n\r\f]+/,$env{'form.upfile'})) {
my ($rec,$txt) = ($line =~ /^([^:]+:[^:]+):(.*)$/);	my ($rec,$txt) = ($line =~ /^([^:]+:[^:]+):(.*)$/);
if ($txt) {	if ($txt) {
Line 2257 sub sendoffmail {	Line 2384 sub sendoffmail {
} else {	} else {
if (($env{'form.recuname'} ne '') && ($env{'form.recdomain'} ne '')) {	if (($env{'form.recuname'} ne '') && ($env{'form.recdomain'} ne '')) {
$toaddr{$env{'form.recuname'}.':'.$env{'form.recdomain'}}='';	$toaddr{$env{'form.recuname'}.':'.$env{'form.recdomain'}}='';
	$cc->{$env{'form.recuname'}.':'.$env{'form.recdomain'}}='';
}	}
}	}
if ($env{'form.additionalrec'}) {	if ($env{'form.additionalrec_cc'}) {
foreach my $rec (split(/\,/,$env{'form.additionalrec'})) {	foreach my $rec (split(/\s,\s/,$env{'form.additionalrec_cc'})) {
my ($auname,$audom)=split(/:/,$rec);	my ($auname,$audom)=split(/:/,$rec);
if (($auname ne "") && ($audom ne "")) {	if (($auname ne "") && ($audom ne "")) {
$toaddr{$auname.':'.$audom}='';	$toaddr{$auname.':'.$audom}='';
	$cc->{$auname.':'.$audom}='';
}	}
}	}
}	}
	if ($env{'form.additionalrec_bcc'}) {
	foreach my $rec (split(/\s,\s/,$env{'form.additionalrec_bcc'})) {
	my ($auname,$audom)=split(/:/,$rec);
	if (($auname ne "") && ($audom ne "")) {
	$toaddr{$auname.':'.$audom}='';
	$bcc->{$auname.':'.$audom}='';
	}
	}
	}
	if ($env{'form.replying_cc'}) {
	my @ccreplies =
	&Apache::loncommon::get_env_multiple('form.replying_cc');
	foreach my $rec (@ccreplies) {
	my ($auname,$audom)=split(/:/,$rec);
	if (($auname ne "") && ($audom ne "")) {
	$toaddr{$auname.':'.$audom}='';
	$cc->{$auname.':'.$audom}='';
	}
	}
	}
my $savemsg;	my $savemsg;
my $msgtype;	my $msgtype;
my %sentmessage;	my %sentmessage;
Line 2283 sub sendoffmail {	Line 2431 sub sendoffmail {
} else {	} else {
$savemsg=&Apache::lonfeedback::clear_out_html($env{'form.message'});	$savemsg=&Apache::lonfeedback::clear_out_html($env{'form.message'});
}	}
	my %reciphash = (
	cc => $cc,
	bcc => $bcc,
	);
	my ($recipid,$recipstatus) =
	&Apache::lonmsg::store_recipients($msgsubj,$env{'user.name'},
	$env{'user.domain'},\%reciphash);
	if ($recipstatus ne 'ok') {
	&Apache::lonnet::logthis('Failed to store Bcc and Cc recipients for '.$env{'user.name'}.':'.$env{'user.domain'});
	}
	my @recusers;
	my @recudoms;
foreach my $address (sort(keys(%toaddr))) {	foreach my $address (sort(keys(%toaddr))) {
my ($recuname,$recdomain)=split(/\:/,$address);	my ($recuname,$recdomain)=split(/\:/,$address);
my $msgtxt = $savemsg;	my $msgtxt = $savemsg;
if ($toaddr{$address}) { $msgtxt.='<hr />'.$toaddr{$address}; }	if ($toaddr{$address}) {
	$msgtxt.='<hr />'.$toaddr{$address};
	}
my @thismsg;	my @thismsg;
if ($msgtype eq 'critical') {	if ($msgtype eq 'critical') {
$r->print(&mt('Sending critical message').' '.	$r->print(&mt('Sending critical message').' '.
Line 2297 sub sendoffmail {	Line 2458 sub sendoffmail {
$msgsubj,$msgtxt,	$msgsubj,$msgtxt,
$env{'form.sendbck'},	$env{'form.sendbck'},
$env{'form.permanent'},	$env{'form.permanent'},
\$sentmessage{$address});	\$sentmessage{$address},
	$nosentstore,$recipid);
} else {	} else {
$r->print(&mt('Sending').' '.$recuname.':'.$recdomain.': ');	$r->print(&mt('Sending').' '.$recuname.':'.$recdomain.': ');
@thismsg=	@thismsg=
Line 2306 sub sendoffmail {	Line 2468 sub sendoffmail {
$content{'citation'},	$content{'citation'},
undef,undef,	undef,undef,
$env{'form.permanent'},	$env{'form.permanent'},
\$sentmessage{$address});	\$sentmessage{$address},
}	undef,undef,undef,
if (($env{'request.course.id'}) && (($msgtype eq 'critical') \|\|	$nosentstore,$recipid);
($env{'form.sendmode'} eq 'group'))) {	}
$specialmsg_status{$recuname.':'.$recdomain} =	$msg_status{$recuname.':'.$recdomain}=join(' ',@thismsg);
join(' ',@thismsg);	if ($msg_status{$recuname.':'.$recdomain} =~ /(ok\|con_delayed)/) {
foreach my $result (@thismsg) {	$numsent++;
if ($result eq 'ok' \|\| $result eq 'con_delayed') {	push(@recusers,$recuname);
$numspecial++;	push(@recudoms,$recdomain);
}
}
}	}
$sendstatus.=' '.join(' ',@thismsg);	$sendstatus.=' '.join(' ',@thismsg);
}	}
if (($env{'request.course.id'}) && (($env{'form.sendmode'} eq 'group')	my $subj_prefix;
\|\| ($msgtype eq 'critical'))) {	if ($numsent > 0) {
my $subj_prefix;	if (($env{'request.course.id'}) &&
if ($msgtype eq 'critical') {	(($env{'form.sendmode'} eq 'group') \|\|
$subj_prefix = 'Critical.';	($env{'form.courserecord'}) \|\|
} else {	($msgtype eq 'critical'))) {
$subj_prefix = 'Broadcast.';	if ($msgtype eq 'critical') {
}	$subj_prefix = 'Critical.';
my ($specialmsgid,$specialresult);	} elsif ($env{'form.sendmode'} eq 'group') {
my $course_str = &escape('['.$cnum.':'.$cdom.']');	$subj_prefix = 'Broadcast.';
	} else {
	$subj_prefix = 'Archive';
	}
	my ($specialmsgid,$specialresult);
	my $course_str = &escape('['.$cnum.':'.$cdom.']');

if ($numspecial) {	$specialresult =
$specialresult = &Apache::lonmsg::user_normal_msg_raw($cnum,$cdom,$subj_prefix.	&Apache::lonmsg::user_normal_msg_raw($cnum,$cdom,
' '.$course_str,$savemsg,undef,undef,undef,	$subj_prefix.' '.$course_str,$savemsg,undef,undef,
undef,undef,\$specialmsgid);	undef,undef,undef,\$specialmsgid,undef,undef,undef,
	undef,undef,1);
$specialmsgid = &unescape($specialmsgid);	$specialmsgid = &unescape($specialmsgid);
}	if ($specialresult eq 'ok') {
if ($specialresult eq 'ok') {	my ($stamp,$crssubj,$msgname,$msgdom,$msgcount,$context,$pid) =
my $record_sent;	split(/\:/,&unescape($specialmsgid));
my @recusers;
my @recudoms;	foreach my $recipient (sort(keys(%toaddr))) {
my ($stamp,$crssubj,$msgname,$msgdom,$msgcount,$context,$pid) =	if ($msg_status{$recipient} =~ /\s(ok\|con_delayed)\s/) {
split(/\:/,&unescape($specialmsgid));	my $usersubj = $subj_prefix.'['.$recipient.']';
	my $usermsgid =
foreach my $recipient (sort(keys(%toaddr))) {	&Apache::lonmsg::buildmsgid($stamp,$usersubj,
if ($specialmsg_status{$recipient} eq 'ok') {	$msgname,$msgdom,
my $usersubj = $subj_prefix.'['.$recipient.']';	$msgcount,$context,
my $usermsgid =	$pid);
&Apache::lonmsg::buildmsgid($stamp,$usersubj,	&Apache::lonmsg::user_normal_msg_raw($cnum,$cdom,
$msgname,$msgdom,	$subj_prefix.' ['.$recipient.']',$msgsubj,
$msgcount,$context,	undef,undef,undef,undef,$usermsgid,undef,
$pid);	undef,$specialmsgid,undef,undef,undef,1);
&Apache::lonmsg::user_normal_msg_raw($cnum,$cdom,$subj_prefix.	}
' ['.$recipient.']',$msgsubj,undef,
undef,undef,undef,$usermsgid,undef,undef,$specialmsgid);
my ($uname,$udom) = split(/:/,$recipient);
push(@recusers,$uname);
push(@recudoms,$udom);
}	}
}	if (($env{'form.sendmode'} ne 'upload') && (@recusers > 0)) {
if (@recusers) {	&Apache::lonmsg::process_sent_mail($msgsubj,
my $specialmessage;	$subj_prefix,$numsent,$stamp,$msgname,$msgdom,
my $sentsubj =	$msgcount,$context,$pid,$savemsg,\@recusers,
$subj_prefix.' ('.$numspecial.' sent) '.$msgsubj;	\@recudoms);
$sentsubj = &HTML::Entities::encode($sentsubj,'<>&"');	}
my $sentmsgid =	} else {
&Apache::lonmsg::buildmsgid($stamp,$sentsubj,$msgname,	&Apache::lonnet::logthis('Failed to create record of critical, broadcast or archived message in '.$env{'course.'.$env{'request.course.id'}.'.num'}.' at '.$env{'course.'.$env{'request.course.id'}.'.domain'}.' - no msgid generated');
$msgdom,$msgcount,$context,
$pid);
($specialmsgid,$specialmessage) = &Apache::lonmsg::packagemsg($msgsubj,$savemsg,
undef,undef,undef,\@recusers,\@recudoms,$sentmsgid);
$record_sent = &Apache::lonmsg::store_sent_mail($specialmsgid,$specialmessage);
}	}
} else {	} else {
&Apache::lonnet::logthis('Failed to create record of critical message or broadcast in '.$env{'course.'.$env{'request.course.id'}.'.num'}.' at '.$env{'course.'.$env{'request.course.id'}.'.domain'}.' - no msgid generated');	my $stamp = time;
	my $msgcount = &Apache::lonmsg::get_uniq();
	my $context = &Apache::lonmsg::get_course_context();
	&Apache::lonmsg::process_sent_mail($msgsubj,$subj_prefix,
	$numsent,$stamp,$env{'user.name'},
	$env{'user.domain'},$msgcount,$context,
	$$,$savemsg,\@recusers,\@recudoms);
}	}
}	}
} else {	if (!$env{'form.multiforward'}) {
&printheader($r,'','No messages sent.');	if ($sendstatus=~/^(\s(?:ok\|con_delayed)\s)*$/) {
}	$r->print('<br /><span class="LC_success">'.&mt('Completed.').
if (!$env{'form.multiforward'}) {	'</span>');
if ($sendstatus=~/^(\s(?:ok\|con_delayed)\s)*$/) {	if ($env{'form.displayedcrit'}) {
$r->print('<br /><span class="LC_success">'.&mt('Completed.').	&discrit($r);
'</span>');	}
if ($env{'form.displayedcrit'}) {	if ($group ne '') {
&discrit($r);	$r->print(&groupmail_sent($group,$cdom,$cnum));
	} else {
	&Apache::loncommunicate::menu($r);
	}
	} else {
	$r->print('<p><span class="LC_error">'.&mt('Could not deliver message').'</span> '.
	&mt('Please use the browser "Back" button and correct the recipient addresses '."($sendstatus)").'</p>');
}	}
if ($group ne '') {
$r->print(&groupmail_sent($group,$cdom,$cnum));
} else {
&Apache::loncommunicate::menu($r);
}
} else {
$r->print('<p><span class="LC_error">'.&mt('Could not deliver message').'</span> '.
&mt('Please use the browser "Back" button and correct the recipient addresses '."($sendstatus)").'</p>');
}	}
}	}
return $sendstatus;	return $sendstatus;
Line 2484 sub handler {	Line 2644 sub handler {
&printheader($r,'','Confirmed Receipt');	&printheader($r,'','Confirmed Receipt');
my $replying = 0;	my $replying = 0;
foreach my $envkey (keys(%env)) {	foreach my $envkey (keys(%env)) {
if ($envkey=~/^form\.rec\_(.*)$/) {	if ($envkey=~/^form\.(rep)?rec\_(.*)$/) {
$r->print('<b>'.&mt('Confirming Receipt').':</b> '.	my $msgid = $2;
&Apache::lonmsg::user_crit_received($1).'<br>');	$r->print('<b>'.&mt('Confirming Receipt').':</b> ');
}	my $result = &Apache::lonmsg::user_crit_received($msgid);
if ($envkey=~/^form\.reprec\_(.*)$/) {	if ($result =~ /trans:\s+ok/) {
my $msgid=$1;	&statuschange($msgid,'read');
$r->print('<b>'.&mt('Confirming Receipt').':</b> '.	}
&Apache::lonmsg::user_crit_received($msgid).'<br>');	$r->print($result.'<br>');
&compout($r,'','','',$msgid);	if ($1 eq 'rep') {
$replying = 1;	&compout($r,'','','',$msgid);
	$replying = 1;
	}
}	}
}	}
if (!$replying) {	if (!$replying) {
Line 2707 sub handler {	Line 2869 sub handler {
my $delresult = &deletefolder($folder);	my $delresult = &deletefolder($folder);
if ($delresult eq 'ok') {	if ($delresult eq 'ok') {
$r->print(&mt('Mail folder "[_1]" deleted.',$folder).'<br />');	$r->print(&mt('Mail folder "[_1]" deleted.',$folder).'<br />');
	$env{'form.folder'} = '';
} else {	} else {
$r->print(&mt('Deletion failed.').' '.$delresult.'<br />');	$r->print(&mt('Deletion failed.').' '.$delresult.'<br />');
$showfolder = $folder;	$showfolder = $folder;
Line 2737 sub handler {	Line 2900 sub handler {

=pod	=pod

=back

=cut	=cut

1;	1;

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

Removed from v.1.61
changed lines
	Added in v.1.75