--- loncom/interface/lonmsg.pm 2004/03/01 20:57:47 1.91 +++ loncom/interface/lonmsg.pm 2004/07/15 21:08:45 1.104 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines for messaging # -# $Id: lonmsg.pm,v 1.91 2004/03/01 20:57:47 www Exp $ +# $Id: lonmsg.pm,v 1.104 2004/07/15 21:08:45 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -74,6 +74,18 @@ email program, so they have full access interface, or other features they may wish to use in response to the student's query. +=item * B: LON-CAPA can block display of e-mails that are +sent to a student during an online exam. A course coordinator or +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 +system to display e-mails during the scheduled blocking event, +display of all e-mail sent during the blocking period will be +suppressed, and a message of explanation, including details of the +currently active blocking periods will be displayed instead. A user +who has a course coordinator or instructor role in a course will be +unaffected by any blocking periods for the course, unless the user +also has a student role in the course, AND has selected the student role. + =back Users can ask LON-CAPA to forward messages to conventional e-mail @@ -101,6 +113,7 @@ use Apache::lontexconvert(); use HTML::Entities(); use Mail::Send; use Apache::lonlocal; +use Apache::loncommunicate; # Querystring component with sorting type my $sqs; @@ -109,15 +122,15 @@ my $sqs; sub packagemsg { my ($subject,$message,$citation,$baseurl,$attachmenturl)=@_; - $message =&HTML::Entities::encode($message); - $citation=&HTML::Entities::encode($citation); - $subject =&HTML::Entities::encode($subject); + $message =&HTML::Entities::encode($message,'<>&"'); + $citation=&HTML::Entities::encode($citation,'<>&"'); + $subject =&HTML::Entities::encode($subject,'<>&"'); #remove machine specification $baseurl =~ s|^http://[^/]+/|/|; - $baseurl =&HTML::Entities::encode($baseurl); + $baseurl =&HTML::Entities::encode($baseurl,'<>&"'); #remove machine specification $attachmenturl =~ s|^http://[^/]+/|/|; - $attachmenturl =&HTML::Entities::encode($attachmenturl); + $attachmenturl =&HTML::Entities::encode($attachmenturl,'<>&"'); my $now=time; $msgcount++; @@ -171,13 +184,15 @@ sub unpackagemsg { } } if ($content{'attachmenturl'}) { - my ($fname,$ft)=($content{'attachmenturl'}=~/\/(\w+)\.(\w+)$/); + my ($fname)=($content{'attachmenturl'}=~m|/([^/]+)$|); if ($notoken) { - $content{'message'}.='

'.&mt('Attachment').': '.$fname.'.'.$ft.''; + $content{'message'}.='

'.&mt('Attachment').': '.$fname.''; } else { - $content{'message'}.='

'.&mt('Attachment').': '.$fname.'.'.$ft.''; + &Apache::lonnet::allowuploaded('/adm/msg', + $content{'attachmenturl'}); + $content{'message'}.='

'.&mt('Attachment'). + ': '. + $fname.''; } } return %content; @@ -204,10 +219,14 @@ sub sendemail { my $msg = new Mail::Send; $msg->to($to); $msg->subject('[LON-CAPA] '.$subject); - if (my $fh = $msg->open('smtp',Server => 'localhost')) { + my %oldENV=%ENV; + undef(%ENV); + if (my $fh = $msg->open()) { print $fh $body; $fh->close; } + %ENV=%oldENV; + undef(%oldENV); } # ==================================================== Send notification emails @@ -508,7 +527,7 @@ sub discourse { 'cfs' => 'Check for Section/Group', 'cfn' => 'Check for None'); $r->print(< + -  - -  - +  + +  +

ENDDISHEADER my %coursepersonnel= @@ -618,52 +637,8 @@ $content{'sendername'}.'@'. $r->print(''); } -# =============================================================== Compose reply - -sub comprep { - my ($r,$msgid)=@_; - my %message=&Apache::lonnet::get('nohist_email',[$msgid]); - my %content=&unpackagemsg($message{$msgid},1); - my $quotemsg='> '.$content{'message'}; - $quotemsg=~s/\r/\n/g; - $quotemsg=~s/\f/\n/g; - $quotemsg=~s/\n+/\n\> /g; - my $torepl=&Apache::loncommon::aboutmewrapper( - &Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),$content{'sendername'},$content{'senderdomain'}).' ('. -$content{'sendername'}.'@'. - $content{'senderdomain'}.')'; - my $subject=&mt('Re').': '.$content{'subject'}; - my $dispcrit=''; - if (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) { - my $crithelp = Apache::loncommon::help_open_topic("Course_Critical_Message"); - $dispcrit= - ' '.&mt('Send as critical message').' ' . $crithelp . - '
'. - ' '.&mt('Send as critical message').' ' . - &mt('and return receipt') . $crithelp . '

'; - } - my %lt=&Apache::lonlocal::texthash( - 'to' => 'To', - 'sb' => 'Subject', - 'sr' => 'Send Reply', - 'ca' => 'Cancel' - ); - $r->print(<<"ENDREPLY"); -

- -$lt{'to'}: $torepl
-$lt{'sb'}:

-


-$dispcrit - - -
-ENDREPLY -} - sub sortedmessages { + my ($blocked,$startblock,$endblock,$numblocked) = @_; my @messages = &Apache::lonnet::getkeys('nohist_email'); #unpack the varibles and repack into temp for sorting my @temp; @@ -673,7 +648,14 @@ sub sortedmessages { &Apache::lonmsg::unpackmsgid($msgid); my @temp1 = ($sendtime,$shortsubj,$fromname,$fromdomain,$status, $msgid); - push @temp ,\@temp1; + # Check whether message was sent during blocking period. + if ($sendtime >= $startblock && ($sendtime <= $endblock && $endblock > 0) ) { + my $escid = &Apache::lonnet::unescape($msgid); + $$blocked{$escid} = 'ON'; + $$numblocked ++; + } else { + push @temp ,\@temp1; + } } #default sort @temp = sort {$a->[0] <=> $b->[0]} @temp; @@ -714,7 +696,13 @@ sub sortedmessages { sub disall { my $r=shift; - $r->print(<print(< function checkall() { for (i=0; iprint(''.&mt('Status').''); } $r->print(''); - my @temp=sortedmessages(); + my @temp=sortedmessages(\%blocked,$startblock,$endblock,\$numblocked); foreach (@temp){ my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$origID)= @$_; if (($status ne 'deleted') && defined($sendtime) && $sendtime!~/error/) { @@ -783,7 +771,7 @@ ENDDISHEADER } $r->print(''.&mt('Open').''.&mt('Delete').''. + '">'.&mt('Delete').''. ''.&Apache::lonlocal::locallocaltime($sendtime).''. $fromname.''.$fromdomain.''. &Apache::lonnet::unescape($shortsubj).''. @@ -794,16 +782,49 @@ ENDDISHEADER ''.&mt('Check All').' '. ''.&mt('Uncheck All').'

'. ''. - ''. - ''); + ''. + ''); + if ($numblocked > 0) { + my $beginblock = &Apache::lonlocal::locallocaltime($startblock); + my $finishblock = &Apache::lonlocal::locallocaltime($endblock); + $r->print('

'. + $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.')); + &build_block_table($r,$startblock,$endblock,\%setters); + } + $r->print(''); } # ============================================================== Compose output sub compout { - my ($r,$forwarding,$broadcast)=@_; - &printheader($r,'/adm/email?compose=upload', - 'Distribute from uploaded file'); + my ($r,$forwarding,$replying,$broadcast,$replycrit)=@_; + + if ($broadcast eq 'individual') { + &printheader($r,'/adm/email?compose=individual', + 'Send a Message'); + } elsif ($broadcast) { + &printheader($r,'/adm/email?compose=group', + 'Broadcast Message'); + } elsif ($forwarding) { + &Apache::lonhtmlcommon::add_breadcrumb + ({href=>"/adm/email?display=".&Apache::lonnet::escape($forwarding), + text=>"Display Message"}); + &printheader($r,'/adm/email?forward='.&Apache::lonnet::escape($forwarding), + 'Forwarding a Message'); + } elsif ($replying) { + &Apache::lonhtmlcommon::add_breadcrumb + ({href=>"/adm/email?display=".&Apache::lonnet::escape($replying), + text=>"Display Message"}); + &printheader($r,'/adm/email?replyto='.&Apache::lonnet::escape($replying), + 'Replying to a Message'); + } elsif ($replycrit) { + $r->print('

'.&mt('Replying to a Critical Message').'

'); + $replying=$replycrit; + } else { + &printheader($r,'/adm/email?compose=upload', + 'Distribute from Uploaded File'); + } + my $dispcrit=''; my $dissub=''; my $dismsg=''; @@ -818,39 +839,64 @@ sub compout { if (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) { my $crithelp = Apache::loncommon::help_open_topic("Course_Critical_Message"); $dispcrit= - ' '.&mt('Send as critical message').' ' . $crithelp . + ' '.&mt('Send as critical message').' ' . $crithelp . '
'. - ' '.&mt('Send as critical message').' ' . + ' '.&mt('Send as critical message').' ' . &mt('and return receipt') . $crithelp . '

'; - } + } + my %message; + my %content; + my $defdom=$ENV{'user.domain'}; if ($forwarding) { - $dispcrit.=''; - $func=&mt('Forward'); - my %message=&Apache::lonnet::get('nohist_email',[$forwarding]); - my %content=&unpackagemsg($message{$forwarding}); - - $dissub=&mt('Forwarding').': '.$content{'subject'}; - $dismsg=&mt('Forwarded message from').' '. - $content{'sendername'}.' '.&mt('at').' '.$content{'senderdomain'}; + %message=&Apache::lonnet::get('nohist_email',[$forwarding]); + %content=&unpackagemsg($message{$forwarding}); + $dispcrit.=''; + $func=&mt('Forward'); + + $dissub=&mt('Forwarding').': '.$content{'subject'}; + $dismsg=&mt('Forwarded message from').' '. + $content{'sendername'}.' '.&mt('at').' '.$content{'senderdomain'}; + } + if ($replying) { + %message=&Apache::lonnet::get('nohist_email',[$replying]); + %content=&unpackagemsg($message{$replying}); + $dispcrit.=''; + $func=&mt('Replying to'); + + $dissub=&mt('Reply').': '.$content{'subject'}; + $dismsg='> '.$content{'message'}; + $dismsg=~s/\r/\n/g; + $dismsg=~s/\f/\n/g; + $dismsg=~s/\n+/\n\> /g; } - my $defdom=$ENV{'user.domain'}; if ($ENV{'form.recdom'}) { $defdom=$ENV{'form.recdom'}; } $r->print( '

'."\n". - ''."\n". + ''."\n". ''); unless (($broadcast eq 'group') || ($broadcast eq 'upload')) { - my $domform = &Apache::loncommon::select_dom_form($defdom,'recdomain'); - my $selectlink=&Apache::loncommon::selectstudent_link + if ($replying) { + $r->print(''); + } else { + my $domform = &Apache::loncommon::select_dom_form($defdom,'recdomain'); + my $selectlink=&Apache::loncommon::selectstudent_link ('compemail','recuname','recdomain'); - $r->print(<<"ENDREC"); -
'.&mt('Replying to').' '. + &Apache::loncommon::aboutmewrapper( + &Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),$content{'sendername'},$content{'senderdomain'}).' ('. + $content{'sendername'}.'@'. + $content{'senderdomain'}.')'. + ''. + ''. + '
+ $r->print(<<"ENDREC"); ENDREC + } } my $latexHelp = Apache::loncommon::helpLatexCheatsheet(); if ($broadcast ne 'upload') { @@ -861,7 +907,7 @@ ENDREC
$lt{'us'}:$selectlink
$lt{'do'}: $domform
$lt{'sb'}:
$latexHelp -


$dispcrit @@ -892,7 +938,7 @@ The messages will be assembled from all

$dispcrit -

+

ENDUPLOAD } if ($broadcast eq 'group') { @@ -903,8 +949,34 @@ ENDUPLOAD # ---------------------------------------------------- Display all face to face +sub retrieve_instructor_comments { + my ($user,$domain)=@_; + my $target=$ENV{'form.grade_target'}; + if (! $ENV{'request.course.id'}) { return; } + if (! &Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) { + return; + } + my %records=&Apache::lonnet::dump('nohist_email', + $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, + $ENV{'course.'.$ENV{'request.course.id'}.'.num'}, + '%255b'.$user.'%253a'.$domain.'%255d'); + my $result=''; + foreach (sort(keys(%records))) { + my %content=&unpackagemsg($records{$_}); + next if ($content{'senderdomain'} eq ''); + next if ($content{'subject'} !~ /^Record/); + # $content{'message'}=~s/\n/\/g; + $result.='Recorded by '. + $content{'sendername'}.'@'.$content{'senderdomain'}."\n"; + $result.= + &Apache::lontexconvert::msgtexconverted($content{'message'})."\n"; + } + return $result; +} + sub disfacetoface { my ($r,$user,$domain)=@_; + my $target=$ENV{'form.grade_target'}; unless ($ENV{'request.course.id'}) { return; } unless (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) { return; @@ -920,11 +992,13 @@ sub disfacetoface { $content{'message'}=~s/\n/\/g; if ($content{'subject'}=~/^Record/) { $result.='

'.&mt('Record').'

'; + } elsif ($content{'subject'}=~/^Broadcast/) { + $result .='

'.&mt('Broadcast Message').'

'; } else { - $result.='

'.&mt('Sent Message').'

'; + $result.='

'.&mt('Critical Message').'

'; %content=&unpackagemsg($content{'message'}); $content{'message'}= - 'Subject: '.$content{'subject'}.'
'. + ''.&mt('Subject').': '.$content{'subject'}.'
'. $content{'message'}; } $result.=&mt('By').': '. @@ -932,13 +1006,17 @@ sub disfacetoface { &Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),$content{'sendername'},$content{'senderdomain'}).' ('. $content{'sendername'}.'@'. $content{'senderdomain'}.') '.$content{'time'}. - '
'. + '
'. &Apache::lontexconvert::msgtexconverted($content{'message'}). '
'; } # Check to see if there were any messages. if ($result eq '') { - $r->print("

No notes, face-to-face discussion records, or critical messages in this course.

"); + if ($target ne 'tex') { + $r->print("

".&mt("No notes, face-to-face discussion records, critical messages, or broadcast messages in this course.")."

"); + } else { + $r->print('\textbf{'.&mt("No notes, face-to-face discussion records, critical messages or broadcast messages in this course.").'}\\\\'); + } } else { $r->print($result); } @@ -953,7 +1031,7 @@ sub facetoface { } &printheader($r, '/adm/email?recordftf=query', - "User Notes, Face-to-Face, Critical Messages"); + "User Notes, Face-to-Face, Critical Messages, Broadcast Messages"); # from query string if ($ENV{'form.recname'}) { $ENV{'form.recuname'}=$ENV{'form.recname'}; } @@ -968,7 +1046,7 @@ sub facetoface { ('stdselect','recuname','recdomain'); my %lt=&Apache::lonlocal::texthash('user' => 'Username', 'dom' => 'Domain', - 'head' => 'User Notes, Records of Face-To-Face Discussions, and Critical Messages in Course', + 'head' => 'User Notes, Records of Face-To-Face Discussions, Critical Messages, and Broadcast Messages in Course', 'subm' => 'Retrieve discussion and message records', 'newr' => 'New Record (record is visible to course faculty and staff)', 'post' => 'Post this Record'); @@ -1017,23 +1095,391 @@ ENDBFORM } } -# ----------------------------------------------- Generate the text input field +# ----------------------------------------------------------- Blocking during exams + +sub examblock { + my ($r,$action) = @_; + unless ($ENV{'request.course.id'}) { return;} + unless (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) { $r->print('Not allowed'); } + my %lt=&Apache::lonlocal::texthash( + 'comb' => 'Communication Blocking', + 'cbds' => 'Communication blocking during scheduled exams', + 'desc' => 'You can use communication blocking to prevent students enrolled in this course from displaying LON-CAPA messages sent by other students during an online exam. As blocking of communication could potentially interrupt legitimate communication between students 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', + 'ncbc' => 'No communication blocks currently stored' + ); + + my %ltext = &Apache::lonlocal::texthash( + 'dura' => 'Duration', + 'setb' => 'Set by', + 'even' => 'Event', + 'actn' => 'Action', + 'star' => 'Start', + 'endd' => 'End' + ); + + &printheader($r,'/adm/email?block=display',$lt{'comb'}); + $r->print('

'.$lt{'cbds'}.'

'); + + if ($action eq 'store') { + &blockstore($r); + } + + $r->print($lt{'desc'}.'

+ + '); + + $r->print('

'.$lt{'mecb'}.'

'); + my %records = (); + my $blockcount = 0; + my $parmcount = 0; + &get_blockdates(\%records,\$blockcount); + if ($blockcount > 0) { + $parmcount = &display_blocker_status($r,\%records,\%ltext); + } else { + $r->print($lt{'ncbc'}.'

'); + } + &display_addblocker_table($r,$parmcount,\%ltext); + $r->print(<<"END"); +
+ + + + + +END + return; +} + +sub blockstore { + my $r = shift; + my %lt=&Apache::lonlocal::texthash( + '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.' + ); + my %adds = (); + my %removals = (); + my %cancels = (); + my $modtotal = 0; + my $canceltotal = 0; + my $addtotal = 0; + my %blocking = (); + $r->print('

'.$lt{'head'}.'

'); + foreach (keys %ENV) { + if ($_ =~ m/^form\.modify_(\w+)$/) { + $adds{$1} = $1; + $removals{$1} = $1; + $modtotal ++; + } elsif ($_ =~ m/^form\.cancel_(\d+)$/) { + $cancels{$1} = $1; + unless ( defined($removals{$1}) ) { + $removals{$1} = $1; + $canceltotal ++; + } + } elsif ($_ =~ m/^form\.add_(\d+)$/) { + $adds{$1} = $1; + $addtotal ++; + } + } + + foreach (keys %removals) { + my $hashkey = $ENV{'form.key_'.$_}; + &Apache::lonnet::del('comm_block',["$hashkey"], + $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, + $ENV{'course.'.$ENV{'request.course.id'}.'.num'} + ); + } + foreach (keys %adds) { + unless ( defined($cancels{$_}) ) { + my ($newstart,$newend) = &get_dates_from_form($_); + my $newkey = $newstart.'____'.$newend; + $blocking{$newkey} = $ENV{'user.name'}.'@'.$ENV{'user.domain'}.':'.$ENV{'form.title_'.$_}; + } + } + if ($addtotal + $modtotal > 0) { + &Apache::lonnet::put('comm_block',\%blocking, + $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, + $ENV{'course.'.$ENV{'request.course.id'}.'.num'} + ); + } + my $chgestotal = $canceltotal + $modtotal + $addtotal; + if ($chgestotal > 0) { + $r->print($lt{'tfcm'}.'
    '); + if ($canceltotal > 0) { + $r->print('
  • '.$canceltotal.' '.$lt{'cbps'},' '.$lt{'werm'}.'
    • '); + } + if ($modtotal > 0) { + $r->print('
  • '.$modtotal.' '.$lt{'cbps'},' '.$lt{'wemo'}.'
    • '); + } + if ($addtotal > 0) { + $r->print('
  • '.$addtotal.' '.$lt{'cbps'},' '.$lt{'wead'}.'
    • '); + } + $r->print('
'); + } else { + $r->print($lt{'ncwm'}); + } + $r->print('
'); + return; +} + +sub get_dates_from_form { + my $item = shift; + my $startdate = &Apache::lonhtmlcommon::get_date_from_form('startdate_'.$item); + my $enddate = &Apache::lonhtmlcommon::get_date_from_form('enddate_'.$item); + return ($startdate,$enddate); +} + +sub get_blockdates { + my ($records,$blockcount) = @_; + $$blockcount = 0; + %{$records} = &Apache::lonnet::dump('comm_block', + $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, + $ENV{'course.'.$ENV{'request.course.id'}.'.num'} + ); + $$blockcount = keys %{$records}; + + foreach (keys %{$records}) { + if ($_ eq 'error: 2 tie(GDBM) Failed while attempting dump') { + $$blockcount = 0; + last; + } + } +} + +sub display_blocker_status { + my ($r,$records,$ltext) = @_; + my $parmcount = 0; + my @bgcols = ("#eeeeee","#dddddd"); + my $function = &Apache::loncommon::get_users_function(); + my $color = &Apache::loncommon::designparm($function.'.tabbg', + $ENV{'user.domain'}); + my %lt = &Apache::lonlocal::texthash( + 'modi' => 'Modify', + 'canc' => 'Cancel', + ); + $r->print(<<"END"); + + + + +
+ + + + +
+ + + + + + + +END + foreach (sort keys %{$records}) { + my $iter = $parmcount%2; + my $onchange = 'onFocus="javascript:window.document.forms['. + "'blockform'].elements['modify_".$parmcount."'].". + 'checked=true;"'; + my ($start,$end) = split/____/,$_; + my $startform = &Apache::lonhtmlcommon::date_setter('blockform','startdate_'.$parmcount,$start,$onchange); + my $endform = &Apache::lonhtmlcommon::date_setter('blockform','enddate_'.$parmcount,$end,$onchange); + my ($setter,$title) = split/:/,$$records{$_}; + my ($setuname,$setudom) = split/@/,$setter; + my $settername = &Apache::loncommon::plainname($setuname,$setudom); + $r->print(<<"END"); + + + + + +END + $parmcount ++; + } + $r->print(<<"END"); +
$$ltext{'dura'}$$ltext{'setb'}$$ltext{'even'}$$ltext{'actn'}?
$$ltext{'star'}: $startform
$$ltext{'endd'}:  $endform		$settername$lt{'modi'}? 
$lt{'canc'}?   +
+
+
+
+
+END + return $parmcount; +} + +sub display_addblocker_table { + my ($r,$parmcount,$ltext) = @_; + my $start = time; + my $end = $start + (60 * 60 * 2); #Default is an exam of 2 hours duration. + my $onchange = 'onFocus="javascript:window.document.forms['. + "'blockform'].elements['add_".$parmcount."'].". + 'checked=true;"'; + my $startform = &Apache::lonhtmlcommon::date_setter('blockform','startdate_'.$parmcount,$start,$onchange); + my $endform = &Apache::lonhtmlcommon::date_setter('blockform','enddate_'.$parmcount,$end,$onchange); + my $function = &Apache::loncommon::get_users_function(); + my $color = &Apache::loncommon::designparm($function.'.tabbg', + $ENV{'user.domain'}); + my %lt = &Apache::lonlocal::texthash( + 'addb' => 'Add block', + 'exam' => 'e.g., Exam 1', + 'addn' => 'Add new communication blocking periods' + ); + $r->print(<<"END"); +

$lt{'addn'}

+ + + + +
+ + + + +
+ + + + + + + + + + + +
$$ltext{'dura'}$$ltext{'even'} $lt{'exam'}$$ltext{'actn'}?
$$ltext{'star'}: $startform
$$ltext{'endd'}:  $endform		$lt{'addb'}? 
+
+
+END + return; +} + +sub blockcheck { + my ($setters,$startblock,$endblock) = @_; + # Retrieve active student roles and active course coordinator/instructor roles + my @livecses = (); + my @staffcses = (); + $$startblock = 0; + $$endblock = 0; + foreach (keys %ENV) { + if ($_ =~ m-^user\.role\.(st|cc|in)\./(.+)$-) { + my $role = $1; + my $cse = $2; + $cse =~ s|/|_|; + if ($ENV{$_} =~ m/^(\d*)\.(\d*)$/) { + unless (($2 > 0 && $2 < time) || ($1 > time)) { + if ($role eq 'st') { + push @livecses, $cse; + } else { + unless (grep/^$cse$/,@staffcses) { + push @staffcses, $cse; + } + } + } + } + } elsif ($_ =~ m-user\.role\.cr/(\w+)/(\w+)/([^/]+)\./(.+)$- ) { + my $rolepriv = $ENV{'user.role..rolesdef_'.$3}; + } + } + # Retrieve blocking times and identity of blocker for active courses for students. + if (@livecses > 0) { + foreach my $cse (@livecses) { + my ($cdom,$crs) = split/_/,$cse; + if ( (grep/^$cse$/,@staffcses) && ($ENV{'request.role'} !~ m-^st\./$cdom/$crs$-) ) { + next; + } else { + %{$$setters{$cse}} = (); + @{$$setters{$cse}{'staff'}} = (); + @{$$setters{$cse}{'times'}} = (); + my %records = &Apache::lonnet::dump('comm_block',$cdom,$crs); + foreach (keys %records) { + if ($_ =~ m/^(\d+)____(\d+)$/) { + if ($1 <= time && $2 >= time) { + my ($staff,$title) = split/:/,$records{$_}; + push @{$$setters{$cse}{'staff'}}, $staff; + push @{$$setters{$cse}{'times'}}, $_; + if ( ($$startblock == 0) || ($$startblock > $1) ) { + $$startblock = $1; + } + if ( ($$endblock == 0) || ($$endblock < $2) ) { + $$endblock = $2; + } + } + } + } + } + } + } +} -sub textinputarea { - my ($r,$name,$quote)=@_; - $r->print(''); +sub build_block_table { + my ($r,$startblock,$endblock,$setters) = @_; + my $function = &Apache::loncommon::get_users_function(); + my $color = &Apache::loncommon::designparm($function.'.tabbg', + $ENV{'user.domain'}); + my %lt = &Apache::lonlocal::texthash( + 'cacb' => 'Currently active communication blocks', + 'cour' => 'Course', + 'dura' => 'Duration', + 'blse' => 'Block set by' + ); + $r->print(<<"END"); +
$lt{'cacb'}:

+ + +
+ + +
+ + + + + + +END + foreach (keys %{$setters}) { + my %courseinfo=&Apache::lonnet::coursedescription($_); + for (my $i=0; $i<@{$$setters{$_}{staff}}; $i++) { + my ($uname,$udom) = split/\@/,$$setters{$_}{staff}[$i]; + my $fullname = &Apache::loncommon::plainname($uname,$udom); + my ($openblock,$closeblock) = split/____/,$$setters{$_}{times}[$i]; + $openblock = &Apache::lonlocal::locallocaltime($openblock); + $closeblock= &Apache::lonlocal::locallocaltime($closeblock); + $r->print(''. + ''. + ''); + } + } + $r->print('
$lt{'cour'}$lt{'dura'}$lt{'blse'}
'.$courseinfo{'description'}.''.$openblock.' to '.$closeblock.''.$fullname.' ('.$uname.'@'.$udom. + ')
'); } # ----------------------------------------------------------- Display a message sub displaymessage { my ($r,$msgid)=@_; + my %blocked = (); + my %setters = (); + my $startblock = 0; + my $endblock = 0; + my $numblocked = 0; +# info to generate "next" and "previous" buttons and check if message is blocked + &blockcheck(\%setters,\$startblock,\$endblock); + my @messages=&sortedmessages(\%blocked,$startblock,$endblock,\$numblocked); + if ( $blocked{$msgid} eq 'ON' ) { + &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.')); + &build_block_table($r,$startblock,$endblock,\%setters); + return; + } &statuschange($msgid,'read'); my %message=&Apache::lonnet::get('nohist_email',[$msgid]); my %content=&unpackagemsg($message{$msgid}); -# info to generate "next" and "previous" buttons - my @messages=&sortedmessages(); my $counter=0; $r->print('
');
     my $escmsgid=&Apache::lonnet::escape($msgid);
@@ -1046,7 +1492,7 @@ sub displaymessage {
     $r->print('
'); my $number_of_messages = scalar(@messages); #subtract 1 for last index # start output - &printheader($r,'/adm/email?display='.$msgid,'Display a Message','',$content{'baseurl'}); + &printheader($r,'/adm/email?display='.&Apache::lonnet::escape($msgid),'Display a Message','',$content{'baseurl'}); my %courseinfo=&Apache::lonnet::coursedescription($content{'courseid'}); # Functions $r->print(''. @@ -1127,10 +1573,12 @@ sub handler { &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, ['display','replyto','forward','markread','markdel','markunread', 'sendreply','compose','sendmail','critical','recname','recdom', - 'recordftf','sortedby']); + 'recordftf','sortedby','block']); $sqs='&sortedby='.$ENV{'form.sortedby'}; # ------------------------------------------------------ They checked for email - &Apache::lonnet::put('email_status',{'recnewemail'=>0}); + unless ($ENV{'form.block'}) { + &Apache::lonnet::put('email_status',{'recnewemail'=>0}); + } # ----------------------------------------------------------------- Breadcrumbs @@ -1145,53 +1593,29 @@ sub handler { if ($ENV{'form.display'}) { &displaymessage($r,$ENV{'form.display'}); } elsif ($ENV{'form.replyto'}) { - &comprep($r,$ENV{'form.replyto'}); - } elsif ($ENV{'form.sendreply'}) { - if ($ENV{'form.send'}) { - my $msgid=$ENV{'form.sendreply'}; - my %message=&Apache::lonnet::get('nohist_email',[$msgid]); - my %content=&unpackagemsg($message{$msgid},1); - &statuschange($msgid,'replied'); - if ((($ENV{'form.critmsg'}) || ($ENV{'form.sendbck'})) && - (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) { - $r->print(&mt('Sending critical message').': '. - &user_crit_msg($content{'sendername'}, - $content{'senderdomain'}, - &Apache::lonfeedback::clear_out_html($ENV{'form.subject'}), - &Apache::lonfeedback::clear_out_html($ENV{'form.message'}), - $ENV{'form.sendbck'})); - } else { - $r->print(&mt('Sending').': '.&user_normal_msg($content{'sendername'}, - $content{'senderdomain'}, - &Apache::lonfeedback::clear_out_html($ENV{'form.subject'}), - &Apache::lonfeedback::clear_out_html($ENV{'form.message'}))); - } - } - if ($ENV{'form.displayedcrit'}) { - &discrit($r); - } else { - &disall($r); - } + &compout($r,'',$ENV{'form.replyto'}); } elsif ($ENV{'form.confirm'}) { + &printheader($r,'','Confirmed Receipt'); foreach (keys %ENV) { if ($_=~/^form\.rec\_(.*)$/) { - $r->print('Confirming Receipt: '. + $r->print(''.&mt('Confirming Receipt').': '. &user_crit_received($1).'
'); } if ($_=~/^form\.reprec\_(.*)$/) { my $msgid=$1; - $r->print('Confirming Receipt: '. + $r->print(''.&mt('Confirming Receipt').': '. &user_crit_received($msgid).'
'); - &comprep($r,$msgid); + &compout($r,'','','',$msgid); } } &discrit($r); } elsif ($ENV{'form.critical'}) { + &printheader($r,'','Displaying Critical Messages'); &discrit($r); } elsif ($ENV{'form.forward'}) { &compout($r,$ENV{'form.forward'}); - } elsif ($ENV{'form.markread'}) { } elsif ($ENV{'form.markdel'}) { + &printheader($r,'','Deleted Message'); &statuschange($ENV{'form.markdel'},'deleted'); &disall($r); } elsif ($ENV{'form.markeddel'}) { @@ -1202,18 +1626,24 @@ sub handler { $total++; } } + &printheader($r,'','Deleted Messages'); $r->print('Deleted '.$total.' message(s)

'); &disall($r); } elsif ($ENV{'form.markunread'}) { + &printheader($r,'','Marked Message as Unread'); &statuschange($ENV{'form.markunread'},'new'); &disall($r); } elsif ($ENV{'form.compose'}) { - &compout($r,'',$ENV{'form.compose'}); + &compout($r,'','',$ENV{'form.compose'}); } elsif ($ENV{'form.recordftf'}) { &facetoface($r,$ENV{'form.recordftf'}); + } elsif ($ENV{'form.block'}) { + &examblock($r,$ENV{'form.block'}); } elsif ($ENV{'form.sendmail'}) { my $sendstatus=''; if ($ENV{'form.send'}) { + &printheader($r,'','Messages being sent.'); + $r->rflush(); my %content=(); undef %content; if ($ENV{'form.forwid'}) { @@ -1249,33 +1679,45 @@ sub handler { $toaddr{$auname.':'.$audom}=''; } } + foreach (keys %toaddr) { my ($recuname,$recdomain)=split(/\:/,$_); my $msgtxt=&Apache::lonfeedback::clear_out_html($ENV{'form.message'}); - if ($toaddr{$_}) { $msgtxt.='

'.$toaddr{$_}; } + if ($toaddr{$_}) { $msgtxt.='
'.$toaddr{$_}; } + my $thismsg; if ((($ENV{'form.critmsg'}) || ($ENV{'form.sendbck'})) && (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) { - $r->print(&mt('Sending critical message').' ...'); - $sendstatus.=' '.&user_crit_msg($recuname,$recdomain, + $r->print(&mt('Sending critical message').' '.$recuname.'@'.$recdomain.': '); + $thismsg=&user_crit_msg($recuname,$recdomain, &Apache::lonfeedback::clear_out_html($ENV{'form.subject'}), $msgtxt, $ENV{'form.sendbck'}); } else { - $r->print(&mt('Sending').' ...'); - $sendstatus.=' '.&user_normal_msg($recuname,$recdomain, + $r->print(&mt('Sending').' '.$recuname.'@'.$recdomain.': '); + $thismsg=&user_normal_msg($recuname,$recdomain, &Apache::lonfeedback::clear_out_html($ENV{'form.subject'}), $msgtxt, $content{'citation'}); + if (($ENV{'request.course.id'}) && ($ENV{'form.sendmode'} eq 'group')) { + &user_normal_msg_raw( + $ENV{'course.'.$ENV{'request.course.id'}.'.num'}, + $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, + 'Broadcast ['.$recuname.':'.$recdomain.']', + $msgtxt); + } } - $r->print('
'); + $r->print($thismsg.'
'); + $sendstatus.=' '.$thismsg; } + } else { + &printheader($r,'','No messages sent.'); } if ($sendstatus=~/^(\s*(?:ok|con_delayed)\s*)*$/) { $r->print('
'.&mt('Completed.').''); if ($ENV{'form.displayedcrit'}) { &discrit($r); } else { - &disall($r); + &Apache::loncommunicate::menu($r); } } else { $r->print( @@ -1284,6 +1726,7 @@ sub handler { ); } } else { + &printheader($r,'','Display All Messages'); &disall($r); } $r->print('');
'.&mt('Functions').':