version 1.124.4.8, 2010/01/30 22:28:20
|
version 1.124.4.10, 2010/04/14 06:36:26
|
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') && |