Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonfeedback.pm between versions 1.296 and 1.347

version 1.296, 2010/06/08 16:56:57	version 1.347, 2012/03/16 18:32:47
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 135 sub list_discussion {	Line 155 sub list_discussion {
$crs=~s/\_/\//g;	$crs=~s/\_/\//g;
my $encsymb=&Apache::lonenc::check_encrypt($ressymb);	my $encsymb=&Apache::lonenc::check_encrypt($ressymb);
my $viewgrades=(&Apache::lonnet::allowed('vgr',$crs)	my $viewgrades=(&Apache::lonnet::allowed('vgr',$crs)
&& ($ressymb=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|task)$/));	&& ($ressymb=~/$LONCAPA::assess_re/));

my %usernamesort = ();	my %usernamesort = ();
my %namesort =();	my %namesort =();
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 281 sub list_discussion {	Line 302 sub list_discussion {
my $maxdepth=0;	my $maxdepth=0;
my %anonhash=();	my %anonhash=();
my $anoncnt=0;	my $anoncnt=0;
my $target='';

my $now = time;	my $now = time;
$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,$target,$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 297 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 442 imscp_v1p1.xsd http://www.imsglobal.org/	Line 460 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) {
Line 505 imscp_v1p1.xsd http://www.imsglobal.org/	Line 523 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 563 imscp_v1p1.xsd http://www.imsglobal.org/	Line 581 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 590 END	Line 603 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 605 END	Line 612 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 640 END	Line 647 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 659 END	Line 667 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 722 END	Line 728 END
$attachnum += @{$currnewattach};	$attachnum += @{$currnewattach};
}	}
}	}
if (&discussion_open($status)) {	if ((&discussion_open($status)) && ($outputtarget ne 'tex')) {
if (($group ne '') && ($mode eq 'board')) {	if (($group ne '') && ($mode eq 'board')) {
if (&check_group_priv($group,'pgd') eq 'ok') {	if ((&check_group_priv($group,'pgd') eq 'ok') &&
	($ressymb =~ m{^bulletin___\d+___adm/wrapper/adm/\Q$cdom\E/\Q$cnum\E/\d+/bulletinboard$})) {
$discussion .=	$discussion .=
&postingform_display($mode,$ressymb,$now,$subject,	&postingform_display($mode,$ressymb,$now,$subject,
$comment,$outputtarget,$attachnum,	$comment,$outputtarget,$attachnum,
Line 732 END	Line 739 END
$group,$crstype);	$group,$crstype);
}	}
} else {	} else {
$discussion.=	if (&Apache::lonnet::allowed('pch',$env{'request.course.id'}.
&postingform_display($mode,$ressymb,$now,$subject,	($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))) {
$comment,$outputtarget,$attachnum,
$currnewattach,$currdelold,'',$crstype);	$discussion.=
	&postingform_display($mode,$ressymb,$now,$subject,
	$comment,$outputtarget,$attachnum,
	$currnewattach,$currdelold,'',$crstype);
	} else {
	$discussion.= '<span class="LC_feedback_link">'.
	&mt('This discussion is closed.').'</span>';
	}
}	}
}	}
} else {	if (!(&discussion_open($status)) && ($outputtarget ne 'tex')) {
	$discussion.= '<span class="LC_feedback_link">'.
	&mt('This discussion is closed.').'</span>';
	}
	} elsif ($outputtarget ne 'tex') {
$discussion.='<div class="LC_feedback_link">';	$discussion.='<div class="LC_feedback_link">';
if (&discussion_open($status) &&	if (&discussion_open($status) &&
&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'}:''))) {
if ($outputtarget ne 'tex') {	$discussion.= &send_feedback_link($ressymb);
$discussion.= &send_feedback_link($ressymb,$target);	if ($env{'request.role.adv'}) {
	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 ($canvote eq 'notended') {
	$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 {
if ($outputtarget ne 'tex') {	$discussion.= '<span class="LC_feedback_link">'.&mt('This discussion is closed.').'</span>';
$discussion.= &mt('This discussion is closed.');
}
}
if ($outputtarget ne 'tex') {
$discussion.= &send_message_link($ressymb);
}	}
$discussion.='</div>';	$discussion.= &send_message_link($ressymb).'</div>';
}	}
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 {
	my ($ressymb,$linktext,$cmd,$item,$flag,$prev,$adds,$title)=@_;
	my $link='/adm/feedback?inhibitmenu=yes&modal=yes&'.$cmd.'='.&escape($ressymb).':::'.$item;
	if ($flag) { $link .= '&previous='.$prev; }
	if ($adds) { $link .= $adds; }
	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);
	}


sub send_feedback_link {	sub send_feedback_link {
my ($ressymb,$target) = @_;	my ($ressymb) = @_;
my $output = '<span class="LC_feedback_link">'.	return '<span class="LC_feedback_link">'.
' <a href="/adm/feedback?replydisc='.	&discussion_link($ressymb,
&escape($ressymb).':::" '.$target.'>'.	'<img alt="" class="LC_noBorder" src="'.
'<img alt="" class="LC_noBorder" src="'.	&Apache::loncommon::lonhttpdurl('/adm/lonMisc/chat.gif').
&Apache::loncommon::lonhttpdurl('/adm/lonMisc/chat.gif').	'" border="0" /><span class="LC_menubuttons_inline_text">'.&mt('Post Discussion').'</span>',
'" border="0" /><span class="LC_menubuttons_inline_text">'.&mt('Post Discussion').'</span></a></span>';	'replydisc').
return $output;	'</span>';
}	}

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>2) {	if ($visible) {
$discussion .= '<a href="/adm/feedback?cmd=threadedon&symb='.$escsymb;	$discussion .= '<a href="/adm/feedback?cmd=threadedon&symb='.$escsymb;
if ($newpostsflag) {	if ($newpostsflag) {
$discussion .= '&previous='.$prevread;	$discussion .= '&previous='.$prevread;
Line 799 sub action_links_bar {	Line 874 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 835 sub action_links_bar {	Line 922 sub action_links_bar {
sub postingform_display {	sub postingform_display {
my ($mode,$ressymb,$now,$subject,$comment,$outputtarget,$attachnum,	my ($mode,$ressymb,$now,$subject,$comment,$outputtarget,$attachnum,
$currnewattach,$currdelold,$group,$crstype) = @_;	$currnewattach,$currdelold,$group,$crstype) = @_;
if ($outputtarget eq 'tex') { return ''; }
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',
Line 847 sub postingform_display {	Line 933 sub postingform_display {
if ($crstype eq 'Community') {	if ($crstype eq 'Community') {
$lt{'note'} = &mt('Note: in anonymous discussion, your name is visible only to community facilitators');	$lt{'note'} = &mt('Note: in anonymous discussion, your name is visible only to community facilitators');
}	}
my $postingform = (<<ENDDISCUSS);	my ($postingform,$textareaclass);
	if (&Apache::lonhtmlcommon::htmlareabrowser()) {
	$postingform = &Apache::lonhtmlcommon::htmlareaselectactive();
	$textareaclass = 'class="LC_richDefaultOff"';
	if ($env{'request.course.id'}) {
	unless (($env{'course.'.$env{'request.course.id'}.'.allow_limited_html_in_feedback'} =~ /^\syes\s$/i) \|\| ($env{'form.sendmessageonly'})) {
	undef($textareaclass);
	}
	}
	}
	$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" />	<input type="submit" name="anondiscuss" value="$lt{'poan'}" /> <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" >$comment</textarea>	<textarea name="comment" cols="80" rows="14" id="comment" $textareaclass>$comment</textarea>
ENDDISCUSS	ENDDISCUSS
if ($env{'form.origpage'}) {	if ($env{'form.origpage'}) {
$postingform .= '<input type="hidden" name="origpage" value="'.	$postingform .= '<input type="hidden" name="origpage" value="'.
Line 901 ENDDISCUSS	Line 997 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,$target,$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);
	if ($contrib{'deleted'}) {
	my $deleted = $contrib{'deleted'};
	$deleted =~ s/^\.//;
	$deleted =~ s/\.$//;
	%deletions = map { $_ => 1 } (split(/\.\./,$deleted));
	}
	if ($contrib{'hidden'}) {
	my $hidden = $contrib{'hidden'};
	$hidden =~ s/^\.//;
	$hidden =~ s/\.$//;
	%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 927 sub build_posting_display {	Line 1053 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;
}	}
	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'})) {
	if ($likes{$symb.':'.$idx.':likes'} ne '') {
	push(@theselikes,$likes{$symb.':'.$idx.':likes'});
	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;
	}
	#
	# 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.':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;
}	}
my $hidden=($contrib{'hidden'}=~/\.$idx\./);
my $studenthidden=($contrib{'studenthidden'}=~/\.$idx\./);	my $studenthidden=($contrib{'studenthidden'}=~/\.$idx\./);
my $deleted=($contrib{'deleted'}=~/\.$idx\./);
my $origindex='0.';	my $origindex='0.';
my $numoldver=0;	my $numoldver=0;
if ($contrib{$idx.':replyto'}) {	if ($contrib{$idx.':replyto'}) {
Line 960 sub build_posting_display {	Line 1137 sub build_posting_display {
} else {	} else {
$$replies[$$depth[$idx]]=1;	$$replies[$$depth[$idx]]=1;
}	}
unless ((($hidden) && (!$seeid)) \|\| ($deleted)) {	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 975 sub build_posting_display {	Line 1152 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 985 sub build_posting_display {	Line 1162 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 994 sub build_posting_display {	Line 1171 sub build_posting_display {
$message.=$attachtxt{$numoldver};	$message.=$attachtxt{$numoldver};
$subject=$subjects{$numoldver};	$subject=$subjects{$numoldver};
if ($message) {	if ($message) {
if ($hidden) {	if ($hiddens{$idx}) {
$message='<font color="#888888">'.$message.'</font>';	$message='<font color="#888888">'.$message.'</font>';
if ($studenthidden) {	if ($studenthidden) {
$message .='<br /><br />Deleted by poster (student).';	$message .='<br /><br />Deleted by poster (student).';
Line 1015 sub build_posting_display {	Line 1192 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 1058 sub build_posting_display {	Line 1241 sub build_posting_display {
} else {	} else {
@{$$namesort{$lastname}{$firstname}} = ("$idx");	@{$$namesort{$lastname}{$firstname}} = ("$idx");
}	}
if ((&editing_allowed($escsymb.':::'.$idx,$group)) && ($outputtarget ne 'tex')) {	if ($outputtarget ne 'tex') {
if (($env{'user.domain'} eq $contrib{$idx.':senderdomain'}) && ($env{'user.name'} eq $contrib{$idx.':sendername'})) {	# Add karma stars
$sender.=' <a href="/adm/feedback?editdisc='.	my $karma=&userkarma($contrib{$idx.':sendername'},$contrib{$idx.':senderdomain'});
$escsymb.':::'.$idx;	for (my $i=1;$i<=$karma;$i++) {
if ($$newpostsflag) {	$sender.='<img border="0" src="/res/adm/pages/star.gif" alt="'.&mt('Contributor Kudos').'" />';
$sender .= '&previous='.$prevread;
}
$sender .= &group_args($group);
$sender .= '" '.$target.'>'.&mt('Edit').'</a>';

unless ($seeid) {
my $grpargs = &group_args($group);
$sender.=" <a href=\"javascript:verifydelete('studentdelete','$escsymb','$idx','$$newpostsflag','$prevread','$grpargs')";
$sender .= '">'.&mt('Delete').'</a>';
}
}	}
}	# Can people edit this?
if (($seeid) && ($outputtarget ne 'tex')) {	if (&editing_allowed($escsymb.':::'.$idx,$group)) {
if ($hidden) {	if (($env{'user.domain'} eq $contrib{$idx.':senderdomain'}) && ($env{'user.name'} eq $contrib{$idx.':sendername'})) {
unless ($studenthidden) {	$sender.=' '.
$sender.=' <a href="/adm/feedback?unhide='.	&discussion_link($symb,&mt('Edit'),'editdisc',$idx,$$newpostsflag,$prevread,&group_args($group));
$escsymb.':::'.$idx;	unless ($seehidden) {
if ($$newpostsflag) {	my $grpargs = &group_args($group);
$sender .= '&previous='.$prevread;	$sender.=" <a href=\"javascript:verifydelete('studentdelete','$escsymb','$idx','$$newpostsflag','$prevread','$grpargs')";
	$sender .= '">'.&mt('Delete').'</a>';
}	}
$sender .= '">'.&mt('Make Visible').'</a>';
}	}
} else {	}
$sender.=' <a href="/adm/feedback?hide='.	if ($seehidden) {
$escsymb.':::'.$idx;	if ($hiddens{$idx}) {
if ($$newpostsflag) {	unless ($studenthidden) {
$sender .= '&previous='.$prevread;	$sender.=' '.
}	&discussion_link($symb,&mt('Make Visible'),'unhide',$idx,$$newpostsflag,$prevread,&group_args($group));
$sender .= &group_args($group);	}
$sender .= '">'.&mt('Hide').'</a>';	} else {
}	$sender.=' '.
my $grpargs = &group_args($group);	&discussion_link($symb,&mt('Hide'),'hide',$idx,$$newpostsflag,$prevread,&group_args($group));
$sender.=	}
" <a href=\"javascript:verifydelete('seeiddelete','$escsymb','$idx','$$newpostsflag','$prevread','$grpargs')\">";	my $grpargs = &group_args($group);
$sender .= &mt('Delete').'</a>';	$sender.=
	" <a href=\"javascript:verifydelete('seeiddelete','$escsymb','$idx','$$newpostsflag','$prevread','$grpargs')\">";
	$sender .= &mt('Delete').'</a>';
	}
}	}
} else {	} else {
if ($screenname) {	if ($screenname) {
$sender='<i>'.$screenname.'</i>';	$sender='<i>'.$screenname.'</i>';
} else {	} else {
Line 1125 sub build_posting_display {	Line 1301 sub build_posting_display {
@{$$namesort{'__anon'}{'__anon'}} = ("$idx");	@{$$namesort{'__anon'}{'__anon'}} = ("$idx");
}	}
}	}
if ((&discussion_open($status)) && ($outputtarget ne 'tex')) {	if ($outputtarget ne 'tex') {
if (($group ne '') &&	if (&discussion_open($status)) {
(&check_group_priv($group,'pgd') eq 'ok')) {	if (($group ne '') &&
$sender.=' <a href="/adm/feedback?replydisc='.	(&check_group_priv($group,'pgd') eq 'ok')) {
$escsymb.':::'.$idx;	$sender.=' '.
if ($$newpostsflag) {	&discussion_link($symb,&mt('Reply'),'replydisc',$idx,$$newpostsflag,$prevread,&group_args($group));
$sender .= '&previous='.$prevread;	} elsif (&Apache::lonnet::allowed('pch',
}	$env{'request.course.id'}.
$sender .= &group_args($group);	($env{'request.course.sec'}?'/'.
$sender .= '" '.$target.'>'.&mt('Reply').'</a>';	$env{'request.course.sec'}:''))) {
} elsif (&Apache::lonnet::allowed('pch',	$sender.=' '.
$env{'request.course.id'}.	&discussion_link($symb,&mt('Reply'),'replydisc',$idx,$$newpostsflag,$prevread);
($env{'request.course.sec'}?'/'.
$env{'request.course.sec'}:''))) {
$sender.=' <a href="/adm/feedback?replydisc='.
$escsymb.':::'.$idx;
if ($$newpostsflag) {
$sender .= '&previous='.$prevread;
}	}
$sender .= '" '.$target.'>'.&mt('Reply').'</a>';
}	}
}	if ($viewgrades) {
if (($viewgrades) && ($outputtarget ne 'tex')) {
$vgrlink=&Apache::loncommon::submlink(&mt('Submissions'),	$vgrlink=&Apache::loncommon::submlink(&mt('Submissions'),
$contrib{$idx.':sendername'},$contrib{$idx.':senderdomain'},$ressymb);	$contrib{$idx.':sendername'},$contrib{$idx.':senderdomain'},$ressymb);
}	}
if (($$dischash{$readkey}=~/\.$idx\./) && ($outputtarget ne 'tex')) {	if ($$dischash{$readkey}=~/\.$idx\./) {
$ctlink = '<label><b>'.&mt('Mark unread').'?</b> <input type="checkbox" name="postunread_'.$idx.'" /></label>';	$ctlink = '<label><b>'.&mt('Mark unread').'?</b> <input type="checkbox" name="postunread_'.$idx.'" /></label>';
} else {	} else {
$ctlink = '<label><b>'.&mt('Mark read').'?</b> <input type="checkbox" name="postread_'.$idx.'" /></label>';	$ctlink = '<label><b>'.&mt('Mark read').'?</b> <input type="checkbox" name="postread_'.$idx.'" /></label>';
	}
}	}
}	}
#figure out at what position this needs to print	#figure out at what position this needs to print
Line 1171 sub build_posting_display {	Line 1340 sub build_posting_display {
if ($outputtarget eq 'export') {	if ($outputtarget eq 'export') {
%{$$imsitems{$idx}} = ();	%{$$imsitems{$idx}} = ();
$$imsitems{$idx}{'isvisible'}='true';	$$imsitems{$idx}{'isvisible'}='true';
if ($hidden) {	if ($hiddens{$idx}) {
$$imsitems{$idx}{'isvisible'}='false';	$$imsitems{$idx}{'isvisible'}='false';
}	}
$$imsitems{$idx}{'title'}=$subjects{$numoldver};	$$imsitems{$idx}{'title'}=$subjects{$numoldver};
Line 1193 sub build_posting_display {	Line 1362 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 1251 sub build_posting_display {	Line 1421 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>';	}
	my $thislikes=$likes{$symb.':'.$idx.':likes'};
	my $likesize="100";
	if ($seeid \|\| $canvote) {
	# Figure out size based on likes
	my $thislikes=$likes{$symb.':'.$idx.':likes'};
	if ($thislikes>$twoplus) {
	$likesize="200";
	} elsif ($thislikes>$oneplus) {
	$likesize="150";
	}
	if ($thislikes<$twominus) {
	$likesize="50";
	} elsif ($thislikes<$oneminus) {
	$likesize="75";
	}
	}
	# Actually glue in the message itself
	$$discussionitems[$idx].= '<br /><blockquote>'.
	"<div style='font-size:$likesize%'>".
	$message.
	'</div></blockquote>';
	if ($canvote) {
	# Put in the like and unlike buttons
	if (($uname eq $env{'user.name'}) && ($udom eq $env{'user.domain'})) {
	my $novote = &mt('No voting for your own posts');
	$$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)).')';
	}
}	}
$$discussionitems[$idx].= '</tr></table><blockquote>'.	# If there is any history to this post, inform the reader
$message.'</blockquote>';
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] .= '  <a href="/adm/feedback?allversions='.$escsymb.':::'.$idx;	$$discussionitems[$idx] .= '  '.
$$discussionitems[$idx] .= &group_args($group);	&discussion_link($symb,&mt('Display all versions'),'allversions',$idx,$$newpostsflag,$prevread,&group_args($group));
$$discussionitems[$idx] .= '">'.&mt('Display all versions').'</a>';
}	}
$$discussionitems[$idx].='<br/>'.&mt('Earlier version(s) were posted on: ');	$$discussionitems[$idx].='<br/>'.&mt('Earlier version(s) were posted on: ');
if ($contrib{$idx.':history'} =~ m/:/) {	if ($contrib{$idx.':history'} =~ m/:/) {
Line 1289 sub build_posting_display {	Line 1500 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 1353 sub filter_regexp {	Line 1571 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 1371 sub get_post_contents {	Line 1589 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 1493 sub mail_screen {	Line 1718 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 1632 END	Line 1862 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.');
my $js= <<END;	my $js= <<END;
Line 1674 END	Line 1904 END
</script>	</script>
END	END

	my ($textareaheader,$textareaclass);
	if (&Apache::lonhtmlcommon::htmlareabrowser()) {
	$textareaheader = &Apache::lonhtmlcommon::htmlareaselectactive();
	$textareaclass = 'class="LC_richDefaultOff"';
	if ($env{'request.course.id'}) {
	unless (($env{'course.'.$env{'request.course.id'}.'.allow_limited_html_in_feedback'} =~ /^\syes\s$/i) \|\| ($env{'form.sendmessageonly'})) {
	undef($textareaclass);
	}
	}
	}

# Breadcrumbs	# Breadcrumbs
my $brcrum = [{'href' => '',	my $brcrum = [{'href' => '',
'text' => 'Resource Feedback and Discussion'}];	'text' => 'Resource Feedback and Discussion'}];

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

if ($quote ne '') {	if ($quote ne '') {
$quote = &HTML::Entities::decode($quote);	$quote = &HTML::Entities::decode($quote);
Line 1691 END	Line 1932 END
}	}
$quote='<blockquote>'.&Apache::lontexconvert::msgtexconverted($quote).'</blockquote>';	$quote='<blockquote>'.&Apache::lontexconvert::msgtexconverted($quote).'</blockquote>';
}	}
	my $header='';
	unless ($env{'form.modal'}) {
	$header="<h2><tt>$restitle</tt></h2>";
	}
$r->print(<<END);	$r->print(<<END);
$start_page	$start_page
<h2><tt>$restitle</tt></h2>	<h1>$lt{'myqu'}</h1>
	$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">
$prevtag	$prevtag
<input type="hidden" name="postdata" value="$feedurl" />	<input type="hidden" name="postdata" value="$feedurl" />
	<input type="hidden" name="modal" value="$env{'form.modal'}" />
END	END
if ($env{'form.replydisc'}) {	if ($env{'form.replydisc'}) {
$r->print(<<END);	$r->print(<<END);
Line 1711 END	Line 1957 END
END	END
}	}
$r->print(<<END);	$r->print(<<END);
$options<hr />	$options
$quote	$quote
<p>$lt{'myqu'}</p>
<p>	<p>
$latexHelp	$textareaheader
</p>	</p>
	<br>
<p>	<p>
$lt{'title'}: <input type="text" name="subject" size="30" value="$subject" /></p>	$latexHelp
	</p>
<p>	<p>
<textarea name="comment" id="comment" cols="60" rows="10">$comment
</textarea></p>
END	END

	$r->print(&Apache::lonhtmlcommon::start_pick_box());
	$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="60" 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 1798 END	Line 2056 END
}	}
}	}
$r->print(&generate_preview_button().	$r->print(&generate_preview_button().
&Apache::lonhtmlcommon::htmlareaselectactive('comment').
&Apache::loncommon::end_page());	&Apache::loncommon::end_page());

}	}
Line 2145 END	Line 2402 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 2210 $start_page	Line 2467 $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 2236 sub print_showposters {	Line 2494 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 2269 sub print_showposters {	Line 2514 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 2294 sub print_showposters {	Line 2539 sub print_showposters {
}	}
}	}
}	}
}	}
}	}

my $start_page = &Apache::loncommon::start_page('Discussion options');	my $start_page = &Apache::loncommon::start_page('Discussion options');
Line 2335 END	Line 2580 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 2520 sub redirect_back {	Line 2766 sub redirect_back {
}	}
&Apache::lonenc::check_encrypt(\$feedurl);	&Apache::lonenc::check_encrypt(\$feedurl);
my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');	my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');
my %onload;	my %parms=('only_body' => 1);
	if ($env{'form.modal'}) {
	$parms{'add_entries'}={'onLoad' => 'document.forms.reldt.submit()'};
	} else {
	$parms{'redirect'}=[0,$feedurl];
	}
my $start_page=	my $start_page=
&Apache::loncommon::start_page('Feedback sent',undef,	&Apache::loncommon::start_page('Feedback sent',undef,\%parms);
{'redirect' => [0,$feedurl],
'only_body' => 1,
'add_entries' => \%onload});
my $end_page = &Apache::loncommon::end_page();	my $end_page = &Apache::loncommon::end_page();
$r->print(<<ENDREDIR);	$r->print(<<ENDREDIR);
$start_page	$start_page
Line 2560 sub no_redirect_back {	Line 2808 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 2580 ENDNOREDIRTWO	Line 2828 ENDNOREDIRTWO
}	}

sub screen_header {	sub screen_header {
my ($feedurl,$symb) = @_;	my ($feedurl,$symb,$group) = @_;
my $crscontent = &mt('Question/Comment/Feedback about course content');	my $crscontent = &mt('Question/Comment/Feedback about course content');
my $crspolicy = &mt('Question/Comment/Feedback about course policy');	my $crspolicy = &mt('Question/Comment/Feedback about course policy');
my $contribdisc = &mt('Contribution to course discussion of resource');	my $contribdisc = &mt('Contribution to course discussion of resource');
Line 2602 sub screen_header {	Line 2850 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 2611 sub screen_header {	Line 2859 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');
if (!$blocked && &discussion_open(undef,$symb) &&	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
&Apache::lonnet::allowed('pch',	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
$env{'request.course.id'}.	my $realsymb = &get_realsymb($symb);
($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))) {	if (!$blocked && &discussion_open(undef,$realsymb) &&
	(&Apache::lonnet::allowed('pch',
	$env{'request.course.id'}.
	($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')))) {
$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><br /><label><input type="radio" name="discuss" value="anon" /> '.
Line 2646 sub screen_header {	Line 2898 sub screen_header {
}	}
}	}
if ($msgoptions) {	if ($msgoptions) {
$msgoptions='<h2><img src="'.&Apache::loncommon::lonhttpdurl('/res/adm/pages/feedback.png').'" />'	$msgoptions='<tr><th><img src="'.&Apache::loncommon::lonhttpdurl('/res/adm/pages/feedback.png').'" />'
.' '.&mt('Send Feedback').'</h2><p>'.&Apache::lonhtmlcommon::coursepreflink(&mt('Feedback Settings'),'feedback').'</p>'	.'<br />'.&mt('Send Feedback').'<br />'.&Apache::lonhtmlcommon::coursepreflink(&mt('Feedback Settings'),'feedback').'</th>'.
.$msgoptions;	'<td>'.$msgoptions.'</td></tr>';
}	}
if ($discussoptions) {	if ($discussoptions) {
$discussoptions='<h2><img src="'.&Apache::loncommon::lonhttpdurl('/adm/lonMisc/chat.gif').'" alt="" />'	$discussoptions='<tr><th><img src="'.&Apache::loncommon::lonhttpdurl('/adm/lonMisc/chat.gif').'" alt="" />'
.' '.&mt('Discussion Contributions').'</h2><p>'.&Apache::lonhtmlcommon::coursepreflink(&mt('Discussion Settings'),'discussion').'</p>'	.'<br />'.&mt('Discussion Contributions').'<br />'.&Apache::lonhtmlcommon::coursepreflink(&mt('Discussion Settings'),'discussion').'</th>'.
.$discussoptions;	'<td>'.$discussoptions.'</td></tr>';
}	}
return $msgoptions.$discussoptions;	return &Apache::loncommon::start_data_table().$msgoptions.$discussoptions.&Apache::loncommon::end_data_table();
}	}

sub resource_output {	sub resource_output {
Line 2672 sub resource_output {	Line 2924 sub resource_output {
}	}

sub clear_out_html {	sub clear_out_html {
my ($message,$override,$ignore_htmlarea)=@_;	my ($message,$override)=@_;
if (!$ignore_htmlarea
&& !&Apache::lonhtmlcommon::htmlareablocked()) { return $message; }
# Always allow the <m>-tag	# Always allow the <m>-tag
my %html=(M=>1);	my %html=(M=>1);
# Check if more is allowed	# Check if more is allowed
Line 2685 sub clear_out_html {	Line 2935 sub clear_out_html {
# <BLOCKQUOTE> <DIV .*> <DIV> <IMG> <M> <SPAN> <H1> <H2> <H3> <H4> <SUB>	# <BLOCKQUOTE> <DIV .*> <DIV> <IMG> <M> <SPAN> <H1> <H2> <H3> <H4> <SUB>
# <SUP> <TABLE> <TR> <TD> <TH> <TBODY>	# <SUP> <TABLE> <TR> <TD> <TH> <TBODY>
%html=(B=>1, I=>1, P=>1, A=>1, LI=>1, OL=>1, UL=>1, EM=>1,	%html=(B=>1, I=>1, P=>1, A=>1, LI=>1, OL=>1, UL=>1, EM=>1,
BR=>1, TT=>1, STRONG=>1, BLOCKQUOTE=>1, DIV=>1, IMG=>1,	BR=>1, TT=>1, STRONG=>1, BLOCKQUOTE=>1, PRE=>1, DIV=>1, IMG=>1,
M=>1, ALGEBRA=>1, SUB=>1, SUP=>1, SPAN=>1,	M=>1, CHEM=>1, ALGEBRA=>1, SUB=>1, SUP=>1, SPAN=>1,
H1=>1, H2=>1, H3=>1, H4=>1, H5=>1, H6=>1,	H1=>1, H2=>1, H3=>1, H4=>1, H5=>1, H6=>1,
TABLE=>1, TR=>1, TD=>1, TH=>1, TBODY=>1);	TABLE=>1, TR=>1, TD=>1, TH=>1, TBODY=>1);
}	}
Line 2757 sub send_msg {	Line 3007 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)=@_;	my ($symb,$email,$anon,$attachmenturl,$subject,$group)=@_;
my $status='';	my $status='';
my $realsymb;	my $realsymb = &get_realsymb($symb);
if ($symb=~/^bulletin___/) {	my ($cnum,$cdom);
my $filename=(&Apache::lonnet::decode_symb($symb))[2];	if ($env{'request.course.id'}) {
$filename=~s\|^adm/wrapper/\|\|;	$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
$realsymb=&Apache::lonnet::symbread($filename);	$cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
}	}
if (&discussion_open(undef,$realsymb) &&	if (&discussion_open(undef,$realsymb) &&
&Apache::lonnet::allowed('pch',$env{'request.course.id'}.	(&Apache::lonnet::allowed('pch',$env{'request.course.id'}.
($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))) {	($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')) \|\|
	(($group ne '') && (&check_group_priv($group,'pgd') eq 'ok') &&
	($symb =~ m{^bulletin___\d+___adm/wrapper/adm/\Q$cdom\E/\Q$cnum\E/\d+/bulletinboard$})))) {

my %contrib=('message' => $email,	my %contrib=('message' => $email,
'sendername' => $env{'user.name'},	'sendername' => $env{'user.name'},
Line 2863 sub adddiscuss {	Line 3172 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 2871 sub adddiscuss {	Line 3180 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 2878 sub adddiscuss {	Line 3188 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(@_);
	return ($record{'subnumber'},$record{'points'},$record{'totallikes'},$record{'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 ($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=&getdiscussionrecords($uname,$udom,$course);
	my $totallikes=$record{'totallikes'};
	my $totalvotes=$record{'totalvotes'};
	$totallikes+=$likes;
	$totalvotes++;
	my %newrecord=('likes_user' => $env{'user.name'},
	'likes_domain' => $env{'user.domain'},
	'likes' => $likes,
	'totallikes' => $totallikes,
	'totalvotes' => $totalvotes);
	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 2934 sub show_preview {	Line 3348 sub show_preview {
&newline_to_br(\$message);	&newline_to_br(\$message);
$message=&Apache::lonspeller::markeduptext($message);	$message=&Apache::lonspeller::markeduptext($message);
$message=&Apache::lontexconvert::msgtexconverted($message);	$message=&Apache::lontexconvert::msgtexconverted($message);
my $subject=&clear_out_html($env{'form.subject'},undef,1);	my $subject=&clear_out_html($env{'form.subject'});
$subject=~s/\n/\<br \/\>/g;	$subject=~s/\n/\<br \/\>/g;
$subject=&Apache::lontexconvert::msgtexconverted($subject);	$subject=&Apache::lontexconvert::msgtexconverted($subject);

Line 3023 sub modify_attachments {	Line 3437 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 3041 END	Line 3455 END
# Breadcrumbs	# Breadcrumbs
my $brcrum = [{'href' => '',	my $brcrum = [{'href' => '',
'text' => 'Discussion Post Attachments'}];	'text' => 'Discussion Post Attachments'}];
	my %parms=('only_body' => 1);
	if ($env{'form.modal'} ne 'yes') { 'bread_crumbs' => $brcrum }

my $start_page =	my $start_page =
&Apache::loncommon::start_page('Discussion Post Attachments',$js,	&Apache::loncommon::start_page('Discussion Post Attachments',$js,\%parms);
{'bread_crumbs' => $brcrum,});

my $orig_subject = &unescape($env{'form.subject'});	my $orig_subject = &unescape($env{'form.subject'});
my $subject=&clear_out_html($orig_subject,undef,1);	my $subject=&clear_out_html($orig_subject);
$subject=~s/\n/\<br \/\>/g;	$subject=~s/\n/\<br \/\>/g;
$subject=&Apache::lontexconvert::msgtexconverted($subject);	$subject=&Apache::lontexconvert::msgtexconverted($subject);
my $timestamp=$env{'form.timestamp'};	my $timestamp=$env{'form.timestamp'};
Line 3068 $start_page	Line 3484 $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 />	<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" /><input type="button" name="upload" value="Upload" onclick="this.form.submit()" /> '.$attachmaxtext);
my $attachurl = &HTML::Entities::decode($attachments{$id}{'filename'});	if(($idx)\|\|(ref($currnewattach) eq 'ARRAY') && (@{$currnewattach} > 0)){
$attachurl =~ m#/([^/]+)$#;	$r->print(&Apache::lonhtmlcommon::row_closure());
$r->print('<label><input type="checkbox" name="deloldattach" value="'.$id.'" /> '.$1.'</label><br />'."\n");	$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 3163 sub generate_attachments_button {	Line 3577 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 3404 sub handler {	Line 3818 sub handler {
# --------------------------- Get query string for limited number of parameters	# --------------------------- Get query string for limited number of parameters

&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['hide','unhide','deldisc','postdata','preview','replydisc','editdisc','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 3455 sub handler {	Line 3872 sub handler {
# Breadcrumbs	# Breadcrumbs
my $brcrum = [{'href' => '',	my $brcrum = [{'href' => '',
'text' => 'Discussion Post Versions'}];	'text' => 'Discussion Post Versions'}];

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

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

$r->print(&Apache::loncommon::start_page('Discussion Post Versions',undef,
{'bread_crumbs' => $brcrum,})
);

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 3627 ENDREDIR	Line 4033 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);

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 3666 ENDREDIR	Line 4067 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'},	&Apache::lonnet::store(\%newhash,$symb,$env{'request.course.id'},
$env{'course.'.$env{'request.course.id'}.'.domain'},	$cdom,$cnum);
$env{'course.'.$env{'request.course.id'}.'.num'});

&redirect_back($r,$feedurl,&mt('Changed discussion status').'<br />',	&redirect_back($r,$feedurl,&mt('Changed discussion status').'<br />',
'0','0','','',$env{'form.previous'},undef,undef,undef,	'0','0','','',$env{'form.previous'},undef,undef,undef,
undef,undef,undef,$group);	undef,undef,undef,$group);
return OK;	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);
	if (($contrib{$idx.':sendername'} eq $env{'user.name'}) &&
	($contrib{$idx.':senderdomain'} eq $env{'user.domain'})) {
	$result = &mt("Vote not registered. No voting for your own 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;
	if ($env{'form.like'}) {
	if ($userlikes) {
	$alreadyflag=1;
	} elsif ($userunlikes) {
	delete($likes{$prefix.'unlikers'}{$thisuser});
	$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});
	$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
	if ($env{'form.like'}) {
	&storediscussionlikes(1,$contrib{$idx.':sendername'},$contrib{$idx.':senderdomain'});
	$result=&mt("Registered 'Like'");
	} else {
	&storediscussionlikes(-1,$contrib{$idx.':sendername'},$contrib{$idx.':senderdomain'});
	$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);
	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 'threadedon') {
Line 3695 ENDREDIR	Line 4209 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'},	&Apache::lonnet::store(\%newhash,$symb,$env{'request.course.id'},
$env{'course.'.$env{'request.course.id'}.'.domain'},	$cdom,$cnum);
$env{'course.'.$env{'request.course.id'}.'.num'});
&redirect_back($r,$feedurl,&mt('Changed discussion status').'<br />',	&redirect_back($r,$feedurl,&mt('Changed discussion status').'<br />',
'0','0','','',$env{'form.previous'},undef,undef,undef,	'0','0','','',$env{'form.previous'},undef,undef,undef,
undef,undef,undef,$group);	undef,undef,undef,$group);
Line 3736 ENDREDIR	Line 4256 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 3750 ENDREDIR	Line 4269 ENDREDIR
my $mode='board';	my $mode='board';
my $status='OPEN';	my $status='OPEN';
my $previous=$env{'form.previous'};	my $previous=$env{'form.previous'};
if ($feedurl =~ /\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|task)$/) {	if ($feedurl =~ /$LONCAPA::assess_re/) {
$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 3761 ENDREDIR	Line 4281 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)) {
	if (&Apache::lonnet::store({'deleted' => ''},$symb,$env{'request.course.id'},
	$cdom,$cnum) eq 'ok') {
	$r->print(&Apache::lonhtmlcommon::confirm_success(&mt("Undeleted all entries")));
	} else {
	$r->print(&Apache::lonhtmlcommon::confirm_success(&mt("Failed to undelete entries"),1));
	}
	$r->print("<br /><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 3776 ENDREDIR	Line 4314 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 3790 ENDREDIR	Line 4330 ENDREDIR
&dewrapper(\$feedurl);	&dewrapper(\$feedurl);
}	}
my $goahead=1;	my $goahead=1;
if ($feedurl=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|task)$/) {	if ($feedurl=~/$LONCAPA::assess_re/) {
unless ($symb) { $goahead=0; }	unless ($symb) { $goahead=0; }
}	}
if (!$goahead) {	if (!$goahead) {
Line 3828 ENDREDIR	Line 4368 ENDREDIR
return OK;	return OK;
}	}
}	}
my $options=&screen_header($feedurl,$symb);	my $options=&screen_header($feedurl,$symb,$group);
if ($options) {	if ($options) {
&mail_screen($r,$feedurl,$options,$symb,$attachmax{'text'});	&mail_screen($r,$feedurl,$options,$symb,$attachmax{'text'});
} else {	} else {
Line 3884 ENDREDIR	Line 4424 ENDREDIR
}	}
}	}
# Filter HTML out of message (could be nasty)	# Filter HTML out of message (could be nasty)
my $message=&clear_out_html($env{'form.comment'});	my $override;
	if ($env{'form.discuss'} =~ /^(?:author\|question\|course\|policy)$/) {
	$override = 1;
	}
	my $message=&clear_out_html($env{'form.comment'},$override);

# Assemble email	# Assemble email
my ($email,$citations)=&assemble_email($message,$prevattempts,	my ($email,$citations)=&assemble_email($message,$prevattempts,
Line 3894 ENDREDIR	Line 4438 ENDREDIR
my ($typestyle,%to) = &Apache::lonmsg::decide_receiver($feedurl);	my ($typestyle,%to) = &Apache::lonmsg::decide_receiver($feedurl);

# Actually send mail	# Actually send mail
my ($status,$numsent)=&send_msg(&clear_out_html($env{'form.subject'},	my ($status,$numsent)=&send_msg(&clear_out_html($env{'form.subject'}),
undef,1),
$feedurl,$email,$citations,	$feedurl,$email,$citations,
$attachmenturl,$usersymb,%to);	$attachmenturl,$usersymb,%to);

Line 3904 ENDREDIR	Line 4447 ENDREDIR
if ( ($env{'form.discuss'} ne ''	if ( ($env{'form.discuss'} ne ''
&& $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'},undef,1);	my $subject = &clear_out_html($env{'form.subject'});
my $anonmode=($env{'form.discuss'} eq 'anon' \|\| $env{'form.anondiscuss'} );	my $anonmode=($env{'form.discuss'} eq 'anon' \|\| $env{'form.anondiscuss'} );
$typestyle.=&adddiscuss($symb,$message,$anonmode,$attachmenturl,	$typestyle.=&adddiscuss($symb,$message,$anonmode,$attachmenturl,
$subject);	$subject,$group);
$numpost++;	$numpost++;
}	}

Line 3915 ENDREDIR	Line 4458 ENDREDIR

my $blog='';	my $blog='';
if ($env{'form.blog'}) {	if ($env{'form.blog'}) {
my $subject = &clear_out_html($env{'form.subject'},undef,1);	my $subject = &clear_out_html($env{'form.subject'});
$status.=&Apache::lonrss::addentry($env{'user.name'},	$status.=&Apache::lonrss::addentry($env{'user.name'},
$env{'user.domain'},	$env{'user.domain'},
'CourseBlog_'.$env{'request.course.id'},	'CourseBlog_'.$env{'request.course.id'},
Line 3951 sub wrap_symb {	Line 4494 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 4104 None	Line 4648 None

=item discussion_visible()	=item discussion_visible()

	=item discussion_vote_available()

	=item get_realsymb()

=item list_discussion()	=item list_discussion()

=item send_feedback_link()	=item send_feedback_link()

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

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.296
changed lines
	Added in v.1.347