version 1.144, 2005/06/04 21:11:30
|
version 1.145, 2005/06/06 02:29:46
|
Line 1236 sub retrieve_instructor_comments {
|
Line 1236 sub retrieve_instructor_comments {
|
my %content=&unpackagemsg($records{$_}); |
my %content=&unpackagemsg($records{$_}); |
next if ($content{'senderdomain'} eq ''); |
next if ($content{'senderdomain'} eq ''); |
next if ($content{'subject'} !~ /^Record/); |
next if ($content{'subject'} !~ /^Record/); |
# $content{'message'}=~s/\n/\<br\>/g; |
# &Apache::lonfeedback::newline_to_br(\$content{'message'}); |
$result.='Recorded by '. |
$result.='Recorded by '. |
$content{'sendername'}.'@'.$content{'senderdomain'}."\n"; |
$content{'sendername'}.'@'.$content{'senderdomain'}."\n"; |
$result.= |
$result.= |
&Apache::lontexconvert::msgtexconverted($content{'message'})."\n"; |
&Apache::lontexconvert::msgtexconverted($content{'message'})."\n"; |
Line 1260 sub disfacetoface {
|
Line 1260 sub disfacetoface {
|
foreach (sort keys %records) { |
foreach (sort keys %records) { |
my %content=&unpackagemsg($records{$_}); |
my %content=&unpackagemsg($records{$_}); |
next if ($content{'senderdomain'} eq ''); |
next if ($content{'senderdomain'} eq ''); |
$content{'message'}=~s/\n/\<br\>/g; |
&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/) { |