|
version 1.35.2.4, 2006/07/19 16:01:45
|
version 1.52, 2006/12/17 15:52:37
|
|
Line 74 email program, so they have full access
|
Line 74 email program, so they have full access
|
| interface, or other features they may wish to use in response to the |
interface, or other features they may wish to use in response to the |
| student's query. |
student's query. |
| |
|
| =item * B<Blocking>: LON-CAPA can block display of e-mails that are |
=item * B<Blocking>: LON-CAPA can block selected communication |
| sent to a student during an online exam. A course coordinator or |
features for students during an online exam. A course coordinator or |
| instructor can set an open and close date/time for scheduled online |
instructor can set an open and close date/time for scheduled online |
| exams in a course. If a user uses the LON-CAPA internal messaging |
exams in a course. If a user uses the LON-CAPA internal messaging |
| system to display e-mails during the scheduled blocking event, |
system to display e-mails during the scheduled blocking event, |
|
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'), |
nnff => 'New Name for Folder', |
| 'new' => &mt('New Messages Only'), |
newn => 'New Name', |
| 'critical' => &mt('Critical'), |
thfm => 'The folder may not be renamed', |
| 'sent' => &mt('Sent Messages'), |
fmnb => 'folder may not be renamed as it is a folder provided by the system.', |
| map { $_ => $_ } @allfolders)). |
asth => 'as this name is already in use for a system-provided or user-defined folder.', |
| ' '.&mt('Show'). |
the => 'The', |
| '<select name="interdis">'. |
tnfm => 'The new folder may not be named', |
| join("\n",map { '<option value="'.$_.'"'. |
|
| ($_==$interdis?' selected="selected"':'').'>'.$_.'</option>' } |
); |
| (10,20,50,100,200)).'</select>'. |
|
| '<input type="submit" value="'.&mt('View Folder').'" /><br />'. |
my %actions = &Apache::lonlocal::texthash( |
| |
view => 'View Folder', |
| |
rename => 'Rename Folder', |
| |
delete => 'Delete Folder', |
| |
); |
| |
$actions{'select_form_order'} = ['view','rename','delete']; |
| |
|
| |
my %permfolders = &get_permanent_folders(); |
| |
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)) { |
| |
$key =~ s/(['"])/\$1/g; |
| |
$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("$lt{'the'} '"+permfolders_vals[i]+"' $lt{'fmnb'}"); |
| |
return; |
| |
} |
| |
} |
| |
var foldername=prompt('$lt{'nnff'}','$lt{'newn'}'); |
| |
if (foldername) { |
| |
targetform.renamed.value=foldername; |
| |
for (var i=0; i<allfolders.length; i++) { |
| |
if (allfolders[i] == foldername) { |
| |
alert("$lt{'thfm'} '"+foldername+"' $lt{'asth'}"); |
| |
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("$lt{'tnfm'} '"+newname+"' $lt{'asth'}"); |
| |
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 314 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 270 sub discourse {
|
Line 498 sub discourse {
|
| &Apache::lonselstudent::get_people_in_class($env{'request.course.sec'}); |
&Apache::lonselstudent::get_people_in_class($env{'request.course.sec'}); |
| unshift @$current_members, (@$course_personnel); |
unshift @$current_members, (@$course_personnel); |
| my %defaultUsers; |
my %defaultUsers; |
| |
|
| |
$result .= '<input type="hidden" name="sendmode" value="group" />'."\n"; |
| |
|
| $result = &Apache::lonselstudent::render_student_list($current_members, |
$result .= &Apache::lonselstudent::render_student_list($current_members, |
| "compemail", |
"compemail", |
| "current", |
"current", |
| \%defaultUsers, |
\%defaultUsers, |
| 1,"selectedusers",1); |
1,"selectedusers",1); |
| |
|
| $result .= &Apache::lonselstudent::render_student_list($expired_members, |
$result .= &Apache::lonselstudent::render_student_list($expired_members, |
| "compemail", |
"compemail", |
|
Line 348 sub disgroup {
|
Line 578 sub disgroup {
|
| $result.='<td valign="top">'. |
$result.='<td valign="top">'. |
| '<fieldset><legend><b>'.$lt{$status}. |
'<fieldset><legend><b>'.$lt{$status}. |
| '</b></legend><nobr>'. |
'</b></legend><nobr>'. |
| '<input type="button" value="check all" '. |
'<input type="button" value="'.&mt('Check All').'" '. |
| 'onclick="javascript:toggleAll('."'".$status."','check'".')" />'. |
'onclick="javascript:toggleAll('."'".$status."','check'".')" />'. |
| ' '. |
' '. |
| '<input type="button" value="uncheck all" '. |
'<input type="button" value="'.&mt('Uncheck All').'" '. |
| 'onclick="javascript:toggleAll('."'".$status."','uncheck'".')" />'. |
'onclick="javascript:toggleAll('."'".$status."','uncheck'".')" />'. |
| '</nobr></fieldset><br />'. |
'</nobr></fieldset><br />'. |
| &Apache::loncommon::start_data_table(). |
&Apache::loncommon::start_data_table(). |
|
Line 484 sub discrit {
|
Line 714 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 498 $content{'sendername'}.':'.
|
Line 728 $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 518 sub sortedmessages {
|
Line 748 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 621 sub get_course_desc {
|
Line 852 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 647 sub disnew {
|
Line 878 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 666 sub disnew {
|
Line 895 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 684 sub disnew {
|
Line 913 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> </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 704 ENDLINK
|
Line 933 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 738 sub disfolder {
|
Line 961 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 764 sub disfolder {
|
Line 985 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 781 ENDDISHEADER
|
Line 1002 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"> </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 872 ENDDISHEADER
|
Line 1093 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('[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)); |
| &build_block_table($r,$startblock,$endblock,\%setters); |
$r->print(&Apache::loncommon::build_block_table($startblock,$endblock, |
| |
\%setters)); |
| } |
} |
| } |
} |
| |
|
|
Line 932 sub compout {
|
Line 1156 sub compout {
|
| my $dismsg=''; |
my $dismsg=''; |
| my $disbase=''; |
my $disbase=''; |
| my $func=&mt('Send New'); |
my $func=&mt('Send New'); |
| my %lt=&Apache::lonlocal::texthash('us' => 'Username', |
my %lt=&Apache::lonlocal::texthash('us' => 'Username', |
| 'do' => 'Domain', |
'do' => 'Domain', |
| 'ad' => 'Additional Recipients', |
'ad' => 'Additional Recipients', |
| 'sb' => 'Subject', |
'sb' => 'Subject', |
| 'ca' => 'Cancel', |
'ca' => 'Cancel', |
| 'ma' => 'Mail'); |
'ma' => 'Mail', |
| |
'gen' => 'Generate messages from a file', |
| |
'gmt' => 'General message text', |
| |
'tff' => 'The file format for the uploaded portion of the message is', |
| |
'uas' => 'Upload and Send', |
| |
); |
| if (&Apache::lonnet::allowed('srm',$env{'request.course.id'}) |
if (&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'})) { |
'/'.$env{'request.course.sec'})) { |
|
Line 1037 sub compout {
|
Line 1265 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 1062 ENDCOMP
|
Line 1290 ENDCOMP
|
| $env{'form.group'}.'" />'); |
$env{'form.group'}.'" />'); |
| } |
} |
| } else { # $broadcast is 'upload' |
} else { # $broadcast is 'upload' |
| $r->print(<<ENDUPLOAD); |
$r->print(<<ENDBLOCK); |
| <input type="hidden" name="sendmode" value="upload" /> |
<input type="hidden" name="sendmode" value="upload" /> |
| <input type="hidden" name="send" value="on" /> |
<input type="hidden" name="send" value="on" /> |
| <h3>Generate messages from a file</h3> |
<h3>$lt{'gen'}</h3> |
| <p> |
<p> |
| Subject: <input type="text" size="50" name="subject" /> |
Subject: <input type="text" size="50" name="subject" /> |
| </p> |
</p> |
| <p>General message text<br /> |
<p>$lt{'gmt'}:<br /> |
| <textarea name="message" id="message" cols="60" rows="10" wrap="hard">$dismsg |
<textarea name="message" id="message" cols="60" rows="10" wrap="hard">$dismsg |
| </textarea></p> |
</textarea></p> |
| <p> |
<p> |
| The file format for the uploaded portion of the message is: |
$lt{'tff'}: |
| <pre> |
ENDBLOCK |
| username1\@domain1: text |
$r->print(' |
| username2\@domain2: text |
<pre>'."\n". |
| username3\@domain1: text |
&mt('username1:domain1: text')."\n". |
| </pre> |
&mt('username2:domain2: text')."\n". |
| |
&mt('username3:domain1: text')."\n". |
| |
'</pre> |
| </p> |
</p> |
| <p> |
<p> |
| The messages will be assembled from all lines with the respective |
'.&mt('The messages will be assembled from all lines with the respective'."\n".'<tt>username:domain</tt>, and appended to the general message text.')); |
| <tt>username\@domain</tt>, and appended to the general message text.</p> |
$r->print(<<ENDUPLOAD); |
| |
</p> |
| <p> |
<p> |
| <input type="file" name="upfile" size="40" /></p><p> |
<input type="file" name="upfile" size="40" /></p><p> |
| $dispcrit |
$dispcrit |
| <input type="submit" value="Upload and Send" /></p> |
<input type="submit" value="$lt{'uas'}" /></p> |
| ENDUPLOAD |
ENDUPLOAD |
| } |
} |
| if ($broadcast eq 'group') { |
if ($broadcast eq 'group') { |
|
Line 1123 sub retrieve_instructor_comments {
|
Line 1354 sub retrieve_instructor_comments {
|
| my ($user,$domain)=@_; |
my ($user,$domain)=@_; |
| my $target=$env{'form.grade_target'}; |
my $target=$env{'form.grade_target'}; |
| if (! $env{'request.course.id'}) { return; } |
if (! $env{'request.course.id'}) { return; } |
| if (! &Apache::lonnet::allowed('srm',$env{'request.course.id'}) |
if (! &Apache::lonnet::allowed('dff',$env{'request.course.id'}) |
| && ! &Apache::lonnet::allowed('srm',$env{'request.course.id'}. |
&& ! &Apache::lonnet::allowed('dff',$env{'request.course.id'}. |
| '/'.$env{'request.course.sec'})) { |
'/'.$env{'request.course.sec'})) { |
| return; |
return; |
| } |
} |
|
Line 1133 sub retrieve_instructor_comments {
|
Line 1364 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 1150 sub disfacetoface {
|
Line 1381 sub disfacetoface {
|
| my ($r,$user,$domain)=@_; |
my ($r,$user,$domain)=@_; |
| my $target=$env{'form.grade_target'}; |
my $target=$env{'form.grade_target'}; |
| 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('dff',$env{'request.course.id'}) |
| && ! &Apache::lonnet::allowed('srm',$env{'request.course.id'}. |
&& ! &Apache::lonnet::allowed('dff',$env{'request.course.id'}. |
| '/'.$env{'request.course.sec'})) { |
'/'.$env{'request.course.sec'})) { |
| $r->print('Not allowed'); |
$r->print(&mt('Not allowed')); |
| return; |
return; |
| } |
} |
| my %records=&Apache::lonnet::dump('nohist_email', |
my %records=&Apache::lonnet::dump('nohist_email', |
|
Line 1161 sub disfacetoface {
|
Line 1392 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 1232 sub general_message {
|
Line 1463 sub general_message {
|
| |
|
| sub facetoface { |
sub facetoface { |
| my ($r,$stage)=@_; |
my ($r,$stage)=@_; |
| if (!&Apache::lonnet::allowed('srm',$env{'request.course.id'}) |
if (!&Apache::lonnet::allowed('dff',$env{'request.course.id'}) |
| && ! &Apache::lonnet::allowed('srm',$env{'request.course.id'}. |
&& ! &Apache::lonnet::allowed('dff',$env{'request.course.id'}. |
| '/'.$env{'request.course.sec'})) { |
'/'.$env{'request.course.sec'})) { |
| $r->print('Not allowed'); |
$r->print(&mt('Not allowed')); |
| return; |
return; |
| } |
} |
| my $crstype = &Apache::loncommon::course_type(); |
my $crstype = &Apache::loncommon::course_type(); |
|
Line 1309 ENDBFORM
|
Line 1540 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 1322 sub examblock {
|
Line 1553 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 stored', |
| |
'stor' => 'Store', |
| ); |
); |
| |
|
| my %ltext = &Apache::lonlocal::texthash( |
my %ltext = &Apache::lonlocal::texthash( |
| '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 1360 sub examblock {
|
Line 1593 sub examblock {
|
| $r->print(<<"END"); |
$r->print(<<"END"); |
| <br /> |
<br /> |
| <input type="hidden" name="blocktotal" value="$blockcount" /> |
<input type="hidden" name="blocktotal" value="$blockcount" /> |
| <input type ="submit" value="Save Changes" /> |
<input type ="submit" value="$lt{'stor'}" /> |
| </form> |
</form> |
| $end_page |
$end_page |
| END |
END |
|
Line 1371 sub blockstore {
|
Line 1604 sub blockstore {
|
| my $r = shift; |
my $r = shift; |
| my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
| 'tfcm' => 'The following changes were made', |
'tfcm' => 'The following changes were made', |
| 'cbps' => 'communication blocking period(s)', |
|
| 'werm' => 'was/were removed', |
|
| 'wemo' => 'was/were modified', |
|
| 'wead' => 'was/were added', |
|
| 'ncwm' => 'No changes were made.' |
'ncwm' => 'No changes were made.' |
| ); |
); |
| my %adds = (); |
my %adds = (); |
|
Line 1385 sub blockstore {
|
Line 1614 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 1426 sub blockstore {
|
Line 1660 sub blockstore {
|
| if ($chgestotal > 0) { |
if ($chgestotal > 0) { |
| $r->print($lt{'tfcm'}.'<ul>'); |
$r->print($lt{'tfcm'}.'<ul>'); |
| if ($canceltotal > 0) { |
if ($canceltotal > 0) { |
| $r->print('<li>'.$canceltotal.' '.$lt{'cbps'},' '.$lt{'werm'}.'</li>'); |
$r->print('<li>'.&mt('[quant,_1,communication blocking period was,communication blocking periods were] removed.',$canceltotal).'</li>'); |
| } |
} |
| if ($modtotal > 0) { |
if ($modtotal > 0) { |
| $r->print('<li>'.$modtotal.' '.$lt{'cbps'},' '.$lt{'wemo'}.'</li>'); |
$r->print('<li>'.&mt('[quant,_1,communication blocking period was,communication blocking periods were] modified.',$modtotal).'</li>'); |
| } |
} |
| if ($addtotal > 0) { |
if ($addtotal > 0) { |
| $r->print('<li>'.$addtotal.' '.$lt{'cbps'},' '.$lt{'wead'}.'</li>'); |
$r->print('<li>'.&mt('[quant,_1,communication blocking period was,communication blocking periods were] added.',$addtotal).'</li>'); |
| } |
} |
| $r->print('</ul>'); |
$r->print('</ul>'); |
| } else { |
} else { |
|
Line 1464 sub get_blockdates {
|
Line 1698 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 1472 sub display_blocker_status {
|
Line 1720 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 1489 END
|
Line 1739 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 1511 END
|
Line 1775 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 1538 sub display_addblocker_table {
|
Line 1789 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 1560 END
|
Line 1820 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', |
|
| '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 1649 sub displaymessage {
|
Line 1840 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 1788 sub header {
|
Line 1977 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 1812 sub storecomment {
|
Line 2001 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*(\>|\>\;)/) { |
unless ($line=~/^\s*(\>|\>\;)/) { |
| $cleanmsgtxt.=$_."\n"; |
$cleanmsgtxt.=$line."\n"; |
| } |
} |
| } |
} |
| my $key=&escape($env{'form.baseurl'}).'___'.time; |
my $key=&escape($env{'form.baseurl'}).'___'.time; |
|
Line 1831 sub storedcommentlisting {
|
Line 2020 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 1904 sub sendoffmail {
|
Line 2093 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 1916 sub sendoffmail {
|
Line 2106 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 2101 sub handler {
|
Line 2291 sub handler {
|
| unless ($dismode) { |
unless ($dismode) { |
| $dismode=''; |
$dismode=''; |
| } else { |
} else { |
| $sqs.='&dismode='.&escape($dismode); |
$sqs.='&dismode='.&escape($dismode); |
| } |
} |
| |
|
| # --------------------------------------------------------------------- Display |
# --------------------------------------------------------------------- Display |
|
Line 2138 sub handler {
|
Line 2328 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 2252 sub handler {
|
Line 2442 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()); |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonmsgdisplay.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface