version 1.35.2.4, 2006/07/19 16:01:45
|
version 1.55, 2006/12/23 04:39:32
|
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 137 my $interdis;
|
Line 137 my $interdis;
|
# ============================================================ List all folders |
# ============================================================ List all folders |
|
|
sub folderlist { |
sub folderlist { |
my $folder=shift; |
my ($folder,$msgstatus) = @_; |
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', |
status => 'Message Status', |
('' => &mt('INBOX'),'trash' => &mt('TRASH'), |
go => 'Go', |
'new' => &mt('New Messages Only'), |
nnff => 'New Name for Folder', |
'critical' => &mt('Critical'), |
newn => 'New Name', |
'sent' => &mt('Sent Messages'), |
thfm => 'The folder may not be renamed', |
map { $_ => $_ } @allfolders)). |
fmnb => 'folder may not be renamed as it is a folder provided by the system.', |
' '.&mt('Show'). |
asth => 'as this name is already in use for a system-provided or user-defined folder.', |
'<select name="interdis">'. |
the => 'The', |
join("\n",map { '<option value="'.$_.'"'. |
tnfm => 'The new folder may not be named', |
($_==$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 %statushash = &get_msgstatus_types(); |
|
|
|
$statushash{'select_form_order'} = ['','new','read','replied','forwarded']; |
|
|
|
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; #' stupid emacs |
|
$userfolders{$key} = $key; |
|
} |
|
my @userorder = sort(keys(%userfolders)); |
|
my %formhash = (%permfolders,%userfolders); |
|
my $folderlist = join("','",@userorder); |
|
$folderlist .= "','".$permlistvals; |
|
|
|
$formhash{'select_form_order'} = ['','critical',@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{'status'}.'</b><br />'."\n". |
|
&Apache::loncommon::select_form($msgstatus,'msgstatus',%statushash).' |
|
</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=~/^critical/?'</form>':''); |
|
return $output; |
|
} |
|
|
|
sub get_permanent_folders { |
|
my %permfolders = |
|
&Apache::lonlocal::texthash('' => 'INBOX', |
|
'trash' => 'TRASH', |
|
'critical' => 'Critical', |
|
'sent' => 'Sent Messages', |
|
); |
|
return %permfolders; |
|
} |
|
|
|
sub get_msgstatus_types { |
|
my %statushash = &Apache::lonlocal::texthash( |
|
'' => 'Any', |
|
new => 'Unread', |
|
read => 'Read', |
|
replied => 'Replied to', |
|
forwarded => 'Forwarded', |
|
); |
|
return %statushash; |
} |
} |
|
|
sub scrollbuttons { |
sub scrollbuttons { |
my ($start,$maxdis,$first,$finish,$total)=@_; |
my ($start,$maxdis,$first,$finish,$total,$msgstatus)=@_; |
unless ($total>0) { return ''; } |
unless ($total>0) { return ''; } |
$start++; $maxdis++;$first++;$finish++; |
$start++; $maxdis++;$first++;$finish++; |
|
|
|
my %statushash = &get_msgstatus_types(); |
|
my $status; |
|
if ($msgstatus eq '') { |
|
$status = &mt('All'); |
|
} else { |
|
$status = $statushash{$msgstatus}; |
|
} |
return |
return |
&mt('Page').': '. |
'<b>'.&mt('Page').'</b>: '. |
'<input type="submit" name="firstview" value="'.&mt('First').'" />'. |
'<input type="submit" name="firstview" value="'.&mt('First').'" />'. |
'<input type="submit" name="prevview" value="'.&mt('Previous').'" />'. |
'<input type="submit" name="prevview" value="'.&mt('Previous').'" />'. |
'<input type="text" size="5" name="startdis" value="'.$start.'" onChange="this.form.submit()" /> of '.$maxdis. |
'<input type="text" size="5" name="startdis" value="'.$start.'" onChange="this.form.submit()" /> of '.$maxdis. |
'<input type="submit" name="nextview" value="'.&mt('Next').'" />'. |
'<input type="submit" name="nextview" value="'.&mt('Next').'" />'. |
'<input type="submit" name="lastview" value="'.&mt('Last').'" /><br />'. |
'<input type="submit" name="lastview" value="'.&mt('Last').'" /><br />'. |
&mt('Showing messages [_1] through [_2] of [_3]',$first,$finish,$total).'</form>'; |
&mt('<b>[_1] messages</b>: showing messages [_2] through [_3] of [_4].',$status,$first,$finish,$total).'</form>'; |
} |
} |
# =============================================================== Status Change |
# =============================================================== Status Change |
|
|
Line 195 sub statuschange {
|
Line 340 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 524 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 604 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 740 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 754 $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 515 $content{'sendername'}.':'.
|
Line 771 $content{'sendername'}.':'.
|
} |
} |
|
|
sub sortedmessages { |
sub sortedmessages { |
my ($blocked,$startblock,$endblock,$numblocked,$folder) = @_; |
my ($blocked,$startblock,$endblock,$numblocked,$folder,$msgstatus) = @_; |
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 535 sub sortedmessages {
|
Line 792 sub sortedmessages {
|
my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$fromcid)= |
my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$fromcid)= |
&Apache::lonmsg::unpackmsgid($esc_msgid,$folder,undef, |
&Apache::lonmsg::unpackmsgid($esc_msgid,$folder,undef, |
\%status_cache); |
\%status_cache); |
|
next if ($msgstatus ne '' && $msgstatus ne $status); |
my $description = &get_course_desc($fromcid,\%descriptions); |
my $description = &get_course_desc($fromcid,\%descriptions); |
my @temp1 = ($sendtime,$shortsubj,$fromname,$fromdomain,$status, |
my @temp1 = ($sendtime,$shortsubj,$fromname,$fromdomain,$status, |
$esc_msgid,$description); |
$esc_msgid,$description); |
Line 621 sub get_course_desc {
|
Line 879 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 630 sub get_course_desc {
|
Line 888 sub get_course_desc {
|
} |
} |
} |
} |
|
|
# ======================================================== Display new messages |
|
|
|
|
|
sub disnew { |
|
my $r=shift; |
|
my %lt=&Apache::lonlocal::texthash( |
|
'nm' => 'New Messages', |
|
'su' => 'Subject', |
|
'co' => 'Course', |
|
'da' => 'Date', |
|
'us' => 'Username', |
|
'op' => 'Open', |
|
'do' => 'Domain' |
|
); |
|
my @msgids = sort(&Apache::lonnet::getkeys('nohist_email')); |
|
my @newmsgs; |
|
my %setters = (); |
|
my $startblock = 0; |
|
my $endblock = 0; |
|
my %blocked = (); |
|
my $numblocked = 0; |
|
# Check for blocking of display because of scheduled online exams. |
|
&blockcheck(\%setters,\$startblock,\$endblock); |
|
my %status_cache = |
|
&Apache::lonnet::get('email_status',\@msgids); |
|
my %descriptions; |
|
foreach (@msgids) { |
|
my $msgid=&escape($_); |
|
my ($sendtime,$shortsubj,$fromname,$fromdom,$status,$fromcid)= |
|
&Apache::lonmsg::unpackmsgid($msgid,undef,undef,\%status_cache); |
|
if (defined($sendtime) && $sendtime!~/error/) { |
|
my $description = &get_course_desc($fromcid,\%descriptions); |
|
my $numsendtime = $sendtime; |
|
$sendtime = &Apache::lonlocal::locallocaltime($sendtime); |
|
if ($status eq 'new') { |
|
if ($numsendtime >= $startblock && ($numsendtime <= $endblock && $endblock > 0) ) { |
|
$blocked{$_} = 'ON'; |
|
$numblocked ++; |
|
} else { |
|
push @newmsgs, { |
|
msgid => $msgid, |
|
sendtime => $sendtime, |
|
shortsub => $shortsubj, |
|
from => $fromname, |
|
fromdom => $fromdom, |
|
course => $description |
|
} |
|
} |
|
} |
|
} |
|
} |
|
if ($#newmsgs >= 0) { |
|
$r->print(<<TABLEHEAD); |
|
<h2>$lt{'nm'}</h2> |
|
<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> |
|
TABLEHEAD |
|
foreach my $msg (@newmsgs) { |
|
$r->print(<<"ENDLINK"); |
|
<tr class="LC_mail_new"> |
|
<td><a href="/adm/email?dismode=new&display=$msg->{'msgid'}">$lt{'op'}</a></td> |
|
ENDLINK |
|
foreach ('sendtime','from','fromdom','shortsub','course') { |
|
$r->print("<td>$msg->{$_}</td>"); |
|
} |
|
$r->print("</td></tr>"); |
|
} |
|
$r->print('</table>'); |
|
} elsif ($numblocked == 0) { |
|
$r->print("<h3>".&mt('You have no unread messages')."</h3>"); |
|
} |
|
if ($numblocked > 0) { |
|
my $beginblock = &Apache::lonlocal::locallocaltime($startblock); |
|
my $finishblock = &Apache::lonlocal::locallocaltime($endblock); |
|
if ($numblocked == 1) { |
|
$r->print("<h3>".&mt('You have').' '.$numblocked.' '.&mt('blocked unread message').".</h3>"); |
|
$r->print(&mt('This message is not viewable because').' '); |
|
} else { |
|
$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); |
|
} |
|
} |
|
|
|
|
|
# ======================================================== Display all messages |
# ======================================================== Display all messages |
|
|
sub disall { |
sub disall { |
my ($r,$folder)=@_; |
my ($r,$folder,$msgstatus)=@_; |
$r->print(&folderlist($folder)); |
$r->print(&folderlist($folder,$msgstatus)); |
if ($folder eq 'new') { |
if ($folder eq 'critical') { |
&disnew($r); |
|
} elsif ($folder eq 'critical') { |
|
&discrit($r); |
&discrit($r); |
} else { |
} else { |
&disfolder($r,$folder); |
&disfolder($r,$folder,$msgstatus); |
} |
} |
} |
} |
|
|
# ============================================================ Display a folder |
# ============================================================ Display a folder |
|
|
sub disfolder { |
sub disfolder { |
my ($r,$folder)=@_; |
my ($r,$folder,$msgstatus)=@_; |
|
my %statushash = &get_msgstatus_types(); |
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'); |
|
my %lt = &Apache::lonlocal::texthash( |
|
sede => 'Select a destination folder to which the messages will be moved.', |
|
nome => 'No messages have been selected to apply ths action to.', |
|
chec => 'Check the checkbox for at least one message.', |
|
); |
$r->print(<<ENDDISHEADER); |
$r->print(<<ENDDISHEADER); |
<script type="text/javascript"> |
<script type="text/javascript"> |
function checkall() { |
function checkall() { |
for (i=0; i<document.forms.disall.elements.length; i++) { |
for (i=0; i<document.forms.disall.delmark.length; i++) { |
if |
document.forms.disall.delmark[i].checked=true; |
(document.forms.disall.elements[i].name.indexOf('delmark_')==0) { |
|
document.forms.disall.elements[i].checked=true; |
|
} |
|
} |
} |
} |
} |
|
|
function uncheckall() { |
function uncheckall() { |
for (i=0; i<document.forms.disall.elements.length; i++) { |
for (i=0; i<document.forms.disall.delmark.length; i++) { |
if |
document.forms.disall.delmark[i].checked=false; |
(document.forms.disall.elements[i].name.indexof('delmark_')==0) { |
} |
document.forms.disall.elements[i].checked=false; |
} |
|
function checkfoldermove() { |
|
if (document.disall.checkedaction.options[document.disall.checkedaction.selectedIndex].value == 'markedmove') { |
|
if (document.disall.movetofolder.options[document.disall.movetofolder.selectedIndex].value == "") { |
|
alert("$lt{'sede'}"); |
|
return; |
|
} |
|
} |
|
return; |
|
} |
|
|
|
function validate_checkedaction() { |
|
document.disall.markedaction.value = document.disall.checkedaction.options[document.disall.checkedaction.selectedIndex].value; |
|
if (document.disall.checkedaction.options[document.disall.checkedaction.selectedIndex].value == 'markedmove') { |
|
if (document.disall.movetofolder.options[document.disall.movetofolder.selectedIndex].value == "") { |
|
alert("$lt{'sede'}"); |
|
return; |
|
} |
|
} |
|
var checktotal = 0; |
|
for (var i=0; i<document.forms.disall.delmark.length; i++) { |
|
if (document.forms.disall.delmark[i].checked) { |
|
checktotal ++; |
} |
} |
} |
} |
|
if (checktotal == 0) { |
|
alert("$lt{'nome'}\\n$lt{'chec'}"); |
|
return; |
|
} |
|
document.disall.submit(); |
} |
} |
|
|
</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,$msgstatus); |
my $totalnumber=$#temp+1; |
my $totalnumber=$#temp+1; |
unless ($totalnumber>0) { |
if ($totalnumber < 1) { |
$r->print('<h2>'.&mt('Empty Folder').'</h2>'); |
if ($msgstatus eq '') { |
|
$r->print('<h2>'.&mt('Empty Folder').'</h2>'); |
|
} elsif ($msgstatus eq 'replied') { |
|
$r->print('<h2>'.&mt('You have not replied to any messages in this folder.').'</h2>'); |
|
} else { |
|
$r->print('<h2>'.&mt('There are no '.lc($statushash{$msgstatus}).' messages in this folder.').'</h2>'); |
|
} |
return; |
return; |
} |
} |
unless ($interdis) { |
unless ($interdis) { |
$interdis=20; |
$interdis=20; |
} |
} |
my $number=int($totalnumber/$interdis); |
my $number=int($totalnumber/$interdis); |
|
if ($interdis) { |
|
if ($totalnumber%$interdis == 0) { |
|
$number--; |
|
} |
|
} |
|
|
if (($startdis<0) || ($startdis>$number)) { $startdis=$number; } |
if (($startdis<0) || ($startdis>$number)) { $startdis=$number; } |
my $firstdis=$interdis*$startdis; |
my $firstdis=$interdis*$startdis; |
if ($firstdis>$#temp) { $firstdis=$#temp-$interdis+1; } |
if ($firstdis>$#temp) { $firstdis=$#temp-$interdis+1; } |
my $lastdis=$firstdis+$interdis-1; |
my $lastdis=$firstdis+$interdis-1; |
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,$msgstatus)); |
$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="1"> </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 848 ENDDISHEADER
|
Line 1058 ENDDISHEADER
|
$dis_domain = join('<br />',@{$content{'recdomain'}}); |
$dis_domain = join('<br />',@{$content{'recdomain'}}); |
} |
} |
} |
} |
$r->print('<td><input type="checkbox" name="delmark_'.$origID.'" /></td><td><a href="/adm/email?display='.$origID.$sqs. |
my $localsenttime = &Apache::lonlocal::locallocaltime($sendtime); |
'">'.&mt('Open').'</a></td><td>'. |
my $count = $n +1; |
($folder ne 'trash'?'<a href="/adm/email?markdel='.$origID.$sqs. |
$r->print('<td align="right"><nobr>'.(($status eq 'new')?'<b>':''). |
'">'.&mt('Delete'):' ').'</a></td>'. |
$count.'.'.(($status eq 'new')?'</b>':'').' '. |
'<td>'.&Apache::lonlocal::locallocaltime($sendtime).'</td><td>'. |
'<input type="checkbox" name="delmark"'. |
$dis_name.'</td><td>'.$dis_domain.'</td><td>'. |
' value="'.$origID.'" /></nobr></td>'); |
$shortsubj.'</td><td>'. |
foreach my $item ($localsenttime,$dis_name,$dis_domain,$shortsubj) { |
$description.'</td><td>'.$status.'</td></tr>'."\n"); |
$r->print('<td>'.(($status eq 'new')?'<b>':''). |
|
'<a href="/adm/email?display='.$origID.$sqs.'">'. |
|
$item.(($status eq 'new')?'</b>':'').'</td>'); |
|
} |
|
my $showstatus; |
|
my %statushash = &get_msgstatus_types(); |
|
if ($status eq '') { |
|
$showstatus = ''; |
|
} else { |
|
$showstatus = $statushash{$status}; |
|
} |
|
$r->print('<td>'.(($status eq 'new')?'<b>':'').$description. |
|
(($status eq 'new')?'</b>':'').'</td><td>'. |
|
(($status eq 'new')?'<b>':'').$showstatus. |
|
(($status eq 'new')?'</b>':'').'</td></tr>'."\n"); |
} elsif ($status eq 'deleted') { |
} elsif ($status eq 'deleted') { |
# purge |
# purge |
my ($result,$msg) = |
my ($result,$msg) = |
Line 863 ENDDISHEADER
|
Line 1087 ENDDISHEADER
|
|
|
} |
} |
} |
} |
$r->print("</table>\n<p>". |
$r->print("</table>\n"); |
'<a href="javascript:checkall()">'.&mt('Check All').'</a> '. |
$r->print('<table border="0" cellspacing="2" cellpadding="2"> |
'<a href="javascript:uncheckall()">'.&mt('Uncheck All').'</a></p>'. |
<tr> |
'<input type="hidden" name="sortedby" value="'.$env{'form.sortedby'}.'" />'); |
<td>'. |
|
'<input type="button" onclick="javascript:checkall()" value="'.&mt('Check All').'" /><br />'."\n". |
|
'<input type="button" onclick="javascript:uncheckall()" value="'.&mt('Uncheck All').'" />'."\n". |
|
'<input type="hidden" name="sortedby" value="'.$env{'form.sortedby'}.'" /></td><td> </td>'."\n". |
|
'<td align="center"><b>'.&mt('Action').'</b><br />'."\n". |
|
' <select name="checkedaction" onchange="javascript:checkfoldermove()">'."\n"); |
|
|
if ($folder ne 'trash') { |
if ($folder ne 'trash') { |
$r->print( |
$r->print(' <option value="markeddel">'.&mt('Delete').'</option>'."\n"); |
'<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').'" />'); |
if ($msgstatus ne 'read') { |
my @allfolders=&Apache::lonnet::getkeys('email_folders'); |
$r->print(' <option value="markedread">'.&mt('Mark Read').'</option>."\n"'); |
if ($allfolders[0]=~/^error:/) { @allfolders=(); } |
} |
$r->print( |
if ($msgstatus ne 'unread') { |
&Apache::loncommon::select_form('','movetofolder', |
$r->print(' <option value="markedunread">'.&mt('Mark Unread').'</option>'."\n"); |
( map { $_ => $_ } @allfolders)) |
} |
); |
$r->print(' <option value="markedforward">'.&mt('Forward').'</option>'."\n"); |
|
|
|
my %gotfolders = &Apache::lonmsg::get_user_folders(); |
|
if (keys(%gotfolders) > 0) { |
|
$r->print(' <option value="markedmove">'.&mt('Move to Folder ->'). |
|
'</option>'); |
|
} |
|
$r->print("\n".'</select></td>'."\n"); |
|
|
|
if (keys(%gotfolders) > 0) { |
|
$r->print('<td align="center"><b>'.&mt('Destination folder').'<b><br />'); |
|
my %userfolders; |
|
foreach my $key (keys(%gotfolders)) { |
|
$userfolders{$key} = $key; |
|
} |
|
$userfolders{''} = ""; |
|
$r->print(&Apache::loncommon::select_form('','movetofolder',%userfolders). |
|
'</td>'); |
|
} |
|
$r->print('<td> </td><td> '. |
|
'<input type="button" name="go" value="'.&mt('Go'). |
|
'" onclick="javascript:validate_checkedaction()"/></td>'."\n". |
|
'</tr></table>'); |
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'}.'" /><input type="hidden" name="msgstatus" value="'.$msgstatus.'" ><input type="hidden" name="markedaction" value="" /></form>'); |
if ($numblocked > 0) { |
if ($numblocked > 0) { |
my $beginblock = &Apache::lonlocal::locallocaltime($startblock); |
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)); |
} |
} |
} |
} |
|
|
# ============================================================== Compose output |
# ============================================================== Compose output |
|
|
sub compout { |
sub compout { |
my ($r,$forwarding,$replying,$broadcast,$replycrit,$folder,$dismode)=@_; |
my ($r,$forwarding,$replying,$broadcast,$replycrit,$folder,$dismode, |
|
$multiforward)=@_; |
my $suffix=&Apache::lonmsg::foldersuffix($folder); |
my $suffix=&Apache::lonmsg::foldersuffix($folder); |
my ($cdom,$cnum,$group,$refarg); |
my ($cdom,$cnum,$group,$refarg); |
if (exists($env{'form.group'})) { |
if (exists($env{'form.group'})) { |
Line 922 sub compout {
|
Line 1175 sub compout {
|
} elsif ($replycrit) { |
} elsif ($replycrit) { |
$r->print('<h3>'.&mt('Replying to a Critical Message').'</h3>'); |
$r->print('<h3>'.&mt('Replying to a Critical Message').'</h3>'); |
$replying=$replycrit; |
$replying=$replycrit; |
|
} elsif ($multiforward) { |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>"/adm/email?folder=".&escape($folder), |
|
text=>"Display All Messages"}); |
|
&printheader($r,'/adm/email?compose=multiforward', |
|
'Forwarding Multiple Messages'); |
|
$r->print(&mt('Each of the <b>[quant,_1,message]</b> you checked will be forwarded to the recipient(s) you select below.',$multiforward).'<br />'); |
} else { |
} else { |
&printheader($r,'/adm/email?compose=upload', |
&printheader($r,'/adm/email?compose=upload', |
'Distribute from Uploaded File'); |
'Distribute from Uploaded File'); |
Line 932 sub compout {
|
Line 1192 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', |
|
'msg' => 'Messages', |
|
'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 1035 sub compout {
|
Line 1300 sub compout {
|
} |
} |
} |
} |
my $latexHelp = Apache::loncommon::helpLatexCheatsheet(); |
my $latexHelp = Apache::loncommon::helpLatexCheatsheet(); |
if ($broadcast ne 'upload') { |
my $subj_size; |
$r->print(<<"ENDCOMP"); |
if ($multiforward) { |
<tr><td>$lt{'ad'}<br /><tt>username\@domain,username\@domain, ... |
$r->print(&additional_rec_row(\%lt)); |
</tt></td><td> |
$r->print('<tr><td colspan="2">'. |
<input type="text" size="50" name="additionalrec" /></td></tr> |
&mt('Unless you choose otherwise:').'<ul><li>'. |
<tr><td>$lt{'sb'}:</td><td><input type="text" size="50" name="subject" value="$dissub" /> |
&mt("The subject in each forwarded message will be <i>'Forwarding:'</i> followed by the original subject.").'</li><li>'. |
</td></tr></table> |
&mt("The message itself will begin with a first line: <i>'Forwarded message from'</i> followed by the original sender's name.").'</li></ul></td></tr>'); |
|
$func=&mt('Forward'); |
|
$dissub = &mt('Forwarding').': '; |
|
$subj_size = '10'; |
|
my $extra = '<'.&mt('original subject').'> '. |
|
'<input type="radio" name="showorigsubj" value="1" checked="checked" />'.&mt('Yes').' <input type="radio" name="showorigsubj" value="0" />'.&mt('No'); |
|
$dismsg = &mt('Forwarded message from ').' '; |
|
my $sender = &mt("sender's name"); |
|
$r->print(&msg_subject_row($dissub,\%lt,$subj_size,$extra)); |
|
$r->print('<tr><td>'.&mt('Message begins with:').'</td><td><input type="text" name="msgheader" value="'.$dismsg.'" /> '.$sender.' <input type="radio" name="showorigsender" value="1" checked="checked" />'.&mt('Yes').' <input type="radio" name="showorigsender" value="0" />'.&mt('No').'<input type="hidden" name="multiforward" value="'.$multiforward.'" /></td></tr> |
|
</table> |
|
<br />'. |
|
$latexHelp. |
|
&mt("Any new text to display before the text of the original messages:").'<br /> |
|
<textarea name="message" id="message" cols="80" rows="5" wrap="hard"> |
|
</textarea></p><br />'); |
|
my @to_forward = &Apache::loncommon::get_env_multiple('form.delmark'); |
|
foreach my $msg (@to_forward) { |
|
$r->print('<input type="hidden" name="delmark" value="'.$msg.'" />'); |
|
} |
|
$r->print(&submit_button_row($folder,$dismode,$func.' '.$lt{'msg'}, |
|
\%lt)); |
|
} elsif ($broadcast ne 'upload') { |
|
$subj_size = '50'; |
|
$r->print(&additional_rec_row(\%lt)); |
|
$r->print(&msg_subject_row($dissub,\%lt,$subj_size)); |
|
$r->print(<<"ENDCOMP"); |
|
</table> |
$latexHelp |
$latexHelp |
<textarea name="message" id="message" cols="80" rows="15" wrap="hard">$dismsg |
<textarea name="message" id="message" cols="80" rows="15" wrap="hard">$dismsg |
</textarea></p><br /> |
</textarea></p><br /> |
$dispcrit |
$dispcrit |
$disbase |
$disbase |
<input type="hidden" name="folder" value="$folder" /> |
|
<input type="hidden" name="dismode" value="$dismode" /> |
|
<input type="submit" name="send" value="$func $lt{'ma'}" /> |
|
<input type="submit" name="cancel" value="$lt{'ca'}" /><hr /> |
|
$citation |
|
ENDCOMP |
ENDCOMP |
|
$r->print(&submit_button_row($folder,$dismode,$func.' '.$lt{'ma'}, |
|
\%lt)); |
|
$r->print($citation); |
if (exists($env{'form.ref'})) { |
if (exists($env{'form.ref'})) { |
$r->print('<input type="hidden" name="ref" value="'. |
$r->print('<input type="hidden" name="ref" value="'. |
$env{'form.ref'}.'" />'); |
$env{'form.ref'}.'" />'); |
Line 1062 ENDCOMP
|
Line 1352 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 1119 ENDREC
|
Line 1412 ENDREC
|
return $output; |
return $output; |
} |
} |
|
|
|
sub additional_rec_row { |
|
my ($lt) = @_; |
|
my $output = <<"ENDADD"; |
|
<tr><td>$lt->{'ad'}:<br /><tt>username:domain,username:domain, ... |
|
</tt></td><td> |
|
<input type="text" size="50" name="additionalrec" /></td></tr> |
|
ENDADD |
|
return $output; |
|
} |
|
|
|
sub submit_button_row { |
|
my ($folder,$dismode,$sendtext,$lt) = @_; |
|
my $output = qq| |
|
<input type="hidden" name="folder" value="$folder" /> |
|
<input type="hidden" name="dismode" value="$dismode" /> |
|
<input type="submit" name="send" value="$sendtext" /> |
|
<input type="submit" name="cancel" value="$lt->{'ca'}" /><hr /> |
|
|; |
|
return $output; |
|
} |
|
|
|
sub msg_subject_row { |
|
my ($dissub,$lt,$subj_size,$extra) = @_; |
|
my $output = '<tr><td>'.$lt->{'sb'}.':</td><td><input type="text" size="'. |
|
$subj_size.'" name="subject" value="'.$dissub.'" />'.$extra. |
|
'</td></tr>'; |
|
return $output; |
|
} |
|
|
sub retrieve_instructor_comments { |
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 1455 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 1472 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 1483 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 1554 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 1631 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 1644 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 1684 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 1695 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 1705 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 1751 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 1789 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 1811 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 1830 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 1866 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 1880 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 1911 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 |
|
|
sub displaymessage { |
sub displaymessage { |
my ($r,$msgid,$folder)=@_; |
my ($r,$msgid,$folder,$msgstatus)=@_; |
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,$msgstatus); |
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')); |
$r->print(&mt('You attempted to display a message that is currently blocked because you are enrolled in one or more courses for which there is an ongoing online exam.')); |
$r->print(&mt('You attempted to display a message that is currently blocked because you are enrolled in one or more courses for which there is an ongoing online exam.')); |
Line 1692 sub displaymessage {
|
Line 1972 sub displaymessage {
|
'<td><a href="/adm/email?markdel='.&escape($msgid).$sqs. |
'<td><a href="/adm/email?markdel='.&escape($msgid).$sqs. |
'"><b>'.&mt('Delete').'</b></a></td>'. |
'"><b>'.&mt('Delete').'</b></a></td>'. |
'<td><a href="/adm/email?'.$sqs. |
'<td><a href="/adm/email?'.$sqs. |
($env{'form.dismode'} eq 'new'?'&folder=new':''). |
|
'"><b>'.&mt('Back to Folder Display').'</b></a></td>'); |
'"><b>'.&mt('Back to Folder Display').'</b></a></td>'); |
if ($counter > 0){ |
if ($counter > 0){ |
$r->print('<td><a href="/adm/email?display='.$messages[$counter-1]->[5].$sqs. |
$r->print('<td><a href="/adm/email?display='.$messages[$counter-1]->[5].$sqs. |
Line 1788 sub header {
|
Line 2067 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 2091 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 2110 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 1858 sub sendoffmail {
|
Line 2137 sub sendoffmail {
|
$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
} |
} |
if ($env{'form.send'}) { |
if ($env{'form.send'}) { |
if ($group eq '') { |
if (!$env{'form.multiforward'}) { |
&printheader($r,'','Messages being sent.'); |
if ($group eq '') { |
} else { |
&printheader($r,'','Messages being sent.'); |
$r->print(&groupmail_header('sending',$group)); |
} else { |
|
$r->print(&groupmail_header('sending',$group)); |
|
} |
} |
} |
$r->rflush(); |
$r->rflush(); |
my %content=(); |
my %content=(); |
Line 1904 sub sendoffmail {
|
Line 2185 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 2198 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 2038 sub sendoffmail {
|
Line 2320 sub sendoffmail {
|
} else { |
} else { |
&printheader($r,'','No messages sent.'); |
&printheader($r,'','No messages sent.'); |
} |
} |
if ($sendstatus=~/^(\s*(?:ok|con_delayed)\s*)*$/) { |
if (!$env{'form.multiforward'}) { |
$r->print('<br /><span class="LC_success">'.&mt('Completed.').'</span>'); |
if ($sendstatus=~/^(\s*(?:ok|con_delayed)\s*)*$/) { |
if ($env{'form.displayedcrit'}) { |
$r->print('<br /><span class="LC_success">'.&mt('Completed.'). |
&discrit($r); |
'</span>'); |
} |
if ($env{'form.displayedcrit'}) { |
if ($group ne '') { |
&discrit($r); |
$r->print(&groupmail_sent($group,$cdom,$cnum)); |
} |
} else { |
if ($group ne '') { |
&Apache::loncommunicate::menu($r); |
$r->print(&groupmail_sent($group,$cdom,$cnum)); |
} |
} else { |
} else { |
&Apache::loncommunicate::menu($r); |
$r->print('<p><span class="LC_error">'.&mt('Could not deliver message').'</span> '. |
} |
|
} else { |
|
$r->print('<p><span class="LC_error">'.&mt('Could not deliver message').'</span> '. |
&mt('Please use the browser "Back" button and correct the recipient addresses '."($sendstatus)").'</p>'); |
&mt('Please use the browser "Back" button and correct the recipient addresses '."($sendstatus)").'</p>'); |
|
} |
} |
} |
|
return $sendstatus; |
} |
} |
|
|
# ===================================================================== Handler |
# ===================================================================== Handler |
Line 2071 sub handler {
|
Line 2357 sub handler {
|
['display','replyto','forward','markread','markdel','markunread', |
['display','replyto','forward','markread','markdel','markunread', |
'sendreply','compose','sendmail','critical','recname','recdom', |
'sendreply','compose','sendmail','critical','recname','recdom', |
'recordftf','sortedby','block','folder','startdis','interdis', |
'recordftf','sortedby','block','folder','startdis','interdis', |
'showcommentbaseurl','dismode','group','subject','text','ref']); |
'showcommentbaseurl','dismode','group','subject','text','ref', |
|
'msgstatus']); |
$sqs='&sortedby='.$env{'form.sortedby'}; |
$sqs='&sortedby='.$env{'form.sortedby'}; |
|
|
# ------------------------------------------------------ They checked for email |
# ------------------------------------------------------ They checked for email |
Line 2101 sub handler {
|
Line 2388 sub handler {
|
unless ($dismode) { |
unless ($dismode) { |
$dismode=''; |
$dismode=''; |
} else { |
} else { |
$sqs.='&dismode='.&escape($dismode); |
$sqs.='&dismode='.&escape($dismode); |
} |
} |
|
|
# --------------------------------------------------------------------- Display |
# --------------------------------------------------------------------- Display |
|
my $msgstatus = $env{'form.msgstatus'}; |
$startdis=$env{'form.startdis'}; |
$startdis=$env{'form.startdis'}; |
$startdis--; |
if ($startdis ne '') { |
|
$startdis--; |
|
} |
unless ($startdis) { $startdis=0; } |
unless ($startdis) { $startdis=0; } |
|
|
$interdis=$env{'form.interdis'}; |
$interdis=$env{'form.interdis'}; |
Line 2132 sub handler {
|
Line 2421 sub handler {
|
# --------------------------------------------------------------- Render Output |
# --------------------------------------------------------------- Render Output |
|
|
if ($env{'form.display'}) { |
if ($env{'form.display'}) { |
&displaymessage($r,$env{'form.display'},$folder); |
&displaymessage($r,$env{'form.display'},$folder,$msgstatus); |
} elsif ($env{'form.replyto'}) { |
} elsif ($env{'form.replyto'}) { |
&compout($r,'',$env{'form.replyto'},undef,undef,$folder,$dismode); |
&compout($r,'',$env{'form.replyto'},undef,undef,$folder,$dismode); |
} 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 2169 sub handler {
|
Line 2458 sub handler {
|
'<p class="LC_error">'.$msg."</p>\n"); |
'<p class="LC_error">'.$msg."</p>\n"); |
} |
} |
&Apache::loncommunicate::menu($r); |
&Apache::loncommunicate::menu($r); |
&disall($r,($folder?$folder:$dismode)); |
&disall($r,($folder?$folder:$dismode),$msgstatus); |
} elsif ($env{'form.markedmove'}) { |
} elsif ($env{'form.markedaction'} eq 'markedforward') { |
my ($total,$failed,@failed_msg)=(0,0); |
my $total = 0; |
foreach my $key (keys(%env)) { |
my @to_forward = &Apache::loncommon::get_env_multiple('form.delmark'); |
if ($key=~/^form\.delmark_(.*)$/) { |
foreach my $msgid (@to_forward) { |
my ($result,$msg) = |
&statuschange(&unescape($msgid),'forwarded',$folder); |
&movemsg(&unescape($1),$folder, |
$total ++; |
$env{'form.movetofolder'}); |
} |
if ($result) { |
if ($total > 0) { |
|
&compout($r,undef,undef,undef,undef,$folder,$dismode,$total); |
|
} |
|
} elsif ($env{'form.markedaction'} eq 'markedread') { |
|
my $total = 0; |
|
my @to_markread = &Apache::loncommon::get_env_multiple('form.delmark'); |
|
foreach my $msgid (@to_markread) { |
|
&statuschange(&unescape($msgid),'read',$folder); |
|
$total ++; |
|
} |
|
&printheader($r,'','Marked Messages Read'); |
|
$r->print(&mt('Marked [_1] message(s) read',$total).'<p>'); |
|
&Apache::loncommunicate::menu($r); |
|
&disall($r,($folder?$folder:$dismode),$msgstatus); |
|
} elsif ($env{'form.markedaction'} eq 'markedunread') { |
|
my $total = 0; |
|
my @to_markunread = &Apache::loncommon::get_env_multiple('form.delmark'); |
|
foreach my $msgid (@to_markunread) { |
|
&statuschange(&unescape($msgid),'new',$folder); |
|
$total ++; |
|
} |
|
&printheader($r,'','Marked Messages Unread'); |
|
$r->print(&mt('Marked [_1] message(s) unread',$total).'<p>'); |
|
&Apache::loncommunicate::menu($r); |
|
&disall($r,($folder?$folder:$dismode),$msgstatus); |
|
} elsif ($env{'form.markedaction'} eq 'markedmove') { |
|
my $destfolder = $env{'form.movetofolder'}; |
|
my %gotfolders = &Apache::lonmsg::get_user_folders(); |
|
&printheader($r,'','Moved Messages'); |
|
if (!defined($gotfolders{$destfolder})) { |
|
$r->print(&mt('Destination folder [_1] is not a valid folder', |
|
$destfolder)); |
|
} else { |
|
my ($total,$failed,@failed_msg)=(0,0); |
|
my @to_move = &Apache::loncommon::get_env_multiple('form.delmark'); |
|
foreach my $msgid (@to_move) { |
|
my ($result,$msg) = &movemsg(&unescape($msgid),$folder, |
|
$env{'form.movetofolder'}); |
|
if ($result) { |
$total++; |
$total++; |
} else { |
} else { |
$failed++; |
$failed++; |
push(@failed_msg,$msg); |
push(@failed_msg,$msg); |
} |
} |
} |
} |
} |
if ($failed) { |
&printheader($r,'','Moved Messages'); |
$r->print('<p class="LC_error"> |
if ($failed) { |
|
$r->print('<p class="LC_error"> |
|
'.&mt('Failed to move [_1] message(s)',$failed). |
'.&mt('Failed to move [_1] message(s)',$failed). |
'</p>'); |
'</p>'); |
$r->print('<p class="LC_error">'. |
$r->print('<p class="LC_error">'. |
join("</p>\n<p class=\"LC_error\">",@failed_msg). |
join("</p>\n<p class=\"LC_error\">",@failed_msg). |
"</p>\n"); |
"</p>\n"); |
} |
} |
$r->print(&mt('Moved [_1] message(s)',$total).'<p>'); |
$r->print(&mt('Moved [_1] message(s)',$total).'<p>'); |
|
} |
&Apache::loncommunicate::menu($r); |
&Apache::loncommunicate::menu($r); |
&disall($r,($folder?$folder:$dismode)); |
&disall($r,($folder?$folder:$dismode),$msgstatus); |
} elsif ($env{'form.markeddel'}) { |
} elsif ($env{'form.markedaction'} eq 'markeddel') { |
my ($total,$failed,@failed_msg)=(0,0); |
my ($total,$failed,@failed_msg)=(0,0); |
foreach my $key (keys(%env)) { |
my @to_delete = &Apache::loncommon::get_env_multiple('form.delmark'); |
if ($key=~/^form\.delmark_(.*)$/) { |
foreach my $msgid (@to_delete) { |
my ($result,$msg) = |
my ($result,$msg) = &statuschange(&unescape($msgid),'deleted', |
&statuschange(&unescape($1),'deleted', |
$folder); |
$folder); |
if ($result) { |
if ($result) { |
$total++; |
$total++; |
} else { |
} else { |
$failed++; |
$failed++; |
push(@failed_msg,$msg); |
push(@failed_msg,$msg); |
|
} |
|
} |
} |
} |
} |
&printheader($r,'','Deleted Messages'); |
&printheader($r,'','Deleted Messages'); |
Line 2223 sub handler {
|
Line 2547 sub handler {
|
} |
} |
$r->print(&mt('Deleted [_1] message(s)',$total).'<p>'); |
$r->print(&mt('Deleted [_1] message(s)',$total).'<p>'); |
&Apache::loncommunicate::menu($r); |
&Apache::loncommunicate::menu($r); |
&disall($r,($folder?$folder:$dismode)); |
&disall($r,($folder?$folder:$dismode),$msgstatus); |
} elsif ($env{'form.markunread'}) { |
} elsif ($env{'form.markunread'}) { |
&printheader($r,'','Marked Message as Unread'); |
&printheader($r,'','Marked Message as Unread'); |
&statuschange($env{'form.markunread'},'new'); |
&statuschange($env{'form.markunread'},'new'); |
&Apache::loncommunicate::menu($r); |
&Apache::loncommunicate::menu($r); |
&disall($r,($folder?$folder:$dismode)); |
&disall($r,($folder?$folder:$dismode),$msgstatus); |
} elsif ($env{'form.compose'}) { |
} elsif ($env{'form.compose'}) { |
&compout($r,'','',$env{'form.compose'}); |
&compout($r,'','',$env{'form.compose'}); |
} elsif ($env{'form.recordftf'}) { |
} elsif ($env{'form.recordftf'}) { |
Line 2236 sub handler {
|
Line 2560 sub handler {
|
} elsif ($env{'form.block'}) { |
} elsif ($env{'form.block'}) { |
&examblock($r,$env{'form.block'}); |
&examblock($r,$env{'form.block'}); |
} elsif ($env{'form.sendmail'}) { |
} elsif ($env{'form.sendmail'}) { |
&sendoffmail($r,$folder); |
if ($env{'form.multiforward'}) { |
|
&printheader($r,'','Messages being sent.'); |
|
my $fixed_subj = $env{'form.subject'}; |
|
my $suffix=&Apache::lonmsg::foldersuffix($folder); |
|
my (%sendresult,%forwardok,%forwardfail,$fwdcount); |
|
my @to_forward = &Apache::loncommon::get_env_multiple('form.delmark'); |
|
foreach my $item (@to_forward) { |
|
my $msgid=&unescape($item); |
|
my %message=&Apache::lonnet::get('nohist_email'.$suffix,[$msgid]); |
|
my %content=&Apache::lonmsg::unpackagemsg($message{$msgid},1); |
|
if ($env{'form.showorigsubj'}) { |
|
$env{'form.subject'} = $fixed_subj.$content{'subject'}; |
|
} else { |
|
$env{'form.subject'} = ''; |
|
} |
|
my $uname = $content{'sendername'}; |
|
my $udom = $content{'senderdomain'}; |
|
&statuschange($msgid,'forwarded',$folder); |
|
if ($env{'form.showorigsender'}) { |
|
$env{'form.message'} = $env{'form.msgheader'}.' '. |
|
&Apache::loncommon::plainname($uname,$udom).' ('. |
|
$uname.':'.$udom.')'; |
|
} |
|
$env{'form.message'} .= "\n\n-- Forwarded message --\n\n". |
|
$content{'message'}; |
|
$fwdcount ++; |
|
$r->print($fwdcount.': '); |
|
$sendresult{$msgid} = &sendoffmail($r,$folder); |
|
$r->print('<br />'); |
|
} |
|
foreach my $key (keys(%sendresult)) { |
|
if ($sendresult{$key} =~/^(\s*(?:ok|con_delayed)\s*)*$/) { |
|
$forwardok{$key} = $sendresult{$key}; |
|
} else { |
|
$forwardfail{$key} = $sendresult{$key}; |
|
} |
|
} |
|
if (keys(%forwardok) > 0) { |
|
my $count = keys(%forwardok); |
|
$r->print('<br /><span class="LC_success">'. |
|
&mt('[quant,_1,message] forwarded.',$count). |
|
'</span>'); |
|
} |
|
if (keys(%forwardfail) > 0) { |
|
my $count = keys(%forwardfail); |
|
$r->print('<p><span class="LC_error">'. |
|
&mt('Could not forward [quant,_1,message].',$count). |
|
'</span> '); |
|
foreach my $key (keys(%forwardfail)) { |
|
$r->print(&mt('Could not deliver forwarded message.').'</span> '. |
|
&mt('The recipient addresses may need to be corrected').' ('.$forwardfail{$key}.').<br /><br />'); |
|
} |
|
} |
|
&Apache::loncommunicate::menu($r); |
|
} else { |
|
&sendoffmail($r,$folder); |
|
} |
if ($env{'form.storebasecomment'}) { |
if ($env{'form.storebasecomment'}) { |
&storecomment($r); |
&storecomment($r); |
} |
} |
Line 2248 sub handler {
|
Line 2628 sub handler {
|
$env{'form.message'},'/adm/communicate','public'); |
$env{'form.message'},'/adm/communicate','public'); |
} |
} |
if ((!exists($env{'form.group'})) && (!$env{'form.displayedcrit'})) { |
if ((!exists($env{'form.group'})) && (!$env{'form.displayedcrit'})) { |
&disall($r,($folder?$folder:$dismode)); |
&disall($r,($folder?$folder:$dismode),$msgstatus); |
} |
} |
} 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,$msgstatus); |
} 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,$msgstatus); |
|
} 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,$msgstatus); |
} 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),$msgstatus); |
} |
} |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
return OK; |
return OK; |