Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonfeedback.pm between versions 1.245 and 1.303

version 1.245, 2007/02/28 21:45:42	version 1.303, 2010/11/19 20:32:38
Line 41 use Apache::lonnavmaps;	Line 41 use Apache::lonnavmaps;
use Apache::lonenc();	use Apache::lonenc();
use Apache::lonrss();	use Apache::lonrss();
use HTML::LCParser();	use HTML::LCParser();
	#use HTML::Tidy::libXML;
use Apache::lonspeller();	use Apache::lonspeller();
use Apache::longroup;	use Apache::longroup;
use Cwd;	use Cwd;
Line 48 use LONCAPA;	Line 49 use LONCAPA;

sub discussion_open {	sub discussion_open {
my ($status,$symb)=@_;	my ($status,$symb)=@_;
	# Advanced roles can always discuss
if ($env{'request.role.adv'}) { return 1; }	if ($env{'request.role.adv'}) { return 1; }
	# Get discussion closing date
	my $close=&Apache::lonnet::EXT('resource.0.discussend',$symb);
	# If it is defined and in the future, the instructor wants this discussion to be open
	if (defined($close) && $close ne '' && $close > time) {
	return 1;
	}
	# It was not explicitly open, check if the problem is available.
	# If the problem is not available, close the discussion
if (defined($status) &&	if (defined($status) &&
!($status eq 'CAN_ANSWER' \|\| $status eq 'CANNOT_ANSWER'	!($status eq 'CAN_ANSWER' \|\| $status eq 'CANNOT_ANSWER'
\|\| $status eq 'OPEN')) {	\|\| $status eq 'OPEN')) {
return 0;	return 0;
}	}
my $close=&Apache::lonnet::EXT('resource.0.discussend',$symb);	# The problem is available, but check if the instructor explictly closed discussion
if (defined($close) && $close ne '' && $close < time) {	if (defined($close) && $close ne '' && $close < time) {
return 0;	return 0;
}	}
Line 91 sub list_discussion {	Line 101 sub list_discussion {
if (not &discussion_visible($status)) {	if (not &discussion_visible($status)) {
if ($mode ne 'board') {	if ($mode ne 'board') {
&Apache::lonenc::check_encrypt(\$ressymb);	&Apache::lonenc::check_encrypt(\$ressymb);
return &send_message_link($ressymb);	return '<br /><div class="LC_feedback_link">'.&send_message_link($ressymb)."</div>";
}	}
}	}
if ($group ne '' && $mode eq 'board') {	if ($group ne '' && $mode eq 'board') {
Line 103 sub list_discussion {	Line 113 sub list_discussion {
my ($blocked,$blocktext) =	my ($blocked,$blocktext) =
&Apache::loncommon::blocking_status('boards');	&Apache::loncommon::blocking_status('boards');
if ($blocked) {	if ($blocked) {
	$blocktext = '<br /><div class="LC_feedback_link"><span class="LC_feedback_link">'.$blocktext."</span>";
&Apache::lonenc::check_encrypt(\$ressymb);	&Apache::lonenc::check_encrypt(\$ressymb);
if ($mode ne 'board') {	if ($mode ne 'board') {
$blocktext.='<br />'.&send_message_link($ressymb);	$blocktext.=&send_message_link($ressymb).'</div>';
	}else{
	$blocktext.="</div>";
}	}
return $blocktext;	return $blocktext;
}	}

my @bgcols = ("#cccccc","#eeeeee");	my @bgcols = ("LC_disc_old_item","LC_disc_new_item");
my $discussiononly=0;	my $discussiononly=0;
if ($mode eq 'board') { $discussiononly=1; }	if ($mode eq 'board') { $discussiononly=1; }
unless ($env{'request.course.id'}) { return ''; }	unless ($env{'request.course.id'}) { return ''; }
Line 169 sub list_discussion {	Line 182 sub list_discussion {

my $cdom = $env{'course.'.$cid.'.domain'};	my $cdom = $env{'course.'.$cid.'.domain'};
my $cnum = $env{'course.'.$cid.'.num'};	my $cnum = $env{'course.'.$cid.'.num'};
	my $crstype = &Apache::loncommon::course_type();

# Get information about students and non-students in course for filtering display of posts	# Get information about students and non-students in course for filtering display of posts
my %roleshash = ();	my %roleshash = ();
Line 268 sub list_discussion {	Line 282 sub list_discussion {
my %anonhash=();	my %anonhash=();
my $anoncnt=0;	my $anoncnt=0;
my $target='';	my $target='';
unless ($env{'browser.interface'} eq 'textual' \|\|
$env{'environment.remote'} eq 'off' ) {
$target='target="LONcom"';
}

my $now = time;	my $now = time;
$discinfo{$visitkey} = $visit;	$discinfo{$visitkey} = $visit;
Line 312 sub list_discussion {	Line 322 sub list_discussion {
'dpwn' => 'Deleted posts will no longer be visible to you and other students',	'dpwn' => 'Deleted posts will no longer be visible to you and other students',
'bwco' => 'but will continue to be visible to your instructor',	'bwco' => 'but will continue to be visible to your instructor',
'depo' => 'Deleted posts will no longer be visible to you or anyone else.',	'depo' => 'Deleted posts will no longer be visible to you or anyone else.',
	'discussions' => 'DISCUSSIONS'
);	);

my $currdisp = $lt{'allposts'};	my $currdisp = $lt{'allposts'};
Line 352 sub list_discussion {	Line 363 sub list_discussion {
$togglink = 'toggoff';	$togglink = 'toggoff';
}	}

$chglink .= '&changes='.$displinkA.'_'.$displinkB.'_'.$marklink.'_'.$togglink;	$chglink .= '&changes='.$displinkA.'_'.$displinkB.'_'.$marklink.'_'.$togglink;

if ($newpostsflag) {	if ($newpostsflag) {
$chglink .= '&previous='.$prevread;	$chglink .= '&previous='.$prevread;
}	}
$chglink.=&group_args($group);	$chglink.=&group_args($group);

Line 363 sub list_discussion {	Line 374 sub list_discussion {
# Print the discusssion	# Print the discusssion
if ($outputtarget eq 'tex') {	if ($outputtarget eq 'tex') {
$discussion.='<tex>{\tiny \vskip 0 mm\noindent\makebox[2 cm][b]{\hrulefill}'.	$discussion.='<tex>{\tiny \vskip 0 mm\noindent\makebox[2 cm][b]{\hrulefill}'.
'\textbf{DISCUSSIONS}\makebox[2 cm][b]{\hrulefill}'.	'\textbf{'.$lt{'discussions'}.'}\makebox[2 cm][b]{\hrulefill}\vskip 0 mm'.
'\vskip 0 mm\noindent\textbf{'.$lt{'cuse'}.'}:\vskip 0 mm'.
'\noindent\textbf{'.$lt{'disa'}.'}: \textit{'.$currdisp.'}\vskip 0 mm'.	'\noindent\textbf{'.$lt{'disa'}.'}: \textit{'.$currdisp.'}\vskip 0 mm'.
'\noindent\textbf{'.$lt{'npce'}.'}: \textit{'.$currmark.'}}</tex>';	'\noindent\textbf{'.$lt{'npce'}.'}: \textit{'.$currmark.'}}</tex>';
} elsif ($outputtarget eq 'export') {	} elsif ($outputtarget eq 'export') {
Line 398 sub list_discussion {	Line 408 sub list_discussion {
my $manifestfilename = $tempexport.$manifest;	my $manifestfilename = $tempexport.$manifest;
if ($manifestfile = Apache::File->new('>'.$manifestfilename)) {	if ($manifestfile = Apache::File->new('>'.$manifestfilename)) {
$manifestok=1;	$manifestok=1;
print $manifestfile qq\|	print $manifestfile qq\|<?xml version="1.0" encoding="UTF-8"?>
<?xml version="1.0" encoding="UTF-8"?>
<manifest xmlns="http://www.imsglobal.org/xsd/imscp_v1p1" xmlns:imsmd="http://www.imsglobal.org/xsd/imsmd_v1p2"	<manifest xmlns="http://www.imsglobal.org/xsd/imscp_v1p1" xmlns:imsmd="http://www.imsglobal.org/xsd/imsmd_v1p2"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"	xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
identifier="MANIFEST-$ressymb" xsi:schemaLocation="http://www.imsglobal.org/xsd/imscp_v1p1	identifier="MANIFEST-$ressymb" xsi:schemaLocation="http://www.imsglobal.org/xsd/imscp_v1p1
Line 412 imscp_v1p1.xsd http://www.imsglobal.org/	Line 421 imscp_v1p1.xsd http://www.imsglobal.org/
}	}
} else {	} else {
my $colspan=$maxdepth+1;	my $colspan=$maxdepth+1;
$discussion.= qq\|	$discussion.= &Apache::lonhtmlcommon::scripttag(qq\|
<script>
function verifydelete (caller,symb,idx,newflag,previous,groupparm) {	function verifydelete (caller,symb,idx,newflag,previous,groupparm) {
var symbparm = symb+':::'+idx	var symbparm = symb+':::'+idx
var prevparm = ""	var prevparm = ""
if (newflag == 1) {	if (newflag == 1) {
prevparm = "&previous="+previous	prevparm = "&previous="+previous
}	}
if (caller == 'studentdelete') {	if (caller == 'studentdelete') {
if (confirm("$lt{'aysu'}\\n$lt{'dpwn'},\\n$lt{'bwco'}")) {	if (confirm("$lt{'aysu'}\\n$lt{'dpwn'},\\n$lt{'bwco'}")) {
Line 432 imscp_v1p1.xsd http://www.imsglobal.org/	Line 440 imscp_v1p1.xsd http://www.imsglobal.org/
}	}
}	}
}	}
</script>	\|);
\|;	$discussion.='<form name="readchoices" method="post" action="/adm/feedback?chgreads='.$ressymb.'" >'.
$discussion.='<form name="readchoices" method="post" action="/adm/feedback?chgreads='.$ressymb.'" ><table bgcolor="#AAAAAA" cellpadding="2" cellspacing="2" border="0">';	"\n".'<table 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);
Line 445 imscp_v1p1.xsd http://www.imsglobal.org/	Line 453 imscp_v1p1.xsd http://www.imsglobal.org/
$discussion.="\n".'<tr><td bgcolor="#CCCCCC" colspan="'.$colspan.'">'.	$discussion.="\n".'<tr><td bgcolor="#CCCCCC" colspan="'.$colspan.'">'.
'<a href="/adm/feedback?allposts=1&symb='.$escsymb;	'<a href="/adm/feedback?allposts=1&symb='.$escsymb;
if ($newpostsflag) {	if ($newpostsflag) {
$discussion .= '&previous='.$prevread;	$discussion .= '&previous='.$prevread;
}	}
$discussion .= &group_args($group);	$discussion .= &group_args($group);
$discussion .= '">'.&mt('Show all posts').'</a> '.&mt('to display').' '.	$discussion .= '">'.&mt('Show all posts').'</a> '.&mt('to display').' '.
Line 510 imscp_v1p1.xsd http://www.imsglobal.org/	Line 518 imscp_v1p1.xsd http://www.imsglobal.org/
$threadinsert='<br /><strong>Reply: '.$thisdepth.'</strong>';	$threadinsert='<br /><strong>Reply: '.$thisdepth.'</strong>';
}	}
$discussionitems[$alldiscussion{$post}]=~s/<\/td><td([^>]*)>/$threadinsert<\/td><td TeXwidth="65 mm" align="left">/;	$discussionitems[$alldiscussion{$post}]=~s/<\/td><td([^>]*)>/$threadinsert<\/td><td TeXwidth="65 mm" align="left">/;
$discussionitems[$alldiscussion{$post}]=~s/<a([^>]+)>(Edit\|Hide\|Delete\|Reply\|Submissions)<\/a>//g;
$discussionitems[$alldiscussion{$post}]=~s/(<b>\|<\/b>\|<\/a>\|<a([^>]+)>)//g;	$discussionitems[$alldiscussion{$post}]=~s/(<b>\|<\/b>\|<\/a>\|<a([^>]+)>)//g;

$discussionitems[$alldiscussion{$post}]='<tex>\vskip 0 mm\noindent\makebox[2 cm][b]{\hrulefill}</tex>'.$discussionitems[$alldiscussion{$post}];	$discussionitems[$alldiscussion{$post}]='<tex>\vskip 0 mm\noindent\makebox[2 cm][b]{\hrulefill}</tex>'.$discussionitems[$alldiscussion{$post}];
Line 525 imscp_v1p1.xsd http://www.imsglobal.org/	Line 532 imscp_v1p1.xsd http://www.imsglobal.org/
print $manifestfile "\n".	print $manifestfile "\n".
'<item identifier="ITEM-'.$ressymb.'-'.$alldiscussion{$post}.'" isvisible="'.	'<item identifier="ITEM-'.$ressymb.'-'.$alldiscussion{$post}.'" isvisible="'.
$imsitems{$alldiscussion{$post}}{'isvisible'}.'" identifieref="RES-'.$ressymb.'-'.$alldiscussion{$post}.'">'.	$imsitems{$alldiscussion{$post}}{'isvisible'}.'" identifieref="RES-'.$ressymb.'-'.$alldiscussion{$post}.'">'.
'<title>'.$imsitems{$alldiscussion{$post}}{'title'}.'</title>';	'<title>'.$imsitems{$alldiscussion{$post}}{'title'}.'</title></item>';
$imsresources .= "\n".	$imsresources .= "\n".
'<resource identifier="RES-'.$ressymb.'-'.$alldiscussion{$post}.'" type="webcontent" href="'.$postfilename.'">'."\n".	'<resource identifier="RES-'.$ressymb.'-'.$alldiscussion{$post}.'" type="webcontent" href="'.$postfilename.'">'."\n".
'<file href="'.$postfilename.'">'."\n".	'<file href="'.$postfilename.'">'."\n".
$imsfiles{$alldiscussion{$post}}{$imsitems{$alldiscussion{$post}}{'currversion'}}."\n".	$imsfiles{$alldiscussion{$post}}{$imsitems{$alldiscussion{$post}}{'currversion'}}.'</file>'."\n".
'</resource>';	'</resource>';
}	}
my $postingfile;	my $postingfile;
Line 547 imscp_v1p1.xsd http://www.imsglobal.org/	Line 554 imscp_v1p1.xsd http://www.imsglobal.org/
}	}
$copyresult.=&replicate_attachments($imsitems{$alldiscussion{$post}}{'allattachments'},$tempexport);	$copyresult.=&replicate_attachments($imsitems{$alldiscussion{$post}}{'allattachments'},$tempexport);
} else {	} else {
$discussion.='<td bgcolor="'.$bgcols[$newitem{$alldiscussion{$post}}].	$discussion.='<td class="'.$bgcols[$newitem{$alldiscussion{$post}}].
'" colspan="'.$colspan.'">'. $discussionitems[$alldiscussion{$post}].	'" colspan="'.$colspan.'">'. $discussionitems[$alldiscussion{$post}].
'</td></tr>';	'</td></tr>';
}	}
Line 557 imscp_v1p1.xsd http://www.imsglobal.org/	Line 564 imscp_v1p1.xsd http://www.imsglobal.org/
my $colspan=$maxdepth+1;	my $colspan=$maxdepth+1;
$discussion .= <<END;	$discussion .= <<END;
<tr bgcolor="#FFFFFF">	<tr bgcolor="#FFFFFF">
<td colspan="$colspan" valign="top">	<td colspan="$colspan" class="LC_disc_action_links_bar">
<table border="0" bgcolor="#FFFFFF" width="100%" cellspacing="2" cellpadding="2">	<table class="LC_disc_action_table">
<tr>	<tr>
<td align="left">	<td align="left">
<table border="0" cellpadding="0" cellspacing="4">	<table border="0" cellpadding="0" cellspacing="4">
<tr>	<tr>
<td>	<td>
<font size="-1"><b>$lt{'cuse'}</b>:</td>	<font size="-1"><b>$lt{'cuse'}</b>:</font></td>
<td> </td>	<td> </td>
<td><font size="-1">	<td><font size="-1">
END	END
Line 586 END	Line 593 END
</font></td>	</font></td>
<td> </td>	<td> </td>
<td align="left">	<td align="left">
<font size="-1"><b><a href="$chglink">$lt{'chgt'}</a>?</font></b>	<font size="-1"><b><a href="$chglink">$lt{'chgt'}</a>?</b></font>
</td>	</td>
</tr>	</tr>
</table>	</table>
Line 596 END	Line 603 END
my %sort_types = ();	my %sort_types = ();
my %role_types = ();	my %role_types = ();
my %status_types = ();	my %status_types = ();
&sort_filter_names(\%sort_types,\%role_types,\%status_types);	&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><font size="-1"><b>'.&mt('Sorted by').'</b>: '.$sort_types{$sortposts}.'<br />';
if (defined($env{'form.totposters'})) {	if (defined($env{'form.totposters'})) {
Line 625 END	Line 632 END
$filterchoice .= ' '.$role_types{$role}.',';	$filterchoice .= ' '.$role_types{$role}.',';
}	}
$filterchoice =~ s/,$//;	$filterchoice =~ s/,$//;
$filterchoice .= '<br /> &nbsp    &nbsp ';	$filterchoice .= '<br />'.(' ' x8);
}	}
if ($statusfilter) {	if ($statusfilter) {
$filterchoice .= '<i>'.&mt('status').'</i>- '.$status_types{$statusfilter};	$filterchoice .= '<i>'.&mt('status').'</i>- '.$status_types{$statusfilter};
Line 637 END	Line 644 END
}	}
}	}
if ($dischash{$toggkey}) {	if ($dischash{$toggkey}) {
my $storebutton = &mt('Store read/unread changes');	my $storebutton = &mt('Save read/unread changes');
$discussion.='<td align="right">'.	$discussion.='<td align="right">'.
'<input type="hidden" name="discsymb" value="'.$ressymb.'">'."\n".	'<input type="hidden" name="discsymb" value="'.$ressymb.'" />'."\n".
'<input type="button" name="readoptions" value="'.$storebutton.'"'.	'<input type="button" name="readoptions" value="'.$storebutton.'"'.
' onClick="this.form.submit();">'."\n".	' onclick="this.form.submit();" />'."\n".
'</td>';	'</td>';
}	}
$discussion .= (<<END);	$discussion .= (<<END);
Line 715 END	Line 722 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') {
$discussion .=	$discussion .=
&postingform_display($mode,$ressymb,$now,$subject,	&postingform_display($mode,$ressymb,$now,$subject,
$comment,$outputtarget,$attachnum,	$comment,$outputtarget,$attachnum,
$currnewattach,$currdelold,	$currnewattach,$currdelold,
$group);	$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);	$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.='<table class="LC_feedback_link"><tr><td>';	$discussion.= '<span class="LC_feedback_link">'.
	&mt('This discussion is closed.').'</span>';
	}
	} elsif ($outputtarget ne 'tex') {
	$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,$target);
$discussion.= &send_feedback_link($ressymb,$target).	if ($env{'request.role.adv'}) {
'<br />';	my $close = &Apache::lonnet::EXT('resource.0.discussend',$ressymb);
	if (defined($close) && $close ne '' && $close < time) {
	$discussion .= ' '.&mt('(Closed for [_1] roles)',
	&Apache::lonnet::plaintext('st',$crstype));
	}
}	}
}	} else {
if ($outputtarget ne 'tex') {	$discussion.= '<span class="LC_feedback_link">'.&mt('This discussion is closed.').'</span>';
$discussion.= &send_message_link($ressymb);
}	}
$discussion.='</td></tr></table>';	$discussion.= &send_message_link($ressymb).'</div>';
}	}
return $discussion;	return $discussion;
}	}
Line 755 sub send_feedback_link {	Line 776 sub send_feedback_link {
my $output = '<span class="LC_feedback_link">'.	my $output = '<span class="LC_feedback_link">'.
' <a href="/adm/feedback?replydisc='.	' <a href="/adm/feedback?replydisc='.
&escape($ressymb).':::" '.$target.'>'.	&escape($ressymb).':::" '.$target.'>'.
'<img alt="" src="'.	'<img alt="" class="LC_noBorder" src="'.
&Apache::loncommon::lonhttpdurl('/adm/lonMisc/chat.gif').	&Apache::loncommon::lonhttpdurl('/adm/lonMisc/chat.gif').
'" border="0" />'.&mt('Post Discussion').'</a></span>';	'" border="0" /><span class="LC_menubuttons_inline_text">'.&mt('Post Discussion').'</span></a></span>';
return $output;	return $output;
}	}

sub send_message_link {	sub send_message_link {
my ($ressymb) = @_;	my ($ressymb) = @_;
my $output = '<span class="LC_feedback_link">'.	my $output = '<span class="LC_message_link">'.
' <a href="/adm/feedback?sendmessageonly=1&symb='.	' <a href="/adm/feedback?sendmessageonly=1&symb='.
&escape($ressymb).'"><img alt="" src="'.	&escape($ressymb).'"><img alt="" class="LC_noBorder" src="'.
&Apache::loncommon::lonhttpdurl('/adm/lonMisc/feedback.gif').	&Apache::loncommon::lonhttpdurl('/res/adm/pages/feedback.png').
'" border="0" />'.&mt('Send Message').'</a></span>';	'" border="0" /><span class="LC_menubuttons_inline_text">'.&mt('Send Feedback').'</span></a></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 bgcolor="#DDDDBB" colspan="'.$colspan.'">'.	my $discussion = '<tr><td class="LC_disc_action_links_bar" colspan="'.$colspan.'">'.
'<table border="0" width="100%" bgcolor="#DDDDBB"><tr>';	'<table width="100%" class="LC_disc_action_table"><tr>'.
	'<td class="LC_disc_action_left">';
my $escsymb=&escape($ressymb);	my $escsymb=&escape($ressymb);
if ($visible>2) {	if ($visible) {
$discussion .= '<td align="left">'.	$discussion .= '<a href="/adm/feedback?cmd=threadedon&symb='.$escsymb;
'<a href="/adm/feedback?cmd=threadedon&symb='.$escsymb;
if ($newpostsflag) {	if ($newpostsflag) {
$discussion .= '&previous='.$prevread;	$discussion .= '&previous='.$prevread;
}	}
$discussion .= &group_args($group);	$discussion .= &group_args($group);
$discussion .='">'.&mt('Threaded View').'</a>  '.	$discussion .='">'.&mt('Threaded View').'</a>  '.
'<a href="/adm/feedback?cmd=threadedoff&symb='.$escsymb;	'<a href="/adm/feedback?cmd=threadedoff&symb='.$escsymb;
if ($newpostsflag) {	if ($newpostsflag) {
$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;	<a href="/adm/feedback?cmd=sortfilter&symb='.$escsymb;
if ($newpostsflag) {	if ($newpostsflag) {
$discussion .= '&previous='.$prevread;	$discussion .= '&previous='.$prevread;
}	}
$discussion .= &group_args($group);	$discussion .= &group_args($group);
$discussion .='">'.&mt('Sorting/Filtering options').'</a> &nbsp';	$discussion .='">'.&mt('Sorting/Filtering options').'</a>'.(' ' x2);
} else {
$discussion .= '<td align="left">';
}	}
$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>  </td>';
if ($newpostsflag) {	if ($newpostsflag) {
if (!$markondisp) {	if (!$markondisp) {
$discussion .='<td align="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('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>';	$discussion .= '">'.&mt('Mark NEW posts no longer new').'</a></td>';
} else {	} else {
$discussion .= '<td> </td>';	$discussion .= '<td> </td>';
}	}
Line 826 sub action_links_bar {	Line 845 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) = @_;	$currnewattach,$currdelold,$group,$crstype) = @_;
my $newattachmsg;	my $newattachmsg;
my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
'note' => 'Note: in anonymous discussion, your name is visible only to course faculty',	'note' => 'Note: in anonymous discussion, your name is visible only to course faculty',
Line 835 sub postingform_display {	Line 854 sub postingform_display {
'poan' => 'Post Anonymous Discussion',	'poan' => 'Post Anonymous Discussion',
'newa' => 'New attachments',	'newa' => 'New attachments',
);	);
my $postingform = (<<ENDDISCUSS);	if ($crstype eq 'Community') {
	$lt{'note'} = &mt('Note: in anonymous discussion, your name is visible only to community facilitators');
	}
	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" />
Line 843 sub postingform_display {	Line 875 sub postingform_display {
<br /><a name="newpost"></a>	<br /><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 /><br />
<textarea name="comment" cols="80" rows="14" wrap="hard">$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 862 ENDDISCUSS	Line 894 ENDDISCUSS
}	}
my $blockblog = &Apache::loncommon::blocking_status('blogs');	my $blockblog = &Apache::loncommon::blocking_status('blogs');
if (!$blockblog) {	if (!$blockblog) {
$postingform .= &add_blog_checkbox();	$postingform .= &add_blog_checkbox($crstype);
}	}
$postingform .= "</form>\n";	$postingform .= "</form>\n";
if ($outputtarget ne 'tex') {	$postingform .= &generate_attachments_button('',$attachnum,$ressymb,
$postingform .= &generate_attachments_button('',$attachnum,$ressymb,
$now,$currnewattach,	$now,$currnewattach,
$currdelold,'',$mode,	$currdelold,'',$mode,
$blockblog);	$blockblog);
if ((ref($currnewattach) eq 'ARRAY') && (@{$currnewattach} > 0)) {	if ((ref($currnewattach) eq 'ARRAY') && (@{$currnewattach} > 0)) {
$newattachmsg = '<br /><b>'.$lt{'newa'}.'</b><br />';	$newattachmsg = '<br /><b>'.$lt{'newa'}.'</b><br />';
if (@{$currnewattach} > 1) {	if (@{$currnewattach} > 1) {
$newattachmsg .= '<ol>';	$newattachmsg .= '<ol>';
foreach my $item (@{$currnewattach}) {	foreach my $item (@{$currnewattach}) {
$item =~ m#.*/([^/]+)$#;	$item =~ m#.*/([^/]+)$#;
$newattachmsg .= '<li><a href="'.$item.'">'.$1.'</a></li>'."\n";	$newattachmsg .= '<li><a href="'.$item.'">'.$1.'</a></li>'."\n";
}	}
$newattachmsg .= '</ol>'."\n";	$newattachmsg .= '</ol>'."\n";
} else {	} else {
$$currnewattach[0] =~ m#.*/([^/]+)$#;	$$currnewattach[0] =~ m#.*/([^/]+)$#;
$newattachmsg .= '<a href="'.$$currnewattach[0].'">'.$1.'</a><br />'."\n";	$newattachmsg .= '<a href="'.$$currnewattach[0].'">'.$1.'</a><br />'."\n";
}	}
}
$postingform .= $newattachmsg;
$postingform .= &generate_preview_button();
}	}
	$postingform .= $newattachmsg;
	$postingform .= &generate_preview_button();
return $postingform;	return $postingform;
}	}

Line 901 sub build_posting_display {	Line 931 sub build_posting_display {
$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 $see_anonymous =
	&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;
}	}
	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));
	}
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 917 sub build_posting_display {	Line 963 sub build_posting_display {
}	}
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'});
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 947 sub build_posting_display {	Line 993 sub build_posting_display {
} else {	} else {
$$replies[$$depth[$idx]]=1;	$$replies[$$depth[$idx]]=1;
}	}
unless ((($hidden) && (!$seeid)) \|\| ($deleted)) {	unless ((($hiddens{$idx}) && (!$seeid)) \|\| ($deletions{$idx})) {
$$visible++;	$$visible++;
if ($contrib{$idx.':history'}) {	if ($contrib{$idx.':history'}) {
if ($contrib{$idx.':history'} =~ /:/) {	if ($contrib{$idx.':history'} =~ /:/) {
Line 981 sub build_posting_display {	Line 1027 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 1001 sub build_posting_display {	Line 1047 sub build_posting_display {
@{$$subjectsort{$subject}} = ("$idx");	@{$$subjectsort{$subject}} = ("$idx");
}	}
}	}
if ((!$contrib{$idx.':anonymous'}) \|\| (&Apache::lonnet::allowed('rin',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')))) {	if (!$contrib{$idx.':anonymous'} \|\| $see_anonymous) {
$sender=&Apache::loncommon::aboutmewrapper(	$sender=&Apache::loncommon::aboutmewrapper(
$plainname,	$plainname,
$contrib{$idx.':sendername'},	$contrib{$idx.':sendername'},
$contrib{$idx.':senderdomain'}).' ('.	$contrib{$idx.':senderdomain'}).' ('.
$contrib{$idx.':sendername'}.' at '.	$contrib{$idx.':sendername'}.':'.
$contrib{$idx.':senderdomain'}.')';	$contrib{$idx.':senderdomain'}.')';
	$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> '.
$screenname;	$screenname;
}	}
$sender.=&Apache::loncommon::student_image_tag($contrib{$idx.':senderdomain'},$contrib{$idx.':sendername'});	if ($see_anonymous) {
	$sender.=&Apache::loncommon::student_image_tag($contrib{$idx.':senderdomain'},$contrib{$idx.':sendername'});
	}
# Set up for sorting by domain, then username	# Set up for sorting by domain, then username
unless (defined($$usernamesort{$contrib{$idx.':senderdomain'}})) {	unless (defined($$usernamesort{$contrib{$idx.':senderdomain'}})) {
%{$$usernamesort{$contrib{$idx.':senderdomain'}}} = ();	%{$$usernamesort{$contrib{$idx.':senderdomain'}}} = ();
Line 1042 sub build_posting_display {	Line 1091 sub build_posting_display {
} else {	} else {
@{$$namesort{$lastname}{$firstname}} = ("$idx");	@{$$namesort{$lastname}{$firstname}} = ("$idx");
}	}
if (&editing_allowed($escsymb.':::'.$idx,$group)) {	if ($outputtarget ne 'tex') {
if (($env{'user.domain'} eq $contrib{$idx.':senderdomain'}) && ($env{'user.name'} eq $contrib{$idx.':sendername'})) {	if (&editing_allowed($escsymb.':::'.$idx,$group)) {
$sender.=' <a href="/adm/feedback?editdisc='.	if (($env{'user.domain'} eq $contrib{$idx.':senderdomain'}) && ($env{'user.name'} eq $contrib{$idx.':sendername'})) {
$escsymb.':::'.$idx;	$sender.=' <a href="/adm/feedback?editdisc='.
if ($$newpostsflag) {	$escsymb.':::'.$idx;
$sender .= '&previous='.$prevread;	if ($$newpostsflag) {
}	$sender .= '&previous='.$prevread;
$sender .= &group_args($group);	}
$sender .= '" '.$target.'>'.&mt('Edit').'</a>';	$sender .= &group_args($group);
	$sender .= '" '.$target.'>'.&mt('Edit').'</a>';

unless ($seeid) {	unless ($seeid) {
my $grpargs = &group_args($group);	my $grpargs = &group_args($group);
$sender.=" <a href=\"javascript:verifydelete('studentdelete','$escsymb','$idx','$$newpostsflag','$prevread','$grpargs')";	$sender.=" <a href=\"javascript:verifydelete('studentdelete','$escsymb','$idx','$$newpostsflag','$prevread','$grpargs')";
$sender .= '">'.&mt('Delete').'</a>';	$sender .= '">'.&mt('Delete').'</a>';
	}
}	}
}	}
}	if ($seeid) {
if ($seeid) {	if ($hiddens{$idx}) {
if ($hidden) {	unless ($studenthidden) {
unless ($studenthidden) {	$sender.=' <a href="/adm/feedback?unhide='.
$sender.=' <a href="/adm/feedback?unhide='.	$escsymb.':::'.$idx;
$escsymb.':::'.$idx;	if ($$newpostsflag) {
	$sender .= '&previous='.$prevread;
	}
	$sender .= '">'.&mt('Make Visible').'</a>';
	}
	} else {
	$sender.=' <a href="/adm/feedback?hide='.
	$escsymb.':::'.$idx;
if ($$newpostsflag) {	if ($$newpostsflag) {
$sender .= '&previous='.$prevread;	$sender .= '&previous='.$prevread;
}	}
$sender .= '">'.&mt('Make Visible').'</a>';	$sender .= &group_args($group);
}	$sender .= '">'.&mt('Hide').'</a>';
} else {	}
$sender.=' <a href="/adm/feedback?hide='.	my $grpargs = &group_args($group);
$escsymb.':::'.$idx;	$sender.=
if ($$newpostsflag) {	" <a href=\"javascript:verifydelete('seeiddelete','$escsymb','$idx','$$newpostsflag','$prevread','$grpargs')\">";
$sender .= '&previous='.$prevread;	$sender .= &mt('Delete').'</a>';
}	}
$sender .= &group_args($group);
$sender .= '">'.&mt('Hide').'</a>';
}
my $grpargs = &group_args($group);
$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 {
$sender='<i>'.$$anonhash{$key}.'</i>';	$sender='<i>'.$$anonhash{$key}.'</i>';
}	}
	$sender = '<b>'.$sender.'</b>';
# Set up for sorting by domain, then username for anonymous	# Set up for sorting by domain, then username for anonymous
unless (defined($$usernamesort{'__anon'})) {	unless (defined($$usernamesort{'__anon'})) {
%{$$usernamesort{'__anon'}} = ();	%{$$usernamesort{'__anon'}} = ();
Line 1108 sub build_posting_display {	Line 1160 sub build_posting_display {
@{$$namesort{'__anon'}{'__anon'}} = ("$idx");	@{$$namesort{'__anon'}{'__anon'}} = ("$idx");
}	}
}	}
if (&discussion_open($status)) {	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.=' <a href="/adm/feedback?replydisc='.
if ($$newpostsflag) {	$escsymb.':::'.$idx;
$sender .= '&previous='.$prevread;	if ($$newpostsflag) {
}	$sender .= '&previous='.$prevread;
$sender .= &group_args($group);	}
$sender .= '" '.$target.'>'.&mt('Reply').'</a>';	$sender .= &group_args($group);
} elsif (&Apache::lonnet::allowed('pch',	$sender .= '" '.$target.'>'.&mt('Reply').'</a>';
$env{'request.course.id'}.	} elsif (&Apache::lonnet::allowed('pch',
($env{'request.course.sec'}?'/'.	$env{'request.course.id'}.
$env{'request.course.sec'}:''))) {	($env{'request.course.sec'}?'/'.
$sender.=' <a href="/adm/feedback?replydisc='.	$env{'request.course.sec'}:''))) {
$escsymb.':::'.$idx;	$sender.=' <a href="/adm/feedback?replydisc='.
if ($$newpostsflag) {	$escsymb.':::'.$idx;
$sender .= '&previous='.$prevread;	if ($$newpostsflag) {
	$sender .= '&previous='.$prevread;
	}
	$sender .= '" '.$target.'>'.&mt('Reply').'</a>';
}	}
$sender .= '" '.$target.'>'.&mt('Reply').'</a>';
}	}
}	if ($viewgrades) {
if ($viewgrades) {	$vgrlink=&Apache::loncommon::submlink(&mt('Submissions'),
$vgrlink=&Apache::loncommon::submlink('Submissions',	$contrib{$idx.':sendername'},$contrib{$idx.':senderdomain'},$ressymb);
$contrib{$idx.':sendername'},$contrib{$idx.':senderdomain'},$ressymb);	}
}	if ($$dischash{$readkey}=~/\.$idx\./) {
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 1154 sub build_posting_display {	Line 1208 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 1162 sub build_posting_display {	Line 1216 sub build_posting_display {
$$imsitems{$idx}{'attach'}=$attachtxt{$numoldver};	$$imsitems{$idx}{'attach'}=$attachtxt{$numoldver};
$$imsitems{$idx}{'timestamp'}=$contrib{$idx.':timestamp'};	$$imsitems{$idx}{'timestamp'}=$contrib{$idx.':timestamp'};
$$imsitems{$idx}{'sender'}=$plainname.' ('.	$$imsitems{$idx}{'sender'}=$plainname.' ('.
$contrib{$idx.':sendername'}.' at '.	$contrib{$idx.':sendername'}.':'.
$contrib{$idx.':senderdomain'}.')';	$contrib{$idx.':senderdomain'}.')';
$$imsitems{$idx}{'isanonymous'}='false';	$$imsitems{$idx}{'isanonymous'}='false';
if ($contrib{$idx.':anonymous'}) {	if ($contrib{$idx.':anonymous'}) {
Line 1235 sub build_posting_display {	Line 1289 sub build_posting_display {
if ($prevread > 0 && $prevread <= $posttime) {	if ($prevread > 0 && $prevread <= $posttime) {
$$newitem{$idx} = 1;	$$newitem{$idx} = 1;
$$discussionitems[$idx] .= '	$$discussionitems[$idx] .= '
<p><table border="0" width="100%">	<table border="0" width="100%">
<tr><td align="left"><font color="#FF0000"><b>NEW</b></font></td>';	<tr><td align="left"><font color="#FF0000"><b>'.&mt('NEW').' </b></font></td>';
} else {	} else {
$$newitem{$idx} = 0;	$$newitem{$idx} = 0;
$$discussionitems[$idx] .= '	$$discussionitems[$idx] .= '
<p><table border="0" width="100%">	<table border="0" width="100%">
<tr><td align="left"> </td>';	<tr><td align="left"> </td>';
}	}
$$discussionitems[$idx] .= '<td align ="left">  '.	$$discussionitems[$idx] .= '<td align="left">  '.
'<b>'.$subject.'</b>  '.	'<b>'.$subject.'</b>  '.
$sender.'</b> '.$vgrlink.' ('.	$sender.' '.$vgrlink.' ('.
&Apache::lonlocal::locallocaltime($posttime).')</td>';	&Apache::lonlocal::locallocaltime($posttime).')</td>';
if ($$dischash{$toggkey}) {	if ($$dischash{$toggkey}) {
$$discussionitems[$idx].='<td align="right">  '.	$$discussionitems[$idx].='<td align="right">  '.
$ctlink.'</td>';	$ctlink.'</td>';
}	}
$$discussionitems[$idx].= '</tr></table><blockquote>'.	$$discussionitems[$idx].= '</tr></table><blockquote>'.
$message.'</blockquote></p>';	$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.');
Line 1359 sub get_post_contents {	Line 1413 sub get_post_contents {
$$plainname,	$$plainname,
$$contrib{$idx.':sendername'},	$$contrib{$idx.':sendername'},
$$contrib{$idx.':senderdomain'}).' ('.	$$contrib{$idx.':senderdomain'}).' ('.
$$contrib{$idx.':sendername'}.' at '.	$$contrib{$idx.':sendername'}.':'.
$$contrib{$idx.':senderdomain'}.')';	$$contrib{$idx.':senderdomain'}.')';
my $attachmenturls = $$contrib{$idx.':attachmenturl'};	my $attachmenturls = $$contrib{$idx.':attachmenturl'};
my @postversions = ();	my @postversions = ();
Line 1387 sub get_post_contents {	Line 1441 sub get_post_contents {
my ($timesent,$attachmsg);	my ($timesent,$attachmsg);
my %currattach = ();	my %currattach = ();
$timesent = &Apache::lonlocal::locallocaltime($postversions[$i]);	$timesent = &Apache::lonlocal::locallocaltime($postversions[$i]);
&newline_to_br(\$messages->{$i});	unless (&contains_block_html($messages->{$i})) {
	&newline_to_br(\$messages->{$i});
	}
$$messages{$i}=&Apache::lontexconvert::msgtexconverted($$messages{$i});	$$messages{$i}=&Apache::lontexconvert::msgtexconverted($$messages{$i});
$$subjects{$i}=~s/\n/\<br \/\>/g;	$$subjects{$i}=~s/\n/\<br \/\>/g;
$$subjects{$i}=&Apache::lontexconvert::msgtexconverted($$subjects{$i});	$$subjects{$i}=&Apache::lontexconvert::msgtexconverted($$subjects{$i});
Line 1401 sub get_post_contents {	Line 1457 sub get_post_contents {
foreach my $key (sort(keys(%currattach))) {	foreach my $key (sort(keys(%currattach))) {
if ($$allattachments{$key}{'filename'} =~ m-^/uploaded/([^/]+/[^/]+)(/feedback)?(/?\d*)/([^/]+)$-) {	if ($$allattachments{$key}{'filename'} =~ m-^/uploaded/([^/]+/[^/]+)(/feedback)?(/?\d*)/([^/]+)$-) {
my $fname = $1.$3.'/'.$4;	my $fname = $1.$3.'/'.$4;
$$imsfiles{$idx}{$i} .= '<file href="'.$fname.'">'."\n";	$$imsfiles{$idx}{$i} .= '<file href="'.$fname.'" />'."\n";
$$attachtxt{$i}.= '<a href="'.$fname.'">'.$4.'</a><br />';	$$attachtxt{$i}.= '<a href="'.$fname.'">'.$4.'</a><br />';
}	}
}	}
Line 1468 sub replicate_attachments {	Line 1524 sub replicate_attachments {
}	}

sub mail_screen {	sub mail_screen {
my ($r,$feedurl,$options,$caller_symb) = @_;	my ($r,$feedurl,$options,$caller_symb,$attachmaxtext) = @_;
if (exists($env{'form.origpage'})) {	if (exists($env{'form.origpage'})) {
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['subject','comment','currnewattach','addnewattach','deloldattach','delnewattach','timestamp','idx','anondiscuss','discuss','blog','group','ref']);	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['subject','comment','currnewattach','addnewattach','deloldattach','delnewattach','timestamp','idx','anondiscuss','discuss','blog','group','ref']);
}	}

my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
'plch' => 'Please check at least one of the following feedback types:',
'myqu' => 'My question/comment/feedback:',	'myqu' => 'My question/comment/feedback:',
'title' => 'Title',	'title' => 'Title',
'reta' => 'Retained attachments',	'reta' => 'Retained attachments',
'atta' => 'Attachment (128 KB max size)',	'atta' => 'Attachment',
);	);
my $restitle = &get_resource_title($caller_symb,$feedurl);	my $restitle = &get_resource_title($caller_symb,$feedurl);
my $quote='';	my $quote='';
Line 1614 END	Line 1669 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();	my $latexHelp=&Apache::loncommon::helpLatexCheatsheet(undef,undef,1);
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 1656 END	Line 1711 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
	my $brcrum = [{'href' => '',
	'text' => 'Resource Feedback and Discussion'}];

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

if ($quote ne '') {	if ($quote ne '') {
&newline_to_br(\$quote);	$quote = &HTML::Entities::decode($quote);
	unless (&contains_block_html($quote)) {
	&newline_to_br(\$quote);
	}
$quote='<blockquote>'.&Apache::lontexconvert::msgtexconverted($quote).'</blockquote>';	$quote='<blockquote>'.&Apache::lontexconvert::msgtexconverted($quote).'</blockquote>';
}	}

Line 1680 END	Line 1754 END
END	END
} elsif ($env{'form.editdisc'}) {	} elsif ($env{'form.editdisc'}) {
$r->print(<<END);	$r->print(<<END);
<input type="hidden" name="editdisc" value ="$env{'form.editdisc'}" />	<input type="hidden" name="editdisc" value="$env{'form.editdisc'}" />
<input type="hidden" name="parentmsg" value ="$parentmsg" />	<input type="hidden" name="parentmsg" value="$parentmsg" />
END	END
}	}
$r->print(<<END);	$r->print(<<END);
$lt{'plch'}
$options<hr />	$options<hr />
$quote	$quote
<p>$lt{'myqu'}</p>	<p>$lt{'myqu'}
	$textareaheader
	</p>
<p>	<p>
$latexHelp	$latexHelp
	</p>
	<p>
$lt{'title'}: <input type="text" name="subject" size="30" value="$subject" /></p>	$lt{'title'}: <input type="text" name="subject" size="30" value="$subject" /></p>
<p>	<p>
<textarea name="comment" id="comment" cols="60" rows="10" wrap="hard">$comment	<textarea name="comment" id="comment" cols="60" rows="10" $textareaclass>$comment
</textarea></p>	</textarea></p>
<p>
END	END
if ( ($env{'form.editdisc'}) \|\| ($env{'form.replydisc'}) ) {	if ( ($env{'form.editdisc'}) \|\| ($env{'form.replydisc'}) ) {
if ($env{'form.origpage'}) {	if ($env{'form.origpage'}) {
Line 1717 END	Line 1793 END
}	}
} else {	} else {
$r->print(<<END);	$r->print(<<END);
$lt{'atta'}: <input type="file" name="attachment" />	<p>
	$lt{'atta'} $attachmaxtext: <input type="file" name="attachment" />
</p>	</p>
END	END
}	}
Line 1730 END	Line 1807 END
$r->print(<<END);	$r->print(<<END);
<p>	<p>
<input type="hidden" name="sendit" value="1" />	<input type="hidden" name="sendit" value="1" />
<input type="button" value="$send" onClick='gosubmit();' />	<input type="button" value="$send" onclick='gosubmit();' />
</p>	</p>
</form>	</form>
END	END
Line 1771 END	Line 1848 END
}	}
}	}
$r->print(&generate_preview_button().	$r->print(&generate_preview_button().
&Apache::lonhtmlcommon::htmlareaselectactive('comment').
&Apache::loncommon::end_page());	&Apache::loncommon::end_page());

}	}
Line 1791 sub print_display_options {	Line 1867 sub print_display_options {
'actn' => 'Action',	'actn' => 'Action',
'deff' => 'Default for all discussions',	'deff' => 'Default for all discussions',
'prca' => 'Preferences can be set for this discussion that determine ....',	'prca' => 'Preferences can be set for this discussion that determine ....',
'whpo' => 'Which posts are displayed when you display this bulletin board or resource, and',	'whpo' => 'Which posts are displayed when you display this discussion board or resource, and',
'unwh' => 'Under what circumstances posts are identified as "NEW", and',	'unwh' => 'Under what circumstances posts are identified as "NEW", and',
'wipa' => 'Whether individual posts can be marked as read/unread',	'wipa' => 'Whether individual posts can be marked as read/unread',
'allposts' => 'All posts',	'allposts' => 'All posts',
'unread' => 'New posts only',	'unread' => 'New posts only',
'unmark' => 'Posts not marked read',	'unmark' => 'Posts not marked read',
'ondisp' => 'Once displayed',	'ondisp' => 'Once displayed',
'onmark' => 'Once marked not NEW ',	'onmark' => 'Once marked not NEW',
'toggon' => 'Shown',	'toggon' => 'Shown',
'toggoff' => 'Not shown',	'toggoff' => 'Not shown',
'disa' => 'Posts displayed?',	'disa' => 'Posts displayed?',
Line 1921 END	Line 1997 END
&Apache::loncommon::end_page();	&Apache::loncommon::end_page();
$r->print(<<END);	$r->print(<<END);
$start_page	$start_page
<form name="modifydisp" method="POST" action="/adm/feedback">	<form name="modifydisp" method="post" action="/adm/feedback">
$lt{'sdpf'}<br/> $lt{'prca'} <ol><li>$lt{'whpo'}</li><li>$lt{'unwh'}</li><li>$lt{'wipa'}</li></ol>	$lt{'sdpf'}<br/> $lt{'prca'} <ol><li>$lt{'whpo'}</li><li>$lt{'unwh'}</li><li>$lt{'wipa'}</li></ol>
<br />	<br />
END	END
Line 1937 END	Line 2013 END
$r->print(<<END);	$r->print(<<END);
<td>$lt{'disa'}</td>	<td>$lt{'disa'}</td>
<td>$lt{$discdisp}</td>	<td>$lt{$discdisp}</td>
<td><label><input type="checkbox" name="discdisp" onClick="discdispChk('0')" /> $lt{'chgt'} "$dispchangeA"</label>	<td><label><input type="checkbox" name="discdisp" onclick="discdispChk('0')" /> $lt{'chgt'} "$dispchangeA"</label>
<br />	<br />
<label><input type="checkbox" name="discdisp" onClick="discdispChk('1')" /> $lt{'chgt'} "$dispchangeB"</label>	<label><input type="checkbox" name="discdisp" onclick="discdispChk('1')" /> $lt{'chgt'} "$dispchangeB"</label>
</td>	</td>
END	END
$r->print(&Apache::loncommon::end_data_table_row());	$r->print(&Apache::loncommon::end_data_table_row());
Line 1954 END	Line 2030 END
$r->print(<<END);	$r->print(<<END);
<td>$lt{'dotm'}</td>	<td>$lt{'dotm'}</td>
<td>$lt{$disctogg}</td>	<td>$lt{$disctogg}</td>
<td><label><input type="checkbox" name="disctogg" onClick="discdispChk('2')" />$lt{'chgt'} "$toggchange"</label></td>	<td><label><input type="checkbox" name="disctogg" onclick="discdispChk('2')" />$lt{'chgt'} "$toggchange"</label></td>
END	END
	my $save = &mt('Save');
$r->print(&Apache::loncommon::end_data_table_row());	$r->print(&Apache::loncommon::end_data_table_row());
$r->print(&Apache::loncommon::end_data_table());	$r->print(&Apache::loncommon::end_data_table());
$r->print(<<END);	$r->print(<<END);
Line 1963 END	Line 2040 END
<br />	<br />
<input type="hidden" name="symb" value="$symb" />	<input type="hidden" name="symb" value="$symb" />
<input type="hidden" name="previous" value="$previous" />	<input type="hidden" name="previous" value="$previous" />
<input type="hidden" name="$dispchgA" value=""/>	<input type="hidden" name="$dispchgA" value="" />
<input type="hidden" name="$dispchgB" value=""/>	<input type="hidden" name="$dispchgB" value="" />
<input type="hidden" name="$markchg" value=""/>	<input type="hidden" name="$markchg" value="" />
<input type="hidden" name="$toggchg" value="" />	<input type="hidden" name="$toggchg" value="" />
<input type="button" name="sub" value="Store Changes" onClick="javascript:setDisp()" />	<input type="button" name="sub" value="$save" onclick="javascript:setDisp()" />
END	END
if (exists($env{'form.group'})) {	if (exists($env{'form.group'})) {
$r->print('<input type="hidden" name="group" value="'.$env{'form.group'}.'" />');	$r->print('<input type="hidden" name="group" value="'.$env{'form.group'}.'" />');
Line 1998 sub print_sortfilter_options {	Line 2075 sub print_sortfilter_options {
my $group_sel = '';	my $group_sel = '';
my $numgroupvis = 5;	my $numgroupvis = 5;
my %sectioncount = &Apache::loncommon::get_sections();	my %sectioncount = &Apache::loncommon::get_sections();
	my @courseroles = qw(st ad ep ta in);
	my $crstype = &Apache::loncommon::course_type();
	my $ccrole = 'cc';
	if ($crstype eq 'Community') {
	$ccrole = 'co';
	}
	push(@courseroles,$ccrole);

if ($env{'request.course.sec'} !~ /^\s*$/) { #Restrict section choice to current section	if ($env{'request.course.sec'} !~ /^\s*$/) { #Restrict section choice to current section
@sections = ('all',$env{'request.course.sec'});	@sections = ('all',$env{'request.course.sec'});
$numvisible = 2;	$numvisible = 2;
Line 2055 sub print_sortfilter_options {	Line 2139 sub print_sortfilter_options {
'spgr' => 'Specific groups',	'spgr' => 'Specific groups',
'psub' => 'Pick specific users (by name)',	'psub' => 'Pick specific users (by name)',
'shal' => 'Show a list of current posters',	'shal' => 'Show a list of current posters',
'stor' => 'Store changes',	'stor' => 'Save changes',
);	);

my %sort_types = ();	my %sort_types = ();
my %role_types = ();	my %role_types = ();
my %status_types = ();	my %status_types = ();
&sort_filter_names(\%sort_types,\%role_types,\%status_types);	&sort_filter_names(\%sort_types,\%role_types,\%status_types,$crstype);

my $js = <<END;	my $js = <<END;
<script type="text/javascript">	<script type="text/javascript">
Line 2108 END	Line 2192 END

$r->print(<<END);	$r->print(<<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 /><br />
<table border="0">	<table border="0">
<tr>	<tr>
<td><b>$lt{'soor'}</b></td>	<th>$lt{'soor'}</th>
<td> </td>	<th> </th>
<td><b>$lt{'sprs'}</b></td>	<th>$lt{'sprs'}</th>
<td> </td>	<th> </th>
<td><b>$lt{'spur'}</b></td>	<th>$lt{'spur'}</th>
<td> </td>	<th> </th>
<td><b>$lt{'spse'}</b></td>	<th>$lt{'spse'}</th>
<td> </td>	<th> </th>
<td><b>$lt{'spgr'}</b></td>	<th>$lt{'spgr'}</th>
<td> </td>	<th> </th>
<td><b>$lt{'psub'}</b></td>	<th>$lt{'psub'}</th>
</tr>	</tr>
<tr>	<tr>
<td align="center" valign="top">	<td align="center" valign="top">
Line 2147 $start_page	Line 2231 $start_page
</td>	</td>
<td> </td>	<td> </td>
<td align="center" valign="top">	<td align="center" valign="top">
<select name="rolefilter" multiple="true" size="5">	<select name="rolefilter" multiple="multiple" size="5">
<option value="all">$role_types{'all'}</option>	<option value="all">$role_types{'all'}</option>
<option value="st">$role_types{'st'}</option>	<option value="st">$role_types{'st'}</option>
<option value="cc">$role_types{'cc'}</option>	<option value="$ccrole">$role_types{$ccrole}</option>
<option value="in">$role_types{'in'}</option>	<option value="in">$role_types{'in'}</option>
<option value="ta">$role_types{'ta'}</option>	<option value="ta">$role_types{'ta'}</option>
<option value="ep">$role_types{'ep'}</option>	<option value="ep">$role_types{'ep'}</option>
	<option value="ad">$role_types{'ad'}</option>
<option value="cr">$role_types{'cr'}</option>	<option value="cr">$role_types{'cr'}</option>
</select>	</select>
</td>	</td>
<td> </td>	<td> </td>
<td align="center" valign="top">	<td align="center" valign="top">
<select name="sectionpick" multiple="true" size="$numvisible">	<select name="sectionpick" multiple="multiple" size="$numvisible">
$section_sel	$section_sel
</select>	</select>
</td>	</td>
<td> </td>	<td> </td>
<td align="center" valign="top">	<td align="center" valign="top">
<select name="grouppick" multiple="true" size="$numvisible">	<select name="grouppick" multiple="multiple" size="$numvisible">
$group_sel	$group_sel
</select>	</select>
</td>	</td>
Line 2177 $start_page	Line 2262 $start_page
<br />	<br />
<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()" />
END	END
if (exists($env{'form.group'})) {	if (exists($env{'form.group'})) {
$r->print('<input type="hidden" name="group" value="'.$env{'form.group'}.'" />');	$r->print('<input type="hidden" name="group" value="'.$env{'form.group'}.'" />');
Line 2300 END	Line 2385 END
<br />	<br />
<input type="hidden" name="sortposts" value="$sortposts" />	<input type="hidden" name="sortposts" value="$sortposts" />
<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>
$end_page	$end_page
END	END
Line 2372 sub fail_redirect {	Line 2457 sub fail_redirect {
my ($r,$feedurl) = @_;	my ($r,$feedurl) = @_;
if ($feedurl=~/^\/adm\//) { $feedurl.='?register=1' };	if ($feedurl=~/^\/adm\//) { $feedurl.='?register=1' };
my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
'sorr' => 'Sorry, no recipients ...',	'sorr' => 'Sorry, no recipients ...',
);	);
my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');	my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');
$r->print(&Apache::loncommon::start_page('Feedback not sent',undef,	$r->print(&Apache::loncommon::start_page('Feedback not sent',undef,
Line 2386 ENDFAILREDIR	Line 2471 ENDFAILREDIR
}	}

sub redirect_back {	sub redirect_back {
my ($r,$feedurl,$typestyle,$sendsomething,$sendposts,$blog,$status,$previous,$sort,$rolefilter,$statusfilter,$sectionpick,$grouppick,$numpicks,$group) = @_;	my ($r,$feedurl,$typestyle,$sendsomething,$sendposts,$blog,$status,$previous,$sort,$rolefilter,$statusfilter,$sectionpick,$grouppick,$numpicks,$group,$toolarge) = @_;
my $sorttag = '';	my $sorttag = '';
my $roletag = '';	my $roletag = '';
my $statustag = '';	my $statustag = '';
Line 2403 sub redirect_back {	Line 2488 sub redirect_back {
if ($previous > 0) {	if ($previous > 0) {
$qrystr = 'previous='.$previous;	$qrystr = 'previous='.$previous;
if ($feedurl =~ /\?register=1/) {	if ($feedurl =~ /\?register=1/) {
$feedurl .= '&'.$qrystr;	$feedurl .= '&'.$qrystr;
} else {	} else {
$feedurl .= '?'.$qrystr;	$feedurl .= '?'.$qrystr;
}	}
Line 2412 sub redirect_back {	Line 2497 sub redirect_back {
if (defined($sort)) {	if (defined($sort)) {
my $sortqry = 'sortposts='.$sort;	my $sortqry = 'sortposts='.$sort;
if (($feedurl =~ /\?register=1/) \|\| ($feedurl =~ /\?previous=/)) {	if (($feedurl =~ /\?register=1/) \|\| ($feedurl =~ /\?previous=/)) {
$feedurl .= '&'.$sortqry;	$feedurl .= '&'.$sortqry;
} else {	} else {
$feedurl .= '?'.$sortqry;	$feedurl .= '?'.$sortqry;
}	}
$sorttag = '<input type="hidden" name="sortposts" value="'.$sort.'" />';	$sorttag = '<input type="hidden" name="sortposts" value="'.$sort.'" />';
if (defined($numpicks)) {	if (defined($numpicks)) {
my $userpickqry = 'totposters='.$numpicks;	my $userpickqry = 'totposters='.$numpicks;
$feedurl .= '&'.$userpickqry;	$feedurl .= '&'.$userpickqry;
$userpicktag = '<input type="hidden" name="totposters" value="'.$numpicks.'" />';	$userpicktag = '<input type="hidden" name="totposters" value="'.$numpicks.'" />';
} else {	} else {
if (ref($sectionpick) eq 'ARRAY') {	if (ref($sectionpick) eq 'ARRAY') {
$feedurl .= '&sectionpick=';	$feedurl .= '&sectionpick=';
$sectag .= '<input type="hidden" name="sectionpick" value="';	$sectag .= '<input type="hidden" name="sectionpick" value="';
foreach my $sec (@{$sectionpick}) {	foreach my $sec (@{$sectionpick}) {
$feedurl .= $sec.',';	$feedurl .= $sec.',';
Line 2433 sub redirect_back {	Line 2518 sub redirect_back {
$sectag =~ s/,$//;	$sectag =~ s/,$//;
$sectag .= '" />';	$sectag .= '" />';
} else {	} else {
$feedurl .= '&sectionpick='.$sectionpick;	$feedurl .= '&sectionpick='.$sectionpick;
$sectag = '<input type="hidden" name="sectionpick" value="'.$sectionpick.'" />';	$sectag = '<input type="hidden" name="sectionpick" value="'.$sectionpick.'" />';
}	}
if (ref($grouppick) eq 'ARRAY') {	if (ref($grouppick) eq 'ARRAY') {
$feedurl .= '&grouppick=';	$feedurl .= '&grouppick=';
$sectag .= '<input type="hidden" name="grouppick" value="';	$sectag .= '<input type="hidden" name="grouppick" value="';
foreach my $grp (@{$grouppick}) {	foreach my $grp (@{$grouppick}) {
$feedurl .= $grp.',';	$feedurl .= $grp.',';
Line 2447 sub redirect_back {	Line 2532 sub redirect_back {
$grptag =~ s/,$//;	$grptag =~ s/,$//;
$grptag .= '" />';	$grptag .= '" />';
} else {	} else {
$feedurl .= '&grouppick='.$grouppick;	$feedurl .= '&grouppick='.$grouppick;
$grptag = '<input type="hidden" name="grouppick" value="'.$grouppick.'" />';	$grptag = '<input type="hidden" name="grouppick" value="'.$grouppick.'" />';
}	}
if (ref($rolefilter) eq 'ARRAY') {	if (ref($rolefilter) eq 'ARRAY') {
$feedurl .= '&rolefilter=';	$feedurl .= '&rolefilter=';
$roletag .= '<input type="hidden" name="rolefilter" value="';	$roletag .= '<input type="hidden" name="rolefilter" value="';
foreach my $role (@{$rolefilter}) {	foreach my $role (@{$rolefilter}) {
$feedurl .= $role.',';	$feedurl .= $role.',';
Line 2461 sub redirect_back {	Line 2546 sub redirect_back {
$roletag =~ s/,$//;	$roletag =~ s/,$//;
$roletag .= '" />';	$roletag .= '" />';
} else {	} else {
$feedurl .= '&rolefilter='.$rolefilter;	$feedurl .= '&rolefilter='.$rolefilter;
$roletag = '<input type="hidden" name="rolefilter" value="'.$rolefilter.'" />';	$roletag = '<input type="hidden" name="rolefilter" value="'.$rolefilter.'" />';
}	}
$feedurl .= '&statusfilter='.$statusfilter;	$feedurl .= '&statusfilter='.$statusfilter;
$statustag ='<input type="hidden" name="statusfilter" value="'.$statusfilter.'" />';	$statustag ='<input type="hidden" name="statusfilter" value="'.$statusfilter.'" />';
}	}
}	}
my $grouptag;	my $grouptag;
if ($group ne '') {	if ($group ne '') {
$grouptag = '<input type="hidden" name="group" value="'.$group.'" />'; my $refarg;	$grouptag = '<input type="hidden" name="group" value="'.$group.'" />';
	my $refarg;
if (exists($env{'form.ref'})) {	if (exists($env{'form.ref'})) {
$refarg = '&ref='.$env{'form.ref'};	$refarg = '&ref='.$env{'form.ref'};
$grouptag .= '<input type="hidden" name="ref" value="'.$env{'form.ref'}.'" />';	$grouptag .= '<input type="hidden" name="ref" value="'.$env{'form.ref'}.'" />';
Line 2484 sub redirect_back {	Line 2570 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 %onload;
if ($env{'environment.remote'} ne 'off') {
$onload{'onload'} =
"if (window.name!='loncapaclient') { this.document.reldt.submit(); self.window.close(); }";
}
my $start_page=	my $start_page=
&Apache::loncommon::start_page('Feedback sent',undef,	&Apache::loncommon::start_page('Feedback sent',undef,
{'redirect' => [0,$feedurl],	{'redirect' => [0,$feedurl],
Line 2500 $start_page	Line 2582 $start_page
$typestyle	$typestyle
<b>Sent $sendsomething message(s), and $sendposts post(s).</b>	<b>Sent $sendsomething message(s), and $sendposts post(s).</b>
$blog	$blog
	$toolarge
<font color="red">$status</font>	<font color="red">$status</font>
<form name="reldt" action="$feedurl" target="loncapaclient">	<form name="reldt" action="$feedurl" target="loncapaclient">
$prevtag	$prevtag
Line 2517 ENDREDIR	Line 2600 ENDREDIR

sub no_redirect_back {	sub no_redirect_back {
my ($r,$feedurl) = @_;	my ($r,$feedurl) = @_;
my $nofeed=&mt('Sorry, no feedback possible on this resource ...');	my $nofeed=&mt('Sorry, no feedback possible on this resource ...');

my %onload;	my %onload;
if ($env{'environment.remote'} ne 'off') {
$onload{'onload'} =
"if (window.name!='loncapaclient') { self.window.close(); }";
}

my %body_options = ('only_body' => 1,	my %body_options = ('only_body' => 1,
'bgcolor' => '#FFFFFF',	'bgcolor' => '#FFFFFF',
Line 2550 ENDNOREDIRTWO	Line 2629 ENDNOREDIRTWO
}	}

sub screen_header {	sub screen_header {
my ($feedurl,$symb) = @_;	my ($feedurl,$symb,$group) = @_;
	my $crscontent = &mt('Question/Comment/Feedback about course content');
	my $crspolicy = &mt('Question/Comment/Feedback about course policy');
	my $contribdisc = &mt('Contribution to course discussion of resource');
	my $anoncontrib = &mt('Anonymous contribution to course discussion of resource');
	my $namevis = &mt('name only visible to course faculty');
	my $crstype;
	if ($env{'request.course.id'}) {
	$crstype = &Apache::loncommon::course_type();
	if ($crstype eq 'Community') {
	$crscontent = &mt('Question/Comment/Feedback about community content');
	$crspolicy = &mt('Question/Comment/Feedback about community policy');
	$contribdisc = &mt('Contribution to community discussion of resource');
	$anoncontrib = &mt('Anonymous contribution to community discussion of resource');
	$namevis = &mt('name only visible to community facilitators');
	}
	}
my $msgoptions='';	my $msgoptions='';
my $discussoptions='';	my $discussoptions='';
unless (($env{'form.replydisc'}) \|\| ($env{'form.editdisc'})) {	unless (($env{'form.replydisc'}) \|\| ($env{'form.editdisc'})) {
Line 2571 sub screen_header {	Line 2666 sub screen_header {
if (&feedback_available(0,1)) {	if (&feedback_available(0,1)) {
$msgoptions.=	$msgoptions.=
'<p><label><input type="radio" name="discuss" value="course" /> '.	'<p><label><input type="radio" name="discuss" value="course" /> '.
($optionhash{'comment'}?$optionhash{'comment'}:&mt('Question/Comment/Feedback about course content')).	($optionhash{'comment'}?$optionhash{'comment'}:$crscontent).
'</label></p>';	'</label></p>';
}	}
if (&feedback_available(0,0,1)) {	if (&feedback_available(0,0,1)) {
$msgoptions.=	$msgoptions.=
'<p><label><input type="radio" name="discuss" value="policy" /> '.	'<p><label><input type="radio" name="discuss" value="policy" /> '.
($optionhash{'policy'}?$optionhash{'policy'}:&mt('Question/Comment/Feedback about course policy')).	($optionhash{'policy'}?$optionhash{'policy'}:$crspolicy).
'</label></p>';	'</label></p>';
}	}
}	}
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 $realsymb = $symb;
&Apache::lonnet::allowed('pch',	if ($symb=~/^bulletin___/) {
$env{'request.course.id'}.	my $filename=(&Apache::lonnet::decode_symb($symb))[2];
($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))) {	$filename=~s\|^adm/wrapper/\|\|;
	$realsymb=&Apache::lonnet::symbread($filename);
	}
	if (!$blocked && &discussion_open(undef,$realsymb) &&
	(&Apache::lonnet::allowed('pch',
	$env{'request.course.id'}.
	($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')) \|\| (($group ne '') && (&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" /> '.
&mt('Contribution to course discussion of resource');	$contribdisc.
$discussoptions.='</label><br /><label><input type="radio" name="discuss" value="anon" /> '.	'</label><br /><label><input type="radio" name="discuss" value="anon" /> '.
&mt('Anonymous contribution to course discussion of resource').	$anoncontrib.
' <i>('.&mt('name only visible to course faculty').')</i></label> '.	' <i>('.$namevis.')</i></label> '.
'<a href="/adm/preferences?action=changescreenname">'.&mt('Change Screenname').'</a>';	'<a href="/adm/preferences?action=changescreenname">'.&mt('Change Screenname').'</a>';
my $blockblog = &Apache::loncommon::blocking_status('blogs');	my $blockblog = &Apache::loncommon::blocking_status('blogs');
if (!$blockblog) {	if (!$blockblog) {
$discussoptions.= &add_blog_checkbox();	$discussoptions.= &add_blog_checkbox($crstype);
}	}
}	}
}	}
if ($msgoptions) { $msgoptions='<h2><img src="'.&Apache::loncommon::lonhttpdurl('/adm/lonMisc/feedback.gif').'" />'.&mt('Sending Messages').'</h2>'.$msgoptions; }	if ($msgoptions) {
	$msgoptions='<h2><img src="'.&Apache::loncommon::lonhttpdurl('/res/adm/pages/feedback.png').'" />'
	.' '.&mt('Send Feedback').'</h2><p>'.&Apache::lonhtmlcommon::coursepreflink(&mt('Feedback Settings'),'feedback').'</p>'
	.$msgoptions;
	}
if ($discussoptions) {	if ($discussoptions) {
$discussoptions='<h2><img src="'.&Apache::loncommon::lonhttpdurl('/adm/lonMisc/chat.gif').'" />'.&mt('Discussion Contributions').'</h2>'.$discussoptions; }	$discussoptions='<h2><img src="'.&Apache::loncommon::lonhttpdurl('/adm/lonMisc/chat.gif').'" alt="" />'
	.' '.&mt('Discussion Contributions').'</h2><p>'.&Apache::lonhtmlcommon::coursepreflink(&mt('Discussion Settings'),'discussion').'</p>'
	.$discussoptions;
	}
return $msgoptions.$discussoptions;	return $msgoptions.$discussoptions;
}	}

Line 2619 sub resource_output {	Line 2727 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 2630 sub clear_out_html {	Line 2736 sub clear_out_html {
($override)) {	($override)) {
# allows <B> <I> <P> <A> <LI> <OL> <UL> <EM> <BR> <TT> <STRONG>	# allows <B> <I> <P> <A> <LI> <OL> <UL> <EM> <BR> <TT> <STRONG>
# <BLOCKQUOTE> <DIV .*> <DIV> <IMG> <M> <SPAN> <H1> <H2> <H3> <H4> <SUB>	# <BLOCKQUOTE> <DIV .*> <DIV> <IMG> <M> <SPAN> <H1> <H2> <H3> <H4> <SUB>
# <SUP>	# <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);	H1=>1, H2=>1, H3=>1, H4=>1, H5=>1, H6=>1,
	TABLE=>1, TR=>1, TD=>1, TH=>1, TBODY=>1);
}	}
# Do the substitution of everything that is not explicitly allowed	# Do the substitution of everything that is not explicitly allowed
$message =~ s/\<(\/?\s(\w+)[^\>\<])/	$message =~ s/\<(\/?\s(\w+)[^\>\<])/
Line 2651 sub assemble_email {	Line 2758 sub assemble_email {
'orig' => 'Original screen output (if applicable)',	'orig' => 'Original screen output (if applicable)',
'corr' => 'Correct Answer(s) (if applicable)',	'corr' => 'Correct Answer(s) (if applicable)',
);	);
	if (&Apache::loncommon::course_type() eq 'Community') {
	$lt{'prev'} = &mt('Previous attempts of member (if applicable)');
	}
my $email=<<"ENDEMAIL";	my $email=<<"ENDEMAIL";
$message	$message
ENDEMAIL	ENDEMAIL
Line 2675 sub feedback_available {	Line 2785 sub feedback_available {
}	}

sub send_msg {	sub send_msg {
my ($title,$feedurl,$email,$citations,$attachmenturl,$symb,%to)=@_;	my ($title,$feedurl,$email,$citations,$attachmenturl,$symb,%to)=@_;
my $status='';	my $status='';
my $sendsomething=0;	my $sendsomething=0;
my $restitle = &get_resource_title($symb,$feedurl);	my $restitle = &get_resource_title($symb,$feedurl);
if ($title=~/^Error/) { $title=&mt('Feedback').': '.$title; }	if ($title=~/^Error/) { $title=&mt('Feedback').': '.$title; }
unless ($title=~/\w/) { $title=&mt('Feedback'); }	unless ($title=~/\w/) { $title=&mt('Feedback'); }
foreach my $key (keys(%to)) {	foreach my $key (keys(%to)) {
if ($key) {	if ($key) {
unless (&Apache::lonmsg::user_normal_msg(split(/\:/,$key),	my ($user,$domain) = split(/\:/,$key,2);
$title.' ['.$restitle.']',$email,$citations,$feedurl,	if (!defined($user)) {
$attachmenturl,undef,undef,$symb,$restitle)=~/ok/) {	$status.='<br />'.&mt('Error sending message to [_1], no user specified.',$key);
$status.='<br />'.&mt('Error sending message to').' '.$key.'<br />';	} elsif (!defined($domain)) {
} else {	$status.='<br />'.&mt('Error sending message to [_1], no domain specified.',$key);
$sendsomething++;	} else {
}	unless (&Apache::lonmsg::user_normal_msg($user,$domain,
	$title.' ['.$restitle.']',$email,$citations,$feedurl,
	$attachmenturl,undef,undef,$symb,$restitle)=~/ok/) {
	$status.='<br />'.&mt('Error sending message to').' '.$key.'<br />';
	} else {
	$sendsomething++;
	}
	}
	}
}	}
}

my %record=&Apache::lonnet::restore('_feedback');	my %record=&Apache::lonnet::restore('_feedback');
my ($temp)=keys(%record);	my ($temp)=keys(%record);
unless ($temp=~/^error\:/) {	unless ($temp=~/^error\:/) {
my %newrecord=();	my %newrecord=();
$newrecord{'resource'}=$feedurl;	$newrecord{'resource'}=$feedurl;
$newrecord{'subnumber'}=$record{'subnumber'}+1;	$newrecord{'subnumber'}=$record{'subnumber'}+1;
unless (&Apache::lonnet::cstore(\%newrecord,'_feedback') eq 'ok') {	unless (&Apache::lonnet::cstore(\%newrecord,'_feedback') eq 'ok') {
$status.='<br />'.&mt('Not registered').'<br />';	$status.='<br />'.&mt('Not registered').'<br />';
}	}
}	}

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

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;
if ($symb=~/^bulletin___/) {	if ($symb=~/^bulletin___/) {
Line 2717 sub adddiscuss {	Line 2835 sub adddiscuss {
$realsymb=&Apache::lonnet::symbread($filename);	$realsymb=&Apache::lonnet::symbread($filename);
}	}
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')))) {

my %contrib=('message' => $email,	my %contrib=('message' => $email,
'sendername' => $env{'user.name'},	'sendername' => $env{'user.name'},
Line 2869 sub show_preview {	Line 2988 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);

my $end_page = &Apache::loncommon::end_page();	my $end_page = &Apache::loncommon::end_page();

$r->print($start_page.'<table border="2"><tr><td>'.	$r->print($start_page
'<b>'.&mt('Subject').':</b> '.$subject.'<br /><br />'.	.'<h1>'.&mt('Preview').'</h1>'
$message.'</td></tr></table>'.$end_page);	.&Apache::lonhtmlcommon::start_pick_box()
	.&Apache::lonhtmlcommon::row_title(&mt('Subject'))
	.$subject
	.&Apache::lonhtmlcommon::row_closure()
	.&Apache::lonhtmlcommon::row_title(&mt('Message'))
	.$message
	.&Apache::lonhtmlcommon::row_closure(1)
	.&Apache::lonhtmlcommon::end_pick_box()
	.$end_page
	);
	}

	sub contains_block_html {
	my ($message)=@_;
	return ($message =~ m{
	<(br\|h1\|h2\|h3\|h4\|h5\|h6\|p\|ol\|ul\|table\|pre\|address\|blockquote\|center\|div)
	\s*
	(\w+\=['"]\w+['"])*
	\s*
	(
	\s*/>\|
	>.</\1\s>
	)}xs
	);
}	}

	sub tidy_html {
	my ($message)=@_;
	# my $tidy = HTML::Tidy::libXML->new();
	# my $xhtml = $tidy->clean($message, 'utf-8', 1);
	# $xhtml =~ m/<body>(.*)<\/body>/is;
	# my $clean = $1;
	# # remove any empty block-level tags
	# $clean =~ s/<(table\|p\|div\|tbody\|blockquote\|m\|pre\|algebra\|center\|ol\|ul\|span\|h1\|h2\|h3\|h4\|h5\|h6)\s*\/>//i;
	# $message=$clean;
	return $message;
	}

sub newline_to_br {	sub newline_to_br {
my ($message)=@_;	my ($message)=@_;
Line 2910 sub generate_preview_button {	Line 3063 sub generate_preview_button {
return(<<ENDPREVIEW);	return(<<ENDPREVIEW);
<br />	<br />
<form name="preview" action="/adm/feedback?preview=1" method="post" target="preview">	<form name="preview" action="/adm/feedback?preview=1" method="post" target="preview">
<input type="hidden" name="subject">	<input type="hidden" name="subject" />
<input type="hidden" name="comment" />	<input type="hidden" name="comment" />
<input type="button" value="$pre"	<input type="button" value="$pre"
onClick="if (typeof(document.$formname.onsubmit)=='function') {document.$formname.onsubmit();};this.form.comment.value=document.$formname.$fieldname.value;this.form.subject.value=document.$formname.subject.value;this.form.submit();" />	onclick="if (typeof(document.$formname.onsubmit)=='function') {document.$formname.onsubmit();};this.form.comment.value=document.$formname.$fieldname.value;this.form.subject.value=document.$formname.subject.value;this.form.submit();" />
</form>	</form>
ENDPREVIEW	ENDPREVIEW
}	}

sub modify_attachments {	sub modify_attachments {
my ($r,$currnewattach,$currdelold,$symb,$idx,$attachmenturls)=@_;	my ($r,$currnewattach,$currdelold,$symb,$idx,$attachmenturls,
	$attachmaxtext,$toolarge)=@_;

my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
'subj' => 'Subject',	'subj' => 'Subject',
Line 2927 sub modify_attachments {	Line 3081 sub modify_attachments {
'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' => 'Store Changes',	'stch' => 'Save Changes',
);	);
my $js = <<END;	my $js = <<END;
<script type="text/javascript">	<script type="text/javascript">
Line 2938 sub modify_attachments {	Line 3092 sub modify_attachments {
</script>	</script>
END	END

	# Breadcrumbs
	my $brcrum = [{'href' => '',
	'text' => 'Discussion Post Attachments'}];
my $start_page =	my $start_page =
&Apache::loncommon::start_page('Discussion Post Attachments',$js);	&Apache::loncommon::start_page('Discussion Post Attachments',$js,
	{'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 2961 END	Line 3119 END

$r->print(<<END);	$r->print(<<END);
$start_page	$start_page
	$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">
<table border="2">	<br />
	<table class="LC_data_table">
<tr>	<tr>
<td>	<td colspan="2">
<b>Subject:</b> $subject</b><br /><br />	<b>Subject:</b> <b>$subject</b><br /><br />
END	END
if ($idx) {	if ($idx) {
if ($attachmenturls) {	if ($attachmenturls) {
Line 2990 END	Line 3150 END
$r->print("<br />");	$r->print("<br />");
}	}
$r->print(<<END);	$r->print(<<END);
$lt{'adda'} <input type="file" name="addnewattach" /><input type="button" name="upload" value="Upload" onClick="this.form.submit()" />	</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>	</td>
</tr>	</tr>
	<tr>
	<td colspan="2">$attachmaxtext</td>
	</tr>
</table>	</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'}" />
Line 3010 END	Line 3176 END
$r->print('<input type="hidden" name="deloldattach" value="'.$item.'" />'."\n");	$r->print('<input type="hidden" name="deloldattach" value="'.$item.'" />'."\n");
}	}
$r->print(<<END);	$r->print(<<END);
<input type="button" name="rtntoedit" value="$lt{'stch'}" onClick="setAction()"/>	<input type="button" name="rtntoedit" value="$lt{'stch'}" onclick="setAction()" />
</form>	</form>
$end_page	$end_page
END	END
Line 3057 sub generate_attachments_button {	Line 3223 sub generate_attachments_button {
<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"	$lt{'clic'}: <input type="button" value="$att"
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) {
$response .= 'setblogvalue();';	$response .= 'setblogvalue();';
Line 3072 this.form.submit();" />	Line 3238 this.form.submit();" />
<input type="hidden" name="timestamp" value="$now" />	<input type="hidden" name="timestamp" value="$now" />
<input type="hidden" name="subject" />	<input type="hidden" name="subject" />
<input type="hidden" name="comment" />	<input type="hidden" name="comment" />
<input type="hidden" name="blog" value = "0" />	<input type="hidden" name="blog" value="0" />
<input type="hidden" name="discuss" value = "0" />	<input type="hidden" name="discuss" value="0" />
<input type="hidden" name="numoldver" value="$numoldver" />	<input type="hidden" name="numoldver" value="$numoldver" />
ENDATTACH	ENDATTACH
if (defined($deloldattach)) {	if (defined($deloldattach)) {
Line 3202 sub construct_attachmenturl {	Line 3368 sub construct_attachmenturl {
}	}

sub add_blog_checkbox {	sub add_blog_checkbox {
my ($checkstatus);	my ($crstype) = @_;
	my $checkstatus;
if ($env{'form.blog'}) {	if ($env{'form.blog'}) {
$checkstatus = 'checked="checked"';	$checkstatus = 'checked="checked"';
}	}
Line 3216 function setblogvalue() {	Line 3383 function setblogvalue() {
}	}
}	}
</script><br />	</script><br />
<label><input type="checkbox" name="blog" '.$checkstatus.' /> '.	<label><input type="checkbox" name="blog" '.$checkstatus.' /> ';
&mt('Add to my public course blog').'</label><br />'."\n";	if ($crstype eq 'Community') {
	$output .= &mt('Add to my public community blog');
	} else {
	$output .= &mt('Add to my public course blog');
	}
	$output .= '</label><br />'."\n";
return $output;	return $output;
}	}

sub has_discussion {	sub has_discussion {
my $resourcesref = shift;	my $resourcesref = shift;
my $navmap = Apache::lonnavmaps::navmap->new();	my $navmap = Apache::lonnavmaps::navmap->new();
my @allres=$navmap->retrieveResources();	if (defined($navmap)) {
foreach my $resource (@allres) {	my @allres=$navmap->retrieveResources();
if ($resource->hasDiscussion()) {	foreach my $resource (@allres) {
my $ressymb = $resource->wrap_symb();	if ($resource->hasDiscussion()) {
push(@{$resourcesref}, $ressymb);	my $ressymb = $resource->wrap_symb();
	if (ref($resourcesref) eq 'ARRAY') {
	push(@{$resourcesref}, $ressymb);
	}
	}
}	}
	} else {
	&Apache::lonnet::logthis('Has discussion check failed - could not create navmap object.');
}	}
return;	return;
}	}

sub sort_filter_names {	sub sort_filter_names {
my ($sort_types,$role_types,$status_types) = @_;	my ($sort_types,$role_types,$status_types,$crstype) = @_;
%{$sort_types} = (	if (ref($sort_types) eq 'HASH') {
	%{$sort_types} = (
ascdate => 'Date order - oldest first',	ascdate => 'Date order - oldest first',
descdate => 'Date order - newest first',	descdate => 'Date order - newest first',
thread => 'Threaded',	thread => 'Threaded',
Line 3244 sub sort_filter_names {	Line 3423 sub sort_filter_names {
username => 'By domain and username',	username => 'By domain and username',
lastfirst => 'By last name, first name'	lastfirst => 'By last name, first name'
);	);
%{$role_types} = (	}
all => 'All roles',	my @courseroles = qw(st in ta ep ad);
st => 'Students',	if ($crstype eq 'Community') {
cc => 'Course Coordinators',	push(@courseroles,'co');
in => 'Instructors',	} else {
ta => 'TAs',	push(@courseroles,'cc');
ep => 'Exam proctors',	}
ad => 'Administrators',	if (ref($role_types) eq 'HASH') {
cr => 'Custom roles'	foreach my $role (@courseroles) {
);	$role_types->{$role} = &Apache::lonnet::plaintext($role,$crstype);
%{$status_types} = (	}
	$role_types->{'all'} = 'All roles';
	$role_types->{'cr'} = 'Custom role';
	}
	if (ref($status_types) eq 'HASH') {
	%{$status_types} = (
all => 'Roles of any status',	all => 'Roles of any status',
Active => 'Only active roles',	Active => 'Only active roles',
Expired => 'Only past roles',	Expired => 'Only past roles',
Future => 'Only future roles',	Future => 'Only future roles',
);	);
	}
}	}

sub handler {	sub handler {
Line 3275 sub handler {	Line 3460 sub handler {
&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']);	['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']);
my $group = $env{'form.group'};	my $group = $env{'form.group'};
	my %attachmax = (
	text => &mt('(128 KB max size)'),
	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'},$env{'form.group'}))) {
my $symb=(split(/\:\:\:/,$env{'form.editdisc'}))[0];	my $symb=(split(/\:\:\:/,$env{'form.editdisc'}))[0];
Line 3317 sub handler {	Line 3506 sub handler {
&Apache::loncommon::no_cache($r);	&Apache::loncommon::no_cache($r);
$r->send_http_header;	$r->send_http_header;

$r->print(&Apache::loncommon::start_page('Discussion Post Versions'));	# Breadcrumbs
	my $brcrum = [{'href' => '',
	'text' => 'Discussion Post Versions'}];

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

my $crs='/'.$env{'request.course.id'};	my $crs='/'.$env{'request.course.id'};
if ($env{'request.course.sec'}) {	if ($env{'request.course.sec'}) {
Line 3402 sub handler {	Line 3597 sub handler {
my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
'mnpa' => 'Marked "New" posts as read in a total of',	'mnpa' => 'Marked "New" posts as read in a total of',
'robb' => 'resources/bulletin boards.',	'robb' => 'resources/bulletin boards.',
'twnp' => 'There are currently no resources or bulletin boards with unread discussion postings.'	'twnp' => 'There are currently no resources or discussion boards with unread discussion postings.'
);	);
foreach my $res (@resources) {	foreach my $res (@resources) {
my $ressymb=$res;	my $ressymb=$res;
Line 3421 sub handler {	Line 3616 sub handler {
$r->send_http_header;	$r->send_http_header;
my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');	my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');
my %onload;	my %onload;
if ($env{'environment.remote'} ne 'off') {
$onload{'onload'} =
"if (window.name!='loncapaclient') { this.document.reldt.submit(); self.window.close(); }";
}

my $start_page=	my $start_page=
&Apache::loncommon::start_page('New posts marked as read',undef,	&Apache::loncommon::start_page('New posts marked as read',undef,
Line 3545 ENDREDIR	Line 3736 ENDREDIR
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') {
&Apache::lonnet::put('environment',{'threadeddiscussion' => 'on'});	&Apache::lonnet::put('environment',{'threadeddiscussion' => 'on'});
&Apache::lonnet::appenv('environment.threadeddiscussion' => 'on');	&Apache::lonnet::appenv({'environment.threadeddiscussion' => 'on'});
} else {	} else {
&Apache::lonnet::del('environment',['threadeddiscussion']);	&Apache::lonnet::del('environment',['threadeddiscussion']);
&Apache::lonnet::delenv('environment\.threadeddiscussion');	&Apache::lonnet::delenv('environment.threadeddiscussion');
}	}
&redirect_back($r,$feedurl,&mt('Changed discussion view mode').'<br />',	&redirect_back($r,$feedurl,&mt('Changed discussion view mode').'<br />',
'0','0','','',$env{'form.previous'},undef,undef,undef,	'0','0','','',$env{'form.previous'},undef,undef,undef,
Line 3583 ENDREDIR	Line 3774 ENDREDIR
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['subject','comment','addnewattach','delnewattach','timestamp','numoldver','idx','discuss','blog']);	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['subject','comment','addnewattach','delnewattach','timestamp','numoldver','idx','discuss','blog']);
my (@currnewattach,@currdelold,@keepold);	my (@currnewattach,@currdelold,@keepold,$toolarge);
&process_attachments(\@currnewattach,\@currdelold,\@keepold);	&process_attachments(\@currnewattach,\@currdelold,\@keepold);
if (exists($env{'form.addnewattach.filename'})) {	if (exists($env{'form.addnewattach.filename'})) {
unless (length($env{'form.addnewattach'})>131072) {	if (length($env{'form.addnewattach'})<=$attachmax{'num'}) {
my $subdir = 'feedback/'.$env{'form.timestamp'};	my $subdir = 'feedback/'.$env{'form.timestamp'};
my $newattachment=&Apache::lonnet::userfileupload('addnewattach',undef,$subdir);	my $newattachment=&Apache::lonnet::userfileupload('addnewattach',undef,$subdir);
push(@currnewattach, $newattachment);	push(@currnewattach, $newattachment);
	} else {
	$toolarge = '<p><span class="LC_warning">'.&mt('Attachment not included - exceeded permitted length').'</span><br /></p>';
}	}
}	}
my $attachmenturls;	my $attachmenturls;
Line 3602 ENDREDIR	Line 3795 ENDREDIR
$attachmenturls = $contrib{$idx.':attachmenturl'};	$attachmenturls = $contrib{$idx.':attachmenturl'};
}	}
&modify_attachments($r,\@currnewattach,\@currdelold,$symb,$idx,	&modify_attachments($r,\@currnewattach,\@currdelold,$symb,$idx,
$attachmenturls);	$attachmenturls,$attachmax{'text'},$toolarge);
return OK;	return OK;
} elsif ($env{'form.export'}) {	} elsif ($env{'form.export'}) {
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
Line 3625 ENDREDIR	Line 3818 ENDREDIR
} else {	} else {
# ------------------------------------------------------------- Normal feedback	# ------------------------------------------------------------- Normal feedback
my $feedurl=$env{'form.postdata'};	my $feedurl=$env{'form.postdata'};
$feedurl=~s/^http\:\/\///;	$feedurl=~s/^https?\:\/\///;
$feedurl=~s/^$ENV{'SERVER_NAME'}//;	$feedurl=~s/^$ENV{'SERVER_NAME'}//;
$feedurl=~s/^$ENV{'HTTP_HOST'}//;	$feedurl=~s/^$ENV{'HTTP_HOST'}//;
$feedurl=~s/\?.+$//;	$feedurl=~s/\?.+$//;
Line 3689 ENDREDIR	Line 3882 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);	&mail_screen($r,$feedurl,$options,$symb,$attachmax{'text'});
} else {	} else {
&fail_redirect($r,$feedurl);	&fail_redirect($r,$feedurl);
}	}
Line 3708 ENDREDIR	Line 3901 ENDREDIR
my $usersaw=&resource_output($feedurl);	my $usersaw=&resource_output($feedurl);

# Get resource answer (need to allow student to view grades for this to work)	# Get resource answer (need to allow student to view grades for this to work)
&Apache::lonnet::appenv(('allowed.vgr'=>'F'));	&Apache::lonnet::appenv({'allowed.vgr'=>'F'});
my $usersymb = &Apache::lonenc::check_encrypt($symb);	my $usersymb = &Apache::lonenc::check_encrypt($symb);
my $useranswer=	my $useranswer=
&Apache::loncommon::get_student_answers(	&Apache::loncommon::get_student_answers(
Line 3717 ENDREDIR	Line 3910 ENDREDIR
&Apache::lonnet::delenv('allowed.vgr');	&Apache::lonnet::delenv('allowed.vgr');
# Get attachments, if any, and not too large	# Get attachments, if any, and not too large
my $attachmenturl='';	my $attachmenturl='';
	my $toolarge='';
if (($env{'form.origpage'}) \|\| ($env{'form.editdisc'}) \|\|	if (($env{'form.origpage'}) \|\| ($env{'form.editdisc'}) \|\|
($env{'form.replydisc'})) {	($env{'form.replydisc'})) {
my ($symb,$idx);	my ($symb,$idx);
Line 3735 ENDREDIR	Line 3929 ENDREDIR
$symb=~s\|(bulletin___\d+___)adm/wrapper/\|$1\|;	$symb=~s\|(bulletin___\d+___)adm/wrapper/\|$1\|;
$attachmenturl=&construct_attachmenturl(\@currnewattach,\@keepold,$symb,$idx);	$attachmenturl=&construct_attachmenturl(\@currnewattach,\@keepold,$symb,$idx);
} elsif ($env{'form.attachment.filename'}) {	} elsif ($env{'form.attachment.filename'}) {
unless (length($env{'form.attachment'})>131072) {	if (length($env{'form.attachment'})<=$attachmax{'num'}) {
$attachmenturl=&Apache::lonnet::userfileupload('attachment',undef,'feedback');	my $now = time;
}	my $subdir = 'feedback/'.$now;
	$attachmenturl=&Apache::lonnet::userfileupload('attachment',undef,$subdir);
	} else {
	$toolarge = '<p><span class="LC_warning">'.&mt('Attachment not included - exceeded permitted length').'</span><br /></p>';
	}
}	}
# 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 3750 ENDREDIR	Line 3952 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 3760 ENDREDIR	Line 3961 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 3771 ENDREDIR	Line 3972 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'},
$subject,$message,$feedurl,'public');	$subject,$message,$feedurl,'public');
$blog='<br />'.&mt('Added to my course blog').'<br />';	if (&Apache::loncommon::course_type() eq 'Community') {
	$blog='<br />'.&mt('Added to my community blog').'<br />';
	} else {
	$blog='<br />'.&mt('Added to my course blog').'<br />';
	}
}	}

# Receipt screen and redirect back to where came from	# Receipt screen and redirect back to where came from
&redirect_back($r,$feedurl,$typestyle,$numsent,$numpost,$blog,$status,$env{'form.previous'},undef,undef,undef,undef,undef,undef,$group);	&redirect_back($r,$feedurl,$typestyle,$numsent,$numpost,$blog,$status,$env{'form.previous'},undef,undef,undef,undef,undef,undef,$group,$toolarge);
}	}
return OK;	return OK;
}	}
Line 3925 sub get_resource_title {	Line 4130 sub get_resource_title {

1;	1;
__END__	__END__


	=pod

	=head1 NAME

	Apache::lonfeedback.pm

	=head1 SYNOPSIS

	Handles feedback from students to instructors and system administrators.

	Provides a screenshot of the current resource, as well as previous attempts if the resource was a homework.

	Used by lonmsg.pm.

	This is part of the LearningOnline Network with CAPA project
	described at http://www.lon-capa.org.

	=head1 OVERVIEW

	None

	=head1 SUBROUTINES

	=over

	=item discussion_open()

	=item discussion_visible()

	=item list_discussion()

	=item send_feedback_link()

	=item send_message_link()

	=item action_links_bar()

	=item postingform_display()

	=item build_posting_display

	=item filter_regexp()

	=item get_post_contents()

	=item replicate_attachments()

	=item mail_screen()

	=item print_display_options()

	=item print_sortfilter_options()

	=item print_showposters()

	=item get_post_versions()

	=item get_post_attachments()

	=item fail_redirect()

	=item redirect_back()

	=item no_redirect_back()

	=item screen_header()

	=item resource_output()

	=item clear_out_html()

	=item assemble_email()

	=item feedback_available()

	=item send_msg()

	=item adddiscuss()

	=item get_discussion_info()

	=item show_preview()

	=item newline_to_br()

	=item tidy_html()

	=item generate_preview_button()

	=item modify_attachments()

	=item process_attachments()

	=item generate_attachments_button()

	=item extract_attachments()

	=item construct_attachmenturl()

	=item add_blog_checkbox()

	=item has_discussion()

	=item sort_filter_names()

	=item handler()

	=item blocked_reply_or_edit()

	=item wrap_symb()

	=item dewrapper()

	=item get_feedurl()

	=item get_feedurl_and_clean_symb()

	=item editing_allowed()

	=item check_group_priv()

	=item group_args()

	=item get_resource_title()

	=back

	=cut

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.245
changed lines
	Added in v.1.303