version 1.164, 2005/05/24 15:15:59
|
version 1.167, 2005/06/06 20:40:01
|
Line 858 sub build_posting_display {
|
Line 858 sub build_posting_display {
|
$contrib{$idx.':sendername'}.' at '. |
$contrib{$idx.':sendername'}.' at '. |
$contrib{$idx.':senderdomain'}.')'; |
$contrib{$idx.':senderdomain'}.')'; |
if ($contrib{$idx.':anonymous'}) { |
if ($contrib{$idx.':anonymous'}) { |
$sender.=' ['.&mt('anonymous').'] '. |
$sender.=' <font color="red"><b>['.&mt('anonymous').']</b></font> '. |
$screenname; |
$screenname; |
} |
} |
|
|
Line 1205 sub get_post_contents {
|
Line 1205 sub get_post_contents {
|
my ($timesent,$attachmsg); |
my ($timesent,$attachmsg); |
my %currattach = (); |
my %currattach = (); |
$timesent = &Apache::lonlocal::locallocaltime($postversions[$i]); |
$timesent = &Apache::lonlocal::locallocaltime($postversions[$i]); |
$$messages{$i}=~s/\n/\<br \/\>/g; |
&newline_to_br(\$messages->{$i}); |
$$messages{$i}=&Apache::lontexconvert::msgtexconverted($$messages{$i}); |
$$messages{$i}=&Apache::lontexconvert::msgtexconverted($$messages{$i}); |
$$subjects{$i}=~s/\n/\<br \/\>/g; |
$$subjects{$i}=~s/\n/\<br \/\>/g; |
$$subjects{$i}=&Apache::lontexconvert::msgtexconverted($$subjects{$i}); |
$$subjects{$i}=&Apache::lontexconvert::msgtexconverted($$subjects{$i}); |
Line 1375 END
|
Line 1375 END
|
&get_post_versions(\%msgversions,$contrib{$idx.':message'},0,$numoldver); |
&get_post_versions(\%msgversions,$contrib{$idx.':message'},0,$numoldver); |
$message = $msgversions{$numoldver}; |
$message = $msgversions{$numoldver}; |
} |
} |
$message=~s/\n/\<br \/\>/g; |
&newline_to_br(\$message); |
$quote='<blockquote>'.&Apache::lontexconvert::msgtexconverted($message).'</blockquote>'; |
$quote='<blockquote>'.&Apache::lontexconvert::msgtexconverted($message).'</blockquote>'; |
if ($idx > 0) { |
if ($idx > 0) { |
my %subversions = (); |
my %subversions = (); |
Line 2259 sub screen_header {
|
Line 2259 sub screen_header {
|
my $msgoptions=''; |
my $msgoptions=''; |
my $discussoptions=''; |
my $discussoptions=''; |
unless (($env{'form.replydisc'}) || ($env{'form.editdisc'})) { |
unless (($env{'form.replydisc'}) || ($env{'form.editdisc'})) { |
if (($feedurl=~/^\/res\//) && ($feedurl!~/^\/res\/adm/)) { |
if (($feedurl=~/^\/res\//) && ($feedurl!~/^\/res\/adm/) && ($env{'user.adv'})) { |
$msgoptions= |
$msgoptions= |
'<p><label><input type="checkbox" name="author" /> '. |
'<p><label><input type="checkbox" name="author" /> '. |
&mt('Feedback to resource author').'</label></p>'; |
&mt('Feedback to resource author').'</label></p>'; |
Line 2603 sub show_preview {
|
Line 2603 sub show_preview {
|
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
my $message=&clear_out_html($env{'form.comment'}); |
my $message=&clear_out_html($env{'form.comment'}); |
$message=~s/\n/\<br \/\>/g; |
&newline_to_br(\$message); |
$message=&Apache::lonspeller::markeduptext($message); |
$message=&Apache::lonspeller::markeduptext($message); |
$message=&Apache::lontexconvert::msgtexconverted($message); |
$message=&Apache::lontexconvert::msgtexconverted($message); |
my $subject=&clear_out_html($env{'form.subject'}); |
my $subject=&clear_out_html($env{'form.subject'}); |
Line 2616 sub show_preview {
|
Line 2616 sub show_preview {
|
$message.'</td></tr></table></body></html>'); |
$message.'</td></tr></table></body></html>'); |
} |
} |
|
|
|
|
|
sub newline_to_br { |
|
my ($message)=@_; |
|
my $newmessage; |
|
my $parser=HTML::LCParser->new($message); |
|
while (my $token=$parser->get_token()) { |
|
if ($token->[0] eq 'T') { |
|
my $text=$token->[1]; |
|
$text=~s/\n/\<br \/\>/g; |
|
$newmessage.=$text; |
|
} elsif ($token->[0] eq 'D' || $token->[0] eq 'C') { |
|
$newmessage.=$token->[1]; |
|
} elsif ($token->[0] eq 'PI' || $token->[0] eq 'E') { |
|
$newmessage.=$token->[2]; |
|
} elsif ($token->[0] eq 'S') { |
|
$newmessage.=$token->[4]; |
|
} |
|
|
|
} |
|
$$message=$newmessage; |
|
} |
|
|
sub generate_preview_button { |
sub generate_preview_button { |
my $pre=&mt("Show Preview and Check Spelling"); |
my $pre=&mt("Show Preview and Check Spelling"); |
return(<<ENDPREVIEW); |
return(<<ENDPREVIEW); |