version 1.124.4.7, 2010/01/25 21:08:48
|
version 1.124.4.11, 2010/08/20 19:12:22
|
Line 1838 sub disfacetoface {
|
Line 1838 sub disfacetoface {
|
foreach my $key (sort(keys(%records))) { |
foreach my $key (sort(keys(%records))) { |
my %content=&Apache::lonmsg::unpackagemsg($records{$key}); |
my %content=&Apache::lonmsg::unpackagemsg($records{$key}); |
next if ($content{'senderdomain'} eq ''); |
next if ($content{'senderdomain'} eq ''); |
&Apache::lonfeedback::newline_to_br(\$content{'message'}); |
if (!&Apache::lonfeedback::contains_block_html($content{'message'})) { |
|
&Apache::lonfeedback::newline_to_br(\$content{'message'}); |
|
} |
if ($content{'subject'}=~/^Record/) { |
if ($content{'subject'}=~/^Record/) { |
$result.='<h3>'.&mt('Record').'</h3>'; |
$result.='<h3>'.&mt('Record').'</h3>'; |
} elsif ($content{'subject'}=~/^Broadcast/) { |
} elsif ($content{'subject'}=~/^Broadcast/) { |
Line 1964 sub facetoface {
|
Line 1966 sub facetoface {
|
.&Apache::lonhtmlcommon::end_pick_box() |
.&Apache::lonhtmlcommon::end_pick_box() |
.'<br />' |
.'<br />' |
.'<input type="submit" value="'.$lt{'subm'}.'" />' |
.'<input type="submit" value="'.$lt{'subm'}.'" />' |
|
.'</form>' |
); |
); |
|
|
if (($stage ne 'query') && |
if (($stage ne 'query') && |
Line 2329 sub displaymessage {
|
Line 2332 sub displaymessage {
|
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.')); |
&build_block_table($r,$startblock,$endblock,\%setters); |
$r->print(&Apache::loncommon::build_block_table($startblock,$endblock,\%setters)); |
return; |
return; |
} |
} |
if ($msgstatus eq '') { |
if ($msgstatus eq '') { |
Line 3147 sub sendoffmail {
|
Line 3150 sub sendoffmail {
|
my ($recuname,$recdomain)=split(/\:/,$address); |
my ($recuname,$recdomain)=split(/\:/,$address); |
my $msgtxt = $savemsg; |
my $msgtxt = $savemsg; |
if ($toaddr{$address}) { |
if ($toaddr{$address}) { |
$msgtxt.='<hr />'.$toaddr{$address}; |
$msgtxt.="\n".'<hr />'."\n".$toaddr{$address}; |
} |
} |
my @thismsg; |
my @thismsg; |
if ($msgtype eq 'critical') { |
if ($msgtype eq 'critical') { |
Line 3272 sub sendoffmail {
|
Line 3275 sub sendoffmail {
|
$r->print($message); |
$r->print($message); |
} |
} |
} |
} |
|
} else { |
|
&printheader($r,'','Messages cancelled.'); |
|
return 'cancelled'; |
} |
} |
return $sendstatus; |
return $sendstatus; |
} |
} |