loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonfeedback.pm between versions 1.310 and 1.372

version 1.310, 2011/12/12 00:13:43	version 1.372, 2016/03/23 02:19:09
Line 82 sub discussion_visible {	Line 82 sub discussion_visible {
return 1;	return 1;
}	}

	sub discussion_vote_available {
	my ($status,$symb)=@_;
	my $canvote=&Apache::lonnet::EXT('resource.0.discussvote',$symb);
	if ((lc($canvote) eq 'yes') \|\|
	((lc($canvote) eq 'notended') && (&discussion_open($status,$symb)))) {
	return 1;
	}
	}

	sub get_realsymb {
	my ($symb) = @_;
	my $realsymb = $symb;
	if ($symb=~/^bulletin___/) {
	my $filename=(&Apache::lonnet::decode_symb($symb))[2];
	$filename=~s{^adm/wrapper/}{};
	$realsymb=&Apache::lonnet::symbread($filename);
	}
	return $realsymb;
	}

sub list_discussion {	sub list_discussion {
my ($mode,$status,$ressymb,$imsextras,$group)=@_;	my ($mode,$status,$ressymb,$imsextras,$group)=@_;
unless ($ressymb) { $ressymb=&Apache::lonnet::symbread(); }	unless ($ressymb) { $ressymb=&Apache::lonnet::symbread(); }
Line 257 sub list_discussion {	Line 277 sub list_discussion {
$visit ++;	$visit ++;

my $seeid;	my $seeid;
if (($group ne '') && ($mode eq 'board') &&	if (&Apache::lonnet::allowed('rin',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))) {
($ressymb =~ m\|^bulletin___\d+___adm/wrapper/adm/\Q$cdom\E/\Q$cnum\E/\d+/bulletinboard$\|)) {	$seeid = 1;
if (&check_group_priv($group,'dgp') eq 'ok') {
$seeid = 1;
}
} else {
$seeid=&Apache::lonnet::allowed('rin',$crs);
}	}
	my $seehidden = &can_see_hidden($mode,$ressymb,undef,$group,$cdom,$cnum,$crs);

	# Is voting on discussions available
	my $realsymb = &get_realsymb($ressymb);
	my $canvote = &discussion_vote_available($status,$realsymb);

my @discussionitems=();	my @discussionitems=();
my %shown = ();	my %shown = ();
my @posteridentity=();	my @posteridentity=();
Line 286 sub list_discussion {	Line 307 sub list_discussion {
$discinfo{$visitkey} = $visit;	$discinfo{$visitkey} = $visit;

&Apache::lonnet::put('nohist_'.$cid.'_discuss',\%discinfo,$env{'user.domain'},$env{'user.name'});	&Apache::lonnet::put('nohist_'.$cid.'_discuss',\%discinfo,$env{'user.domain'},$env{'user.name'});
&build_posting_display(\%usernamesort,\%subjectsort,\%namesort,\%notshown,\%newitem,\%dischash,\%shown,\%alldiscussion,\%imsitems,\%imsfiles,\%roleinfo,\@discussionitems,\@replies,\@depth,\@posters,\$maxdepth,\$visible,\$newpostsflag,\$current,$status,$viewgrades,$seeid,$prevread,$sortposts,$encsymb,$readkey,$showunmark,$showonlyunread,$totposters,\@rolefilter,\@sectionpick,\@grouppick,$classgroups,$statusfilter,$toggkey,$outputtarget,\%anonhash,$anoncnt,$group);	&build_posting_display(\%usernamesort,\%subjectsort,\%namesort,\%notshown,\%newitem,\%dischash,\%shown,\%alldiscussion,\%imsitems,\%imsfiles,\%roleinfo,\@discussionitems,\@replies,\@depth,\@posters,\$maxdepth,\$visible,\$newpostsflag,\$current,$status,$viewgrades,$seeid,$seehidden,$canvote,$prevread,$sortposts,$encsymb,$readkey,$showunmark,$showonlyunread,$totposters,\@rolefilter,\@sectionpick,\@grouppick,$classgroups,$statusfilter,$toggkey,$outputtarget,\%anonhash,$anoncnt,$group);

my $discussion='';	my $discussion='';
my $manifestfile;	my $manifestfile;
Line 296 sub list_discussion {	Line 317 sub list_discussion {
my $copyresult;	my $copyresult;

my $function = &Apache::loncommon::get_users_function();	my $function = &Apache::loncommon::get_users_function();
my $color = &Apache::loncommon::designparm($function.'.tabbg',
$env{'user.domain'});
my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
'cuse' => 'Current discussion settings',	'cuse' => 'My settings for this discussion',
'allposts' => 'All posts',	'allposts' => 'All posts',
'unread' => 'New posts only',	'unread' => 'New posts only',
'unmark' => 'Unread only',	'unmark' => 'Unread only',
Line 317 sub list_discussion {	Line 336 sub list_discussion {
'aner' => 'An error occurred opening the manifest file.',	'aner' => 'An error occurred opening the manifest file.',
'difo' => 'Discussion for',	'difo' => 'Discussion for',
'aerr' => 'An error occurred opening the export file for posting',	'aerr' => 'An error occurred opening the export file for posting',
	'discussions' => 'DISCUSSIONS'
	);
	my %js_lt = &Apache::lonlocal::texthash(
'aysu' => 'Are you sure you want to delete this post?',	'aysu' => 'Are you sure you want to delete this post?',
'dpwn' => 'Deleted posts will no longer be visible to you and other students',	'dpwn' => 'Deleted posts will no longer be visible to you and other students',
'bwco' => 'but will continue to be visible to your instructor',	'bwco' => 'but will continue to be visible to your instructor',
'depo' => 'Deleted posts will no longer be visible to you or anyone else.',	'depo' => 'Deleted posts will no longer be visible to you or anyone else.',
'discussions' => 'DISCUSSIONS'
);	);
	&js_escape(\%js_lt);

my $currdisp = $lt{'allposts'};	my $currdisp = $lt{'allposts'};
my $currmark = $lt{'onmark'};	my $currmark = $lt{'onmark'};
Line 428 imscp_v1p1.xsd http://www.imsglobal.org/	Line 450 imscp_v1p1.xsd http://www.imsglobal.org/
prevparm = "&previous="+previous	prevparm = "&previous="+previous
}	}
if (caller == 'studentdelete') {	if (caller == 'studentdelete') {
if (confirm("$lt{'aysu'}\\n$lt{'dpwn'},\\n$lt{'bwco'}")) {	if (confirm("$js_lt{'aysu'}\\n$js_lt{'dpwn'},\\n$js_lt{'bwco'}")) {
document.location.href = "/adm/feedback?hide="+symbparm+prevparm+groupparm	document.location.href = "/adm/feedback?hide="+symbparm+prevparm+groupparm
}	}
} else {	} else {
if (caller == 'seeiddelete') {	if (caller == 'seeiddelete') {
if (confirm("$lt{'aysu'}\\n$lt{'depo'}")) {	if (confirm("$js_lt{'aysu'}\\n$js_lt{'depo'}")) {
document.location.href = "/adm/feedback?deldisc="+symbparm+prevparm+groupparm	document.location.href = "/adm/feedback?deldisc="+symbparm+prevparm+groupparm
}	}
}	}
Line 441 imscp_v1p1.xsd http://www.imsglobal.org/	Line 463 imscp_v1p1.xsd http://www.imsglobal.org/
}	}
\|);	\|);
$discussion.='<form name="readchoices" method="post" action="/adm/feedback?chgreads='.$ressymb.'" >'.	$discussion.='<form name="readchoices" method="post" action="/adm/feedback?chgreads='.$ressymb.'" >'.
"\n".'<table class="LC_discussion">';	"\n".'<table width="100%" class="LC_discussion">';
$discussion .= &action_links_bar($colspan,$ressymb,$visible,	$discussion .= &action_links_bar($colspan,$ressymb,$visible,
$newpostsflag,$group,	$newpostsflag,$group,
$prevread,$markondisp);	$prevread,$markondisp,$seehidden);
my $escsymb=&escape($ressymb);	my $escsymb=&escape($ressymb);
my $numhidden = keys(%notshown);	my $numhidden = keys(%notshown);
if ($numhidden > 0) {	if ($numhidden > 0) {
my $colspan = $maxdepth+1;	my $colspan = $maxdepth+1;
$discussion.="\n".'<tr><td bgcolor="#CCCCCC" colspan="'.$colspan.'">'.	$discussion.="\n".'<tr><td bgcolor="#CCCCCC" colspan="'.$colspan.'">';
'<a href="/adm/feedback?allposts=1&symb='.$escsymb;	my $href = '/adm/feedback?allposts=1&symb='.$escsymb;
if ($newpostsflag) {	if ($newpostsflag) {
$discussion .= '&previous='.$prevread;	$href .= '&previous='.$prevread;
}	}
$discussion .= &group_args($group);	$href .= &group_args($group);
$discussion .= '">'.&mt('Show all posts').'</a> '.&mt('to display').' '.
$numhidden.' ';
if ($showunmark) {	if ($showunmark) {
$discussion .= &mt('posts previously marked read');	$discussion .= &mt('[_1]Show all posts[_2] to display [quant,_3,post] previously marked read',
	'<a href="'.$href.'">','</a>',$numhidden);
} else {	} else {
$discussion .= &mt('previously viewed posts');	$discussion .= &mt('[_1]Show all posts[_2] to display [quant,_3,post] previously viewed',
	'<a href="'.$href.'">','</a>',$numhidden);
}	}
$discussion .= '<br/></td></tr>';	$discussion .= '<br/></td></tr>';
}	}
Line 494 imscp_v1p1.xsd http://www.imsglobal.org/	Line 516 imscp_v1p1.xsd http://www.imsglobal.org/
my $currdepth = 0;	my $currdepth = 0;
my $firstidx = $alldiscussion{$showposts[0]};	my $firstidx = $alldiscussion{$showposts[0]};
foreach my $post (@showposts) {	foreach my $post (@showposts) {
unless (($sortposts eq 'thread') \|\| (($sortposts eq '') && ($env{'environment.threadeddiscussion'})) \|\| ($outputtarget eq 'export')) {	unless (($sortposts eq 'thread') \|\|
	(($sortposts eq '') && (!$env{'environment.unthreadeddiscussion'})) \|\|
	($outputtarget eq 'export')) {
$alldiscussion{$post} = $post;	$alldiscussion{$post} = $post;
}	}
unless ( ($notshown{$alldiscussion{$post}} eq '1') \|\| ($shown{$alldiscussion{$post}} == 0) ) {	unless ( ($notshown{$alldiscussion{$post}} eq '1') \|\| ($shown{$alldiscussion{$post}} == 0) ) {
Line 504 imscp_v1p1.xsd http://www.imsglobal.org/	Line 528 imscp_v1p1.xsd http://www.imsglobal.org/
my $thisdepth=$depth[$alldiscussion{$post}];	my $thisdepth=$depth[$alldiscussion{$post}];
if ($outputtarget ne 'tex' && $outputtarget ne 'export') {	if ($outputtarget ne 'tex' && $outputtarget ne 'export') {
for (1..$thisdepth) {	for (1..$thisdepth) {
$discussion.='<td>   </td>';	$discussion.='<td>    </td>';
}	}
}	}
my $colspan=$maxdepth-$thisdepth+1;	my $colspan=$maxdepth-$thisdepth+1;
Line 541 imscp_v1p1.xsd http://www.imsglobal.org/	Line 565 imscp_v1p1.xsd http://www.imsglobal.org/
my $postingfile;	my $postingfile;
my $postingfilename = $tempexport.'/'.$postfilename;	my $postingfilename = $tempexport.'/'.$postfilename;
if ($postingfile = Apache::File->new('>'.$postingfilename)) {	if ($postingfile = Apache::File->new('>'.$postingfilename)) {
print $postingfile '<html><head><title>Discussion Post</title></head><body>'.	print $postingfile '<html><head><title>'.&mt('Discussion Post').'</title></head><body>'.
$imsitems{$alldiscussion{$post}}{'title'}.' '.	$imsitems{$alldiscussion{$post}}{'title'}.' '.
$imsitems{$alldiscussion{$post}}{'sender'}.	$imsitems{$alldiscussion{$post}}{'sender'}.
$imsitems{$alldiscussion{$post}}{'timestamp'}.'<br /><br />'.	$imsitems{$alldiscussion{$post}}{'timestamp'}.'<br /><br />'.
Line 562 imscp_v1p1.xsd http://www.imsglobal.org/	Line 586 imscp_v1p1.xsd http://www.imsglobal.org/
unless ($outputtarget eq 'tex' \|\| $outputtarget eq 'export') {	unless ($outputtarget eq 'tex' \|\| $outputtarget eq 'export') {
my $colspan=$maxdepth+1;	my $colspan=$maxdepth+1;
$discussion .= <<END;	$discussion .= <<END;
<tr bgcolor="#FFFFFF">	<tr>
<td colspan="$colspan" class="LC_disc_action_links_bar">	<td colspan="$colspan">
<table class="LC_disc_action_table">	<table width="100%">
<tr>	<tr>
<td align="left">	<td class="LC_disc_action_left">
<table border="0" cellpadding="0" cellspacing="4">	<font size="-1"><b>$lt{'cuse'}</b>:
<tr>
<td>
<font size="-1"><b>$lt{'cuse'}</b>:</font></td>
<td> </td>
<td><font size="-1">
END	END
if ($newpostsflag) {	if ($newpostsflag) {
$discussion .=	$discussion .=
Line 589 END	Line 608 END
}	}
}	}
$discussion .= <<END;	$discussion .= <<END;
</font></td>	<b><a href="$chglink">$lt{'chgt'}</a></b></font>
<td> </td>
<td align="left">
<font size="-1"><b><a href="$chglink">$lt{'chgt'}</a>?</b></font>
</td>
</tr>
</table>
</td>	</td>
END	END
if ($sortposts) {	if ($sortposts) {
Line 604 END	Line 617 END
my %status_types = ();	my %status_types = ();
&sort_filter_names(\%sort_types,\%role_types,\%status_types,$crstype);	&sort_filter_names(\%sort_types,\%role_types,\%status_types,$crstype);

$discussion .= '<td><font size="-1"><b>'.&mt('Sorted by').'</b>: '.$sort_types{$sortposts}.'<br />';	$discussion .= '<td class="LC_disc_action_right"><font size="-1"><b>'.&mt('Sorted by').'</b>: '.$sort_types{$sortposts}.'<br />';
if (defined($env{'form.totposters'})) {	if (defined($env{'form.totposters'})) {
$discussion .= &mt('Posts by').':';	$discussion .= &mt('Posts by').':';
if ($totposters > 0) {	if ($totposters > 0) {
Line 639 END	Line 652 END
if ($filterchoice) {	if ($filterchoice) {
$discussion .= '<b>'.&mt('Filters').'</b>: '.$filterchoice;	$discussion .= '<b>'.&mt('Filters').'</b>: '.$filterchoice;
}	}
$discussion .= '</font></td>';
}	}
	$discussion .= '</font></td>';

}	}
if ($dischash{$toggkey}) {	if ($dischash{$toggkey}) {
my $storebutton = &mt('Save read/unread changes');	my $storebutton = &mt('Save read/unread changes');
Line 658 END	Line 672 END
END	END
$discussion .= &action_links_bar($colspan,$ressymb,$visible,	$discussion .= &action_links_bar($colspan,$ressymb,$visible,
$newpostsflag,$group,	$newpostsflag,$group,
$prevread,$markondisp);	$prevread,$markondisp,$seehidden);
$discussion .= "	$discussion .= "</table></form>\n";
</table>
<br /><br /></form>\n";
}	}
if ($outputtarget eq 'export') {	if ($outputtarget eq 'export') {
if ($manifestok) {	if ($manifestok) {
Line 693 END	Line 705 END
open(OUTPUT, "zip -r $imszip * 2> /dev/null \|");	open(OUTPUT, "zip -r $imszip * 2> /dev/null \|");
close(OUTPUT);	close(OUTPUT);
chdir $cwd;	chdir $cwd;
$discussion .= &mt('Download the zip file from [_1]Discussion Posting Archive','<a href="'.$imszipfile.'">').'</a><br />';	$discussion .= &mt('Download the zip file from [_1]Discussion Posting Archive[_2]',
	'<a href="'.$imszipfile.'">','</a>').'<br />';
if ($copyresult) {	if ($copyresult) {
$discussion .= &mt('The following errors occurred during export').' - <br />'.$copyresult;	$discussion .= '<span class="LC_error">'.
	&mt('The following errors occurred during export:').
	'</span><br />'.$copyresult;
}	}
}	}
} else {	} else {
$discussion .= '<br />'.&mt('Unfortunately you will not be able to retrieve an archive of the discussion posts at this time, because there was a problem creating a manifest file.').'<br />';	$discussion .= '<p class="LC_error">'.
	&mt('Unfortunately you will not be able to retrieve an archive of the discussion posts at this time, because there was a problem creating a manifest file.').'</p>';
}	}
return $discussion;	return $discussion;
}	}
Line 758 END	Line 774 END
$discussion.= &send_feedback_link($ressymb);	$discussion.= &send_feedback_link($ressymb);
if ($env{'request.role.adv'}) {	if ($env{'request.role.adv'}) {
my $close = &Apache::lonnet::EXT('resource.0.discussend',$ressymb);	my $close = &Apache::lonnet::EXT('resource.0.discussend',$ressymb);
	my $canvote = &Apache::lonnet::EXT('resource.0.discussvote',$ressymb);
if (defined($close) && $close ne '' && $close < time) {	if (defined($close) && $close ne '' && $close < time) {
$discussion .= ' '.&mt('(Closed for [_1] roles)',	if ($canvote eq 'notended') {
&Apache::lonnet::plaintext('st',$crstype));	$discussion .= ' '.&mt('(Posting and voting closed for [_1] roles)',
	&Apache::lonnet::plaintext('st',$crstype));
	} else {
	$discussion .= ' '.&mt('(Closed for [_1] roles)',
	&Apache::lonnet::plaintext('st',$crstype));
	}
}	}
}	}
} else {	} else {
Line 771 END	Line 793 END
return $discussion;	return $discussion;
}	}

	sub can_see_hidden {
	my ($mode,$ressymb,$feedurl,$group,$cdom,$cnum,$crs) = @_;
	my $seehidden;
	if ($env{'request.course.id'}) {
	unless ($cdom ne '' && $cnum ne '') {
	$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
	$cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
	}
	if ($crs eq '') {
	$crs = '/'.$env{'request.course.id'};
	if ($env{'request.course.sec'}) {
	$crs.='_'.$env{'request.course.sec'};
	}
	$crs=~s{_}{/}g;
	}
	if ($mode eq '') {
	$mode='board';
	if ($feedurl =~ /$LONCAPA::assess_re/) {
	$mode='problem';
	}
	}
	if (($group ne '') && ($mode eq 'board') &&
	($ressymb =~ m{^bulletin___\d+\Q___adm/wrapper/adm/$cdom/$cnum/\E\d+/bulletinboard$})) {
	if (&check_group_priv($group,'dgp') eq 'ok') {
	$seehidden = 1;
	}
	} else {
	$seehidden=&Apache::lonnet::allowed('rin',$crs);
	}
	}
	return $seehidden;
	}

sub discussion_link {	sub discussion_link {
my ($ressymb,$linktext,$cmd,$item,$flag,$prev,$adds)=@_;	my ($ressymb,$linktext,$cmd,$item,$flag,$prev,$adds,$title)=@_;
my $link='/adm/feedback?inhibitmenu=yes&modal=yes&'.$cmd.'='.&escape($ressymb).':::'.$item;	my $link='/adm/feedback?inhibitmenu=yes&modal=yes&'.$cmd.'='.&escape($ressymb).':::'.$item;
if ($flag) { $link .= '&previous='.$prev; }	if ($flag) { $link .= '&previous='.$prev; }
if ($adds) { $link .= $adds; }	if ($adds) { $link .= $adds; }
return &Apache::loncommon::modal_link($link,$linktext,600,600);	my $width=600;
	my $height=600;
	if (($cmd eq 'hide') \|\| ($cmd eq 'unhide') \|\| ($cmd eq 'like') \|\| ($cmd eq 'unlike')) {
	$width=300;
	$height=200;
	}
	return &Apache::loncommon::modal_link($link,$linktext,$width,$height,undef,undef,$title);
}	}


Line 795 sub send_feedback_link {	Line 855 sub send_feedback_link {
sub send_message_link {	sub send_message_link {
my ($ressymb) = @_;	my ($ressymb) = @_;
my $output = '<span class="LC_message_link">'.	my $output = '<span class="LC_message_link">'.
' <a href="/adm/feedback?sendmessageonly=1&symb='.	&discussion_link($ressymb,
&escape($ressymb).'"><img alt="" class="LC_noBorder" src="'.	'<img alt="" class="LC_noBorder" src="'.
&Apache::loncommon::lonhttpdurl('/res/adm/pages/feedback.png').	&Apache::loncommon::lonhttpdurl('/res/adm/pages/feedback.png').
'" border="0" /><span class="LC_menubuttons_inline_text">'.&mt('Send Feedback').'</span></a></span>';	'" border="0" /><span class="LC_menubuttons_inline_text">'.&mt('Send Feedback').'</span>',
	'sendmessageonly').
	'</span>';
return $output;	return $output;
}	}

sub action_links_bar {	sub action_links_bar {
my ($colspan,$ressymb,$visible,$newpostsflag,$group,$prevread,$markondisp) = @_;	my ($colspan,$ressymb,$visible,$newpostsflag,$group,$prevread,$markondisp,
my $discussion = '<tr><td class="LC_disc_action_links_bar" colspan="'.$colspan.'">'.	$seehidden) = @_;
'<table width="100%" class="LC_disc_action_table"><tr>'.	my $discussion = '<tr><td colspan="'.$colspan.'">'.
	'<table width="100%"><tr>'.
'<td class="LC_disc_action_left">';	'<td class="LC_disc_action_left">';
my $escsymb=&escape($ressymb);	my $escsymb=&escape($ressymb);
if ($visible) {	if ($visible) {
Line 820 sub action_links_bar {	Line 883 sub action_links_bar {
$discussion .= '&previous='.$prevread;	$discussion .= '&previous='.$prevread;
}	}
$discussion .= &group_args($group);	$discussion .= &group_args($group);
$discussion .='">'.&mt('Chronological View').'</a>	$discussion .='">'.&mt('Chronological View').'</a>  ';
<a href="/adm/feedback?cmd=sortfilter&symb='.$escsymb;
	my $otherviewurl='/adm/feedback?cmd=sortfilter&symb='.$escsymb.'&inhibitmenu=yes&modal=yes';
if ($newpostsflag) {	if ($newpostsflag) {
$discussion .= '&previous='.$prevread;	$otherviewurl .= '&previous='.$prevread;
}	}
$discussion .= &group_args($group);	$otherviewurl .= &group_args($group);
$discussion .='">'.&mt('Sorting/Filtering options').'</a>'.(' ' x2);	$discussion .= &Apache::loncommon::modal_link($otherviewurl,&mt('Other Views ...'),800,340);
	$discussion .= '<br />';
}	}
$discussion .='<a href="/adm/feedback?export='.$escsymb;	$discussion .='<a href="/adm/feedback?export='.$escsymb;
if ($newpostsflag) {	if ($newpostsflag) {
$discussion .= '&previous='.$prevread;	$discussion .= '&previous='.$prevread;
}	}
$discussion .= &group_args($group);	$discussion .= &group_args($group);
$discussion .= '">'.&mt('Export').'?</a>  </td>';	$discussion .= '">'.&mt('Export').'</a>';
	if ($seehidden) {
	$discussion .= '  ';
	$discussion .='<a href="/adm/feedback?undeleteall='.$escsymb;
	if ($newpostsflag) {
	$discussion .= '&previous='.$prevread;
	}
	$discussion .= &group_args($group);
	$discussion .= '">'.&mt('Undelete all deleted entries').'</a>';
	}
	$discussion.='</td>';
if ($newpostsflag) {	if ($newpostsflag) {
if (!$markondisp) {	if (!$markondisp) {
$discussion .='<td class="LC_disc_action_right"><a href="/adm/preferences?action=changediscussions';	$discussion .='<td class="LC_disc_action_right"><a href="/adm/preferences?action=changediscussions';
$discussion .= &group_args($group);	$discussion .= &group_args($group);
$discussion .= '">'.	$discussion .= '">'.
&mt('Preferences on what is marked as NEW').	&mt('My general preferences on what is marked as NEW').
'</a><br /><a href="/adm/feedback?markread=1&symb='.$escsymb;	'</a><br /><a href="/adm/feedback?markread=1&symb='.$escsymb;
$discussion .= &group_args($group);	$discussion .= &group_args($group);
$discussion .= '">'.&mt('Mark NEW posts no longer new').'</a></td>';	$discussion .= '">'.&mt('Mark NEW posts no longer new').'</a></td>';
Line 858 sub postingform_display {	Line 933 sub postingform_display {
$currnewattach,$currdelold,$group,$crstype) = @_;	$currnewattach,$currdelold,$group,$crstype) = @_;
my $newattachmsg;	my $newattachmsg;
my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
'note' => 'Note: in anonymous discussion, your name is visible only to course faculty',	'note' => 'Note: in anonymous discussion, your name is visible only to course faculty',
'title' => 'Title',	'title' => 'Title',
'podi' => 'Post Discussion',	'podi' => 'Post Discussion',
'poan' => 'Post Anonymous Discussion',	'poan' => 'Post Anonymous Discussion',
Line 877 sub postingform_display {	Line 952 sub postingform_display {
}	}
}	}
}	}
	my $postanon;
	if (&Apache::lonnet::allowed('pac',$env{'request.course.id'}.
	($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))) {
	$postanon = '<input type="submit" name="anondiscuss" value="'.$lt{'poan'}.'" />';
	}
$postingform .= (<<ENDDISCUSS);	$postingform .= (<<ENDDISCUSS);
<form action="/adm/feedback" method="post" name="mailform" enctype="multipart/form-data"> <input type="submit" name="discuss" value="$lt{'podi'}" />	<form action="/adm/feedback" method="post" name="mailform" enctype="multipart/form-data"> <input type="submit" name="discuss" value="$lt{'podi'}" />
<input type="submit" name="anondiscuss" value="$lt{'poan'}" /> <input type="hidden" name="symb" value="$ressymb" />	$postanon<input type="hidden" name="symb" value="$ressymb" />
<input type="hidden" name="sendit" value="true" />	<input type="hidden" name="sendit" value="true" />
<input type="hidden" name="timestamp" value="$now" />	<input type="hidden" name="timestamp" value="$now" />
<br /><a name="newpost"></a>	<a name="newpost"></a>
<font size="1">$lt{'note'}</font><br />	<font size="1">$lt{'note'}</font><br />
<b>$lt{'title'}:</b> <input type="text" name="subject" value="$subject" size="30" /><br /><br />	<b>$lt{'title'}:</b> <input type="text" name="subject" value="$subject" size="30" /><br />
<textarea name="comment" cols="80" rows="14" id="comment" $textareaclass>$comment</textarea>	<textarea name="comment" cols="80" rows="14" id="comment" $textareaclass>$comment</textarea>
ENDDISCUSS	ENDDISCUSS
if ($env{'form.origpage'}) {	if ($env{'form.origpage'}) {
Line 931 ENDDISCUSS	Line 1011 ENDDISCUSS
}	}

sub build_posting_display {	sub build_posting_display {
my ($usernamesort,$subjectsort,$namesort,$notshown,$newitem,$dischash,$shown,$alldiscussion,$imsitems,$imsfiles,$roleinfo,$discussionitems,$replies,$depth,$posters,$maxdepth,$visible,$newpostsflag,$current,$status,$viewgrades,$seeid,$prevread,$sortposts,$ressymb,$readkey,$showunmark,$showonlyunread,$totposters,$rolefilter,$sectionpick,$grouppick,$classgroups,$statusfilter,$toggkey,$outputtarget,$anonhash,$anoncnt,$group) = @_;	my ($usernamesort,$subjectsort,$namesort,$notshown,$newitem,$dischash,$shown,$alldiscussion,$imsitems,$imsfiles,$roleinfo,$discussionitems,$replies,$depth,$posters,$maxdepth,$visible,$newpostsflag,$current,$status,$viewgrades,$seeid,$seehidden,$canvote,$prevread,$sortposts,$ressymb,$readkey,$showunmark,$showonlyunread,$totposters,$rolefilter,$sectionpick,$grouppick,$classgroups,$statusfilter,$toggkey,$outputtarget,$anonhash,$anoncnt,$group) = @_;
my @original=();	my @original=();
my @index=();	my @index=();
my $skip_group_check = 0;	my $skip_group_check = 0;
my $symb=&Apache::lonenc::check_decrypt($ressymb);	my $symb=&Apache::lonenc::check_decrypt($ressymb);
my $escsymb=&escape($ressymb);	my $escsymb=&escape($ressymb);
	# These are the discussion contributions
my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'},	my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'},
$env{'course.'.$env{'request.course.id'}.'.domain'},	$env{'course.'.$env{'request.course.id'}.'.domain'},
$env{'course.'.$env{'request.course.id'}.'.num'});	$env{'course.'.$env{'request.course.id'}.'.num'});
	my (%likes,%userlikes,%userunlikes,@theselikes,$oneplus,$twoplus,$oneminus,$twominus);
	my $thisuser=$env{'user.name'}.':'.$env{'user.domain'};
	if ($seeid \|\| $canvote) {
	# And these are the likes/unlikes
	%likes=&Apache::lonnet::dump('disclikes',
	$env{'course.'.$env{'request.course.id'}.'.domain'},
	$env{'course.'.$env{'request.course.id'}.'.num'},
	'^'.$symb.':');
	# Array with likes to figure out averages, etc.
	@theselikes=();
	# Hashes containing likes and unlikes for this user.
	%userlikes=();
	%userunlikes=();
	}
	# Is the user allowed to see the real name behind anonymous postings?
my $see_anonymous =	my $see_anonymous =
&Apache::lonnet::allowed('rin',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''));	&Apache::lonnet::allowed('rin',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''));

if ((@{$grouppick} == 0) \|\| (grep(/^all$/,@{$grouppick}))) {	if ((@{$grouppick} == 0) \|\| (grep(/^all$/,@{$grouppick}))) {
$skip_group_check = 1;	$skip_group_check = 1;
}	}
	# Deletions and hiddens are just lists. Split them up into a hash for quicker lookup
my (%deletions,%hiddens);	my (%deletions,%hiddens);
if ($contrib{'deleted'}) {	if ($contrib{'deleted'}) {
my $deleted = $contrib{'deleted'};	my $deleted = $contrib{'deleted'};
Line 960 sub build_posting_display {	Line 1056 sub build_posting_display {
$hidden =~ s/\.$//;	$hidden =~ s/\.$//;
%hiddens = map { $_ => 1 } (split(/\.\./,$hidden));	%hiddens = map { $_ => 1 } (split(/\.\./,$hidden));
}	}
	# Versions if store/restore are used to actually store the messages.
if ($contrib{'version'}) {	if ($contrib{'version'}) {
my $oldest = $contrib{'1:timestamp'};	my $oldest = $contrib{'1:timestamp'};
if ($prevread eq '0') {	if ($prevread eq '0') {
Line 970 sub build_posting_display {	Line 1067 sub build_posting_display {
($skiptest,$roleregexp,$secregexp,$statusregexp) =	($skiptest,$roleregexp,$secregexp,$statusregexp) =
&filter_regexp($rolefilter,$sectionpick,$statusfilter);	&filter_regexp($rolefilter,$sectionpick,$statusfilter);
$rolematch = $roleregexp.':'.$secregexp.':'.$statusregexp;	$rolematch = $roleregexp.':'.$secregexp.':'.$statusregexp;
}	}
	my %votestyle;
	if ($seeid \|\| $canvote) {
	# We need to go through this twice, first to get the likes/dislikes, then to actually build the display
	for (my $id=1;$id<=$contrib{'version'};$id++) {
	my $idx=$id;
	next if ($contrib{$idx.':deleted'});
	next if ($contrib{$idx.':hidden'});
	unless ((($hiddens{$idx}) && (!$seehidden)) \|\| ($deletions{$idx}) \|\| (!$contrib{$idx.':message'})) {
	push(@theselikes,$likes{$symb.':'.$idx.':likes'});
	if ($likes{$symb.':'.$idx.':likes'} ne '') {
	if (ref($likes{$symb.':'.$idx.':likers'}) eq 'HASH') {
	if (exists($likes{$symb.':'.$idx.':likers'}{$thisuser})) {
	$userlikes{$idx} = 1;
	}
	}
	if (ref($likes{$symb.':'.$idx.':unlikers'}) eq 'HASH') {
	if (exists($likes{$symb.':'.$idx.':unlikers'}{$thisuser})) {
	$userunlikes{$idx} = 1;
	}
	}
	}
	}
	}
	# Figure out average likes and standard deviation if there are enough
	# discussions to warrant that
	my $ave=0;
	my $stddev=10000;
	if ($#theselikes>1) {
	my $sum=0;
	my $num=$#theselikes+1;
	foreach my $thislike (@theselikes) {
	$sum+=$thislike;
	}
	$ave=$sum/$num;
	my $sumsq=0;
	foreach my $thislike (@theselikes) {
	$sumsq+=($thislike-$ave)*($thislike-$ave);
	}
	$stddev=sqrt($sumsq/$num);
	}
	# Now we know the average likes $ave and the standard deviation $stddev
	# Get the boundaries for markup
	$oneplus=$ave+$stddev;
	$twoplus=$ave+2.*$stddev;
	$oneminus=$ave-$stddev;
	$twominus=$ave-2.*$stddev;
	if ($#theselikes>1) {
	foreach my $class ('twoplus','oneplus','zero','oneminus','twominus') {
	my $fontstyle = $env{'course.'.$env{'request.course.id'}.'.discussion_post_fonts_'.$class};
	if ($fontstyle ne '') {
	my ($size,$weight,$style,$other) = split(/,/,$fontstyle);
	if ($size ne '') {
	$votestyle{$class} .= 'font-size: '.$size.';';
	}
	if ($weight ne '') {
	$votestyle{$class} .= 'font-weight: '.$weight.';';
	}
	if ($style ne '') {
	$votestyle{$class} .= 'font-style: '.$style.';';
	}
	if ($other ne '') {
	$votestyle{$class} .= $other;
	}
	if ($votestyle{$class} ne '') {
	$votestyle{$class} = 'style="'.$votestyle{$class}.'"';
	}
	}
	}
	}
	}
	#
	# This is now the real loop. Go through all entries, pick up what we need
	#
for (my $id=1;$id<=$contrib{'version'};$id++) {	for (my $id=1;$id<=$contrib{'version'};$id++) {
my $idx=$id;	my $idx=$id;
next if ($contrib{$idx.':deleted'});	next if ($contrib{$idx.':deleted'});
next if ($contrib{$idx.':hidden'});	next if ($contrib{$idx.':hidden'});
	# If we get here, we are actually going to display the message - we don't know where and we don't know if we display
	# previous edits, but it counts as one entry
my $posttime = $contrib{$idx.':timestamp'};	my $posttime = $contrib{$idx.':timestamp'};
if ($prevread <= $posttime) {	if ($prevread <= $posttime) {
$$newpostsflag = 1;	$$newpostsflag = 1;
Line 983 sub build_posting_display {	Line 1155 sub build_posting_display {
my $origindex='0.';	my $origindex='0.';
my $numoldver=0;	my $numoldver=0;
if ($contrib{$idx.':replyto'}) {	if ($contrib{$idx.':replyto'}) {
if ( (($env{'environment.threadeddiscussion'}) && ($sortposts eq '')) \|\| ($sortposts eq 'thread') \|\| ($outputtarget eq 'export')) {	if ( ((!$env{'environment.unthreadeddiscussion'}) && ($sortposts eq '')) \|\|
	($sortposts eq 'thread') \|\| ($outputtarget eq 'export')) {
# this is a follow-up message	# this is a follow-up message
$original[$idx]=$original[$contrib{$idx.':replyto'}];	$original[$idx]=$original[$contrib{$idx.':replyto'}];
$$depth[$idx]=$$depth[$contrib{$idx.':replyto'}]+1;	$$depth[$idx]=$$depth[$contrib{$idx.':replyto'}]+1;
Line 1003 sub build_posting_display {	Line 1176 sub build_posting_display {
} else {	} else {
$$replies[$$depth[$idx]]=1;	$$replies[$$depth[$idx]]=1;
}	}
unless ((($hiddens{$idx}) && (!$seeid)) \|\| ($deletions{$idx})) {	unless ((($hiddens{$idx}) && (!$seehidden)) \|\| ($deletions{$idx})) {
$$visible++;	$$visible++;
if ($contrib{$idx.':history'}) {	if ($contrib{$idx.':history'}) {
if ($contrib{$idx.':history'} =~ /:/) {	if ($contrib{$idx.':history'} =~ /:/) {
Line 1018 sub build_posting_display {	Line 1191 sub build_posting_display {
my %subjects = ();	my %subjects = ();
my %attachtxt = ();	my %attachtxt = ();
my %allattachments = ();	my %allattachments = ();
my ($screenname,$plainname);	my ($screenname,$plainname,$showaboutme);
my $sender = &mt('Anonymous');	my $sender = &mt('Anonymous');
# Anonymous users getting number within a discussion	# Anonymous users getting number within a discussion
# Since idx is in static order, this should give the same sequence every time.	# Since idx is in static order, this should give the same sequence every time.
Line 1028 sub build_posting_display {	Line 1201 sub build_posting_display {
$$anonhash{$key}=&mt('Anonymous').' '.$anoncnt;	$$anonhash{$key}=&mt('Anonymous').' '.$anoncnt;
}	}
my ($message,$subject,$vgrlink,$ctlink);	my ($message,$subject,$vgrlink,$ctlink);
&get_post_contents(\%contrib,$idx,$seeid,$outputtarget,\%messages,\%subjects,\%allattachments,\%attachtxt,$imsfiles,\$screenname,\$plainname,$numoldver);	&get_post_contents(\%contrib,$idx,$seeid,$seehidden,$outputtarget,\%messages,\%subjects,\%allattachments,\%attachtxt,$imsfiles,\$screenname,\$plainname,\$showaboutme,$numoldver);


# Set up for sorting by subject	# Set up for sorting by subject
Line 1058 sub build_posting_display {	Line 1231 sub build_posting_display {
}	}
}	}
if (!$contrib{$idx.':anonymous'} \|\| $see_anonymous) {	if (!$contrib{$idx.':anonymous'} \|\| $see_anonymous) {
$sender=&Apache::loncommon::aboutmewrapper(	if ($showaboutme) {
$plainname,	$sender = &Apache::loncommon::aboutmewrapper(
$contrib{$idx.':sendername'},	$plainname,
$contrib{$idx.':senderdomain'}).' ('.	$contrib{$idx.':sendername'},
$contrib{$idx.':sendername'}.':'.	$contrib{$idx.':senderdomain'});
$contrib{$idx.':senderdomain'}.')';	} else {
	$sender = $plainname;
	}
	if ($see_anonymous) {
	$sender .= ' ('.$contrib{$idx.':sendername'}.':'.
	$contrib{$idx.':senderdomain'}.')';
	}
$sender = '<b>'.$sender.'</b>';	$sender = '<b>'.$sender.'</b>';
if ($contrib{$idx.':anonymous'}) {	if ($contrib{$idx.':anonymous'}) {
$sender.=' <font color="red"><b>['.$$anonhash{$key}.']</b></font> '.	$sender.=' <font color="red"><b>['.$$anonhash{$key}.']</b></font> '.
Line 1102 sub build_posting_display {	Line 1281 sub build_posting_display {
@{$$namesort{$lastname}{$firstname}} = ("$idx");	@{$$namesort{$lastname}{$firstname}} = ("$idx");
}	}
if ($outputtarget ne 'tex') {	if ($outputtarget ne 'tex') {
	# Add karma stars
	my $karma=&userkarma($contrib{$idx.':sendername'},$contrib{$idx.':senderdomain'});
	for (my $i=1;$i<=$karma;$i++) {
	$sender.='<img border="0" src="/res/adm/pages/star.gif" alt="'.&mt('Contributor Kudos').'" />';
	}
	# Can people edit this?
if (&editing_allowed($escsymb.':::'.$idx,$group)) {	if (&editing_allowed($escsymb.':::'.$idx,$group)) {
if (($env{'user.domain'} eq $contrib{$idx.':senderdomain'}) && ($env{'user.name'} eq $contrib{$idx.':sendername'})) {	if (($env{'user.domain'} eq $contrib{$idx.':senderdomain'}) && ($env{'user.name'} eq $contrib{$idx.':sendername'})) {
$sender.=' '.	$sender.=' '.
&discussion_link($symb,&mt('Edit'),'editdisc',$idx,$$newpostsflag,$prevread,&group_args($group));	&discussion_link($symb,&mt('Edit'),'editdisc',$idx,$$newpostsflag,$prevread,&group_args($group));
unless ($seeid) {	unless ($seehidden) {
my $grpargs = &group_args($group);	my $grpargs = &group_args($group);
$sender.=" <a href=\"javascript:verifydelete('studentdelete','$escsymb','$idx','$$newpostsflag','$prevread','$grpargs')";	$sender.=" <a href=\"javascript:verifydelete('studentdelete','$escsymb','$idx','$$newpostsflag','$prevread','$grpargs')";
$sender .= '">'.&mt('Delete').'</a>';	$sender .= '">'.&mt('Delete').'</a>';
}	}
}	}
}	}
if ($seeid) {	if ($seehidden) {
if ($hiddens{$idx}) {	if ($hiddens{$idx}) {
unless ($studenthidden) {	unless ($studenthidden) {
$sender.=' '.	$sender.=' '.
Line 1184 sub build_posting_display {	Line 1369 sub build_posting_display {
}	}
if ($outputtarget eq 'export' \|\| $message) {	if ($outputtarget eq 'export' \|\| $message) {
my $thisindex=$idx;	my $thisindex=$idx;
if ( (($env{'environment.threadeddiscussion'}) && ($sortposts eq '')) \|\| ($sortposts eq 'thread') \|\| ($outputtarget eq 'export')) {	if ( ((!$env{'environment.unthreadeddiscussion'}) && ($sortposts eq '')) \|\|
	($sortposts eq 'thread') \|\| ($outputtarget eq 'export')) {
$thisindex=$origindex.substr('00'.$$replies[$$depth[$idx]],-2,2);	$thisindex=$origindex.substr('00'.$$replies[$$depth[$idx]],-2,2);
}	}
$$alldiscussion{$thisindex}=$idx;	$$alldiscussion{$thisindex}=$idx;
Line 1216 sub build_posting_display {	Line 1402 sub build_posting_display {
} else {	} else {
if ($message) {	if ($message) {
my $spansize = 2;	my $spansize = 2;
	my ($uname,$udom);
if ($showonlyunread && $prevread > $posttime) {	if ($showonlyunread && $prevread > $posttime) {
$$notshown{$idx} = 1;	$$notshown{$idx} = 1;
} elsif ($showunmark && $$dischash{$readkey}=~/\.$idx\./) {	} elsif ($showunmark && $$dischash{$readkey}=~/\.$idx\./) {
$$notshown{$idx} = 1;	$$notshown{$idx} = 1;
} else {	} else {
# apply filters	# apply filters
my $uname = $contrib{$idx.':sendername'};	$uname = $contrib{$idx.':sendername'};
my $udom = $contrib{$idx.':senderdomain'};	$udom = $contrib{$idx.':senderdomain'};
my $poster = $uname.':'.$udom;	my $poster = $uname.':'.$udom;
if ($env{'form.totposters'} ne '') {	if ($env{'form.totposters'} ne '') {
if ($totposters == 0) {	if ($totposters == 0) {
Line 1274 sub build_posting_display {	Line 1461 sub build_posting_display {
unless ($$notshown{$idx} == 1) {	unless ($$notshown{$idx} == 1) {
if ($prevread > 0 && $prevread <= $posttime) {	if ($prevread > 0 && $prevread <= $posttime) {
$$newitem{$idx} = 1;	$$newitem{$idx} = 1;
$$discussionitems[$idx] .= '	$$discussionitems[$idx] .= '<font color="#FF0000"><b>'.&mt('NEW').'  </b></font>';
<table border="0" width="100%">
<tr><td align="left"><font color="#FF0000"><b>'.&mt('NEW').' </b></font></td>';
} else {	} else {
$$newitem{$idx} = 0;	$$newitem{$idx} = 0;
$$discussionitems[$idx] .= '
<table border="0" width="100%">
<tr><td align="left"> </td>';
}	}
$$discussionitems[$idx] .= '<td align="left">  '.	$$discussionitems[$idx] .= '<b>'.$subject.'</b>  '.
'<b>'.$subject.'</b>  '.
$sender.' '.$vgrlink.' ('.	$sender.' '.$vgrlink.' ('.
&Apache::lonlocal::locallocaltime($posttime).')</td>';	&Apache::lonlocal::locallocaltime($posttime).')';
if ($$dischash{$toggkey}) {	if ($$dischash{$toggkey}) {
$$discussionitems[$idx].='<td align="right">  '.	$$discussionitems[$idx].='  '.$ctlink;
$ctlink.'</td>';
}	}
$$discussionitems[$idx].= '</tr></table><blockquote>'.	my $thislikes=$likes{$symb.':'.$idx.':likes'};
$message.'</blockquote>';	my $likestyle;
	if ($seeid \|\| $canvote) {
	# Figure out size based on likes
	my $class = 'zero';
	my $thislikes=$likes{$symb.':'.$idx.':likes'};
	if ($thislikes>$twoplus) {
	$class = 'twoplus';
	} elsif ($thislikes>$oneplus) {
	$class = 'oneplus';
	}
	if ($thislikes<$twominus) {
	$class = 'twominus';
	} elsif ($thislikes<$oneminus) {
	$class = 'oneminus';
	}
	$likestyle = $votestyle{$class};
	}
	# Actually glue in the message itself
	$$discussionitems[$idx].= '<br /><blockquote>'.
	"<div $likestyle>".
	$message.
	'</div></blockquote>';
	if ($canvote) {
	my $ownpost;
	if (($uname eq $env{'user.name'}) &&
	($udom eq $env{'user.domain'})) {
	$ownpost = 1;
	}
	# Put in the like and unlike buttons
	if ($ownpost \|\| (($hiddens{$idx}) && ($seehidden))) {
	my $novote;
	if ($ownpost) {
	$novote = &mt('No voting for your own posts.');
	} else {
	$novote = &mt('No voting for hidden posts.');
	}
	&html_escape(\$novote);
	$$discussionitems[$idx].=
	'<a href="javascript:alert('."'$novote'".');" style="text-decoration: none;">'.
	'<img border="0" src="/res/adm/pages/thumbsup_novote.png" alt="'.$novote.'" /> '.
	'<img border="0" src="/res/adm/pages/thumbsdown_novote.png" alt="'.$novote.'" /></a>';

	} else {
	if ($userlikes{$idx}) {
	$$discussionitems[$idx].='<img border="0" src="/res/adm/pages/thumbsup_gray.png" alt="'.&mt('You like this posting').'" />';
	} else {
	$$discussionitems[$idx].=' '.&discussion_link($symb,'<img border="0" src="/res/adm/pages/thumbsup.png" alt="'.&mt('Like').'" />','like',$idx,$$newpostsflag,$prevread,&group_args($group),&mt("Like this posting"));
	}
	if ($userunlikes{$idx}) {
	$$discussionitems[$idx].='<img border="0" src="/res/adm/pages/thumbsdown_gray.png" alt="'.&mt('You unlike this posting').'" />';
	} else {
	$$discussionitems[$idx].=' '.&discussion_link($symb,'<img border="0" src="/res/adm/pages/thumbsdown.png" alt="'.&mt('Unlike').'" />','unlike',$idx,$$newpostsflag,$prevread,&group_args($group),&mt("Unlike this posting"));
	}
	}
	}
	if ($seeid \|\| $canvote) {
	my $thislikes=$likes{$symb.':'.$idx.':likes'};
	if ($thislikes>0) {
	$$discussionitems[$idx].=' ('.&mt("[_1] likes",$thislikes).')';
	} elsif ($thislikes<0) {
	$$discussionitems[$idx].=' ('.&mt("[_1] unlikes",abs($thislikes)).')';
	}
	}
	# If there is any history to this post, inform the reader
if ($contrib{$idx.':history'}) {	if ($contrib{$idx.':history'}) {
my @postversions = ();	my @postversions = ();
$$discussionitems[$idx] .= &mt('This post has been edited by the author.');	$$discussionitems[$idx] .= '  '.&mt('This post has been edited by the author.');
if ($seeid) {	if ($seehidden) {
$$discussionitems[$idx] .= '  '.	$$discussionitems[$idx] .= '  '.
&discussion_link($symb,&mt('Display all versions'),'allversions',$idx,$$newpostsflag,$prevread,&group_args($group));	&discussion_link($symb,&mt('Display all versions'),'allversions',$idx,$$newpostsflag,$prevread,&group_args($group));
}	}
Line 1311 sub build_posting_display {	Line 1554 sub build_posting_display {
$$discussionitems[$idx] .= '<b>'.$version.'.</b> - '.&Apache::lonlocal::locallocaltime($postversions[$i]).' ';	$$discussionitems[$idx] .= '<b>'.$version.'.</b> - '.&Apache::lonlocal::locallocaltime($postversions[$i]).' ';
}	}
}	}
	# end of unless ($$notshown ...)
}	}
	# end of if ($message) ...
}	}
	# end of the else-branch of target being export
}	}
	# end of unless hidden or deleted
}	}
	# end of the loop over all discussion entries
}	}
	# end of "if there actually are any discussions
}	}
	# end of subroutine "build_posting_display"
}	}

sub filter_regexp {	sub filter_regexp {
Line 1375 sub filter_regexp {	Line 1625 sub filter_regexp {


sub get_post_contents {	sub get_post_contents {
my ($contrib,$idx,$seeid,$type,$messages,$subjects,$allattachments,$attachtxt,$imsfiles,$screenname,$plainname,$numver) = @_;	my ($contrib,$idx,$seeid,$seehidden,$type,$messages,$subjects,$allattachments,$attachtxt,$imsfiles,$screenname,$plainname,$showaboutme,$numver) = @_;
my $discussion = '';	my $discussion = '';
my $start=$numver;	my $start=$numver;
my $end=$numver + 1;	my $end=$numver + 1;
%{$$imsfiles{$idx}}=();	%{$$imsfiles{$idx}}=();
if ($type eq 'allversions') {	if ($type eq 'allversions') {
unless($seeid) {	unless($seehidden) {
$discussion=&mt('You do not have privileges to view all versions of posts.').' '.&mt('Please select a different role.');	$discussion=&mt('You do not have privileges to view all versions of posts.').' '.&mt('Please select a different role.');
return $discussion;	return $discussion;
}	}
Line 1393 sub get_post_contents {	Line 1643 sub get_post_contents {
$$contrib{$idx.':sendername'},	$$contrib{$idx.':sendername'},
$$contrib{$idx.':senderdomain'});	$$contrib{$idx.':senderdomain'});
$$screenname=$$contrib{$idx.':screenname'};	$$screenname=$$contrib{$idx.':screenname'};
	$$showaboutme = &Apache::lonnet::usertools_access($$contrib{$idx.':sendername'},
my $sender=&Apache::loncommon::aboutmewrapper(	$$contrib{$idx.':senderdomain'},
	'aboutme');
	my $sender = $$plainname;
	if ($$showaboutme) {
	$sender = &Apache::loncommon::aboutmewrapper(
$$plainname,	$$plainname,
$$contrib{$idx.':sendername'},	$$contrib{$idx.':sendername'},
$$contrib{$idx.':senderdomain'}).' ('.	$$contrib{$idx.':senderdomain'});
$$contrib{$idx.':sendername'}.':'.	}
$$contrib{$idx.':senderdomain'}.')';	if ($seeid) {
	$sender .= ' ('.$$contrib{$idx.':sendername'}.':'.
	$$contrib{$idx.':senderdomain'}.')';
	}
my $attachmenturls = $$contrib{$idx.':attachmenturl'};	my $attachmenturls = $$contrib{$idx.':attachmenturl'};
my @postversions = ();	my @postversions = ();
if ($type eq 'allversions' \|\| $type eq 'export') {	if ($type eq 'allversions' \|\| $type eq 'export') {
Line 1515 sub mail_screen {	Line 1772 sub mail_screen {
}	}

my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
'myqu' => 'My question/comment/feedback:',	'myqu' => 'Question/comment/feedback:',
'title' => 'Title',	'title' => 'Title',
'reta' => 'Retained attachments',	'reta' => 'Retained attachments',
'atta' => 'Attachment',	'atta' => 'Attachment',
);	);
	if($env{'form.editdisc'} \|\| $env{'form.replydisc'}){
	%lt = &Apache::lonlocal::texthash(
	'myqu' => 'Post Discussion',
	);
	}
my $restitle = &get_resource_title($caller_symb,$feedurl);	my $restitle = &get_resource_title($caller_symb,$feedurl);
my $quote='';	my $quote='';
my $subject = '';	my $subject = '';
Line 1584 END	Line 1846 END
$env{'course.'.$env{'request.course.id'}.'.domain'},	$env{'course.'.$env{'request.course.id'}.'.domain'},
$env{'course.'.$env{'request.course.id'}.'.num'});	$env{'course.'.$env{'request.course.id'}.'.num'});
unless (($contrib{'hidden'}=~/\.$idx\./) \|\| ($contrib{'deleted'}=~/\.$idx\./)) {	unless (($contrib{'hidden'}=~/\.$idx\./) \|\| ($contrib{'deleted'}=~/\.$idx\./)) {
	my $numoldver = 0;
if ($contrib{$idx.':history'}) {	if ($contrib{$idx.':history'}) {
if ($contrib{$idx.':history'} =~ /:/) {	if ($contrib{$idx.':history'} =~ /:/) {
my @oldversions = split(/:/,$contrib{$idx.':history'});	my @oldversions = split(/:/,$contrib{$idx.':history'});
Line 1592 END	Line 1855 END
$numoldver = 1;	$numoldver = 1;
}	}
}	}
if ($env{'form.replydisc'}) {	if ($idx > 0) {
if ($contrib{$idx.':history'}) {	my (%msgversions,%subversions,$htmldecode);
if ($contrib{$idx.':history'} =~ /:/) {	$htmldecode = 0;
my @oldversions = split(/:/,$contrib{$idx.':history'});	if ($env{'form.replydisc'}) {
$numoldver = @oldversions;	$htmldecode = 1;
} else {
$numoldver = 1;
}
}	}
if ($idx > 0) {	&get_post_versions(\%msgversions,$contrib{$idx.':message'},0,$numoldver);
my %msgversions = ();	&get_post_versions(\%subversions,$contrib{$idx.':subject'},$htmldecode,
&get_post_versions(\%msgversions,$contrib{$idx.':message'},0,$numoldver);	$numoldver);
	$subject = $subversions{$numoldver};
	if ($env{'form.replydisc'}) {
$quote = $msgversions{$numoldver};	$quote = $msgversions{$numoldver};
}	$subject = &HTML::Entities::encode(&mt('Re: ').$subject,'<>&"');
if ($idx > 0) {	} else {
my %subversions = ();
&get_post_versions(\%subversions,$contrib{$idx.':subject'},1,$numoldver);
$subject = &mt('Re: ').$subversions{$numoldver};
}
$subject = &HTML::Entities::encode($subject,'<>&"');
} else {
$attachmenturls = $contrib{$idx.':attachmenturl'};
if ($idx > 0) {
my %msgversions = ();
&get_post_versions(\%msgversions,$contrib{$idx.':message'},0,$numoldver);
$comment = $msgversions{$numoldver};	$comment = $msgversions{$numoldver};
my %subversions = ();
&get_post_versions(\%subversions,$contrib{$idx.':subject'},0,$numoldver);
$subject = $subversions{$numoldver};
}	}
	}
	if ($env{'form.editdisc'}) {
	$attachmenturls = $contrib{$idx.':attachmenturl'};
if (defined($contrib{$idx.':replyto'})) {	if (defined($contrib{$idx.':replyto'})) {
$parentmsg = $contrib{$idx.':replyto'};	$parentmsg = $contrib{$idx.':replyto'};
}	}
Line 1654 END	Line 1906 END
$comment = &unescape($env{'form.comment'});	$comment = &unescape($env{'form.comment'});
&process_attachments(\@currnewattach,\@currdelold,\@keepold);	&process_attachments(\@currnewattach,\@currdelold,\@keepold);
}	}
my $latexHelp=&Apache::loncommon::helpLatexCheatsheet(undef,undef,1);	my $latexHelp=&Apache::loncommon::helpLatexCheatsheet(undef,undef,1,($env{'form.modal'}?'popup':0));
my $send=&mt('Send');	my $send=&mt('Send');
my $alert = &mt('Please select a feedback type.');	my $alert = &mt('Please select a feedback type.');
	&js_escape(\$alert);
my $js= <<END;	my $js= <<END;
<script type="text/javascript">	<script type="text/javascript">
//<!--	//<!--
Line 1694 END	Line 1947 END
$anonscript	$anonscript
//-->	//-->
</script>	</script>
	<script type="text/javascript" src="/res/adm/includes/file_upload.js"></script>
END	END

my ($textareaheader,$textareaclass);	my ($textareaheader,$textareaclass);
Line 1713 END	Line 1967 END

my %onload = ('onload' => 'window.focus();setposttype();');	my %onload = ('onload' => 'window.focus();setposttype();');
my %parms=('add_entries' => \%onload);	my %parms=('add_entries' => \%onload);
if ($env{'form.modal'} ne 'yes') { 'bread_crumbs' => $brcrum }	if ($env{'form.modal'} ne 'yes') { $parms{'bread_crumbs'} = $brcrum; }
my $start_page=	my $start_page=
&Apache::loncommon::start_page('Resource Feedback and Discussion',$js,\%parms);	&Apache::loncommon::start_page('Resource Feedback and Discussion',$js,\%parms);

Line 1722 END	Line 1976 END
unless (&contains_block_html($quote)) {	unless (&contains_block_html($quote)) {
&newline_to_br(\$quote);	&newline_to_br(\$quote);
}	}
$quote='<blockquote>'.&Apache::lontexconvert::msgtexconverted($quote).'</blockquote>';	$quote=&Apache::lonhtmlcommon::start_pick_box().
	&Apache::lonhtmlcommon::row_title(&mt('Quote')).
	&Apache::lontexconvert::msgtexconverted($quote).
	&Apache::lonhtmlcommon::row_closure(1).
	&Apache::lonhtmlcommon::end_pick_box();
}	}
my $header='';	my $header='';
unless ($env{'form.modal'}) {	unless ($env{'form.modal'}) {
Line 1730 END	Line 1988 END
}	}
$r->print(<<END);	$r->print(<<END);
$start_page	$start_page
	<h1>$lt{'myqu'}</h1>
$header	$header
<form action="/adm/feedback" method="post" name="mailform"	<form action="/adm/feedback" method="post" name="mailform"
enctype="multipart/form-data">	enctype="multipart/form-data">
Line 1749 END	Line 2008 END
}	}
$r->print(<<END);	$r->print(<<END);
$options	$options
	<br />
	END
	$r->print(&Apache::lonhtmlcommon::start_pick_box());
	$r->print(<<END);
$quote	$quote
<p>$lt{'myqu'}	<p>
$textareaheader	$textareaheader
</p>	</p>
<p>	<p>
$latexHelp	$latexHelp
</p>	</p>
<p>	<p>
$lt{'title'}: <input type="text" name="subject" size="30" value="$subject" /></p>
<p>
<textarea name="comment" id="comment" cols="60" rows="10" $textareaclass>$comment
</textarea></p>
END	END


	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Subject')));
	$r->print('<input type="text" name="subject" size="30" value="'.
	$subject.'" /></p>');
	$r->print(&Apache::lonhtmlcommon::row_closure());
	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Message')));
	$r->print('<textarea name="comment" id="comment" cols="55" rows="10" '.
	$textareaclass.'>'.$comment.
	'</textarea>');
	$r->print(&Apache::lonhtmlcommon::row_closure(1));
	$r->print(&Apache::lonhtmlcommon::end_pick_box());

if ( ($env{'form.editdisc'}) \|\| ($env{'form.replydisc'}) ) {	if ( ($env{'form.editdisc'}) \|\| ($env{'form.replydisc'}) ) {
if ($env{'form.origpage'}) {	if ($env{'form.origpage'}) {
foreach my $attach (@currnewattach) {	foreach my $attach (@currnewattach) {
Line 1783 END	Line 2055 END
} else {	} else {
$r->print(<<END);	$r->print(<<END);
<p>	<p>
$lt{'atta'} $attachmaxtext: <input type="file" name="attachment" />	$lt{'atta'} $attachmaxtext: <input type="file" name="attachment" class="flUpload" />
	<input type="hidden" id="free_space" value="131072" />
</p>	</p>
END	END
}	}
Line 1794 END	Line 2067 END
$r->print('<input type="hidden" name="ref" value="'.$env{'form.ref'}.'" />');	$r->print('<input type="hidden" name="ref" value="'.$env{'form.ref'}.'" />');
}	}
$r->print(<<END);	$r->print(<<END);
<p>	<input type="hidden" name="sendit" value="1" /><br /><br />
<input type="hidden" name="sendit" value="1" />
<input type="button" value="$send" onclick='gosubmit();' />	<input type="button" value="$send" onclick='gosubmit();' />
</p>
</form>	</form>
END	END
if ($env{'form.editdisc'} \|\| $env{'form.replydisc'}) {	if ($env{'form.editdisc'} \|\| $env{'form.replydisc'}) {
Line 1812 END	Line 2083 END
$attachnum += @currnewattach;	$attachnum += @currnewattach;
}	}
my $blockblog = &Apache::loncommon::blocking_status('blogs');	my $blockblog = &Apache::loncommon::blocking_status('blogs');
$r->print(&generate_attachments_button($postidx,$attachnum,$ressymb,$now,\@currnewattach,\@currdelold,$numoldver,'',$blockblog));
if ($attachnum > 0) {	if ($attachnum > 0) {
if (@currnewattach > 0) {	if (@currnewattach > 0) {
$newattachmsg .= '<br /><b>'.&mt('New attachments').'</b><br />';	$newattachmsg .= '<br /><b>'.&mt('New attachments').'</b><br />';
Line 1832 END	Line 2102 END
$r->print("<br /><b>$lt{'reta'}</b>:$attachmsg<br />\n");	$r->print("<br /><b>$lt{'reta'}</b>:$attachmsg<br />\n");
}	}
if ($newattachmsg) {	if ($newattachmsg) {
$r->print("$newattachmsg<br />");	$r->print("$newattachmsg");
}	}
}	}
	$r->print(&generate_attachments_button($postidx,$attachnum,$ressymb,$now,\@currnewattach,\@currdelold,$numoldver,'',$blockblog));
}	}
$r->print(&generate_preview_button().	$r->print(&generate_preview_button().
&Apache::loncommon::end_page());	&Apache::loncommon::end_page());
Line 1874 sub print_display_options {	Line 2145 sub print_display_options {
'yhni' => 'You have not indicated that you wish to change any of the discussion settings',	'yhni' => 'You have not indicated that you wish to change any of the discussion settings',
'ywbr' => 'You will be returned to the previous page if you click OK.'	'ywbr' => 'You will be returned to the previous page if you click OK.'
);	);
	my %js_lt = &Apache::lonlocal::texthash(
	'yhni' => 'You have not indicated that you wish to change any of the discussion settings',
	'ywbr' => 'You will be returned to the previous page if you click OK.'
	);
	&js_escape(\%js_lt);

my $dispchangeA = $lt{'unread'};	my $dispchangeA = $lt{'unread'};
my $dispchangeB = $lt{'unmark'};	my $dispchangeB = $lt{'unmark'};
Line 1967 function setDisp() {	Line 2243 function setDisp() {
if (chktotal > 0) {	if (chktotal > 0) {
document.modifydisp.submit()	document.modifydisp.submit()
} else {	} else {
if(confirm("$lt{'yhni'}. \\n$lt{'ywbr'}")) {	if(confirm("$js_lt{'yhni'}. \\n$js_lt{'ywbr'}")) {
if (prev > 0) {	if (prev > 0) {
location.href = "$feedurl?previous=$previous"	location.href = "$feedurl?previous=$previous"
} else {	} else {
Line 2183 END	Line 2459 END
$start_page	$start_page
<form name="modifyshown" method="post" action="/adm/feedback">	<form name="modifyshown" method="post" action="/adm/feedback">
<b>$lt{'diso'}</b><br/> $lt{'prca'}	<b>$lt{'diso'}</b><br/> $lt{'prca'}
<br /><br />	<br />
<table border="0">	<table border="0">
<tr>	<tr>
<th>$lt{'soor'}</th>	<th>$lt{'soor'}</th>
Line 2248 $start_page	Line 2524 $start_page
</tr>	</tr>
</table>	</table>
<br />	<br />
<br />	<input type="hidden" name="inhibitmenu" value="$env{'form.inhibitmenu'}" />
	<input type="hidden" name="modal" value="$env{'form.modal'}" />
<input type="hidden" name="previous" value="$previous" />	<input type="hidden" name="previous" value="$previous" />
<input type="hidden" name="applysort" value="$symb" />	<input type="hidden" name="applysort" value="$symb" />
<input type="button" name="sub" value="$lt{'stor'}" onclick="verifyFilter()" />	<input type="button" name="sub" value="$lt{'stor'}" onclick="verifyFilter()" />
Line 2274 sub print_showposters {	Line 2551 sub print_showposters {
$r->send_http_header;	$r->send_http_header;

&Apache::lonenc::check_encrypt(\$symb);	&Apache::lonenc::check_encrypt(\$symb);
my $crs='/'.$env{'request.course.id'};
if ($env{'request.course.sec'}) {
$crs.='_'.$env{'request.course.sec'};
}
$crs=~s/\_/\//g;
my $seeid;
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
my $group = $env{'form.group'};	my $group = $env{'form.group'};
my $ressymb = &wrap_symb($symb);	my $ressymb = &wrap_symb($symb);
if (($group ne '') &&	my $seehidden = &can_see_hidden('',$ressymb,$feedurl,$group,$cdom,$cnum);
($ressymb =~ m\|^bulletin___\d+___adm/wrapper/adm/\Q$cdom\E/\Q$cnum\E/\d+/bulletinboard$\|)) {
if (&check_group_priv($group,'dgp') eq 'ok') {
$seeid = 1;
}
} else {
$seeid=&Apache::lonnet::allowed('rin',$crs);
}
my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'},	my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'},
$cdom,$cnum);	$cdom,$cnum);
my %namesort = ();	my %namesort = ();
Line 2307 sub print_showposters {	Line 2571 sub print_showposters {
for (my $idx=1;$idx<=$contrib{'version'};$idx++) {	for (my $idx=1;$idx<=$contrib{'version'};$idx++) {
my $hidden=($contrib{'hidden'}=~/\.$idx\./);	my $hidden=($contrib{'hidden'}=~/\.$idx\./);
my $deleted=($contrib{'deleted'}=~/\.$idx\./);	my $deleted=($contrib{'deleted'}=~/\.$idx\./);
unless ((($hidden) && (!$seeid)) \|\| ($deleted)) {	unless ((($hidden) && (!$seehidden)) \|\| ($deleted)) {
if ((!$contrib{$idx.':anonymous'}) \|\| (&Apache::lonnet::allowed('rin',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')))) {	if ((!$contrib{$idx.':anonymous'}) \|\| (&Apache::lonnet::allowed('rin',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')))) {
my %names = &Apache::lonnet::get('environment',['firstname','lastname'],$contrib{$idx.':senderdomain'},$contrib{$idx.':sendername'});	my %names = &Apache::lonnet::get('environment',['firstname','lastname'],$contrib{$idx.':senderdomain'},$contrib{$idx.':sendername'});
my $lastname = $names{'lastname'};	my $lastname = $names{'lastname'};
Line 2332 sub print_showposters {	Line 2596 sub print_showposters {
}	}
}	}
}	}
}	}
}	}

my $start_page = &Apache::loncommon::start_page('Discussion options');	my $start_page = &Apache::loncommon::start_page('Discussion options');
my $table_start =&Apache::loncommon::start_data_table();	my $table_start =&Apache::loncommon::start_data_table();
$r->print(<<END);	$r->print(<<END);
$start_page	$start_page
<form name="pickpostersform" method="post">	<form name="pickpostersform" method="post" action="">
<br />	<br />
$table_start	$table_start
<tr>	<tr>
Line 2373 END	Line 2637 END
$r->print(<<END);	$r->print(<<END);
<br />	<br />
<input type="hidden" name="sortposts" value="$sortposts" />	<input type="hidden" name="sortposts" value="$sortposts" />
	<input type="hidden" name="modal" value="$env{'form.modal'}" />
<input type="hidden" name="userpick" value="$symb" />	<input type="hidden" name="userpick" value="$symb" />
<input type="button" name="store" value="Display posts" onclick="javascript:document.pickpostersform.submit()" />	<input type="button" name="store" value="Display posts" onclick="javascript:document.pickpostersform.submit()" />
</form>	</form>
Line 2454 sub fail_redirect {	Line 2719 sub fail_redirect {
'only_body' => 1,}));	'only_body' => 1,}));
$r->print(<<ENDFAILREDIR);	$r->print(<<ENDFAILREDIR);
<img align="right" src="$logo" />	<img align="right" src="$logo" />
<b>$lt{'sorr'}</b>	<p class="LC_warning">$lt{'sorr'}</p>
ENDFAILREDIR	ENDFAILREDIR
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
}	}
Line 2600 sub no_redirect_back {	Line 2865 sub no_redirect_back {
'add_entries' => \%onload,);	'add_entries' => \%onload,);

if ($feedurl !~ m{^/adm/feedback}) {	if ($feedurl !~ m{^/adm/feedback}) {
$body_options{'rediect'} = [2,$feedurl];	$body_options{'redirect'} = [2,$feedurl];
}	}
my $start_page=	my $start_page=
&Apache::loncommon::start_page('Feedback not sent',undef,	&Apache::loncommon::start_page('Feedback not sent',undef,
Line 2642 sub screen_header {	Line 2907 sub screen_header {
unless (($env{'form.replydisc'}) \|\| ($env{'form.editdisc'})) {	unless (($env{'form.replydisc'}) \|\| ($env{'form.editdisc'})) {
if (($feedurl=~/^\/res\//) && ($feedurl!~/^\/res\/adm/) && ($env{'user.adv'})) {	if (($feedurl=~/^\/res\//) && ($feedurl!~/^\/res\/adm/) && ($env{'user.adv'})) {
$msgoptions=	$msgoptions=
'<p><label><input type="radio" name="discuss" value="author" /> '.	'<label><input type="radio" name="discuss" value="author" /> '.
&mt('Feedback to resource author').'</label></p>';	&mt('Feedback to resource author').'</label><br />';
}	}
my %optionhash=();	my %optionhash=();
foreach my $type ('question','comment','policy') {	foreach my $type ('question','comment','policy') {
Line 2651 sub screen_header {	Line 2916 sub screen_header {
}	}
if (&feedback_available(1)) {	if (&feedback_available(1)) {
$msgoptions.=	$msgoptions.=
'<p><label><input type="radio" name="discuss" value="question" /> '.	'<label><input type="radio" name="discuss" value="question" /> '.
($optionhash{'question'}?$optionhash{'question'}:&mt('Question about resource content')).'</label></p>';	($optionhash{'question'}?$optionhash{'question'}:&mt('Question about resource content')).'</label><br />';
}	}
if (&feedback_available(0,1)) {	if (&feedback_available(0,1)) {
$msgoptions.=	$msgoptions.=
'<p><label><input type="radio" name="discuss" value="course" /> '.	'<label><input type="radio" name="discuss" value="course" /> '.
($optionhash{'comment'}?$optionhash{'comment'}:$crscontent).	($optionhash{'comment'}?$optionhash{'comment'}:$crscontent).
'</label></p>';	'</label><br />';
}	}
if (&feedback_available(0,0,1)) {	if (&feedback_available(0,0,1)) {
$msgoptions.=	$msgoptions.=
'<p><label><input type="radio" name="discuss" value="policy" /> '.	'<label><input type="radio" name="discuss" value="policy" /> '.
($optionhash{'policy'}?$optionhash{'policy'}:$crspolicy).	($optionhash{'policy'}?$optionhash{'policy'}:$crspolicy).
'</label></p>';	'</label><br />';
}	}
}	}
if (($env{'request.course.id'}) && (!$env{'form.sendmessageonly'})) {	if (($env{'request.course.id'}) && (!$env{'form.sendmessageonly'})) {
my ($blocked,$blocktext) = &Apache::loncommon::blocking_status('boards');	my ($blocked,$blocktext) = &Apache::loncommon::blocking_status('boards');
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
my $realsymb = $symb;	my $realsymb = &get_realsymb($symb);
if ($symb=~/^bulletin___/) {
my $filename=(&Apache::lonnet::decode_symb($symb))[2];
$filename=~s\|^adm/wrapper/\|\|;
$realsymb=&Apache::lonnet::symbread($filename);
}
if (!$blocked && &discussion_open(undef,$realsymb) &&	if (!$blocked && &discussion_open(undef,$realsymb) &&
(&Apache::lonnet::allowed('pch',	(&Apache::lonnet::allowed('pch',
$env{'request.course.id'}.	$env{'request.course.id'}.
($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')) \|\|	($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')) \|\|
(($group ne '') && ($symb =~ m{^bulletin___\d+___adm/wrapper/adm/\Q$cdom\E/\Q$cnum\E/\d+/bulletinboard$}) && (&check_group_priv($group,'pgd') eq 'ok')))) {	(($group ne '') && ($symb =~ m{^bulletin___\d+___adm/wrapper/adm/\Q$cdom\E/\Q$cnum\E/\d+/bulletinboard$}) && (&check_group_priv($group,'pgd') eq 'ok')))) {
$discussoptions='<label><input type="radio" name="discuss" value="nonanon" checked="checked" /> '.	$discussoptions='<label><input type="radio" name="discuss" value="nonanon" checked="checked" /> '.
$contribdisc.	$contribdisc.
'</label><br /><label><input type="radio" name="discuss" value="anon" /> '.	'</label>';
$anoncontrib.	if (&Apache::lonnet::allowed('pac',$env{'request.course.id'}.
' <i>('.$namevis.')</i></label> '.	($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))) {
'<a href="/adm/preferences?action=changescreenname">'.&mt('Change Screenname').'</a>';	$discussoptions .= '<br /><label><input type="radio" name="discuss" value="anon" /> '.
	$anoncontrib.
	' <i>('.$namevis.')</i></label> '.
	'<a href="/adm/preferences?action=changescreenname">'.&mt('Change Screenname').'</a>';
	}
my $blockblog = &Apache::loncommon::blocking_status('blogs');	my $blockblog = &Apache::loncommon::blocking_status('blogs');
if (!$blockblog) {	if (!$blockblog) {
$discussoptions.= &add_blog_checkbox($crstype);	$discussoptions.= &add_blog_checkbox($crstype);
Line 2804 sub send_msg {	Line 3068 sub send_msg {
}	}
}	}

	# Records of number of feedback messages are kept under the "symb" called "_feedback"
my %record=&Apache::lonnet::restore('_feedback');	# There are two entries within the framework of a course:
my ($temp)=keys(%record);	# - the URLs for which feedback was provided
unless ($temp=~/^error\:/) {	# - the total number of contributions
my %newrecord=();	if ($sendsomething) {
$newrecord{'resource'}=$feedurl;	my %record=&getfeedbackrecords();
$newrecord{'subnumber'}=$record{'subnumber'}+1;	my ($temp)=keys(%record);
unless (&Apache::lonnet::cstore(\%newrecord,'_feedback') eq 'ok') {	unless ($temp=~/^error\:/) {
$status.='<br />'.&mt('Not registered').'<br />';	my %newrecord=();
}	$newrecord{'resource'}=$feedurl;
	$newrecord{'subnumber'}=$record{'subnumber'}+1;
	unless (&Apache::lonnet::cstore(\%newrecord,'_feedback') eq 'ok') {
	$status.='<br />'.&mt('Not registered').'<br />';
	}
	}
}	}

return ($status,$sendsomething);	return ($status,$sendsomething);
}	}

	# Routine to get the complete feedback records

	sub getfeedbackrecords {
	my ($uname,$udom,$course)=@_;
	unless ($uname) { $uname=$env{'user.name'}; }
	unless ($udom) { $udom=$env{'user.domain'}; }
	unless ($course) { $course=$env{'request.course.id'}; }
	my %record=&Apache::lonnet::restore('_feedback',$course,$udom,$uname);
	return %record;
	}

	# Routine to get feedback statistics

	sub getfeedbackstats {
	my %record=&getfeedbackrecords(@_);
	return ($record{'subnumber'},$record{'points'},$record{'totallikes'});
	}

	# Store feedback credit

	sub storefeedbackpoints {
	my ($points,$uname,$udom,$course)=@_;
	unless ($points) { $points=0; }
	unless ($uname) { $uname=$env{'user.name'}; }
	unless ($udom) { $udom=$env{'user.domain'}; }
	unless ($course) { $course=$env{'request.course.id'}; }
	my %record=('grader_user' => $env{'user.name'},
	'grader_domain' => $env{'user.domain'},
	'points' => $points);
	return &Apache::lonnet::cstore(\%record,'_feedback',$course,$udom,$uname);
	}

	# Store feedback "likes"

	sub storefeedbacklikes {
	my ($likes,$uname,$udom,$course)=@_;
	unless ($likes) { $likes=0; }
	if ($likes>0) { $likes=1; }
	if ($likes<0) { $likes=-1; }
	unless ($uname) { $uname=$env{'user.name'}; }
	unless ($udom) { $udom=$env{'user.domain'}; }
	unless ($course) { $course=$env{'request.course.id'}; }
	my %record=&getfeedbackrecords($uname,$udom,$course);
	my $totallikes=$record{'totallikes'};
	$totallikes+=$likes;
	my %newrecord=('likes_user' => $env{'user.name'},
	'likes_domain' => $env{'user.domain'},
	'likes' => $likes,
	'totallikes' => $totallikes);
	return &Apache::lonnet::cstore(\%newrecord,'_feedback',$course,$udom,$uname);
	}


sub adddiscuss {	sub adddiscuss {
my ($symb,$email,$anon,$attachmenturl,$subject,$group)=@_;	my ($symb,$email,$anon,$attachmenturl,$subject,$group)=@_;
my $status='';	my $status='';
my $realsymb;	my $realsymb = &get_realsymb($symb);
if ($symb=~/^bulletin___/) {
my $filename=(&Apache::lonnet::decode_symb($symb))[2];
$filename=~s\|^adm/wrapper/\|\|;
$realsymb=&Apache::lonnet::symbread($filename);
}
my ($cnum,$cdom);	my ($cnum,$cdom);
if ($env{'request.course.id'}) {	if ($env{'request.course.id'}) {
$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};	$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
Line 2917 sub adddiscuss {	Line 3233 sub adddiscuss {
$env{'course.'.$env{'request.course.id'}.'.domain'},	$env{'course.'.$env{'request.course.id'}.'.domain'},
$env{'course.'.$env{'request.course.id'}.'.num'});	$env{'course.'.$env{'request.course.id'}.'.num'});
}	}
my %record=&Apache::lonnet::restore('_discussion');	my %record=&getdiscussionrecords();
my ($temp)=keys(%record);	my ($temp)=keys(%record);
unless ($temp=~/^error\:/) {	unless ($temp=~/^error\:/) {
my %newrecord=();	my %newrecord=();
Line 2925 sub adddiscuss {	Line 3241 sub adddiscuss {
$newrecord{'subnumber'}=$record{'subnumber'}+1;	$newrecord{'subnumber'}=$record{'subnumber'}+1;
$status.='<br />'.&mt('Registering').': '.	$status.='<br />'.&mt('Registering').': '.
&Apache::lonnet::cstore(\%newrecord,'_discussion');	&Apache::lonnet::cstore(\%newrecord,'_discussion');
	&updatekarma();
}	}
} else {	} else {
$status.='Failed.';	$status.='Failed.';
Line 2932 sub adddiscuss {	Line 3249 sub adddiscuss {
return $status.'<br />';	return $status.'<br />';
}	}


	# Routine to get the complete discussion records

	sub getdiscussionrecords {
	my ($uname,$udom,$course)=@_;
	unless ($uname) { $uname=$env{'user.name'}; }
	unless ($udom) { $udom=$env{'user.domain'}; }
	unless ($course) { $course=$env{'request.course.id'}; }
	my %record=&Apache::lonnet::restore('_discussion',$course,$udom,$uname);
	return %record;
	}

	# Routine to get discussion statistics

	sub getdiscussionstats {
	my %record=&getdiscussionrecords(@_);
	my $totalvotes = $record{'totallikes'} + $record{'totalunlikes'};
	return ($record{'subnumber'},$record{'points'},$record{'totallikes'},$totalvotes);
	}

	# Calculate discussion karma

	sub calcdiscussionkarma {
	my ($subs,$pts,$likes,$votes)=&getdiscussionstats(@_);
	my $karma=0;
	if ($votes>0) {
	$karma=int(.1+5.(1.-exp(-$subs/10.))$likes/$votes);
	if ($karma<0) { $karma=0; }
	if ($karma>5) { $karma=5; }
	}
	return $karma;
	}

	# Update karma

	sub updatekarma {
	my ($uname,$udom,$course)=@_;
	unless ($uname) { $uname=$env{'user.name'}; }
	unless ($udom) { $udom=$env{'user.domain'}; }
	unless ($course) { $course=$env{'request.course.id'}; }
	my $karma=&calcdiscussionkarma($uname,$udom,$course);
	&Apache::lonnet::cstore({ 'karma' => $karma },'_discussion',$course,$udom,$uname);
	&Apache::lonnet::do_cache_new('karma',$uname.':'.$udom.':'.$course,$karma,3600);
	return $karma;
	}

	# Retrieve karma

	sub userkarma {
	my ($uname,$udom,$course)=@_;
	unless ($uname) { $uname=$env{'user.name'}; }
	unless ($udom) { $udom=$env{'user.domain'}; }
	unless ($course) { $course=$env{'request.course.id'}; }
	my $hashkey=$uname.':'.$udom.':'.$course;
	my ($karma,$cached)=&Apache::lonnet::is_cached_new('karma',$hashkey);
	if ($cached) {
	return $karma;
	}
	my %userdisc=&getdiscussionrecords($uname,$udom,$course);
	$karma=$userdisc{'karma'};
	&Apache::lonnet::do_cache_new('karma',$hashkey,$karma,3600);
	return $karma;
	}

	# Store discussion credit

	sub storediscussionpoints {
	my ($points,$uname,$udom,$course)=@_;
	unless ($points) { $points=0; }
	unless ($uname) { $uname=$env{'user.name'}; }
	unless ($udom) { $udom=$env{'user.domain'}; }
	unless ($course) { $course=$env{'request.course.id'}; }
	my %record=('grader_user' => $env{'user.name'},
	'grader_domain' => $env{'user.domain'},
	'points' => $points);
	return &Apache::lonnet::cstore(\%record,'_discussion',$course,$udom,$uname);
	}

	# Store discussion "likes"

	sub storediscussionlikes {
	my ($chglikes,$chgunlikes,$uname,$udom,$course,$context)=@_;
	unless ($uname) { $uname=$env{'user.name'}; }
	unless ($udom) { $udom=$env{'user.domain'}; }
	unless ($course) { $course=$env{'request.course.id'}; }
	my %record=&getdiscussionrecords($uname,$udom,$course);
	my $totallikes=$record{'totallikes'};
	my $totalunlikes=$record{'totalunlikes'};
	$totallikes += $chglikes;
	$totalunlikes += $chgunlikes;
	my %newrecord=('likes_user' => $env{'user.name'},
	'likes_domain' => $env{'user.domain'},
	'totallikes' => $totallikes,
	'totalunlikes' => $totalunlikes,
	'context' => $context);
	my $status=&Apache::lonnet::cstore(\%newrecord,'_discussion',$course,$udom,$uname);
	if ($status eq 'ok') {
	&updatekarma($uname,$udom,$course);
	}
	return $status;
	}

sub get_discussion_info {	sub get_discussion_info {
my ($idx,%contrib) = @_;	my ($idx,%contrib) = @_;
my $changelast = 0;	my $changelast = 0;
Line 3077 sub modify_attachments {	Line 3496 sub modify_attachments {

my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
'subj' => 'Subject',	'subj' => 'Subject',
'thfo' => 'The following attachments were part of the most recent saved version of this posting.',
'chth' => 'Check the checkboxes for any you wish to remove.',	'chth' => 'Check the checkboxes for any you wish to remove.',
'thef' => 'The following attachments have been uploaded for inclusion with this posting.',	'thef' => 'The following attachments have been uploaded for inclusion with this posting.',
'adda' => 'Add a new attachment to this post.',	'adda' => 'Add a new attachment to this post',
'stch' => 'Save Changes',	'stch' => 'Save Changes',
	'clic' => 'Add/remove attachments',
);	);
my $js = <<END;	my $js = <<END;
<script type="text/javascript">	<script type="text/javascript">
Line 3090 sub modify_attachments {	Line 3509 sub modify_attachments {
document.modattachments.submit();	document.modattachments.submit();
}	}
</script>	</script>
	<script type="text/javascript" src="/res/adm/includes/file_upload.js"></script>
END	END

# Breadcrumbs	# Breadcrumbs
my $brcrum = [{'href' => '',	my $brcrum = [{'href' => '',
'text' => 'Discussion Post Attachments'}];	'text' => 'Discussion Post Attachments'}];
my %parms=();	my %parms=('only_body' => 1);
if ($env{'form.modal'} ne 'yes') { 'bread_crumbs' => $brcrum }	if ($env{'form.modal'} ne 'yes') { $parms{'bread_crumbs'} = $brcrum; }

my $start_page =	my $start_page =
&Apache::loncommon::start_page('Discussion Post Attachments',$js,\%parms);	&Apache::loncommon::start_page('Discussion Post Attachments',$js,\%parms);
Line 3123 END	Line 3543 END
$start_page	$start_page
$toolarge	$toolarge
<form name="modattachments" method="post" enctype="multipart/form-data" action="/adm/feedback?attach=$symb">	<form name="modattachments" method="post" enctype="multipart/form-data" action="/adm/feedback?attach=$symb">
<br />
<table class="LC_data_table">	<h1>$lt{'clic'}</h1>
<tr>
<td colspan="2">
<b>Subject:</b> <b>$subject</b><br /><br />
END	END
if ($idx) {	$r->print(&Apache::lonhtmlcommon::start_pick_box());
if ($attachmenturls) {	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Subject')));
my @currold = keys(%currattach);	$r->print('<b>'.$subject.'</b>');
if (@currold > 0) {	$r->print(&Apache::lonhtmlcommon::row_closure());
$r->print($lt{'thfo'}.'<br />'.$lt{'chth'}.'<br />'."\n");	$r->print(&Apache::lonhtmlcommon::row_title($lt{'adda'}));
foreach my $id (@currold) {	$r->print('<input type="file" name="addnewattach" class="flUpload" />'
my $attachurl = &HTML::Entities::decode($attachments{$id}{'filename'});	.'<input type="hidden" id="free_space" value="131072" />'
$attachurl =~ m#/([^/]+)$#;	.'<input type="button" name="upload" value="Upload" '
$r->print('<label><input type="checkbox" name="deloldattach" value="'.$id.'" /> '.$1.'</label><br />'."\n");	.'onclick="this.form.submit()" /> '.$attachmaxtext);
	if(($idx)\|\|(ref($currnewattach) eq 'ARRAY') && (@{$currnewattach} > 0)){
	$r->print(&Apache::lonhtmlcommon::row_closure());
	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Attachments')));
	if ($idx) {
	if ($attachmenturls) {
	my @currold = keys(%currattach);
	if (@currold > 0) {
	$r->print($lt{'thfo'}.'<br />'.$lt{'chth'}.'<br />'."\n");
	foreach my $id (@currold) {
	my $attachurl = &HTML::Entities::decode($attachments{$id}{'filename'});
	$attachurl =~ m#/([^/]+)$#;
	$r->print('<label><input type="checkbox" name="deloldattach" value="'.$id.'" /> '.$1.'</label><br />'."\n");
	}
	$r->print("<br />");
}	}
$r->print("<br />");
}	}
}	}
}	if ((ref($currnewattach) eq 'ARRAY') && (@{$currnewattach} > 0)) {
if ((ref($currnewattach) eq 'ARRAY') && (@{$currnewattach} > 0)) {	$r->print($lt{'chth'}.'<br />'."\n");
$r->print($lt{'thef'}.'<br />'.$lt{'chth'}.'<br />'."\n");	foreach my $attach (@{$currnewattach}) {
foreach my $attach (@{$currnewattach}) {	$attach =~ m#/([^/]+)$#;
$attach =~ m#/([^/]+)$#;	$r->print('<label><input type="checkbox" name="delnewattach" value="'.$attach.'" /> '.$1.'</label><br />'."\n");
$r->print('<label><input type="checkbox" name="delnewattach" value="'.$attach.'" /> '.$1.'</label><br />'."\n");	}
}	}
$r->print("<br />");
}	}
	$r->print(&Apache::lonhtmlcommon::row_closure(1));
	$r->print(&Apache::lonhtmlcommon::end_pick_box());
$r->print(<<END);	$r->print(<<END);
</td></tr>
<tr>
<td>
$lt{'adda'}</td><td><input type="file" name="addnewattach" /><input type="button" name="upload" value="Upload" onclick="this.form.submit()" />
</td>
</tr>
<tr>
<td colspan="2">$attachmaxtext</td>
</tr>
</table>
<input type="hidden" name="subject" value="$env{'form.subject'}" />	<input type="hidden" name="subject" value="$env{'form.subject'}" />
<input type="hidden" name="comment" value="$env{'form.comment'}" />	<input type="hidden" name="comment" value="$env{'form.comment'}" />
<input type="hidden" name="timestamp" value="$env{'form.timestamp'}" />	<input type="hidden" name="timestamp" value="$env{'form.timestamp'}" />
Line 3219 sub generate_attachments_button {	Line 3640 sub generate_attachments_button {
my $origpage = $ENV{'REQUEST_URI'};	my $origpage = $ENV{'REQUEST_URI'};
my $att=$attachnum.' '.&mt("attachments");	my $att=$attachnum.' '.&mt("attachments");
my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
'clic' => 'Click to add/remove attachments',	'clic' => 'Add/remove attachments',
);	);
my $response = (<<END);	my $response = (<<END);
<br />	<br />
<form name="attachment" action="/adm/feedback?attach=$ressymb" method="post">	<form name="attachment" action="/adm/feedback?attach=$ressymb" method="post">
$lt{'clic'}: <input type="button" value="$att"	<input type="button" value="$lt{'clic'}"
onclick="if (typeof(document.mailform.onsubmit)=='function') {document.mailform.onsubmit();};this.form.comment.value=escape(document.mailform.comment.value);this.form.subject.value=escape(document.mailform.subject.value);	onclick="if (typeof(document.mailform.onsubmit)=='function') {document.mailform.onsubmit();};this.form.comment.value=escape(document.mailform.comment.value);this.form.subject.value=escape(document.mailform.subject.value);
END	END
if (!$blockblog) {	if (!$blockblog) {
Line 3460 sub handler {	Line 3881 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'},
['modal','hide','unhide','deldisc','postdata','preview','replydisc','editdisc','cmd','symb','onlyunread','allposts','onlyunmark','previous','markread','markonread','markondisp','toggoff','toggon','modifydisp','changes','navtime','navmaps','navurl','sortposts','applysort','rolefilter','statusfilter','sectionpick','groupick','posterlist','userpick','attach','origpage','currnewattach','deloldattach','keepold','allversions','export','sendmessageonly','group','ref']);	['like','unlike','modal','hide','unhide','deldisc','undeleteall','postdata','preview','replydisc','editdisc','cmd','symb','onlyunread','allposts','onlyunmark','previous','markread','markonread','markondisp','toggoff','toggon','modifydisp','changes','navtime','navmaps','navurl','sortposts','applysort','rolefilter','statusfilter','sectionpick','groupick','posterlist','userpick','attach','origpage','currnewattach','deloldattach','keepold','allversions','export','sendmessageonly','group','ref']);
my $group = $env{'form.group'};	my $group = $env{'form.group'};
	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};

my %attachmax = (	my %attachmax = (
text => &mt('(128 KB max size)'),	text => &mt('(128 KB max size)'),
num => 131072,	num => 131072,
);	);
if ($env{'form.editdisc'}) {	if ($env{'form.editdisc'}) {
if (!(&editing_allowed($env{'form.editdisc'},$env{'form.group'}))) {	if (!(&editing_allowed($env{'form.editdisc'},$group))) {
my $symb=(split(/\:\:\:/,$env{'form.editdisc'}))[0];	my $symb=(split(/\:\:\:/,$env{'form.editdisc'}))[0];
my ($map,$id,$url)=&Apache::lonnet::decode_symb($symb);	my ($map,$id,$url)=&Apache::lonnet::decode_symb($symb);
my $feedurl=&Apache::lonnet::clutter($url);	my $feedurl=&Apache::lonnet::clutter($url);
Line 3513 sub handler {	Line 3937 sub handler {
'text' => 'Discussion Post Versions'}];	'text' => 'Discussion Post Versions'}];

my %parms=();	my %parms=();
if ($env{'form.modal'} ne 'yes') { 'bread_crumbs' => $brcrum }	if ($env{'form.modal'} ne 'yes') { $parms{'bread_crumbs'} = $brcrum; }

$r->print(&Apache::loncommon::start_page('Discussion Post Versions',undef,\%parms));	$r->print(&Apache::loncommon::start_page('Discussion Post Versions',undef,\%parms));

my $crs='/'.$env{'request.course.id'};
if ($env{'request.course.sec'}) {
$crs.='_'.$env{'request.course.sec'};
}
$crs=~s\|_\|/\|g;
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
my ($symb,$idx)=split(/\:\:\:/,$env{'form.allversions'});	my ($symb,$idx)=split(/\:\:\:/,$env{'form.allversions'});
($symb)=&get_feedurl_and_clean_symb($symb);	($symb, my $feedurl)=&get_feedurl_and_clean_symb($symb);
my $ressymb = &wrap_symb($symb);	my $ressymb = &wrap_symb($symb);
my $group = $env{'form.group'};
my $seeid;	my $seeid;
if (($group ne '') && (($ressymb =~ m\|^bulletin___\d+___adm/wrapper/adm/\Q$cdom\E/\Q$cnum\E/\d+/bulletinboard$\|))) {	if (&Apache::lonnet::allowed('rin',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))) {
if (&check_group_priv($group,'dgp') eq 'ok') {	$seeid = 1;
$seeid = 1;
}
} else {
$seeid = &Apache::lonnet::allowed('rin',$crs);
}	}
	my $seehidden = &can_see_hidden('',$ressymb,$feedurl,$group,$cdom,$cnum);
if ($idx > 0) {	if ($idx > 0) {
my %messages = ();	my %messages = ();
my %subjects = ();	my %subjects = ();
my %attachmsgs = ();	my %attachmsgs = ();
my %allattachments = ();	my %allattachments = ();
my %imsfiles = ();	my %imsfiles = ();
my ($screenname,$plainname);	my ($screenname,$plainname,$showaboutme);
my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'},	my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'},
$env{'course.'.$env{'request.course.id'}.'.domain'},	$cdom,$cnum);
$env{'course.'.$env{'request.course.id'}.'.num'});	$r->print(&get_post_contents(\%contrib,$idx,$seeid,$seehidden,'allversions',\%messages,\%subjects,\%allattachments,\%attachmsgs,\%imsfiles,\$screenname,\$plainname,\$showaboutme));
$r->print(&get_post_contents(\%contrib,$idx,$seeid,'allversions',\%messages,\%subjects,\%allattachments,\%attachmsgs,\%imsfiles,\$screenname,\$plainname));
}	}
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
return OK;	return OK;
Line 3598 sub handler {	Line 4010 sub handler {
my $feedurl = '/adm/navmaps';	my $feedurl = '/adm/navmaps';
if ($env{'form.navurl'}) { $feedurl .= '?'.$env{'form.navurl'}; }	if ($env{'form.navurl'}) { $feedurl .= '?'.$env{'form.navurl'}; }
my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
'mnpa' => 'Marked "New" posts as read in a total of',
'robb' => 'resources/bulletin boards.',
'twnp' => 'There are currently no resources or discussion boards with unread discussion postings.'	'twnp' => 'There are currently no resources or discussion boards with unread discussion postings.'
);	);
foreach my $res (@resources) {	foreach my $res (@resources) {
Line 3608 sub handler {	Line 4018 sub handler {
my $lastkey = $ressymb.'_lastread';	my $lastkey = $ressymb.'_lastread';
$discinfo{$lastkey} = $env{'form.navtime'};	$discinfo{$lastkey} = $env{'form.navtime'};
}	}
my $textline = "<b>$lt{'mnpa'} $numitems $lt{'robb'}</b>";	my $textline = '<b>'.
	&mt('Marked "New" posts as read in a total of [_1] resources/discussion boards.',
	$numitems).
	'</b>';
if ($numitems > 0) {	if ($numitems > 0) {
&Apache::lonnet::put('nohist_'.$env{'request.course.id'}.'_discuss',	&Apache::lonnet::put('nohist_'.$env{'request.course.id'}.'_discuss',
\%discinfo,$env{'user.domain'},$env{'user.name'});	\%discinfo,$env{'user.domain'},$env{'user.name'});
Line 3684 ENDREDIR	Line 4097 ENDREDIR
my $entry=$env{'form.hide'}?$env{'form.hide'}:$env{'form.unhide'};	my $entry=$env{'form.hide'}?$env{'form.hide'}:$env{'form.unhide'};
my ($symb,$idx)=split(/\:\:\:/,$entry);	my ($symb,$idx)=split(/\:\:\:/,$entry);
($symb,my $feedurl)=&get_feedurl_and_clean_symb($symb);	($symb,my $feedurl)=&get_feedurl_and_clean_symb($symb);
	my $ressymb = &wrap_symb($symb);

my $crs='/'.$env{'request.course.id'};	my $seehidden = &can_see_hidden('',$ressymb,$feedurl,$group,$cdom,$cnum);
if ($env{'request.course.sec'}) {	unless (($seehidden) \|\| (&editing_allowed($env{'form.hide'},$group))) {
$crs.='_'.$env{'request.course.sec'};	&redirect_back($r,$feedurl,&mt('Hiding not permitted').'<br />',
}	'0','0','','',$env{'form.previous'},'','','','',
$crs=~s/\_/\//g;	undef,undef,$group,);
my $seeid=&Apache::lonnet::allowed('rin',$crs);

if ($env{'form.hide'} && !$seeid && !(&editing_allowed($env{'form.hide'},$env{'form.group'}))) {
&redirect_back($r,$feedurl,&mt('Deletion not permitted').'<br />', '0','0','','',$env{'form.previous'},'','','','',
undef,undef,$group,);
return OK;	return OK;
}	}

my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'},	my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'},
$env{'course.'.$env{'request.course.id'}.'.domain'},	$cdom,$cnum);
$env{'course.'.$env{'request.course.id'}.'.num'});

my $currenthidden=$contrib{'hidden'};	my $currenthidden=$contrib{'hidden'};
my $currentstudenthidden=$contrib{'studenthidden'};	my $currentstudenthidden=$contrib{'studenthidden'};

if ($env{'form.hide'}) {	if ($env{'form.hide'}) {
$currenthidden.='.'.$idx.'.';	$currenthidden.='.'.$idx.'.';
unless ($seeid) {	unless ($seehidden) {
$currentstudenthidden.='.'.$idx.'.';	$currentstudenthidden.='.'.$idx.'.';
}	}
} else {	} else {
$currenthidden=~s/\.$idx\.//g;	$currenthidden=~s/\.$idx\.//g;
}	}
my %newhash=('hidden' => $currenthidden);	my %newhash=('hidden' => $currenthidden);
if ( ($env{'form.hide'}) && (!$seeid) ) {	if ( ($env{'form.hide'}) && (!$seehidden) ) {
$newhash{'studenthidden'} = $currentstudenthidden;	$newhash{'studenthidden'} = $currentstudenthidden;
}	}
if ($env{'form.hide'}) {	if ($env{'form.hide'}) {
Line 3723 ENDREDIR	Line 4131 ENDREDIR
($changelast,$newlast) = &get_discussion_info($idx,%contrib);	($changelast,$newlast) = &get_discussion_info($idx,%contrib);
if ($changelast) {	if ($changelast) {
&Apache::lonnet::put('discussiontimes',{$symb => $newlast},	&Apache::lonnet::put('discussiontimes',{$symb => $newlast},
$env{'course.'.$env{'request.course.id'}.'.domain'},	$cdom,$cnum);
$env{'course.'.$env{'request.course.id'}.'.num'});
}	}
}	}
&Apache::lonnet::store(\%newhash,$symb,$env{'request.course.id'},	my $result;
$env{'course.'.$env{'request.course.id'}.'.domain'},	if (&Apache::lonnet::store(\%newhash,$symb,$env{'request.course.id'},
$env{'course.'.$env{'request.course.id'}.'.num'});	$cdom,$cnum) eq 'ok') {
	my $prefix=$symb.':'.$idx.':';
&redirect_back($r,$feedurl,&mt('Changed discussion status').'<br />',	my %likes=&Apache::lonnet::dump('disclikes',$cdom,$cnum,
'0','0','','',$env{'form.previous'},undef,undef,undef,	'^'.$prefix);
	my ($totallikes,$totalunlikes);
	if (ref($likes{$prefix.'likers'}) eq 'HASH') {
	$totallikes = scalar(keys(%{$likes{$prefix.'likers'}}));
	}
	if (ref($likes{$prefix.'unlikers'}) eq 'HASH') {
	$totalunlikes = scalar(keys(%{$likes{$prefix.'unlikers'}}));
	}
	if ($totallikes \|\| $totalunlikes) {
	my ($chglikes,$chgunlikes,$context);
	if ($env{'form.hide'}) {
	$chglikes = -1 * $totallikes;
	$chgunlikes = -1 * $totalunlikes;
	$context = 'hide';
	} else {
	$chglikes = $totallikes;
	$chgunlikes = $totalunlikes;
	$context = 'unhide';
	}
	&storediscussionlikes($chglikes,$chgunlikes,
	$contrib{$idx.':sendername'},
	$contrib{$idx.':senderdomain'},
	$env{'request.course.id'},
	$context);

	}
	$result = &mt('Changed discussion status');
	} else {
	$result = &mt('Discussion status unchanged');
	}
	&redirect_back($r,$feedurl,$result.'<br />','0','0','','',
	$env{'form.previous'},undef,undef,undef,
	undef,undef,undef,$group);
	return OK;
	} elsif (($env{'form.like'}) \|\| ($env{'form.unlike'})) {
	# ----------------------------------------------------------------- Like/unlike
	my $entry=$env{'form.like'}?$env{'form.like'}:$env{'form.unlike'};
	my ($symb,$idx)=split(/\:\:\:/,$entry);
	($symb,my $feedurl)=&get_feedurl_and_clean_symb($symb);
	my $result;
	if ($idx > 0) {
	my $realsymb = &get_realsymb($symb);
	my $status='OPEN';
	if ($Apache::lonhomework::parsing_a_problem \|\|
	$Apache::lonhomework::parsing_a_task) {
	$status=$Apache::inputtags::status[-1];
	}
	if (&discussion_vote_available($status,$realsymb)) {
	my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'},
	$cdom,$cnum);
	my $ownpost;
	if (($contrib{$idx.':sendername'} eq $env{'user.name'}) &&
	($contrib{$idx.':senderdomain'} eq $env{'user.domain'})) {
	$ownpost = 1;
	}
	if ($ownpost \|\| $contrib{$idx.':hidden'} \|\| $contrib{$idx.':deleted'}) {
	$result = &mt('Vote not registered.').' ';
	}
	if ($ownpost) {
	$result .= &mt('No voting for your own posts.');
	} elsif ($contrib{$idx.':hidden'}) {
	$result .= &mt('No voting for hidden posts.');
	} elsif ($contrib{$idx.':deleted'}) {
	$result .= &mt('No voting for deleted posts.');
	} else {
	#
	# Likes and unlikes are in db-file "disclikes" of the course
	# The prefix is the $symb to identify the resource discussion,
	# and the $idx to identify the entry
	#
	my $prefix=$symb.':'.$idx.':';
	my %likes=&Apache::lonnet::dump('disclikes',$cdom,$cnum,
	'^'.$prefix);

	# Get current like or unlike status for the $idx for this user.
	my $thisuser=$env{'user.name'}.':'.$env{'user.domain'};
	my ($userlikes,$userunlikes);
	if (ref($likes{$prefix.'likers'}) eq 'HASH') {
	if (exists($likes{$prefix.'likers'}{$thisuser})) {
	$userlikes = 1;
	}
	}
	if (ref($likes{$prefix.'unlikers'}) eq 'HASH') {
	if (exists($likes{$prefix.'unlikers'}{$thisuser})) {
	$userunlikes = 1;
	}
	}
	# Get the current "likes" count
	my $likescount=$likes{$prefix.'likes'};
	# Find out if they already voted
	# Users cannot like a post twice, or unlike it twice.
	# They can change their mind, though.
	my $alreadyflag=0;
	my $votetype;
	if ($env{'form.like'}) {
	if ($userlikes) {
	$alreadyflag=1;
	} elsif ($userunlikes) {
	delete($likes{$prefix.'unlikers'}{$thisuser});
	$votetype = 'switch';
	$likescount++;
	} else {
	if (ref($likes{$prefix.'likers'}) eq 'HASH') {
	$likes{$prefix.'likers'}{$thisuser} = 1;
	} else {
	$likes{$prefix.'likers'} = {$thisuser => 1};
	}
	$likescount++;
	}
	} else {
	if ($userunlikes) {
	$alreadyflag=1;
	} elsif ($userlikes) {
	delete($likes{$prefix.'likers'}{$thisuser});
	$votetype = 'switch';
	$likescount--;
	} else {
	if (ref($likes{$prefix.'unlikers'}) eq 'HASH') {
	$likes{$prefix.'unlikers'}{$thisuser} = 1;
	} else {
	$likes{$prefix.'unlikers'} = {$thisuser => 1};
	}
	$likescount--;
	}
	}
	# $alreadyflag would be 1 if they tried to double-like or double-unlike
	if ($alreadyflag) {
	if ($env{'form.like'}) {
	$result= &mt("'Like' already registered");
	} else {
	$result= &mt("'Unlike' already registered");
	}
	} else {
	my %newhash=($prefix.'likes' => $likescount,
	$prefix.'likers' => $likes{$prefix.'likers'},
	$prefix.'unlikers' => $likes{$prefix.'unlikers'});
	# Store data in db-file "disclikes"
	if (&Apache::lonnet::put('disclikes',\%newhash,$cdom,$cnum) eq 'ok') {
	# Also store with the person who posted the liked/unliked entry
	my ($chglike,$chgunlike);
	if ($env{'form.like'}) {
	if ($votetype eq 'switch') {
	$chglike = 0;
	$chgunlike = -1;
	} else {
	$chglike = 1;
	$chgunlike = 0;
	}
	&storediscussionlikes($chglike,$chgunlike,
	$contrib{$idx.':sendername'},
	$contrib{$idx.':senderdomain'},
	$env{'request.course.id'},'like');
	$result=&mt("Registered 'Like'");
	} else {
	if ($votetype eq 'switch') {
	$chglike = -1;
	$chgunlike = 0;
	} else {
	$chglike = 0;
	$chgunlike = 1;
	}
	&storediscussionlikes($chglike,$chgunlike,
	$contrib{$idx.':sendername'},
	$contrib{$idx.':senderdomain'},
	$env{'request.course.id'},'unlike');
	$result=&mt("Registered 'Unlike'");
	}
	} else {
	# Oops, something went wrong
	$result=&mt("Failed to register vote");
	}
	}
	}
	} else {
	$result=&mt('Voting unavailable for this discussion');
	}
	} else {
	$result=&mt('Invalid post number');
	}
	&redirect_back($r,$feedurl,$result.'<br />',
	'0','0','','',$env{'form.previous'},undef,undef,undef,
undef,undef,undef,$group);	undef,undef,undef,$group);
return OK;	return OK;
} elsif ($env{'form.cmd'}=~/^(threadedoff\|threadedon)$/) {	} elsif ($env{'form.cmd'}=~/^(threadedoff\|threadedon)$/) {
my ($symb,$feedurl)=&get_feedurl_and_clean_symb($env{'form.symb'});	my ($symb,$feedurl)=&get_feedurl_and_clean_symb($env{'form.symb'});
if ($env{'form.cmd'} eq 'threadedon') {	if ($env{'form.cmd'} eq 'threadedoff') {
	&Apache::lonnet::put('environment',{'unthreadeddiscussion' => 'on'});
	&Apache::lonnet::appenv({'environment.unthreadeddiscussion' => 'on'});
	&Apache::lonnet::del('environment',['threadeddiscussion']);
	&Apache::lonnet::delenv('environment.threadeddiscussion');
	} else {
&Apache::lonnet::put('environment',{'threadeddiscussion' => 'on'});	&Apache::lonnet::put('environment',{'threadeddiscussion' => 'on'});
&Apache::lonnet::appenv({'environment.threadeddiscussion' => 'on'});	&Apache::lonnet::appenv({'environment.threadeddiscussion' => 'on'});
} else {	&Apache::lonnet::del('environment',['unthreadeddiscussion']);
&Apache::lonnet::del('environment',['threadeddiscussion']);	&Apache::lonnet::delenv('environment.unthreadeddiscussion');
&Apache::lonnet::delenv('environment.threadeddiscussion');
}	}
&redirect_back($r,$feedurl,&mt('Changed discussion view mode').'<br />',	&redirect_back($r,$feedurl,&mt('Changed discussion view mode').'<br />',
'0','0','','',$env{'form.previous'},undef,undef,undef,	'0','0','','',$env{'form.previous'},undef,undef,undef,
Line 3752 ENDREDIR	Line 4343 ENDREDIR
# --------------------------------------------------------------- Hide for good	# --------------------------------------------------------------- Hide for good
my ($symb,$idx)=split(/\:\:\:/,$env{'form.deldisc'});	my ($symb,$idx)=split(/\:\:\:/,$env{'form.deldisc'});
($symb,my $feedurl)=&get_feedurl_and_clean_symb($symb);	($symb,my $feedurl)=&get_feedurl_and_clean_symb($symb);
	my $ressymb=&wrap_symb($symb);

	unless (&can_see_hidden('',$ressymb,$feedurl,$group,$cdom,$cnum)) {
	&redirect_back($r,$feedurl,&mt('Deletion not permitted').'<br />',
	'0','0','','',$env{'form.previous'},'','','','',
	undef,undef,$group);
	return OK;
	}
my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'},	my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'},
$env{'course.'.$env{'request.course.id'}.'.domain'},	$cdom,$cnum);
$env{'course.'.$env{'request.course.id'}.'.num'});
my ($changelast,$newlast) = &get_discussion_info($idx,%contrib);	my ($changelast,$newlast) = &get_discussion_info($idx,%contrib);
if ($changelast) {	if ($changelast) {
&Apache::lonnet::put('discussiontimes',{$symb => $newlast},	&Apache::lonnet::put('discussiontimes',{$symb => $newlast},
$env{'course.'.$env{'request.course.id'}.'.domain'}, $env{'course.'.$env{'request.course.id'}.'.num'});	$cdom,$cnum);
}	}
my %newhash=('deleted' => $contrib{'deleted'}.".$idx.");	my %newhash=('deleted' => $contrib{'deleted'}.".$idx.");
&Apache::lonnet::store(\%newhash,$symb,$env{'request.course.id'},
$env{'course.'.$env{'request.course.id'}.'.domain'},	my $result;
$env{'course.'.$env{'request.course.id'}.'.num'});	if (&Apache::lonnet::store(\%newhash,$symb,$env{'request.course.id'},
&redirect_back($r,$feedurl,&mt('Changed discussion status').'<br />',	$cdom,$cnum) eq 'ok') {
'0','0','','',$env{'form.previous'},undef,undef,undef,	$result = &mt('Changed discussion status');
	my $prefix=$symb.':'.$idx.':';
	my %likes=&Apache::lonnet::dump('disclikes',$cdom,$cnum,
	'^'.$prefix);
	my ($totallikes,$totalunlikes);
	if (ref($likes{$prefix.'likers'}) eq 'HASH') {
	$totallikes = scalar(keys(%{$likes{$prefix.'likers'}}));
	}
	if (ref($likes{$prefix.'unlikers'}) eq 'HASH') {
	$totalunlikes = scalar(keys(%{$likes{$prefix.'unlikers'}}));
	}
	if ($totallikes \|\| $totalunlikes) {
	my $chglikes = -1 * $totallikes;
	my $chgunlikes = -1 * $totalunlikes;
	&storediscussionlikes($chglikes,$chgunlikes,
	$contrib{$idx.':sendername'},
	$contrib{$idx.':senderdomain'},
	$env{'request.course.id'},
	'delete');
	}
	} else {
	$result = &mt('Discussion status unchanged');
	}
	&redirect_back($r,$feedurl,$result.'<br />','0','0','','',
	$env{'form.previous'},undef,undef,undef,
undef,undef,undef,$group);	undef,undef,undef,$group);
return OK;	return OK;
} elsif ($env{'form.preview'}) {	} elsif ($env{'form.preview'}) {
Line 3793 ENDREDIR	Line 4415 ENDREDIR
my $idx = $env{'form.idx'};	my $idx = $env{'form.idx'};
if ($idx) {	if ($idx) {
my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'},	my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'},
$env{'course.'.$env{'request.course.id'}.'.domain'},	$cdom,$cnum);
$env{'course.'.$env{'request.course.id'}.'.num'});
$attachmenturls = $contrib{$idx.':attachmenturl'};	$attachmenturls = $contrib{$idx.':attachmenturl'};
}	}
&modify_attachments($r,\@currnewattach,\@currdelold,$symb,$idx,	&modify_attachments($r,\@currnewattach,\@currdelold,$symb,$idx,
Line 3811 ENDREDIR	Line 4432 ENDREDIR
$mode='problem';	$mode='problem';
$status=$Apache::inputtags::status[-1];	$status=$Apache::inputtags::status[-1];
}	}

my $discussion = &list_discussion($mode,$status,$symb);	my $discussion = &list_discussion($mode,$status,$symb);
my $start_page =	my $start_page =
&Apache::loncommon::start_page('Resource Feedback and Discussion');	&Apache::loncommon::start_page('Resource Feedback and Discussion');
Line 3818 ENDREDIR	Line 4440 ENDREDIR
&Apache::loncommon::end_page();	&Apache::loncommon::end_page();
$r->print($start_page.$discussion.$end_page);	$r->print($start_page.$discussion.$end_page);
return OK;	return OK;

	} elsif ($env{'form.undeleteall'}) {
	&Apache::loncommon::content_type($r,'text/html');
	$r->send_http_header;
	my ($symb,$feedurl) = &get_feedurl_and_clean_symb($env{'form.undeleteall'});
	my $ressymb=&wrap_symb($symb);
	$r->print(&Apache::loncommon::start_page('Undelete all deleted discussion entries'));
	if (&can_see_hidden('',$ressymb,$feedurl,$group,$cdom,$cnum)) {
	my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'},
	$cdom,$cnum);
	$contrib{'deleted'} =~ s/^\.//;
	$contrib{'deleted'} =~ s/\.$//;
	my $confirm_msg;
	if ($contrib{'deleted'} ne '') {
	if (&Apache::lonnet::store({'deleted' => ''},$symb,$env{'request.course.id'},
	$cdom,$cnum) eq 'ok') {
	my %likes=&Apache::lonnet::dump('disclikes',$cdom,$cnum,'^'.$symb.':');
	my @ids = split(/\.\./,$contrib{'deleted'});
	my (%chglikes,%chgunlikes);
	foreach my $idx (@ids) {
	my $uname = $contrib{$idx.':sendername'};
	my $udom = $contrib{$idx.':senderdomain'};
	my ($totallikes,$totalunlikes);
	if (ref($likes{$symb.':'.$idx.':likers'}) eq 'HASH') {
	$totallikes = scalar(keys(%{$likes{$symb.':'.$idx.':likers'}}));
	}
	if (ref($likes{$symb.':'.$idx.':unlikers'}) eq 'HASH') {
	$totalunlikes = scalar(keys(%{$likes{$symb.':'.$idx.':unlikers'}}));
	}
	if ($totallikes \|\| $totalunlikes) {
	$chglikes{$uname.':'.$udom} += $totallikes;
	$chgunlikes{$uname.':'.$udom} += $totalunlikes;
	}
	}
	foreach my $user (keys(%chglikes)) {
	my ($uname,$udom) = split(/:/,$user);
	&storediscussionlikes($chglikes{$user},$chgunlikes{$user},
	$uname,$udom,$env{'request.course.id'},
	'undelete');
	}
	$confirm_msg = &Apache::lonhtmlcommon::confirm_success(&mt("Undeleted all entries"));
	} else {
	$confirm_msg = &Apache::lonhtmlcommon::confirm_success(&mt("Failed to undelete entries"),1);
	}
	} else {
	$confirm_msg = &Apache::lonhtmlcommon::confirm_success(&mt("No entries to undelete"),1);
	}
	$r->print(
	'<br />'
	.&Apache::loncommon::confirmwrapper($confirm_msg)
	.&Apache::lonhtmlcommon::actionbox(
	["<a href='$feedurl'>".&mt("Return and reload")."</a>"])
	);
	}
	$r->print(&Apache::loncommon::end_page());
	return OK;
} else {	} else {
# ------------------------------------------------------------- Normal feedback	# ------------------------------------------------------------- Normal feedback
my $feedurl=$env{'form.postdata'};	my $feedurl=$env{'form.postdata'};
Line 3833 ENDREDIR	Line 4511 ENDREDIR
$symb=(split(/\:\:\:/,$env{'form.editdisc'}))[0];	$symb=(split(/\:\:\:/,$env{'form.editdisc'}))[0];
} elsif ($env{'form.origpage'}) {	} elsif ($env{'form.origpage'}) {
$symb="";	$symb="";
	} elsif ($env{'form.sendmessageonly'}) {
	$symb=(split(/\:\:\:/,$env{'form.sendmessageonly'}))[0];
} else {	} else {
$symb=&Apache::lonnet::symbread($feedurl);	$symb=&Apache::lonnet::symbread($feedurl);
}	}
Line 3965 ENDREDIR	Line 4645 ENDREDIR
&& $env{'form.discuss'} !~ /^(?:author\|question\|course\|policy)/)	&& $env{'form.discuss'} !~ /^(?:author\|question\|course\|policy)/)
\|\| $env{'form.anondiscuss'} ne '') {	\|\| $env{'form.anondiscuss'} ne '') {
my $subject = &clear_out_html($env{'form.subject'});	my $subject = &clear_out_html($env{'form.subject'});
my $anonmode=($env{'form.discuss'} eq 'anon' \|\| $env{'form.anondiscuss'} );	my $anonmode;
	if (&Apache::lonnet::allowed('pac',$env{'request.course.id'}.
	($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))) {
	$anonmode=($env{'form.discuss'} eq 'anon' \|\| $env{'form.anondiscuss'} );
	}
$typestyle.=&adddiscuss($symb,$message,$anonmode,$attachmenturl,	$typestyle.=&adddiscuss($symb,$message,$anonmode,$attachmenturl,
$subject,$group);	$subject,$group);
$numpost++;	$numpost++;
Line 4011 sub wrap_symb {	Line 4695 sub wrap_symb {
}	}
return $ressymb;	return $ressymb;
}	}

sub dewrapper {	sub dewrapper {
my ($feedurl)=@_;	my ($feedurl)=@_;
if ($$feedurl=~m\|^/adm/wrapper/adm/.*/bulletinboard$\|) {	if ($$feedurl=~m\|^/adm/wrapper/adm/.*/bulletinboard$\|) {
Line 4164 None	Line 4849 None

=item discussion_visible()	=item discussion_visible()

	=item discussion_vote_available()

	=item get_realsymb()

=item list_discussion()	=item list_discussion()

	=item can_see_hidden()

	=item discussion_link()

=item send_feedback_link()	=item send_feedback_link()

=item send_message_link()	=item send_message_link()

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.310
changed lines
	Added in v.1.372