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.40 and 1.48

version 1.40, 2006/08/29 00:12:02	version 1.48, 2006/12/07 21:06:57
Line 138 my $interdis;	Line 138 my $interdis;

sub folderlist {	sub folderlist {
my $folder=shift;	my $folder=shift;
my @allfolders=&Apache::lonnet::getkeys('email_folders');	my %lt = &Apache::lonlocal::texthash(
if ($allfolders[0]=~/^error:/) { @allfolders=(); }	actn => 'Action',
return '<form method="post" action="/adm/email">'.	fold => 'Folder',
&mt('Folder').': '.	show => 'Show',
&Apache::loncommon::select_form($folder,'folder',	go => 'Go',
('' => &mt('INBOX'),'trash' => &mt('TRASH'),	);
'new' => &mt('New Messages Only'),
'critical' => &mt('Critical'),	my %actions = &Apache::lonlocal::texthash(
'sent' => &mt('Sent Messages'),	view => 'View Folder',
map { $_ => $_ } @allfolders)).	rename => 'Rename Folder',
' '.&mt('Show').	delete => 'Delete Folder',
'<select name="interdis">'.	);
join("\n",map { '<option value="'.$_.'"'.	$actions{'select_form_order'} = ['view','rename','delete'];
($_==$interdis?' selected="selected"':'').'>'.$_.'</option>' }
(10,20,50,100,200)).'</select>'.	my %permfolders = &get_permanent_folders();
'<input type="submit" value="'.&mt('View Folder').'" /><br />'.	my $permlist = join("','",sort(keys(%permfolders)));
	my ($permlistkeys,$permlistvals);
	foreach my $key (sort(keys(%permfolders))) {
	$permlistvals .= $permfolders{$key}."','";
	$permlistkeys .= $key."','";
	}
	$permlistvals =~ s/','$//;
	$permlistkeys =~ s/','$//;
	my %gotfolders = &Apache::lonmsg::get_user_folders();
	my %userfolders;

	foreach my $key (keys(%gotfolders)) {
	$userfolders{$key} = $key;
	}
	my @userorder = sort(keys(%userfolders));
	my %formhash = (%permfolders,%userfolders);
	my $folderlist = join("','",@userorder);
	$folderlist .= "','".$permlistvals;

	$formhash{'select_form_order'} = ['','critical','new',@userorder,'sent','trash'];
	my $output = qq\|<script type="text/javascript">
	function folder_choice(targetform,caller) {
	var permfolders_keys = new Array('$permlistkeys');
	var permfolders_vals = new Array('$permlistvals');
	var allfolders = new Array('$folderlist');
	if (caller == 'change') {
	if (targetform.folderaction.options[targetform.folderaction.selectedIndex].value == 'rename') {
	for (var i=0; i<permfolders_keys.length; i++) {
	if (permfolders_keys[i] == targetform.folder.value) {
	alert("The '"+permfolders_vals[i]+"' folder may not be renamed as it is a mail folder provided by the system.");
	return;
	}
	}
	var foldername=prompt('New Name for Folder','New Name');
	if (foldername) {
	targetform.renamed.value=foldername;
	for (var i=0; i<allfolders.length; i++) {
	if (allfolders[i] == foldername) {
	alert("The folder may not be renamed '"+foldername+"' as this name is already in use for a system-provided or user-defined folder.");
	return;
	}
	}
	targetform.submit();
	}
	}
	else {
	targetform.submit();
	}
	}
	if (caller == 'new') {
	var newname=targetform.newfolder.value;
	if (newname) {
	for (var i=0; i<allfolders.length; i++) {
	if (allfolders[i] == newname) {
	alert("The new folder may not be named '"+newname+"' as this name is already in use for a system-provided or user-defined folder.");
	return;
	}
	}
	targetform.submit();
	}
	}
	}
	</script>\|;
	$output .= '
	<form method="post" action="/adm/email" name="folderlist">
	<table border="0" cellspacing="2" cellpadding="2">
	<tr>
	<td align="left">
	<table border="0" cellspacing="2" cellpadding="2">
	<tr>
	<td align="center"><b>'.$lt{'fold'}.'</b><br />'."\n".
	&Apache::loncommon::select_form($folder,'folder',%formhash).'
	</td>
	<td align="center"><b>'.$lt{'show'}.'</b><br />
	<select name="interdis">'.
	join("\n",map { '<option value="'.$_.'"'.
	($_==$interdis?' selected="selected"':'').'>'.$_.'</option>'
	}
	(10,20,50,100,200)).'</select>
	</td>
	<td align="center"><b>'.$lt{'actn'}.'</b><br />'.
	&Apache::loncommon::select_form('view','folderaction',%actions).'
	</td><td><br />'.
	'<input type="button" value="'.$lt{'go'}.'" onClick="javascript:folder_choice(this.form,'."'change'".');" />
	</td>
	</tr>
	</table>
	</td><td> </td><td> </td><td> </td><td> </td>
	<td align="right">
	<table><tr><td><br />
	<input type="button" value="'.&mt('Make New Folder').
	'" onClick="javascript:folder_choice(this.form,'."'new'".');" /></td>'.
	'<td align="center"><b>'.&mt('New Folder').'</b><br />'.
	'<input type="text" size="15" name="newfolder" value="" />
	</td></tr></table>
	</td>
	</tr>
	</table>'."\n".
'<input type="hidden" name="sortedby" value="'.$env{'form.sortedby'}.'" />'.	'<input type="hidden" name="sortedby" value="'.$env{'form.sortedby'}.'" />'.
($folder=~/^(new\|critical)/?'</form>':'');	'<input type="hidden" name="renamed" value="" />'.
	($folder=~/^(new\|critical)/?'</form>':'');
	return $output;
	}

	sub get_permanent_folders {
	my %permfolders =
	&Apache::lonlocal::texthash('' => 'INBOX',
	'trash' => 'TRASH',
	'new' => 'New Messages Only',
	'critical' => 'Critical',
	'sent' => 'Sent Messages',
	);
	return %permfolders;
}	}

sub scrollbuttons {	sub scrollbuttons {
Line 195 sub statuschange {	Line 305 sub statuschange {
# ============================================================= Make new folder	# ============================================================= Make new folder

sub makefolder {	sub makefolder {
my ($newfolder)=@_;	my ($newfolder) = @_;
if (($newfolder eq 'sent')	my %permfolders = &get_permanent_folders();
\|\| ($newfolder eq 'critical')	my %userfolders = &Apache::lonmsg::get_user_folders();
\|\| ($newfolder eq 'trash')	my ($outcome,$warning);
\|\| ($newfolder eq 'new')) { return; }	if (defined($userfolders{$newfolder})) {
&Apache::lonnet::put('email_folders',{$newfolder => time});	return &mt('The folder name: "[_1]" is already in use for an existing folder.',$newfolder);
	}
	foreach my $perm (keys(%permfolders)) {
	if ($permfolders{$perm} eq $newfolder) {
	return &mt('The folder name: "[_1]" is already used for one of the folders automatically generated by the system.',$newfolder);
	}
	}
	if (&get_msgfolder_lock() eq 'ok') {
	my %counter_hash = &Apache::lonnet::get('email_folders',["\0".'idcount']);
	my $lastcount = $counter_hash{"\0".'idcount'};
	my $folder_id = $lastcount + 1;
	while (defined($userfolders{$folder_id})) {
	$folder_id ++;
	}
	my %folderinfo = ( id => $folder_id,
	created => time, );
	$outcome =
	&Apache::lonnet::put('email_folders',{$newfolder => \%folderinfo,
	"\0".'idcount' => $folder_id});
	my $releaseresult = &release_msgfolder_lock();
	if ($releaseresult ne 'ok') {
	$warning = $releaseresult;
	}
	} else {
	$outcome =
	&mt('Error - could not obtain lock on email folders record.');
	}
	return ($outcome,$warning);
	}

	# ============================================================= Delete folder

	sub deletefolder {
	my ($folder)=@_;
	my %permfolders = &get_permanent_folders();
	if (defined($permfolders{$folder})) {
	return &mt('The folder [_1] may not be deleted',$folder);
	}
	my %userfolders = &Apache::lonmsg::get_user_folders();
	if (!defined($userfolders{$folder})) {
	return &mt('The folder [_1] does not exist so deletion is not required.',
	$folder);
	}
	# check folder is empty;
	my $suffix=&Apache::lonmsg::foldersuffix($folder);
	my @messages = &Apache::lonnet::getkeys('nohist_email'.$suffix);
	if (@messages > 0) {
	return &mt('The folder [_1] contains messages so it may not be deleted.').
	'<br />'.
	&mt('Delete or move the messages to a different folder first.');
	}
	my $delresult = &Apache::lonnet::del('email_folders',[$folder]);
	return $delresult;
	}

	sub renamefolder {
	my ($folder) = @_;
	my $newname = $env{'form.renamed'};
	my %permfolders = &get_permanent_folders();
	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);
	}
	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);
	}
	my %userfolders = &Apache::lonmsg::get_user_folders();
	if (defined($userfolders{$newname})) {
	return &mt('The folder "[_1]" may not be renamed to "[_2]" because the new name you requested is already being used for an existing folder.',$folder,$newname);
	}
	if (!defined($userfolders{$folder})) {
	return &mt('The folder "[_1]" could not be renamed to "[_2]" because the folder does not exist.',$folder,$newname);
	}
	my %folderinfo;
	if (ref($userfolders{$folder}) eq 'HASH') {
	%folderinfo = %{$userfolders{$folder}};
	} else {
	%folderinfo = ( id => $folder,
	created => $userfolders{$folder},);
	}
	my $outcome =
	&Apache::lonnet::put('email_folders',{$newname => \%folderinfo});
	if ($outcome eq 'ok') {
	$outcome = &Apache::lonnet::del('email_folders',[$folder]);
	}
	return $outcome;
}	}

	sub get_msgfolder_lock {
	# get lock for mail folder counter.
	my $lockhash = { "\0".'lock_counter' => time, };
	my $tries = 0;
	my $gotlock = &Apache::lonnet::newput('email_folders',$lockhash);
	while (($gotlock ne 'ok') && $tries <3) {
	$tries ++;
	sleep(1);
	$gotlock = &Apache::lonnet::newput('email_folders',$lockhash);
	}
	return $gotlock;
	}

	sub release_msgfolder_lock {
	# remove lock
	my @del_lock = ("\0".'lock_counter');
	my $dellockoutcome=&Apache::lonnet::del('email_folders',\@del_lock);
	if ($dellockoutcome ne 'ok') {
	return ('<br />'.&mt('Warning: failed to release lock for counter').'<br />');
	} else {
	return 'ok';
	}
	}


# ======================================================== Move between folders	# ======================================================== Move between folders

sub movemsg {	sub movemsg {
Line 486 sub discrit {	Line 705 sub discrit {
'<input type="hidden" name="confirm" value="true" />';	'<input type="hidden" name="confirm" value="true" />';
my %what=&Apache::lonnet::dump('critical');	my %what=&Apache::lonnet::dump('critical');
my $result = '';	my $result = '';
foreach (sort keys %what) {	foreach my $key (sort(keys(%what))) {
my %content=&Apache::lonmsg::unpackagemsg($what{$_});	my %content=&Apache::lonmsg::unpackagemsg($what{$key});
next if ($content{'senderdomain'} eq '');	next if ($content{'senderdomain'} eq '');
$result.='<hr />'.&mt('From').': <b>'.	$result.='<hr />'.&mt('From').': <b>'.
&Apache::loncommon::aboutmewrapper(	&Apache::loncommon::aboutmewrapper(
Line 500 $content{'sendername'}.':'.	Line 719 $content{'sendername'}.':'.
'</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').	&mt('You have to confirm that you received this message. After confirmation, this message will be moved to your regular inbox').
'</small><br />'.	'</small><br />'.
'<input type="submit" name="rec_'.$_.'" value="'.&mt('Confirm Receipt').'" />'.	'<input type="submit" name="rec_'.$key.'" value="'.&mt('Confirm Receipt').'" />'.
'<input type="submit" name="reprec_'.$_.'" '.	'<input type="submit" name="reprec_'.$key.'" '.
'value="'.&mt('Confirm Receipt and Reply').'" />';	'value="'.&mt('Confirm Receipt and Reply').'" />';
}	}
# Check to see if there were any messages.	# Check to see if there were any messages.
Line 520 sub sortedmessages {	Line 739 sub sortedmessages {
my ($blocked,$startblock,$endblock,$numblocked,$folder) = @_;	my ($blocked,$startblock,$endblock,$numblocked,$folder) = @_;
my $suffix=&Apache::lonmsg::foldersuffix($folder);	my $suffix=&Apache::lonmsg::foldersuffix($folder);
my @messages = &Apache::lonnet::getkeys('nohist_email'.$suffix);	my @messages = &Apache::lonnet::getkeys('nohist_email'.$suffix);

#unpack the varibles and repack into temp for sorting	#unpack the varibles and repack into temp for sorting
my @temp;	my @temp;
my %descriptions;	my %descriptions;
Line 623 sub get_course_desc {	Line 843 sub get_course_desc {
if (defined($env{'course.'.$fromcid.'.description'})) {	if (defined($env{'course.'.$fromcid.'.description'})) {
$description = $env{'course.'.$fromcid.'.description'};	$description = $env{'course.'.$fromcid.'.description'};
} else {	} else {
my %courseinfo=&Apache::lonnet::coursedescription($fromcid); $description = $courseinfo{'description'};	my %courseinfo=&Apache::lonnet::coursedescription($fromcid);
$description = $courseinfo{'description'};	$description = $courseinfo{'description'};
}	}
$$descriptions{$fromcid} = $description;	$$descriptions{$fromcid} = $description;
Line 640 sub disnew {	Line 860 sub disnew {
my %lt=&Apache::lonlocal::texthash(	my %lt=&Apache::lonlocal::texthash(
'nm' => 'New Messages',	'nm' => 'New Messages',
'su' => 'Subject',	'su' => 'Subject',
'co' => 'Course/Group',	'co' => 'Course',
'da' => 'Date',	'da' => 'Date',
'us' => 'Username',	'us' => 'Username',
'op' => 'Open',	'op' => 'Open',
Line 649 sub disnew {	Line 869 sub disnew {
my @msgids = sort(&Apache::lonnet::getkeys('nohist_email'));	my @msgids = sort(&Apache::lonnet::getkeys('nohist_email'));
my @newmsgs;	my @newmsgs;
my %setters = ();	my %setters = ();
my $startblock = 0;
my $endblock = 0;
my %blocked = ();	my %blocked = ();
my $numblocked = 0;	my $numblocked = 0;
# Check for blocking of display because of scheduled online exams.	# Check for blocking of display because of scheduled online exams.
&blockcheck(\%setters,\$startblock,\$endblock);	my ($startblock,$endblock) = &Apache::loncommon::blockcheck(\%setters,'com');
my %status_cache =	my %status_cache =
&Apache::lonnet::get('email_status',\@msgids);	&Apache::lonnet::get('email_status',\@msgids);
my %descriptions;	my %descriptions;
foreach (@msgids) {	foreach my $id (@msgids) {
my $msgid=&escape($_);	my $msgid=&escape($id);
my ($sendtime,$shortsubj,$fromname,$fromdom,$status,$fromcid)=	my ($sendtime,$shortsubj,$fromname,$fromdom,$status,$fromcid)=
&Apache::lonmsg::unpackmsgid($msgid,undef,undef,\%status_cache);	&Apache::lonmsg::unpackmsgid($msgid,undef,undef,\%status_cache);
if (defined($sendtime) && $sendtime!~/error/) {	if (defined($sendtime) && $sendtime!~/error/) {
Line 668 sub disnew {	Line 886 sub disnew {
$sendtime = &Apache::lonlocal::locallocaltime($sendtime);	$sendtime = &Apache::lonlocal::locallocaltime($sendtime);
if ($status eq 'new') {	if ($status eq 'new') {
if ($numsendtime >= $startblock && ($numsendtime <= $endblock && $endblock > 0) ) {	if ($numsendtime >= $startblock && ($numsendtime <= $endblock && $endblock > 0) ) {
$blocked{$_} = 'ON';	$blocked{$id} = 'ON';
$numblocked ++;	$numblocked ++;
} else {	} else {
push @newmsgs, {	push(@newmsgs, {
msgid => $msgid,	msgid => $msgid,
sendtime => $sendtime,	sendtime => $sendtime,
shortsub => $shortsubj,	shortsub => $shortsubj,
from => $fromname,	from => $fromname,
fromdom => $fromdom,	fromdom => $fromdom,
course => $description	course => $description,
}	});
}	}
}	}
}	}
Line 686 sub disnew {	Line 904 sub disnew {
if ($#newmsgs >= 0) {	if ($#newmsgs >= 0) {
$r->print(<<TABLEHEAD);	$r->print(<<TABLEHEAD);
<h2>$lt{'nm'}</h2>	<h2>$lt{'nm'}</h2>
<table class="LC_mail_list"><tr><th>&nbsp</th>	<table class="LC_mail_list"><tr><th> </th>
<th>$lt{'da'}</th><th>$lt{'us'}</th><th>$lt{'do'}</th><th>$lt{'su'}</th><th>$lt{'co'}</th></tr>	<th>$lt{'da'}</th><th>$lt{'us'}</th><th>$lt{'do'}</th><th>$lt{'su'}</th><th>$lt{'co'}</th></tr>
TABLEHEAD	TABLEHEAD
foreach my $msg (@newmsgs) {	foreach my $msg (@newmsgs) {
$r->print(<<"ENDLINK");	$r->print(<<"ENDLINK");
<tr class="LC_mail_new">	<tr class="LC_mail_new">
<td><a href="/adm/email?dismode=new&display=$msg->{'msgid'}">$lt{'op'}</a></td>	<td><a href="/adm/email?dismode=new&display=$msg->{'msgid'}">$lt{'op'}</a></td>
ENDLINK	ENDLINK
foreach ('sendtime','from','fromdom','shortsub','course') {	foreach my $item ('sendtime','from','fromdom','shortsub','course') {
$r->print("<td>$msg->{$_}</td>");	$r->print("<td>$msg->{$item}</td>");
}	}
$r->print("</td></tr>");	$r->print("</tr>");
}	}
$r->print('</table>');	$r->print('</table>');
} elsif ($numblocked == 0) {	} elsif ($numblocked == 0) {
Line 706 ENDLINK	Line 924 ENDLINK
if ($numblocked > 0) {	if ($numblocked > 0) {
my $beginblock = &Apache::lonlocal::locallocaltime($startblock);	my $beginblock = &Apache::lonlocal::locallocaltime($startblock);
my $finishblock = &Apache::lonlocal::locallocaltime($endblock);	my $finishblock = &Apache::lonlocal::locallocaltime($endblock);
if ($numblocked == 1) {	$r->print('<h3>'.&mt('You have [quant,_1,blocked unread message,blocked unread messages].',$numblocked).'</h3>'."\n".
$r->print("<h3>".&mt('You have').' '.$numblocked.' '.&mt('blocked unread message').".</h3>");	&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).'<br />'."\n".
$r->print(&mt('This message is not viewable because').' ');	&Apache::loncommon::build_block_table($startblock,$endblock,
} else {	\%setters));
$r->print("<h3>".&mt('You have').' '.$numblocked.' '.&mt('blocked unread messages').".</h3>");
$r->print(&mt('These').' '.$numblocked.' '.&mt('messages are not viewable because '));
}
$r->print(
&mt('display of LON-CAPA messages sent to you by other students between').' '.$beginblock.' '.&mt('and').' '.$finishblock.' '.&mt('is currently being blocked because of online exams').'.');
&build_block_table($r,$startblock,$endblock,\%setters);
}	}
}	}

Line 740 sub disfolder {	Line 952 sub disfolder {
my ($r,$folder)=@_;	my ($r,$folder)=@_;
my %blocked = ();	my %blocked = ();
my %setters = ();	my %setters = ();
my $startblock;
my $endblock;
my $numblocked = 0;	my $numblocked = 0;
&blockcheck(\%setters,\$startblock,\$endblock);	my ($startblock,$endblock) = &Apache::loncommon::blockcheck(\%setters,'com');
$r->print(<<ENDDISHEADER);	$r->print(<<ENDDISHEADER);
<script type="text/javascript">	<script type="text/javascript">
function checkall() {	function checkall() {
Line 766 sub disfolder {	Line 976 sub disfolder {
</script>	</script>
ENDDISHEADER	ENDDISHEADER
my $fsqs='&folder='.$folder;	my $fsqs='&folder='.$folder;
my @temp=sortedmessages(\%blocked,$startblock,$endblock,\$numblocked,$folder);	my @temp=&sortedmessages(\%blocked,$startblock,$endblock,\$numblocked,$folder);
my $totalnumber=$#temp+1;	my $totalnumber=$#temp+1;
unless ($totalnumber>0) {	unless ($totalnumber>0) {
$r->print('<h2>'.&mt('Empty Folder').'</h2>');	$r->print('<h2>'.&mt('Empty Folder').'</h2>');
Line 783 ENDDISHEADER	Line 993 ENDDISHEADER
if ($lastdis>$#temp) { $lastdis=$#temp; }	if ($lastdis>$#temp) { $lastdis=$#temp; }
$r->print(&scrollbuttons($startdis,$number,$firstdis,$lastdis,$totalnumber));	$r->print(&scrollbuttons($startdis,$number,$firstdis,$lastdis,$totalnumber));
$r->print('<form method="post" name="disall" action="/adm/email">'.	$r->print('<form method="post" name="disall" action="/adm/email">'.
'<table class="LC_mail_list"><tr><th colspan="3">&nbsp</th><th>');	'<table class="LC_mail_list"><tr><th colspan="3"> </th><th>');
if ($env{'form.sortedby'} eq "revdate") {	if ($env{'form.sortedby'} eq "revdate") {
$r->print('<a href = "?sortedby=date'.$fsqs.'">'.&mt('Date').'</a></th>');	$r->print('<a href = "?sortedby=date'.$fsqs.'">'.&mt('Date').'</a></th>');
} else {	} else {
Line 809 ENDDISHEADER	Line 1019 ENDDISHEADER
}	}
$r->print('</th><th>');	$r->print('</th><th>');
if ($env{'form.sortedby'} eq "revcourse") {	if ($env{'form.sortedby'} eq "revcourse") {
$r->print('<a href = "?sortedby=course'.$fsqs.'">'.&mt('Course/Group').'</a>');	$r->print('<a href = "?sortedby=course'.$fsqs.'">'.&mt('Course').'</a>');
} else {	} else {
$r->print('<a href = "?sortedby=revcourse'.$fsqs.'">'.&mt('Course/Group').'</a>');	$r->print('<a href = "?sortedby=revcourse'.$fsqs.'">'.&mt('Course').'</a>');
}	}
$r->print('</th><th>');	$r->print('</th><th>');
if ($env{'form.sortedby'} eq "revstatus") {	if ($env{'form.sortedby'} eq "revstatus") {
Line 874 ENDDISHEADER	Line 1084 ENDDISHEADER
'<p><input type="submit" name="markeddel" value="'.&mt('Delete Checked').'" /></p>');	'<p><input type="submit" name="markeddel" value="'.&mt('Delete Checked').'" /></p>');
}	}
$r->print('<p><input type="submit" name="markedmove" value="'.&mt('Move Checked to Folder').'" />');	$r->print('<p><input type="submit" name="markedmove" value="'.&mt('Move Checked to Folder').'" />');
my @allfolders=&Apache::lonnet::getkeys('email_folders');	my %gotfolders = &Apache::lonmsg::get_user_folders();
if ($allfolders[0]=~/^error:/) { @allfolders=(); }	my %userfolders;
	foreach my $key (keys(%gotfolders)) {
	$userfolders{$key} = $key;
	}
$r->print(	$r->print(
&Apache::loncommon::select_form('','movetofolder',	&Apache::loncommon::select_form('','movetofolder',
( map { $_ => $_ } @allfolders))	%userfolders));
);
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'}.'" /></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'}.'" /></form>');
if ($numblocked > 0) {	if ($numblocked > 0) {
my $beginblock = &Apache::lonlocal::locallocaltime($startblock);	my $beginblock = &Apache::lonlocal::locallocaltime($startblock);
my $finishblock = &Apache::lonlocal::locallocaltime($endblock);	my $finishblock = &Apache::lonlocal::locallocaltime($endblock);
$r->print('<br /><br />'.	$r->print('<br /><br />'.
$numblocked.' '.&mt('message(s) is/are not viewable because display of LON-CAPA messages sent to you by other students between').' '.$beginblock.' '.&mt('and').' '.$finishblock.' '.&mt('is currently being blocked because of online exams.'));	&mt('[_1,quant,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));
&build_block_table($r,$startblock,$endblock,\%setters);	$r->print(&Apache::loncommon::build_block_table($startblock,$endblock,
	\%setters));
}	}
}	}

Line 1039 sub compout {	Line 1252 sub compout {
my $latexHelp = Apache::loncommon::helpLatexCheatsheet();	my $latexHelp = Apache::loncommon::helpLatexCheatsheet();
if ($broadcast ne 'upload') {	if ($broadcast ne 'upload') {
$r->print(<<"ENDCOMP");	$r->print(<<"ENDCOMP");
<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>
<input type="text" size="50" name="additionalrec" /></td></tr>	<input type="text" size="50" name="additionalrec" /></td></tr>
<tr><td>$lt{'sb'}:</td><td><input type="text" size="50" name="subject" value="$dissub" />	<tr><td>$lt{'sb'}:</td><td><input type="text" size="50" name="subject" value="$dissub" />
Line 1077 Subject: <input type="text" size="50" na	Line 1290 Subject: <input type="text" size="50" na
<p>	<p>
The file format for the uploaded portion of the message is:	The file format for the uploaded portion of the message is:
<pre>	<pre>
username1\@domain1: text	username1:domain1: text
username2\@domain2: text	username2:domain2: text
username3\@domain1: text	username3:domain1: text
</pre>	</pre>
</p>	</p>
<p>	<p>
The messages will be assembled from all lines with the respective	The messages will be assembled from all lines with the respective
<tt>username\@domain</tt>, and appended to the general message text.</p>	<tt>username:domain</tt>, and appended to the general message text.</p>
<p>	<p>
<input type="file" name="upfile" size="40" /></p><p>	<input type="file" name="upfile" size="40" /></p><p>
$dispcrit	$dispcrit
Line 1135 sub retrieve_instructor_comments {	Line 1348 sub retrieve_instructor_comments {
$env{'course.'.$env{'request.course.id'}.'.num'},	$env{'course.'.$env{'request.course.id'}.'.num'},
'%255b'.$user.'%253a'.$domain.'%255d');	'%255b'.$user.'%253a'.$domain.'%255d');
my $result='';	my $result='';
foreach (sort(keys(%records))) {	foreach my $key (sort(keys(%records))) {
my %content=&Apache::lonmsg::unpackagemsg($records{$_});	my %content=&Apache::lonmsg::unpackagemsg($records{$key});
next if ($content{'senderdomain'} eq '');	next if ($content{'senderdomain'} eq '');
next if ($content{'subject'} !~ /^Record/);	next if ($content{'subject'} !~ /^Record/);
# &Apache::lonfeedback::newline_to_br(\$content{'message'});	# &Apache::lonfeedback::newline_to_br(\$content{'message'});
Line 1163 sub disfacetoface {	Line 1376 sub disfacetoface {
$env{'course.'.$env{'request.course.id'}.'.num'},	$env{'course.'.$env{'request.course.id'}.'.num'},
'%255b'.$user.'%253a'.$domain.'%255d');	'%255b'.$user.'%253a'.$domain.'%255d');
my $result='';	my $result='';
foreach (sort keys %records) {	foreach my $key (sort(keys(%records))) {
my %content=&Apache::lonmsg::unpackagemsg($records{$_});	my %content=&Apache::lonmsg::unpackagemsg($records{$key});
next if ($content{'senderdomain'} eq '');	next if ($content{'senderdomain'} eq '');
&Apache::lonfeedback::newline_to_br(\$content{'message'});	&Apache::lonfeedback::newline_to_br(\$content{'message'});
if ($content{'subject'}=~/^Record/) {	if ($content{'subject'}=~/^Record/) {
Line 1311 ENDBFORM	Line 1524 ENDBFORM
sub examblock {	sub examblock {
my ($r,$action) = @_;	my ($r,$action) = @_;
unless ($env{'request.course.id'}) { return;}	unless ($env{'request.course.id'}) { return;}
if (!&Apache::lonnet::allowed('srm',$env{'request.course.id'})	if (!&Apache::lonnet::allowed('dcm',$env{'request.course.id'})
&& ! &Apache::lonnet::allowed('srm',$env{'request.course.id'}.	&& ! &Apache::lonnet::allowed('dcm',$env{'request.course.id'}.
'/'.$env{'request.course.sec'})) {	'/'.$env{'request.course.sec'})) {
$r->print('Not allowed');	$r->print('Not allowed');
return;	return;
Line 1331 sub examblock {	Line 1544 sub examblock {
'dura' => 'Duration',	'dura' => 'Duration',
'setb' => 'Set by',	'setb' => 'Set by',
'even' => 'Event',	'even' => 'Event',
	'blck' => 'Blocked?',
'actn' => 'Action',	'actn' => 'Action',
'star' => 'Start',	'star' => 'Start',
'endd' => 'End'	'endd' => 'End'
Line 1387 sub blockstore {	Line 1601 sub blockstore {
my $addtotal = 0;	my $addtotal = 0;
my %blocking = ();	my %blocking = ();
$r->print('<h3>'.$lt{'head'}.'</h3>');	$r->print('<h3>'.$lt{'head'}.'</h3>');
foreach (keys %env) {	foreach my $envkey (keys(%env)) {
if ($_ =~ m/^form\.modify_(\w+)$/) {	if ($envkey =~ m/^form\.modify_(\d+)$/) {
$adds{$1} = $1;	$adds{$1} = $1;
$removals{$1} = $1;	$removals{$1} = $1;
$modtotal ++;	$modtotal ++;
} elsif ($_ =~ m/^form\.cancel_(\d+)$/) {	} elsif ($envkey =~ m/^form\.cancel_(\d+)$/) {
$cancels{$1} = $1;	$cancels{$1} = $1;
unless ( defined($removals{$1}) ) {	unless ( defined($removals{$1}) ) {
$removals{$1} = $1;	$removals{$1} = $1;
$canceltotal ++;	$canceltotal ++;
}	}
} elsif ($_ =~ m/^form\.add_(\d+)$/) {	} elsif ($envkey =~ m/^form\.add_(\d+)$/) {
$adds{$1} = $1;	$adds{$1} = $1;
$addtotal ++;	$addtotal ++;
}	}
}	}

foreach (keys %removals) {	foreach my $key (keys(%removals)) {
my $hashkey = $env{'form.key_'.$_};	my $hashkey = $env{'form.key_'.$key};
&Apache::lonnet::del('comm_block',["$hashkey"],	&Apache::lonnet::del('comm_block',["$hashkey"],
$env{'course.'.$env{'request.course.id'}.'.domain'},	$env{'course.'.$env{'request.course.id'}.'.domain'},
$env{'course.'.$env{'request.course.id'}.'.num'}	$env{'course.'.$env{'request.course.id'}.'.num'}
);	);
}	}
foreach (keys %adds) {	foreach my $key (keys(%adds)) {
unless ( defined($cancels{$_}) ) {	unless ( defined($cancels{$key}) ) {
my ($newstart,$newend) = &get_dates_from_form($_);	my ($newstart,$newend) = &get_dates_from_form($key);
my $newkey = $newstart.'____'.$newend;	my $newkey = $newstart.'____'.$newend;
$blocking{$newkey} = $env{'user.name'}.':'.$env{'user.domain'}.':'.$env{'form.title_'.$_};	my $blocktypes = &get_block_choices($key);
	$blocking{$newkey} = {
	setter => $env{'user.name'}.':'.$env{'user.domain'},
	event => &escape($env{'form.title_'.$key}),
	blocks => $blocktypes,
	};
}	}
}	}
if ($addtotal + $modtotal > 0) {	if ($addtotal + $modtotal > 0) {
Line 1466 sub get_blockdates {	Line 1685 sub get_blockdates {
}	}
}	}

	sub get_block_choices {
	my $item = shift;
	my $blocklist;
	my ($typeorder,$types) = &blocktype_text();
	foreach my $type (@{$typeorder}) {
	if ($env{'form.'.$type.'_'.$item}) {
	$blocklist->{$type} = 'on';
	} else {
	$blocklist->{$type} = 'off';
	}
	}
	return $blocklist;
	}

sub display_blocker_status {	sub display_blocker_status {
my ($r,$records,$ltext) = @_;	my ($r,$records,$ltext) = @_;
my $parmcount = 0;	my $parmcount = 0;
Line 1474 sub display_blocker_status {	Line 1707 sub display_blocker_status {
'modi' => 'Modify',	'modi' => 'Modify',
'canc' => 'Cancel',	'canc' => 'Cancel',
);	);
	my ($typeorder,$types) = &blocktype_text();
$r->print(&Apache::loncommon::start_data_table());	$r->print(&Apache::loncommon::start_data_table());
$r->print(<<"END");	$r->print(<<"END");
<tr>	<tr>
<th>$$ltext{'dura'}</th>	<th>$ltext->{'dura'}</th>
<th>$$ltext{'setb'}</th>	<th>$ltext->{'setb'}</th>
<th>$$ltext{'even'}</th>	<th>$ltext->{'even'}</th>
<th>$$ltext{'actn'}?</th>	<th>$ltext->{'blck'}</th>
	<th>$ltext->{'actn'}?</th>
</tr>	</tr>
END	END
foreach my $record (sort(keys(%{$records}))) {	foreach my $record (sort(keys(%{$records}))) {
Line 1491 END	Line 1726 END
my $startform = &Apache::lonhtmlcommon::date_setter('blockform','startdate_'.$parmcount,$start,$onchange);	my $startform = &Apache::lonhtmlcommon::date_setter('blockform','startdate_'.$parmcount,$start,$onchange);
my $endform = &Apache::lonhtmlcommon::date_setter('blockform','enddate_'.$parmcount,$end,$onchange);	my $endform = &Apache::lonhtmlcommon::date_setter('blockform','enddate_'.$parmcount,$end,$onchange);

my ($setuname,$setudom,$title) =	my ($setuname,$setudom,$title,$blocks) =
&parse_block_record($$records{$record});	&Apache::loncommon::parse_block_record($$records{$record});
$title = &HTML::Entities::encode($title,'"<>&');	$title = &HTML::Entities::encode($title,'"<>&');
my $settername = &Apache::loncommon::plainname($setuname,$setudom);	my $settername =
	&Apache::loncommon::aboutmewrapper(
	&Apache::loncommon::plainname($setuname,$setudom),
	$setuname,$setudom);
$r->print(&Apache::loncommon::start_data_table_row());	$r->print(&Apache::loncommon::start_data_table_row());
$r->print(<<"END");	$r->print(<<"END");
<td>$$ltext{'star'}: $startform<br/>$$ltext{'endd'}:  $endform</td>	<td>$ltext->{'star'}: $startform<br/>$ltext->{'endd'}:  $endform</td>
<td>$settername</td>	<td>$settername</td>
<td><input type="text" name="title_$parmcount" size="15" value="$title" /><input type="hidden" name="key_$parmcount" value="$record" /></td>	<td><input type="text" name="title_$parmcount" size="15" value="$title" /><input type="hidden" name="key_$parmcount" value="$record" /></td>
	<td>
	END
	foreach my $block (@{$typeorder}) {
	my $blockstatus = '';
	if ($blocks->{$block} eq 'on') {
	$blockstatus = 'checked="true"';
	}
	$r->print('<label><input type="checkbox" name="'.$block.'_'.$parmcount.'" '.$blockstatus.' value="1" />'.$types->{$block}.'</label><br />');
	}
	$r->print(<<"END");
	</td>
<td><label>$lt{'modi'}? <input type="checkbox" name="modify_$parmcount" /></label><br /><label>$lt{'canc'}?  <input type="checkbox" name="cancel_$parmcount" /></label>	<td><label>$lt{'modi'}? <input type="checkbox" name="modify_$parmcount" /></label><br /><label>$lt{'canc'}?  <input type="checkbox" name="cancel_$parmcount" /></label>
END	END
$r->print(&Apache::loncommon::end_data_table_row());	$r->print(&Apache::loncommon::end_data_table_row());
Line 1513 END	Line 1762 END
return $parmcount;	return $parmcount;
}	}

sub parse_block_record {
my ($record) = @_;
my ($setuname,$setudom,$title);
my @data = split(/:/,$record,3);
if (scalar(@data) eq 2) {
$title = $data[1];
($setuname,$setudom) = split(/@/,$data[0]);
} else {
($setuname,$setudom,$title) = @data;
}
return ($setuname,$setudom,$title);
}

sub display_addblocker_table {	sub display_addblocker_table {
my ($r,$parmcount,$ltext) = @_;	my ($r,$parmcount,$ltext) = @_;
my $start = time;	my $start = time;
Line 1540 sub display_addblocker_table {	Line 1776 sub display_addblocker_table {
'exam' => 'e.g., Exam 1',	'exam' => 'e.g., Exam 1',
'addn' => 'Add new communication blocking periods'	'addn' => 'Add new communication blocking periods'
);	);
	my ($typeorder,$types) = &blocktype_text();
$r->print(<<"END");	$r->print(<<"END");
<h4>$lt{'addn'}</h4>	<h4>$lt{'addn'}</h4>
END	END
$r->print(&Apache::loncommon::start_data_table());	$r->print(&Apache::loncommon::start_data_table());
$r->print(<<"END");	$r->print(<<"END");
<tr>	<tr>
<th>$$ltext{'dura'}</th>	<th>$ltext->{'dura'}</th>
<th>$$ltext{'even'} $lt{'exam'}</th>	<th>$ltext->{'even'} $lt{'exam'}</th>
<th>$$ltext{'actn'}?</th>	<th>$ltext->{'blck'}</th>
	<th>$ltext->{'actn'}?</th>
</tr>	</tr>
END	END
$r->print(&Apache::loncommon::start_data_table_row());	$r->print(&Apache::loncommon::start_data_table_row());
$r->print(<<"END");	$r->print(<<"END");
<td>$$ltext{'star'}: $startform<br />$$ltext{'endd'}:  $endform</td>	<td>$ltext->{'star'}: $startform<br />$ltext->{'endd'}:  $endform</td>
<td><input type="text" name="title_$parmcount" size="15" value="" /></td>	<td><input type="text" name="title_$parmcount" size="15" value="" /></td>
	<td>
	END
	foreach my $block (@{$typeorder}) {
	$r->print('<label><input type="checkbox" name="'.$block.'_'.$parmcount.'" value="1" />'.$types->{$block}.'</label><br />');
	}
	$r->print(<<"END");
	</td>
<td><label>$lt{'addb'}? <input type="checkbox" name="add_$parmcount" value="1" /></label></td>	<td><label>$lt{'addb'}? <input type="checkbox" name="add_$parmcount" value="1" /></label></td>
END	END
$r->print(&Apache::loncommon::end_data_table_row());	$r->print(&Apache::loncommon::end_data_table_row());
Line 1562 END	Line 1807 END
return;	return;
}	}

sub blockcheck {	sub blocktype_text {
my ($setters,$startblock,$endblock) = @_;	my %types = &Apache::lonlocal::texthash(
# Retrieve active student roles and active course coordinator/instructor roles	'com' => 'Messaging',
my %live_courses =	'chat' => 'Chat',
map { $_ => 1} &Apache::loncommon::findallcourses();	'boards' => 'Discussion',
# FIXME should really probe for apriv, but ::allowed can only probe the	'port' => 'Portfolio',
# currently active role	'groups' => 'Groups',
my %staff_of =	'blogs' => 'Blogs',
map { $_ => 1} &Apache::loncommon::findallcourses(['cc','in']);

# Retrieve blocking times and identity of blocker for active courses
# for students.
return if (!%live_courses);

foreach my $course (keys(%live_courses)) {
my $cdom = $env{'course.'.$course.'.domain'};
my $cnum = $env{'course.'.$course.'.num'};

# if they are a staff member and are currently not playing student
next if ( $staff_of{$course}
&& ($env{'request.role'} !~ m{^st\./$cdom/$cnum}));

$setters->{$course} = {};
$setters->{$course}{'staff'} = [];
$setters->{$course}{'times'} = [];
my %records = &Apache::lonnet::dump('comm_block',$cdom,$cnum);
foreach my $record (keys %records) {
my ($start,$end) = ($record =~ m/^(\d+)____(\d+)$/);
if ($start <= time && $end >= time) {
my ($staff_name,$staff_dom,$title) =
&parse_block_record($records{$record});
push(@{$$setters{$course}{'staff'}}, [$staff_name,$staff_dom]);
push(@{$$setters{$course}{'times'}}, [$start,$end]);
if ( ($$startblock == 0) \|\| ($$startblock > $1) ) {
$$startblock = $1;
}
if ( ($$endblock == 0) \|\| ($$endblock < $2) ) {
$$endblock = $2;
}
}
}
}
}

sub build_block_table {
my ($r,$startblock,$endblock,$setters) = @_;
my %lt = &Apache::lonlocal::texthash(
'cacb' => 'Currently active communication blocks',
'cour' => 'Course/Group',
'dura' => 'Duration',
'blse' => 'Block set by'
);	);
$r->print(<<"END");	my $typeorder = ['com','chat','boards','port','groups','blogs'];
<br /><br />$lt{'cacb'}:<br /><br />	return ($typeorder,\%types);
END
$r->print(&Apache::loncommon::start_data_table());
$r->print(<<"END");
<tr>
<th>$lt{'cour'}</th>
<th>$lt{'dura'}</th>
<th>$lt{'blse'}</th>
</tr>
END
foreach my $course (keys(%{$setters})) {
my %courseinfo=&Apache::lonnet::coursedescription($course);
for (my $i=0; $i<@{$$setters{$course}{staff}}; $i++) {
my ($uname,$udom) = @{$$setters{$course}{staff}[$i]};
my $fullname = &Apache::loncommon::plainname($uname,$udom);
my ($openblock,$closeblock) = @{$$setters{$course}{times}[$i]};
$openblock = &Apache::lonlocal::locallocaltime($openblock);
$closeblock= &Apache::lonlocal::locallocaltime($closeblock);
$r->print(&Apache::loncommon::start_data_table_row().
'<td>'.$courseinfo{'description'}.'</td>'.
'<td>'.$openblock.' to '.$closeblock.'</td>'.
'<td>'.$fullname.' ('.$uname.':'.$udom.
')</td>'.
&Apache::loncommon::end_data_table_row());
}
}
$r->print(&Apache::loncommon::end_data_table());
}	}

# ----------------------------------------------------------- Display a message	# ----------------------------------------------------------- Display a message
Line 1651 sub displaymessage {	Line 1827 sub displaymessage {
my $suffix=&Apache::lonmsg::foldersuffix($folder);	my $suffix=&Apache::lonmsg::foldersuffix($folder);
my %blocked = ();	my %blocked = ();
my %setters = ();	my %setters = ();
my $startblock = 0;
my $endblock = 0;
my $numblocked = 0;	my $numblocked = 0;
my $crstype = &Apache::loncommon::course_type();	my $crstype = &Apache::loncommon::course_type();

# info to generate "next" and "previous" buttons and check if message is blocked	# info to generate "next" and "previous" buttons and check if message is blocked
&blockcheck(\%setters,\$startblock,\$endblock);	my ($startblock,$endblock) = &Apache::loncommon::blockcheck(\%setters,'com');
my @messages=&sortedmessages(\%blocked,$startblock,$endblock,\$numblocked,$folder);	my @messages=&sortedmessages(\%blocked,$startblock,$endblock,\$numblocked,$folder);
if ( $blocked{$msgid} eq 'ON' ) {	if ( $blocked{$msgid} eq 'ON' ) {
&printheader($r,'/adm/email',&mt('Display a Message'));	&printheader($r,'/adm/email',&mt('Display a Message'));
Line 1790 sub header {	Line 1964 sub header {

my $extra = &Apache::loncommon::studentbrowser_javascript();	my $extra = &Apache::loncommon::studentbrowser_javascript();
if ($baseurl) {	if ($baseurl) {
$extra .= "<base href=\"http://$ENV{'SERVER_NAME'}/$baseurl\" />";	$extra .= "<base href=\"".&Apache::lonnet::absolute_url()."/$baseurl\" />";
}	}
$r->print(&Apache::loncommon::start_page('Communication and Messages',	$r->print(&Apache::loncommon::start_page('Communication and Messages',
$extra));	$extra));
Line 1814 sub storecomment {	Line 1988 sub storecomment {
my ($r)=@_;	my ($r)=@_;
my $msgtxt=&Apache::lonfeedback::clear_out_html($env{'form.message'});	my $msgtxt=&Apache::lonfeedback::clear_out_html($env{'form.message'});
my $cleanmsgtxt='';	my $cleanmsgtxt='';
foreach (split(/[\n\r]/,$msgtxt)) {	foreach my $line (split(/[\n\r]/,$msgtxt)) {
unless ($_=~/^\s*(\>\|\&gt\;)/) {	unless ($line=~/^\s*(\>\|\&gt\;)/) {
$cleanmsgtxt.=$_."\n";	$cleanmsgtxt.=$line."\n";
}	}
}	}
my $key=&escape($env{'form.baseurl'}).'___'.time;	my $key=&escape($env{'form.baseurl'}).'___'.time;
Line 1833 sub storedcommentlisting {	Line 2007 sub storedcommentlisting {
$r->print(&mt('No stored comments yet.'));	$r->print(&mt('No stored comments yet.'));
} else {	} else {
my $found=0;	my $found=0;
foreach (sort keys %msgs) {	foreach my $key (sort(keys(%msgs))) {
$r->print("\n".$msgs{$_}."<hr />");	$r->print("\n".$msgs{$key}."<hr />");
$found=1;	$found=1;
}	}
unless ($found) {	unless ($found) {
Line 1906 sub sendoffmail {	Line 2080 sub sendoffmail {
}	}
} elsif ($env{'form.sendmode'} eq 'upload') {	} elsif ($env{'form.sendmode'} eq 'upload') {
foreach my $line (split(/[\n\r\f]+/,$env{'form.upfile'})) {	foreach my $line (split(/[\n\r\f]+/,$env{'form.upfile'})) {
my ($rec,$txt)=split(/\s\:\s/,$line);	my ($rec,$txt) = ($line =~ /^([^:]+:[^:]+):(.*)$/);
if ($txt) {	if ($txt) {
$rec=~s/\@/\:/;	$rec =~ s/^\s+//;
	$rec =~ s/\s+$//;
$toaddr{$rec}.=$txt."\n";	$toaddr{$rec}.=$txt."\n";
}	}
}	}
Line 1918 sub sendoffmail {	Line 2093 sub sendoffmail {
}	}
}	}
if ($env{'form.additionalrec'}) {	if ($env{'form.additionalrec'}) {
foreach (split(/\,/,$env{'form.additionalrec'})) {	foreach my $rec (split(/\,/,$env{'form.additionalrec'})) {
my ($auname,$audom)=split(/\@/,$_);	my ($auname,$audom)=split(/:/,$rec);
if (($auname ne "") && ($audom ne "")) {	if (($auname ne "") && ($audom ne "")) {
$toaddr{$auname.':'.$audom}='';	$toaddr{$auname.':'.$audom}='';
}	}
Line 2103 sub handler {	Line 2278 sub handler {
unless ($dismode) {	unless ($dismode) {
$dismode='';	$dismode='';
} else {	} else {
$sqs.='&dismode='.&escape($dismode);	$sqs.='&dismode='.&escape($dismode);
}	}

# --------------------------------------------------------------------- Display	# --------------------------------------------------------------------- Display
Line 2140 sub handler {	Line 2315 sub handler {
} elsif ($env{'form.confirm'}) {	} elsif ($env{'form.confirm'}) {
&printheader($r,'','Confirmed Receipt');	&printheader($r,'','Confirmed Receipt');
my $replying = 0;	my $replying = 0;
foreach (keys %env) {	foreach my $envkey (keys(%env)) {
if ($_=~/^form\.rec\_(.*)$/) {	if ($envkey=~/^form\.rec\_(.*)$/) {
$r->print('<b>'.&mt('Confirming Receipt').':</b> '.	$r->print('<b>'.&mt('Confirming Receipt').':</b> '.
&Apache::lonmsg::user_crit_received($1).'<br>');	&Apache::lonmsg::user_crit_received($1).'<br>');
}	}
if ($_=~/^form\.reprec\_(.*)$/) {	if ($envkey=~/^form\.reprec\_(.*)$/) {
my $msgid=$1;	my $msgid=$1;
$r->print('<b>'.&mt('Confirming Receipt').':</b> '.	$r->print('<b>'.&mt('Confirming Receipt').':</b> '.
&Apache::lonmsg::user_crit_received($msgid).'<br>');	&Apache::lonmsg::user_crit_received($msgid).'<br>');
Line 2254 sub handler {	Line 2429 sub handler {
}	}
} elsif ($env{'form.newfolder'}) {	} elsif ($env{'form.newfolder'}) {
&printheader($r,'','New Folder');	&printheader($r,'','New Folder');
&makefolder($env{'form.newfolder'});	my $showfolder = $env{'form.newfolder'};
&Apache::loncommunicate::menu($r);	my ($makeresult,$warning) = &makefolder($env{'form.newfolder'});
&disall($r,$env{'form.newfolder'});	if ($makeresult eq 'ok') {
	$r->print(&mt('Mail folder "[_1]" created.',$showfolder).'<br />');
	} else {
	$r->print(&mt('Creation failed.').' '.$makeresult.'<br />'.
	$warning);
	$showfolder = $folder;
	}
	&Apache::loncommunicate::menu($r);
	&disall($r,$showfolder);
} elsif ($env{'form.showcommentbaseurl'}) {	} elsif ($env{'form.showcommentbaseurl'}) {
&storedcommentlisting($r);	&storedcommentlisting($r);
	} elsif ($env{'form.folderaction'} eq 'delete') {
	&printheader($r,'','Deleted Folder');
	my $showfolder = '';
	my $delresult = &deletefolder($folder);
	if ($delresult eq 'ok') {
	$r->print(&mt('Mail folder "[_1]" deleted.',$folder).'<br />');
	} else {
	$r->print(&mt('Deletion failed.').' '.$delresult.'<br />');
	$showfolder = $folder;
	}
	&Apache::loncommunicate::menu($r);
	&disall($r,$showfolder);
	} elsif ($env{'form.folderaction'} eq 'rename') {
	&printheader($r,'','Renamed Folder');
	my $showfolder = $env{'form.renamed'};
	my $renresult = &renamefolder($folder);
	if ($renresult eq 'ok') {
	$r->print(&mt('Mail folder "[_1]" renamed "[_2]".',$folder,$showfolder).'<br />');
	} else {
	$r->print(&mt('Renaming failed.').' '.$renresult.'<br />');
	$showfolder = $folder;
	}
	&Apache::loncommunicate::menu($r);
	&disall($r,$showfolder);
} else {	} else {
&printheader($r,'','Display All Messages');	&printheader($r,'','Display All Messages');
&Apache::loncommunicate::menu($r);	&Apache::loncommunicate::menu($r);
&disall($r,($folder?$folder:$dismode));	&disall($r,($folder?$folder:$dismode));
}	}
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());

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

Removed from v.1.40
changed lines
	Added in v.1.48