/;
- $discussionitems[$alldiscussion{$_}]=~s/]+)>(Hide|Delete|Reply|Submissions)<\/a>//g;
+ $discussionitems[$alldiscussion{$_}]=~s/]+)>(Edit|Hide|Delete|Reply|Submissions)<\/a>//g;
$discussionitems[$alldiscussion{$_}]=~s/(|<\/b>|<\/a>|]+)>)//g;
#FIXME xmlparse can't be safely called from inside xmlparse
@@ -637,23 +779,84 @@ ENDDISCUSS
sub mail_screen {
my ($r,$feedurl,$options) = @_;
my $bodytag=&Apache::loncommon::bodytag('Resource Feedback and Discussion',
- '','onLoad="window.focus();"');
+ '','onLoad="window.focus();setposttype();"');
my $title=&Apache::lonnet::gettitle($feedurl);
if (!$title) { $title = $feedurl; }
my $quote='';
my $subject = '';
+ my $oldmessage = '';
my $prevtag = '';
- if ($ENV{'form.replydisc'}) {
- my ($symb,$idx)=split(/\:\:\:/,$ENV{'form.replydisc'});
+ my $parentmsg = '';
+ my $anonscript = (</g;
- $quote='
Attachment (128 KB max size):
@@ -935,16 +1147,13 @@ sub print_sortfilter_options {
'diop' => 'Display Options',
'curr' => 'Current setting ',
'actn' => 'Action',
- 'prca' => 'Options can be set that control the sort order of the posts, in
-addition to which posts are displayed.',
+ 'prca' => 'Options can be set that control the sort order of the posts, in addition to which posts are displayed.',
'soor' => 'Sort order',
'disp' => 'Specific user roles',
'actv' => 'Specific role status',
'spse' => 'Specific sections',
'psub' => 'Pick specific users (by name)',
- 'shal' => 'Show a list of current posters',
- 'yhni' => 'You have not indicated that you do not wish to change any of the discussion settings',
- 'ywbr' => 'You will be returned to the previous page if you click OK.'
+ 'shal' => 'Show a list of current posters'
);
$r->print(<
@@ -981,7 +1190,7 @@ $bodytag