version 1.108, 2004/07/28 18:50:26
|
version 1.109, 2004/07/29 18:21:44
|
Line 508 sub list_discussion {
|
Line 508 sub list_discussion {
|
$discussionitems[$idx] .= '<td align ="left"> '. |
$discussionitems[$idx] .= '<td align ="left"> '. |
'<b>'.$subject.'</b> '. |
'<b>'.$subject.'</b> '. |
$sender.'</b> '.$vgrlink.' ('. |
$sender.'</b> '.$vgrlink.' ('. |
localtime($posttime).')</td></tr>'. |
&Apache::lonlocal::locallocaltime($posttime).')</td></tr>'. |
'</table><blockquote>'.$message.'</blockquote></p>'; |
'</table><blockquote>'.$message.'</blockquote></p>'; |
if ($contrib{$idx.':history'}) { |
if ($contrib{$idx.':history'}) { |
my @postversions = (); |
my @postversions = (); |
$discussionitems[$idx] .= '<br />'.&mt('This post has been edited by the author.').'<br/>'.&mt('Earlier version(s) were posted on: '); |
$discussionitems[$idx] .= '<br />'.&mt('This post has been edited by the author.'); |
|
if ($seeid) { |
|
$discussionitems[$idx] .= ' <a href="/adm/feedback?allversions='.$ressymb.':::'.$idx.'">'.&mt('Display all versions').'</a>'; |
|
} |
|
$discussionitems[$idx].='<br/>'.&mt('Earlier version(s) were posted on: '); |
if ($contrib{$idx.':history'} =~ m/:/) { |
if ($contrib{$idx.':history'} =~ m/:/) { |
@postversions = split/:/,$contrib{$idx.':history'}; |
@postversions = split/:/,$contrib{$idx.':history'}; |
} else { |
} else { |
Line 522 sub list_discussion {
|
Line 526 sub list_discussion {
|
my $version = $i+1; |
my $version = $i+1; |
$discussionitems[$idx] .= '<b>'.$version.'.</b> - '.&Apache::lonlocal::locallocaltime($postversions[$i]).' '; |
$discussionitems[$idx] .= '<b>'.$version.'.</b> - '.&Apache::lonlocal::locallocaltime($postversions[$i]).' '; |
} |
} |
$discussionitems[$idx] .= '<br />'; |
|
} |
} |
} |
} |
} |
} |
Line 2254 sub handler {
|
Line 2257 sub handler {
|
# --------------------------- Get query string for limited number of parameters |
# --------------------------- Get query string for limited number of parameters |
|
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
['hide','unhide','deldisc','postdata','preview','replydisc','editdisc','threadedon','threadedoff','onlyunread','allposts','previous','markread','markonread','markondisp','modifydisp','changes','navmaps','navurl','sortfilter','sortposts','applysort','rolefilter','statusfilter','sectionpick','posterlist','userpick','attach','origpage','currnewattach','deloldattach','keepold']); |
['hide','unhide','deldisc','postdata','preview','replydisc','editdisc','threadedon','threadedoff','onlyunread','allposts','previous','markread','markonread','markondisp','modifydisp','changes','navmaps','navurl','sortfilter','sortposts','applysort','rolefilter','statusfilter','sectionpick','posterlist','userpick','attach','origpage','currnewattach','deloldattach','keepold','allversions']); |
|
if ($ENV{'form.allversions'}) { |
|
&Apache::loncommon::content_type($r,'text/html'); |
|
$r->send_http_header; |
|
my $bodytag=&Apache::loncommon::bodytag('Discussion Post Versions', |
|
'',''); |
|
$r->print (<<END); |
|
<html> |
|
<head> |
|
<title>Post Versions</title> |
|
<meta http-equiv="pragma" content="no-cache" /> |
|
</head> |
|
$bodytag |
|
END |
|
my $crs='/'.$ENV{'request.course.id'}; |
|
if ($ENV{'request.course.sec'}) { |
|
$crs.='_'.$ENV{'request.course.sec'}; |
|
} |
|
$crs=~s/\_/\//g; |
|
my $seeid=&Apache::lonnet::allowed('rin',$crs); |
|
my ($symb,$idx)=split(/\:\:\:/,$ENV{'form.allversions'}); |
|
my $ressymb=$symb; |
|
unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) { |
|
$ressymb=~s|(bulletin___\d+___)|$1adm/wrapper|; |
|
} |
|
if ($idx > 0) { |
|
my %contrib=&Apache::lonnet::restore($ressymb,$ENV{'request.course.id'}, |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}); |
|
if ($contrib{$idx.':history'}) { |
|
my $attachmenturls = $contrib{$idx.':attachmenturl'}; |
|
my @postversions = (); |
|
if ($contrib{$idx.':history'} =~ m/:/) { |
|
@postversions = split/:/,$contrib{$idx.':history'}; |
|
} else { |
|
@postversions = ("$contrib{$idx.':history'}"); |
|
} |
|
if (@postversions > 0) { |
|
push @postversions,$contrib{$idx.':timestamp'}; |
|
my $screenname=&Apache::loncommon::screenname( |
|
$contrib{$idx.':sendername'}, |
|
$contrib{$idx.':senderdomain'}); |
|
my $plainname=&Apache::loncommon::nickname( |
|
$contrib{$idx.':sendername'}, |
|
$contrib{$idx.':senderdomain'}); |
|
my $sender=&Apache::loncommon::aboutmewrapper( |
|
$plainname, |
|
$contrib{$idx.':sendername'}, |
|
$contrib{$idx.':senderdomain'}).' ('. |
|
$contrib{$idx.':sendername'}.' at '. |
|
$contrib{$idx.':senderdomain'}.')'; |
|
if ($contrib{$idx.':anonymous'}) { |
|
$sender.=' ['.&mt('anonymous').'] '.$screenname; |
|
} |
|
$r->print('<b>'.$sender.'</b><br /><ul>'); |
|
for (my $i=0; $i<@postversions; $i++) { |
|
my ($timesent,$message,$subject,$attachmsg); |
|
$timesent = &Apache::lonlocal::locallocaltime($postversions[$i]); |
|
if ($i == @postversions-1) { |
|
($message)=($contrib{$idx.':message'} =~ /.*::::\Q$i\E::::(.+?)$/si); |
|
($subject)=($contrib{$idx.':subject'} =~ /.*::::\Q$i\E::::(.+?)$/si); |
|
} else { |
|
($message)=($contrib{$idx.':message'} =~ /::::\Q$i\E::::(.+?)::::/si); |
|
($subject)=($contrib{$idx.':subject'} =~ /::::\Q$i\E::::(.+?)::::/si); |
|
} |
|
$message=~s/\n/\<br \/\>/g; |
|
$message=&Apache::lontexconvert::msgtexconverted($message); |
|
$subject=~s/\n/\<br \/\>/g; |
|
$subject=&Apache::lontexconvert::msgtexconverted($subject); |
|
if ($attachmenturls) { |
|
my @attachments = (); |
|
my %currattach = (); |
|
&extract_attachments($attachmenturls,$idx,$i,\$attachmsg,\@attachments,\%currattach); |
|
} |
|
if ($attachmsg) { |
|
$attachmsg = '<br />Attachments:'.$attachmsg.'<br />'; |
|
} else { |
|
$attachmsg = '<br />'; |
|
} |
|
$r->print (<<END); |
|
<li><b>$subject</b>, $timesent<br /> |
|
$message<br /> |
|
$attachmsg</li> |
|
END |
|
} |
|
$r->print('</ul></body></html>'); |
|
} |
|
} |
|
} |
|
return OK; |
|
} |
if ($ENV{'form.posterlist'}) { |
if ($ENV{'form.posterlist'}) { |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |