'.
- '';
- if ($visible>2) {
- $discussion.=''.
- '
+ |;
+ $discussion.=' ';
+ $discussion .=''.
+ ' '.&mt('Mark new posts as read').' ';
+ } else {
+ $discussion .= ' ';
+ }
+ } else {
+ $discussion .= ' ';
+ }
+ $discussion .= '
';
+ } else {
+ $discussion.='\vskip 0 mm\noindent\makebox[2 cm][b]{\hrulefill}'.
+ '\textbf{DISCUSSIONS}\makebox[2 cm][b]{\hrulefill}'.
+ '\vskip 0 mm\noindent\textbf{'.$lt{'cuse'}.'}:\vskip 0 mm'.
+ '\noindent\textbf{'.$lt{'disa'}.'}: \textit{'.$currdisp.'}\vskip 0 mm'.
+ '\noindent\textbf{'.$lt{'npce'}.'}: \textit{'.$currmark.'}';
+ }
my $numhidden = keys %notshown;
if ($numhidden > 0) {
my $colspan = $maxdepth+1;
@@ -386,20 +633,111 @@ sub list_discussion {
$numhidden.' '.&mt('previously viewed posts').
'";
+
+# Choose sort mechanism
+ my @showposts = ();
+ if ($sortposts eq 'descdate') {
+ @showposts = (sort { $b <=> $a } keys %alldiscussion);
+ } elsif ($sortposts eq 'thread') {
+ @showposts = (sort { $a <=> $b } keys %alldiscussion);
+ } elsif ($sortposts eq 'subject') {
+ foreach (sort keys %subjectsort) {
+ push @showposts, @{$subjectsort{$_}};
+ }
+ } elsif ($sortposts eq 'username') {
+ foreach my $domain (sort keys %usernamesort) {
+ foreach (sort keys %{$usernamesort{$domain}}) {
+ push @showposts, @{$usernamesort{$domain}{$_}};
+ }
+ }
+ } elsif ($sortposts eq 'lastfirst') {
+ foreach my $last (sort keys %namesort) {
+ foreach (sort keys %{$namesort{$last}}) {
+ push @showposts, @{$namesort{$last}{$_}};
+ }
+ }
+ } else {
+ $sortposts = 'ascdate';
+ @showposts = (sort { $a <=> $b } keys %alldiscussion);
+ }
+ foreach (@showposts) {
+ unless (($sortposts eq 'thread') || ($sortposts eq 'ascdate' && $ENV{'environment.threadeddiscussion'})) {
+ $alldiscussion{$_} = $_;
+ }
+ unless ( ($notshown{$alldiscussion{$_}} eq '1') || ($shown{$alldiscussion{$_}} == 0) ) {
+ if ($outputtarget ne 'tex') {
+ $discussion.="\n ";
+ } else {
+ $discussion.='\vskip 0 mm\noindent\makebox[2 cm][b]{\hrulefill}';
+ }
my $thisdepth=$depth[$alldiscussion{$_}];
- for (1..$thisdepth) {
- $discussion.=' ';
- }
+ if ($outputtarget ne 'tex') {
+ for (1..$thisdepth) {
+ $discussion.=' ';
+ }
+ }
my $colspan=$maxdepth-$thisdepth+1;
- $discussion.=''.
+ if ($outputtarget ne 'tex') {
+ $discussion.=' '.
$discussionitems[$alldiscussion{$_}].
' ';
+ } else {
+ #cleanup block
+ $discussionitems[$alldiscussion{$_}]=~s/]*)>//;
+ $discussionitems[$alldiscussion{$_}]=~s/]*)>]*)>//;
+ my $threadinsert='';
+ if ($thisdepth > 0) {
+ $threadinsert='Reply: '.$thisdepth.' ';
+ }
+ $discussionitems[$alldiscussion{$_}]=~s/<\/td>]*)>/$threadinsert<\/td>/;
+ $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
+ # due to the global variables that are use, the safe
+ # space etc. I expect this has unforseen issues that
+ # need resolving.
+
+ $discussion.=&Apache::lonxml::xmlparse('','tex',$discussionitems[$alldiscussion{$_}]);
+ }
}
}
- $discussion.='
+
+
+
+
+
+
+
+ $lt{'cuse'} :
+
+END
+ if ($newpostsflag) {
+ $discussion .=
+ '1. '.$lt{'disp'}.' - '.$currdisp.' 2. '.$lt{'nolo'}.' - '.$currmark.' '.$lt{'disp'}.' - '.$currdisp.'
+
+ $lt{'chgt'} ?
+
+
+
+
+
+
+
+
+ Note: in anonymous discussion, your name is visible only to
course facultyTitle:
Attachment (128 KB max size):
ENDDISCUSS
- $discussion.=&generate_preview_button();
+ if ($outputtarget ne 'tex') {
+ $discussion.=&generate_preview_button();
+ }
} else {
- if (&Apache::lonnet::allowed('pch',
+ if (&discussion_open($status) &&
+ &Apache::lonnet::allowed('pch',
$ENV{'request.course.id'}.
($ENV{'request.course.sec'}?'/'.$ENV{'request.course.sec'}:''))) {
- $discussion.='';
- }
+ if ($outputtarget ne 'tex') {
+ $discussion.='';
+ }
+ }
}
return $discussion;
}
@@ -435,23 +778,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=''.&Apache::lontexconvert::msgtexconverted($message).' ';
- if ($idx > 0) {
- $subject = 'Re: '.$contrib{$idx.':subject'};
+ if ($ENV{'form.replydisc'}) {
+ my $numoldver = 0;
+ if ($contrib{$idx.':history'}) {
+ if ($contrib{$idx.':history'} =~ /:/) {
+ my @oldversions = split/:/,$contrib{$idx.':history'};
+ $numoldver = @oldversions;
+ } else {
+ $numoldver = 1;
+ }
+ }
+ my $message=$contrib{$idx.':message'};
+ $message=~s/\n/\'.&Apache::lontexconvert::msgtexconverted($message,undef,$numoldver).' ';
+ if ($idx > 0) {
+ if ($contrib{'subject'} =~ /::::\d+::::(.+)$/si) {
+ $subject = $1;
+ } else {
+ $subject = $contrib{$idx.':subject'};
+ }
+ $subject = 'Re: '.$subject;
+ }
+ } else {
+ if ($contrib{$idx.':message'} =~ /::::\d+::::(.+)$/si) {
+ $oldmessage = $1;
+ } else {
+ $oldmessage = $contrib{$idx.':message'};
+ }
+ $oldmessage=&HTML::Entities::encode($oldmessage,'<>&"');
+ if ($contrib{$idx.':subject'} =~ /::::\d+::::(.+)$/si) {
+ $subject = $1;
+ } else {
+ $subject = $contrib{$idx.':subject'};
+ }
+ if (defined($contrib{$idx.':replyto'})) {
+ $parentmsg = $contrib{$idx.':replyto'};
+ }
+ my $anonflag = 0;
+ if ($contrib{$idx.':anonymous'}) {
+ $anonflag = 1;
+ }
+ $anonscript = (<print(<print(<
The LearningOnline Network with CAPA
@@ -503,12 +907,15 @@ $htmlheader
}
if (rec) {
- document.mailform.onsubmit();
+ if (typeof(document.mailform.onsubmit)!='undefined') {
+ document.mailform.onsubmit();
+ }
document.mailform.submit();
} else {
alert('Please check a feedback type.');
}
}
+ $anonscript
//-->
@@ -518,7 +925,18 @@ $bodytag
enctype="multipart/form-data">
$prevtag
-
Attachment (128 KB max size):
'.
- &mt('Post Discussion').'