Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonfeedback.pm between versions 1.197 and 1.212

version 1.197, 2006/05/09 15:09:27	version 1.212, 2006/07/18 17:44:43
Line 42 use Apache::lonenc();	Line 42 use Apache::lonenc();
use Apache::lonrss();	use Apache::lonrss();
use HTML::LCParser();	use HTML::LCParser();
use Apache::lonspeller();	use Apache::lonspeller();
	use Apache::longroup;
use Cwd;	use Cwd;
	use lib '/home/httpd/lib/perl/';
	use LONCAPA;

sub discussion_open {	sub discussion_open {
my ($status,$symb)=@_;	my ($status,$symb)=@_;
Line 71 sub discussion_visible {	Line 74 sub discussion_visible {
}	}

sub list_discussion {	sub list_discussion {
my ($mode,$status,$ressymb,$imsextras)=@_;	my ($mode,$status,$ressymb,$imsextras,$group)=@_;
my $outputtarget=$env{'form.grade_target'};	my $outputtarget=$env{'form.grade_target'};
if (defined($env{'form.export'})) {	if (defined($env{'form.export'})) {
if($env{'form.export'}) {	if($env{'form.export'}) {
Line 84 sub list_discussion {	Line 87 sub list_discussion {
}	}
}	}
if (not &discussion_visible($status)) { return ''; }	if (not &discussion_visible($status)) { return ''; }
	if ($group ne '' && $mode eq 'board') {
	if (&check_group_priv($group,'vgb') ne 'ok') {
	return '';
	}
	}
my @bgcols = ("#cccccc","#eeeeee");	my @bgcols = ("#cccccc","#eeeeee");
my $discussiononly=0;	my $discussiononly=0;
if ($mode eq 'board') { $discussiononly=1; }	if ($mode eq 'board') { $discussiononly=1; }
Line 127 sub list_discussion {	Line 135 sub list_discussion {
my @posters = split/\&/,$dischash{$userpickkey};	my @posters = split/\&/,$dischash{$userpickkey};

# Retain identification of "NEW" posts identified in last display, if continuing 'previous' browsing of posts.	# Retain identification of "NEW" posts identified in last display, if continuing 'previous' browsing of posts.
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['previous','sortposts','rolefilter','statusfilter','sectionpick','totposters']);	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['previous','sortposts','rolefilter','statusfilter','sectionpick','grouppick','totposters']);
my $sortposts = $env{'form.sortposts'};	my $sortposts = $env{'form.sortposts'};
my $statusfilter = $env{'form.statusfilter'};	my $statusfilter = $env{'form.statusfilter'};
my @sectionpick = ();	my @sectionpick = split(/,/,$env{'form.sectionpick'});
if ($env{'form.sectionpick'} =~ /,/) {	my @grouppick = split(/,/,$env{'form.grouppick'});
@sectionpick = split/,/,$env{'form.sectionpick'};	my @rolefilter = split(/,/,$env{'form.rolefilter'});
} else {
$sectionpick[0] = $env{'form.sectionpick'};
}
my @rolefilter = ();
if ($env{'form.rolefilter'} =~ /,/) {
@rolefilter = split/,/,$env{'form.rolefilter'};
} else {
$rolefilter[0] = $env{'form.rolefilter'};
}
my $totposters = $env{'form.totposters'};	my $totposters = $env{'form.totposters'};
$previous = $env{'form.previous'};	$previous = $env{'form.previous'};
if ($previous > 0) {	if ($previous > 0) {
Line 152 sub list_discussion {	Line 152 sub list_discussion {
}	}
}	}

	my $cdom = $env{'course.'.$cid.'.domain'};
	my $cnum = $env{'course.'.$cid.'.num'};

# 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 = ();
my %roleinfo = ();	my %roleinfo = ();
	my ($classgroups,$studentgroups);
if ($env{'form.rolefilter'}) {	if ($env{'form.rolefilter'}) {
%roleshash = &Apache::lonnet::dump('nohist_userroles',	%roleshash = &Apache::lonnet::dump('nohist_userroles',$cdom,$cnum);
$env{'course.'.$cid.'.domain'},
$env{'course.'.$cid.'.num'});
foreach (keys %roleshash) {	foreach (keys %roleshash) {
my ($role,$uname,$udom,$sec) = split/:/,$_;	my ($role,$uname,$udom,$sec) = split/:/,$_;
if ($role =~ /^cr/) {	if ($role =~ /^cr/) {
Line 174 sub list_discussion {	Line 176 sub list_discussion {
push @{$roleinfo{$uname.':'.$udom}}, $role.':'.$sec.':'.$status;	push @{$roleinfo{$uname.':'.$udom}}, $role.':'.$sec.':'.$status;
}	}
}	}
my ($classlist) = &Apache::loncoursedata::get_classlist(	my ($classlist,$keylist) =
$env{'course.'.$cid.'.domain'},	&Apache::loncoursedata::get_classlist($cdom,$cnum);
$env{'course.'.$cid.'.num'});
my $sec_index = &Apache::loncoursedata::CL_SECTION();	my $sec_index = &Apache::loncoursedata::CL_SECTION();
my $status_index = &Apache::loncoursedata::CL_STATUS();	my $status_index = &Apache::loncoursedata::CL_STATUS();
while (my ($student,$data) = each %$classlist) {	while (my ($student,$data) = each %$classlist) {
Line 184 sub list_discussion {	Line 185 sub list_discussion {
$data->[$status_index]);	$data->[$status_index]);
push @{$roleinfo{$student}}, 'st:'.$section.':'.$status;	push @{$roleinfo{$student}}, 'st:'.$section.':'.$status;
}	}
	($classgroups,$studentgroups) =
	&Apache::loncoursedata::get_group_memberships($classlist,$keylist,
	$cdom,$cnum);
}	}

# Get discussion display default settings for user	# Get discussion display default settings for user
Line 223 sub list_discussion {	Line 227 sub list_discussion {
}	}
$visit ++;	$visit ++;

my $seeid=&Apache::lonnet::allowed('rin',$crs);	my $seeid;
	if (($group ne '') && ($mode eq 'board') &&
	($ressymb =~ m\|^bulletin___\d+___adm/wrapper/adm/\Q$cdom\E/\Q$cnum\E/\d+/bulletinboard$\|)) {
	if (&check_group_priv($group,'dgp') eq 'ok') {
	$seeid = 1;
	}
	} else {
	$seeid=&Apache::lonnet::allowed('rin',$crs);
	}
my @discussionitems=();	my @discussionitems=();
my %shown = ();	my %shown = ();
my @posteridentity=();	my @posteridentity=();
Line 250 sub list_discussion {	Line 262 sub list_discussion {
$discinfo{$visitkey} = $visit;	$discinfo{$visitkey} = $visit;

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

my $discussion='';	my $discussion='';
my $manifestfile;	my $manifestfile;
Line 323 sub list_discussion {	Line 335 sub list_discussion {
if ($newpostsflag) {	if ($newpostsflag) {
$chglink .= '&previous='.$prevread;	$chglink .= '&previous='.$prevread;
}	}
	$chglink.=&group_args($group);

if ($visible) {	if ($visible) {
# Print the discusssion	# Print the discusssion
Line 394 imscp_v1p1.xsd http://www.imsglobal.org/	Line 407 imscp_v1p1.xsd http://www.imsglobal.org/
$discussion.='<form name="readchoices" method="post" action="/adm/feedback?chgreads='.$ressymb.'" ><table bgcolor="#AAAAAA" cellpadding="2" cellspacing="2" border="0">';	$discussion.='<form name="readchoices" method="post" action="/adm/feedback?chgreads='.$ressymb.'" ><table bgcolor="#AAAAAA" cellpadding="2" cellspacing="2" border="0">';
$discussion .='<tr><td bgcolor="#DDDDBB" colspan="'.$colspan.'">'.	$discussion .='<tr><td bgcolor="#DDDDBB" colspan="'.$colspan.'">'.
'<table border="0" width="100%" bgcolor="#DDDDBB"><tr>';	'<table border="0" width="100%" bgcolor="#DDDDBB"><tr>';
my $escsymb=&Apache::lonnet::escape($ressymb);	my $escsymb=&escape($ressymb);
if ($visible>2) {	if ($visible>2) {
$discussion.='<td align="left">'.	$discussion.='<td align="left">'.
'<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 .='">'.&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 .='">'.&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 .='">'.&mt('Sorting/Filtering options').'</a> &nbsp';	$discussion .='">'.&mt('Sorting/Filtering options').'</a> &nbsp';
} else {	} else {
$discussion .= '<td align="left">';	$discussion .= '<td align="left">';
Line 419 imscp_v1p1.xsd http://www.imsglobal.org/	Line 435 imscp_v1p1.xsd http://www.imsglobal.org/
if ($newpostsflag) {	if ($newpostsflag) {
$discussion .= '&previous='.$prevread;	$discussion .= '&previous='.$prevread;
}	}
	$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 align="right"><a href="/adm/preferences?action=changediscussions';
&mt('Preferences on what is marked as NEW').	$discussion .= &group_args($group);
'</a><br /><a href="/adm/feedback?markread=1&symb='.$escsymb.'">'.&mt('Mark NEW posts no longer new').'</a>';	$discussion .= '">'.
	&mt('Preferences on what is marked as NEW').
	'</a><br /><a href="/adm/feedback?markread=1&symb='.$escsymb;
	$discussion .= &group_args($group);
	$discussion .= '">'.&mt('Mark NEW posts no longer new').'</a>';
} else {	} else {
$discussion .= '<td> </td>';	$discussion .= '<td> </td>';
}	}
Line 441 imscp_v1p1.xsd http://www.imsglobal.org/	Line 462 imscp_v1p1.xsd http://www.imsglobal.org/
if ($newpostsflag) {	if ($newpostsflag) {
$discussion .= '&previous='.$prevread;	$discussion .= '&previous='.$prevread;
}	}
	$discussion .= &group_args($group);
$discussion .= '">'.&mt('Show all posts').'</a> '.&mt('to display').' '.	$discussion .= '">'.&mt('Show all posts').'</a> '.&mt('to display').' '.
$numhidden.' ';	$numhidden.' ';
if ($showunmark) {	if ($showunmark) {
Line 609 END	Line 631 END
$filterchoice = '<i>'.&mt('sections').'</i>- '.$env{'form.sectionpick'};	$filterchoice = '<i>'.&mt('sections').'</i>- '.$env{'form.sectionpick'};
$filterchoice .= '    ';	$filterchoice .= '    ';
}	}
	if (@grouppick > 0) {
	$filterchoice = '<i>'.&mt('groups').'</i>- '.$env{'form.grouppick'};
	$filterchoice .= '    ';
	}
if (@rolefilter > 0) {	if (@rolefilter > 0) {
$filterchoice .= '<i>'.&mt('roles').'</i>-';	$filterchoice .= '<i>'.&mt('roles').'</i>-';
foreach (@rolefilter) {	foreach (@rolefilter) {
Line 687 END	Line 713 END
if ($discussiononly) {	if ($discussiononly) {
my $now = time;	my $now = time;
my $attachnum = 0;	my $attachnum = 0;
my $newattachmsg = '';	my $currnewattach;
my @currnewattach = ();	my $currdelold;
my @currdelold = ();
my $comment = '';	my $comment = '';
my $subject = '';	my $subject = '';
if ($env{'form.origpage'}) {	if ($env{'form.origpage'}) {
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['addnewattach','deloldattach','delnewattach','timestamp','idx','subject','comment']);	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['addnewattach','deloldattach','delnewattach','timestamp','idx','subject','comment']);
$subject = &Apache::lonnet::unescape($env{'form.subject'});	$subject = &unescape($env{'form.subject'});
$comment = &Apache::lonnet::unescape($env{'form.comment'});	$comment = &unescape($env{'form.comment'});
my @keepold = ();	my @keepold = ();
&process_attachments(\@currnewattach,\@currdelold,\@keepold);	&process_attachments($currnewattach,$currdelold,\@keepold);
if (@currnewattach > 0) {	if (@{$currnewattach} > 0) {
$attachnum += @currnewattach;	$attachnum += @{$currnewattach};
}	}
}	}
if (&discussion_open($status)) {	if (&discussion_open($status)) {
$discussion.=(<<ENDDISCUSS);	if (($group ne '') && ($mode eq 'board')) {
<form action="/adm/feedback" method="post" name="mailform" enctype="multipart/form-data">	if (&check_group_priv($group,'pgd') eq 'ok') {
<input type="submit" name="discuss" value="Post Discussion" />	$discussion .=
<input type="submit" name="anondiscuss" value="Post Anonymous Discussion" />	&postingform_display($mode,$ressymb,$now,$subject,
<input type="hidden" name="symb" value="$ressymb" />	$comment,$outputtarget,$attachnum,
<input type="hidden" name="sendit" value="true" />	$currnewattach,$currdelold,
<input type="hidden" name="timestamp" value="$now" />	$group);
<br /><a name="newpost"></a>
<font size="1">Note: in anonymous discussion, your name is visible only
to course faculty</font><br />
<b>Title:</b> <input type="text" name="subject" value="$subject" size="30" /><br /><br />
<textarea name="comment" cols="80" rows="14" wrap="hard">$comment</textarea>
ENDDISCUSS
if ($env{'form.origpage'}) {
$discussion.='<input type="hidden" name="origpage" value="'.$env{'form.origpage'}.'" />'."\n";
foreach (@currnewattach) {
$discussion.='<input type="hidden" name="currnewattach" value="'.$_.'" />'."\n";
}
}
$discussion.="</form>\n";
if ($outputtarget ne 'tex') {
$discussion.=&generate_attachments_button('',$attachnum,$ressymb,$now,\@currnewattach,\@currdelold,'',$mode);
if (@currnewattach > 0) {
$newattachmsg .= '<b>New attachments</b><br />';
if (@currnewattach > 1) {
$newattachmsg .= '<ol>';
foreach my $item (@currnewattach) {
$item =~ m#.*/([^/]+)$#;
$newattachmsg .= '<li><a href="'.$item.'">'.$1.'</a></li>'."\n";
}
$newattachmsg .= '</ol>'."\n";
} else {
$currnewattach[0] =~ m#.*/([^/]+)$#;
$newattachmsg .= '<a href="'.$currnewattach[0].'">'.$1.'</a><br />'."\n";
}
}	}
$discussion.=$newattachmsg;	} else {
$discussion.=&generate_preview_button();	$discussion.=
}	&postingform_display($mode,$ressymb,$now,$subject,
	$comment,$outputtarget,$attachnum,
	$currnewattach,$currdelold);
	}
}	}
} else {	} else {
$discussion.='<table bgcolor="#BBBBBB"><tr><td>';	$discussion.='<table bgcolor="#BBBBBB"><tr><td>';
Line 751 ENDDISCUSS	Line 751 ENDDISCUSS
($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))) {	($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))) {
if ($outputtarget ne 'tex') {	if ($outputtarget ne 'tex') {
$discussion.='<a href="/adm/feedback?replydisc='.	$discussion.='<a href="/adm/feedback?replydisc='.
&Apache::lonnet::escape($ressymb).':::" '.$target.'>'.	&escape($ressymb).':::" '.$target.'>'.
'<img src="'.&Apache::loncommon::lonhttpdurl('/adm/lonMisc/chat.gif').'" border="0" />'.	'<img src="'.&Apache::loncommon::lonhttpdurl('/adm/lonMisc/chat.gif').'" border="0" />'.
&mt('Post Discussion').'</a><br />';	&mt('Post Discussion').'</a><br />';
}	}
}	}
$discussion.='<a href="/adm/feedback?sendmessageonly=1&symb='.	$discussion.='<a href="/adm/feedback?sendmessageonly=1&symb='.
&Apache::lonnet::escape($ressymb).	&escape($ressymb).
'"><img src="'.&Apache::loncommon::lonhttpdurl('/adm/lonMisc/feedback.gif').'" border="0" />'.	'"><img src="'.&Apache::loncommon::lonhttpdurl('/adm/lonMisc/feedback.gif').'" border="0" />'.
&mt('Send Message').'</td></tr></table>';	&mt('Send Message').'</a></td></tr></table>';
}	}
return $discussion;	return $discussion;
}	}

	sub postingform_display {
	my ($mode,$ressymb,$now,$subject,$comment,$outputtarget,$attachnum,
	$currnewattach,$currdelold,$group) = @_;
	my $newattachmsg;
	my $postingform = (<<ENDDISCUSS);
	<form action="/adm/feedback" method="post" name="mailform" enctype="multipart/form-data"> <input type="submit" name="discuss" value="Post Discussion" />
	<input type="submit" name="anondiscuss" value="Post Anonymous Discussion" /> <input type="hidden" name="symb" value="$ressymb" />
	<input type="hidden" name="sendit" value="true" />
	<input type="hidden" name="timestamp" value="$now" />
	<br /><a name="newpost"></a>
	<font size="1">Note: in anonymous discussion, your name is visible only
	to course faculty</font><br />
	<b>Title:</b> <input type="text" name="subject" value="$subject" size="30" /><br /><br />
	<textarea name="comment" cols="80" rows="14" wrap="hard">$comment</textarea>
	ENDDISCUSS
	if ($env{'form.origpage'}) {
	$postingform .= '<input type="hidden" name="origpage" value="'.
	$env{'form.origpage'}.'" />'."\n";
	foreach my $att (@{$currnewattach}) {
	$postingform .= '<input type="hidden" name="currnewattach" '.
	'value="'.$att.'" />'."\n";
	}
	}
	if (exists($env{'form.ref'})) {
	$postingform .= '<input type="hidden" name="ref" value="'.
	$env{'form.ref'}.'" />';
	}
	if ($group ne '') {
	$postingform .='<input type="hidden" name="group" value="'.$group.'" />';
	}
	$postingform .= "</form>\n";
	if ($outputtarget ne 'tex') {
	$postingform .= &generate_attachments_button('',$attachnum,$ressymb,
	$now,$currnewattach,
	$currdelold,'',$mode);
	if ((ref($currnewattach) eq 'ARRAY') && (@{$currnewattach} > 0)) {
	$newattachmsg = '<br /><b>New attachments</b><br />';
	if (@{$currnewattach} > 1) {
	$newattachmsg .= '<ol>';
	foreach my $item (@{$currnewattach}) {
	$item =~ m#.*/([^/]+)$#;
	$newattachmsg .= '<li><a href="'.$item.'">'.$1.'</a></li>'."\n";
	}
	$newattachmsg .= '</ol>'."\n";
	} else {
	$$currnewattach[0] =~ m#.*/([^/]+)$#;
	$newattachmsg .= '<a href="'.$$currnewattach[0].'">'.$1.'</a><br />'."\n";
	}
	}
	$postingform .= $newattachmsg;
	$postingform .= &generate_preview_button();
	}
	return $postingform;
	}

sub build_posting_display {	sub build_posting_display {
my ($usernamesort,$subjectsort,$namesort,$notshown,$newitem,$dischash,$shown,$alldiscussion,$imsitems,$imsfiles,$roleinfo,$discussionitems,$replies,$depth,$posters,$maxdepth,$visible,$newpostsflag,$current,$status,$viewgrades,$seeid,$prevread,$sortposts,$ressymb,$target,$readkey,$showunmark,$showonlyunread,$totposters,$rolefilter,$sectionpick,$statusfilter,$toggkey,$outputtarget,$anonhash,$anoncnt) = @_;	my ($usernamesort,$subjectsort,$namesort,$notshown,$newitem,$dischash,$shown,$alldiscussion,$imsitems,$imsfiles,$roleinfo,$discussionitems,$replies,$depth,$posters,$maxdepth,$visible,$newpostsflag,$current,$status,$viewgrades,$seeid,$prevread,$sortposts,$ressymb,$target,$readkey,$showunmark,$showonlyunread,$totposters,$rolefilter,$sectionpick,$grouppick,$classgroups,$statusfilter,$toggkey,$outputtarget,$anonhash,$anoncnt,$group) = @_;
my @original=();	my @original=();
my @index=();	my @index=();
	my $skip_group_check = 0;
my $symb=&Apache::lonenc::check_decrypt($ressymb);	my $symb=&Apache::lonenc::check_decrypt($ressymb);
my $escsymb=&Apache::lonnet::escape($ressymb);	my $escsymb=&escape($ressymb);
my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'},	my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'},
$env{'course.'.$env{'request.course.id'}.'.domain'},	$env{'course.'.$env{'request.course.id'}.'.domain'},
$env{'course.'.$env{'request.course.id'}.'.num'});	$env{'course.'.$env{'request.course.id'}.'.num'});

	if ((@{$grouppick} == 0) \|\| (grep(/^all$/,@{$grouppick}))) {
	$skip_group_check = 1;
	}
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 781 sub build_posting_display {	Line 840 sub build_posting_display {
}	}
my ($skiptest,$rolematch,$roleregexp,$secregexp,$statusregexp);	my ($skiptest,$rolematch,$roleregexp,$secregexp,$statusregexp);
if ($sortposts) {	if ($sortposts) {
($skiptest,$roleregexp,$secregexp,$statusregexp) = &filter_regexp($rolefilter,$sectionpick,$statusfilter);	($skiptest,$roleregexp,$secregexp,$statusregexp) =
	&filter_regexp($rolefilter,$sectionpick,$statusfilter);
$rolematch = $roleregexp.':'.$secregexp.':'.$statusregexp;	$rolematch = $roleregexp.':'.$secregexp.':'.$statusregexp;
}	}
for (my $id=1;$id<=$contrib{'version'};$id++) {	for (my $id=1;$id<=$contrib{'version'};$id++) {
Line 870 sub build_posting_display {	Line 930 sub build_posting_display {
@{$$subjectsort{$subject}} = ("$idx");	@{$$subjectsort{$subject}} = ("$idx");
}	}
}	}
if ((!$contrib{$idx.':anonymous'}) \|\| ($seeid)) {	if ((!$contrib{$idx.':anonymous'}) \|\| (&Apache::lonnet::allowed('rin',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')))) {
$sender=&Apache::loncommon::aboutmewrapper(	$sender=&Apache::loncommon::aboutmewrapper(
$plainname,	$plainname,
$contrib{$idx.':sendername'},	$contrib{$idx.':sendername'},
Line 911 sub build_posting_display {	Line 971 sub build_posting_display {
} else {	} else {
@{$$namesort{$lastname}{$firstname}} = ("$idx");	@{$$namesort{$lastname}{$firstname}} = ("$idx");
}	}
if (&editing_allowed()) {	if (&editing_allowed($escsymb.':::'.$idx,$group)) {
if (($env{'user.domain'} eq $contrib{$idx.':senderdomain'}) && ($env{'user.name'} eq $contrib{$idx.':sendername'})) {	if (($env{'user.domain'} eq $contrib{$idx.':senderdomain'}) && ($env{'user.name'} eq $contrib{$idx.':sendername'})) {
$sender.=' <a href="/adm/feedback?editdisc='.	$sender.=' <a href="/adm/feedback?editdisc='.
$escsymb.':::'.$idx;	$escsymb.':::'.$idx;
if ($$newpostsflag) {	if ($$newpostsflag) {
$sender .= '&previous='.$prevread;	$sender .= '&previous='.$prevread;
}	}
$sender .= '" '.$target.'>'.&mt('Edit').'</a>';	$sender .= &group_args($group);
	$sender .= '" '.$target.'>'.&mt('Edit').'</a>';

unless ($seeid) {	unless ($seeid) {
$sender.=" <a href=\"javascript:studentdelete('$escsymb','$idx','$$newpostsflag','$prevread')";	$sender.=" <a href=\"javascript:studentdelete('$escsymb','$idx','$$newpostsflag','$prevread')";
$sender .= '">'.&mt('Delete').'</a>';	$sender .= '">'.&mt('Delete').'</a>';
Line 941 sub build_posting_display {	Line 1003 sub build_posting_display {
if ($$newpostsflag) {	if ($$newpostsflag) {
$sender .= '&previous='.$prevread;	$sender .= '&previous='.$prevread;
}	}
	$sender .= &group_args($group);
$sender .= '">'.&mt('Hide').'</a>';	$sender .= '">'.&mt('Hide').'</a>';
}	}
$sender.=' <a href="/adm/feedback?deldisc='.	$sender.=' <a href="/adm/feedback?deldisc='.
Line 948 sub build_posting_display {	Line 1011 sub build_posting_display {
if ($$newpostsflag) {	if ($$newpostsflag) {
$sender .= '&previous='.$prevread;	$sender .= '&previous='.$prevread;
}	}
	$sender .= &group_args($group);
$sender .= '">'.&mt('Delete').'</a>';	$sender .= '">'.&mt('Delete').'</a>';
}	}
} else {	} else {
Line 975 sub build_posting_display {	Line 1039 sub build_posting_display {
@{$$namesort{'__anon'}{'__anon'}} = ("$idx");	@{$$namesort{'__anon'}{'__anon'}} = ("$idx");
}	}
}	}
if (&discussion_open($status) &&	if (&discussion_open($status)) {
&Apache::lonnet::allowed('pch',	if (($group ne '') &&
$env{'request.course.id'}.	(&check_group_priv($group,'pgd') eq 'ok')) {
($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))) {	$sender.=' <a href="/adm/feedback?replydisc='.
$sender.=' <a href="/adm/feedback?replydisc='.	$escsymb.':::'.$idx;
$escsymb.':::'.$idx;	if ($$newpostsflag) {
if ($$newpostsflag) {	$sender .= '&previous='.$prevread;
$sender .= '&previous='.$prevread;	}
	$sender .= &group_args($group);
	$sender .= '" '.$target.'>'.&mt('Reply').'</a>';
	} elsif (&Apache::lonnet::allowed('pch',
	$env{'request.course.id'}.
	($env{'request.course.sec'}?'/'.
	$env{'request.course.sec'}:''))) {
	$sender.=' <a href="/adm/feedback?replydisc='.
	$escsymb.':::'.$idx;
	if ($$newpostsflag) {
	$sender .= '&previous='.$prevread;
	}
	$sender .= '" '.$target.'>'.&mt('Reply').'</a>';
}	}
$sender .= '" '.$target.'>'.&mt('Reply').'</a>';
}	}
if ($viewgrades) {	if ($viewgrades) {
$vgrlink=&Apache::loncommon::submlink('Submissions',	$vgrlink=&Apache::loncommon::submlink('Submissions',
Line 1041 sub build_posting_display {	Line 1116 sub build_posting_display {
my $uname = $contrib{$idx.':sendername'};	my $uname = $contrib{$idx.':sendername'};
my $udom = $contrib{$idx.':senderdomain'};	my $udom = $contrib{$idx.':senderdomain'};
my $poster = $uname.':'.$udom;	my $poster = $uname.':'.$udom;
if (defined($env{'form.totposters'})) {	if ($env{'form.totposters'} ne '') {
if ($totposters == 0) {	if ($totposters == 0) {
$$shown{$idx} = 0;	$$shown{$idx} = 0;
} elsif ($totposters > 0) {	} elsif ($totposters > 0) {
Line 1066 sub build_posting_display {	Line 1141 sub build_posting_display {
}	}
}	}
}	}
	if ($$shown{$idx} && !$skip_group_check) {
	my $showflag = 0;
	if (ref($$classgroups{$poster}{active}) eq 'HASH') {
	foreach my $grp (@{$grouppick}) {
	if (grep/^\Q$grp\E$/,
	keys(%{$$classgroups{$poster}{active}})) {
	$showflag = 1;
	last;
	}
	}
	}
	if ($showflag) {
	$$shown{$idx} = 1;
	} else {
	$$shown{$idx} = 0;
	}
	}
} else {	} else {
$$shown{$idx} = 1;	$$shown{$idx} = 1;
}	}
Line 1096 sub build_posting_display {	Line 1188 sub build_posting_display {
my @postversions = ();	my @postversions = ();
$$discussionitems[$idx] .= &mt('This post has been edited by the author.');	$$discussionitems[$idx] .= &mt('This post has been edited by the author.');
if ($seeid) {	if ($seeid) {
$$discussionitems[$idx] .= '  <a href="/adm/feedback?allversions='.$escsymb.':::'.$idx.'">'.&mt('Display all versions').'</a>';	$$discussionitems[$idx] .= '  <a href="/adm/feedback?allversions='.$escsymb.':::'.$idx;
	$$discussionitems[$idx] .= &group_args($group);
	$$discussionitems[$idx] .= '">'.&mt('Display all versions').'</a>';
}	}
$$discussionitems[$idx].='<br/>'.&mt('Earlier version(s) were posted on: ');	$$discussionitems[$idx].='<br/>'.&mt('Earlier version(s) were posted on: ');
if ($contrib{$idx.':history'} =~ m/:/) {	if ($contrib{$idx.':history'} =~ m/:/) {
Line 1159 sub filter_regexp {	Line 1253 sub filter_regexp {
$secregexp .= '[^:]*';	$secregexp .= '[^:]*';
}	}
}	}

if (defined($statusfilter) && $statusfilter ne '') {	if (defined($statusfilter) && $statusfilter ne '') {
if ($statusfilter eq 'all') {	if ($statusfilter eq 'all') {
$statusregexp = '[^:]+';	$statusregexp = '[^:]+';
Line 1179 sub get_post_contents {	Line 1274 sub get_post_contents {
%{$$imsfiles{$idx}}=();	%{$$imsfiles{$idx}}=();
if ($type eq 'allversions') {	if ($type eq 'allversions') {
unless($seeid) {	unless($seeid) {
$discussion=&mt('You do not have privileges to view all versions of posts.').&mt('Please select a different role');	$discussion=&mt('You do not have privileges to view all versions of posts.').' '.&mt('Please select a different role.');
return $discussion;	return $discussion;
}	}
}	}
Line 1306 sub replicate_attachments {	Line 1401 sub replicate_attachments {
sub mail_screen {	sub mail_screen {
my ($r,$feedurl,$options) = @_;	my ($r,$feedurl,$options) = @_;
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']);	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['subject','comment','currnewattach','addnewattach','deloldattach','delnewattach','timestamp','idx','anondiscuss','discuss','blog','group','ref']);
}	}

my $title=&Apache::lonnet::gettitle($feedurl);	my $title=&Apache::lonnet::gettitle($feedurl);
Line 1328 sub mail_screen {	Line 1423 sub mail_screen {
my $attachnum = 0;	my $attachnum = 0;
my $anonchk = (<<END);	my $anonchk = (<<END);
function anonchk() {	function anonchk() {
if (document.mailform.anondiscuss.checked == true) {	for (var i=0; i < document.mailform.discuss.length; i++) {
document.attachment.anondiscuss.value = '1'	if (document.mailform.discuss[i].checked) {
}	document.attachment.discuss.value =
if (document.mailform.discuss.checked == true) {	document.mailform.discuss[i].value;
document.attachment.discuss.value = '1'	}
}	}
	if (document.mailform.blog.checked) {
	document.attachment.blog.value = 1;
	}
return	return
}	}
END	END
Line 1341 END	Line 1439 END
if (exists($env{'form.origpage'})) {	if (exists($env{'form.origpage'})) {
$anonscript = (<<END);	$anonscript = (<<END);
function setposttype() {	function setposttype() {
var anondisc = $env{'form.anondiscuss'};	var disc = "$env{'form.discuss'}";
var disc = $env{'form.discuss'};	for (var i=0; i < document.mailform.discuss.length; i++) {
if (anondisc == 1) {	if (disc == document.mailform.discuss[i].value) {
document.mailform.anondiscuss.checked = true	document.mailform.discuss[i].checked = 1;
	}
}	}
if (disc == 1) {	var blog = "$env{'form.blog'}";
document.mailform.discuss.checked = true	if (blog == 1) {
	document.mailform.blog.checked=1;
}	}
return	return
}	}
Line 1414 END	Line 1514 END
$parentmsg = $contrib{$idx.':replyto'};	$parentmsg = $contrib{$idx.':replyto'};
}	}
unless (exists($env{'form.origpage'})) {	unless (exists($env{'form.origpage'})) {
my $anonflag = 0;	my $anonflag = 'nonanon';
if ($contrib{$idx.':anonymous'}) {	if ($contrib{$idx.':anonymous'}) {
$anonflag = 1;	$anonflag = 'anon';
}	}
$anonscript = (<<END);	$anonscript = (<<END);
function setposttype () {	function setposttype () {
var currtype = $anonflag	var currtype = "$anonflag";
if (currtype == 1) {	for (var i=0; i<document.mailform.discuss.length; i++) {
document.mailform.elements.discuss.checked = false	if (document.mailform.elements.discuss[i].value == currtype ) {
document.mailform.elements.anondiscuss.checked = true	document.mailform.elements.discuss[i].checked=1;
}	}
if (currtype == 0) {
document.mailform.elements.anondiscuss.checked = false
document.mailform.elements.discuss.checked = true
}	}
return	return
}	}
Line 1441 END	Line 1538 END
}	}

if ($env{'form.origpage'}) {	if ($env{'form.origpage'}) {
$subject = &Apache::lonnet::unescape($env{'form.subject'});	$subject = &unescape($env{'form.subject'});
$comment = &Apache::lonnet::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();
Line 1452 END	Line 1549 END
//<!--	//<!--
function gosubmit() {	function gosubmit() {
var rec=0;	var rec=0;
if (typeof(document.mailform.elements.author)!="undefined") {
if (document.mailform.elements.author.checked) {
rec=1;
}
}
if (typeof(document.mailform.elements.question)!="undefined") {
if (document.mailform.elements.question.checked) {
rec=1;
}
}
if (typeof(document.mailform.elements.course)!="undefined") {
if (document.mailform.elements.course.checked) {
rec=1;
}
}
if (typeof(document.mailform.elements.policy)!="undefined") {
if (document.mailform.elements.policy.checked) {
rec=1;
}
}
if (typeof(document.mailform.elements.discuss)!="undefined") {	if (typeof(document.mailform.elements.discuss)!="undefined") {
if (document.mailform.elements.discuss.checked) {	if (typeof(document.mailform.elements.discuss.length) == "undefined") {
rec=1;	if (document.mailform.elements.discuss.checked ) {
}	rec=1;
}	}
if (typeof(document.mailform.elements.anondiscuss)!="undefined") {	} else {
if (document.mailform.elements.anondiscuss.checked) {	for (var i=0; i<document.mailform.elements.discuss.length; i++) {
rec=1;	if (document.mailform.elements.discuss[i].checked ) {
}	rec=1;
}	}
	}
	}
	}
if (typeof(document.mailform.elements.blog)!="undefined") {	if (typeof(document.mailform.elements.blog)!="undefined") {
if (document.mailform.elements.blog.checked) {	if (document.mailform.elements.blog.checked) {
rec=1;	rec=1;
Line 1494 END	Line 1574 END
}	}
document.mailform.submit();	document.mailform.submit();
} else {	} else {
alert('Please check a feedback type.');	alert('Please select a feedback type.');
}	}
}	}
$anonchk	$anonchk
Line 1563 Attachment (128 KB max size): <input typ	Line 1643 Attachment (128 KB max size): <input typ
</p>	</p>
END	END
}	}
	if (exists($env{'form.group'})) {
	$r->print('<input type="hidden" name="group" value="'.$env{'form.group'}.'" />');
	}
	if (exists($env{'form.ref'})) {
	$r->print('<input type="hidden" name="ref" value="'.$env{'form.ref'}.'" />');
	}
$r->print(<<END);	$r->print(<<END);
<p>	<p>
<input type="hidden" name="sendit" value="1" />	<input type="hidden" name="sendit" value="1" />
Line 1583 END	Line 1669 END
$r->print(&generate_attachments_button($postidx,$attachnum,$ressymb,$now,\@currnewattach,\@currdelold,$numoldver));	$r->print(&generate_attachments_button($postidx,$attachnum,$ressymb,$now,\@currnewattach,\@currdelold,$numoldver));
if ($attachnum > 0) {	if ($attachnum > 0) {
if (@currnewattach > 0) {	if (@currnewattach > 0) {
$newattachmsg .= '<b>New attachments</b><br />';	$newattachmsg .= '<br /><b>New attachments</b><br />';
if (@currnewattach > 1) {	if (@currnewattach > 1) {
$newattachmsg .= '<ol>';	$newattachmsg .= '<ol>';
foreach my $item (@currnewattach) {	foreach my $item (@currnewattach) {
Line 1802 END	Line 1888 END
<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="Store Changes" onClick="javascript:setDisp()" />
	END
	if (exists($env{'form.group'})) {
	$r->print('<input type="hidden" name="group" value="'.$env{'form.group'}.'" />');
	}
	if (exists($env{'form.ref'})) {
	$r->print('<input type="hidden" name="ref" value="'.$env{'form.ref'}.'" />');
	}
	$r->print("
<br />	<br />
<br />	<br />
</form>	</form>
$end_page	$end_page
END	");
return;	return;
}	}

Line 1820 sub print_sortfilter_options {	Line 1914 sub print_sortfilter_options {
my @sections;	my @sections;
my $section_sel = '';	my $section_sel = '';
my $numvisible = 5;	my $numvisible = 5;
	my @groups;
	my $group_sel = '';
	my $numgroupvis = 5;
my %sectioncount = &Apache::loncommon::get_sections();	my %sectioncount = &Apache::loncommon::get_sections();

if ($env{'request.course.sec'} !~ /^\s*$/) { #Restrict section choice to current section	if ($env{'request.course.sec'} !~ /^\s*$/) { #Restrict section choice to current section
Line 1833 sub print_sortfilter_options {	Line 1930 sub print_sortfilter_options {
unshift(@sections,'all'); # Put 'all' at the front of the list	unshift(@sections,'all'); # Put 'all' at the front of the list

}	}
foreach (@sections) {	foreach my $sec (@sections) {
$section_sel .= " <option value=\"$_\" />$_\n";	$section_sel .= " <option value=\"$sec\">$sec</option>\n";
	}

	if (&check_group_priv() eq 'ok') {
	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
	my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum);
	@groups = sort {$a cmp $b} keys(%curr_groups);
	if (scalar(@groups) < 4) {
	$numgroupvis = scalar(@groups) + 1;
	}
	unshift(@groups,'all'); # Put 'all' at the front of the list
	} else {
	my @coursegroups = split(/:/,$env{'request.course.groups'});
	if (@coursegroups > 0) {
	@coursegroups = sort {$a cmp $b} @coursegroups;
	@groups = ('all',@coursegroups);
	if (scalar(@groups) < 4) {
	$numgroupvis = scalar(@groups) + 1;
	}
	} else {
	@groups = ('all');
	$numgroupvis = 1;
	}
	}
	foreach my $group (@groups) {
	$group_sel .= " <option value=\"$group\">$group</option>\n";
}	}

my $function = &Apache::loncommon::get_users_function();	my $function = &Apache::loncommon::get_users_function();
my $tabcolor = &Apache::loncommon::designparm($function.'.tabbg',	my $tabcolor = &Apache::loncommon::designparm($function.'.tabbg',
$env{'user.domain'});	$env{'user.domain'});
Line 1849 sub print_sortfilter_options {	Line 1972 sub print_sortfilter_options {
'spur' => 'Specific user roles',	'spur' => 'Specific user roles',
'sprs' => 'Specific role status',	'sprs' => 'Specific role status',
'spse' => 'Specific sections',	'spse' => 'Specific sections',
	'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'
);	);
Line 1880 function verifyFilter() {	Line 2004 function verifyFilter() {
if (secnum == 0) {	if (secnum == 0) {
document.modifyshown.sectionpick.options[0].selected = true	document.modifyshown.sectionpick.options[0].selected = true
}	}

	var grpnum = 0
	for (var i=0; i<document.modifyshown.grouppick.length; i++) {
	if (document.modifyshown.grouppick.options[i].selected == true) {
	grpnum ++
	}
	}
	if (grpnum == 0) {
	document.modifyshown.grouppick.options[0].selected = true
	}

document.modifyshown.submit();	document.modifyshown.submit();
}	}
</script>	</script>
Line 1905 $start_page	Line 2040 $start_page
<td> </td>	<td> </td>
<td><b>$lt{'spse'}</b></td>	<td><b>$lt{'spse'}</b></td>
<td> </td>	<td> </td>
	<td><b>$lt{'spgr'}</b></td>
	<td> </td>
<td><b>$lt{'psub'}</b></td>	<td><b>$lt{'psub'}</b></td>
</tr>	</tr>
<tr>	<tr>
<td align="center">	<td align="center" valign="top">
<select name="sortposts">	<select name="sortposts">
<option value="ascdate" selected="selected" />$sort_types{'ascdate'}	<option value="ascdate" selected="selected">$sort_types{'ascdate'}</option>
<option value="descdate" />$sort_types{'descdate'}	<option value="descdate">$sort_types{'descdate'}</option>
<option value="thread" />$sort_types{'thread'}	<option value="thread">$sort_types{'thread'}</option>
<option value="subject" />$sort_types{'subject'}	<option value="subject">$sort_types{'subject'}</option>
<option value="username" />$sort_types{'username'}	<option value="username">$sort_types{'username'}</option>
<option value="lastfirst" />$sort_types{'lastfirst'}	<option value="lastfirst">$sort_types{'lastfirst'}</option>
</select>	</select>
</td>	</td>
<td> </td>	<td> </td>
<td align="center">	<td align="center" valign="top">
<select name="statusfilter">	<select name="statusfilter">
<option value="all" selected="selected" />$status_types{'all'}	<option value="all" selected="selected" />$status_types{'all'}</option>
<option value="Active" />$status_types{'Active'}	<option value="Active" />$status_types{'Active'}</option>
<option value="Expired" />$status_types{'Expired'}	<option value="Expired" />$status_types{'Expired'}</option>
</select>	</select>
</td>	</td>
<td> </td>	<td> </td>
<td align="center">	<td align="center" valign="top">
<select name="rolefilter" multiple="true" size="5">	<select name="rolefilter" multiple="true" size="5">
<option value="all" />$role_types{'all'}	<option value="all">$role_types{'all'}</option>
<option value="st" />$role_types{'st'}	<option value="st">$role_types{'st'}</option>
<option value="cc" />$role_types{'cc'}	<option value="cc">$role_types{'cc'}</option>
<option value="in" />$role_types{'in'}	<option value="in">$role_types{'in'}</option>
<option value="ta" />$role_types{'ta'}	<option value="ta">$role_types{'ta'}</option>
<option value="ep" />$role_types{'ep'}	<option value="ep">$role_types{'ep'}</option>
<option value="ad" />$role_types{'ad'}	<option value="cr">$role_types{'cr'}</option>
<option value="cr" />$role_types{'cr'}
</select>	</select>
</td>	</td>
<td> </td>	<td> </td>
<td align="center">	<td align="center" valign="top">
<select name="sectionpick" multiple="true" size="$numvisible">	<select name="sectionpick" multiple="true" size="$numvisible">
$section_sel	$section_sel
</select>	</select>
</td>	</td>
<td> </td>	<td> </td>
<td><label><input type="checkbox" name="posterlist" value="$symb" />$lt{'shal'}</label></td>	<td align="center" valign="top">
	<select name="grouppick" multiple="true" size="$numvisible">
	$group_sel
	</select>
	</td>
	<td> </td>
	<td valign="top"><label><input type="checkbox" name="posterlist" value="$symb" />$lt{'shal'}</label></td>
</tr>	</tr>
</table>	</table>
<br />	<br />
Line 1954 $start_page	Line 2096 $start_page
<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="Store Changes" onClick="verifyFilter()" />	<input type="button" name="sub" value="Store Changes" onClick="verifyFilter()" />
	END
	if (exists($env{'form.group'})) {
	$r->print('<input type="hidden" name="group" value="'.$env{'form.group'}.'" />');
	}
	if (exists($env{'form.ref'})) {
	$r->print('<input type="hidden" name="ref" value="'.$env{'form.ref'}.'" />');
	}
	$r->print("
<br />	<br />
<br />	<br />
</form>	</form>
$end_page	$end_page
END	");
}	}

sub print_showposters {	sub print_showposters {
Line 1973 sub print_showposters {	Line 2123 sub print_showposters {
$crs.='_'.$env{'request.course.sec'};	$crs.='_'.$env{'request.course.sec'};
}	}
$crs=~s/\_/\//g;	$crs=~s/\_/\//g;
my $seeid=&Apache::lonnet::allowed('rin',$crs);	my $seeid;
	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
	my $group = $env{'form.group'};
	my $ressymb = &wrap_symb($symb);
	if (($group ne '') &&
	($ressymb =~ m\|^bulletin___ \d+___adm/wrapper/adm/\Q$cdom\E/\Q$cnum\E/\d+/bulletinboard$\|)) {
	if (&check_group_priv($group,'dgp') eq 'ok') {
	$seeid = 1;
	}
	} else {
	$seeid=&Apache::lonnet::allowed('rin',$crs);
	}
my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'},	my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'},
$env{'course.'.$env{'request.course.id'}.'.domain'},	$cdom,$cnum);
$env{'course.'.$env{'request.course.id'}.'.num'});
my %namesort = ();	my %namesort = ();
my %postcounts = ();	my %postcounts = ();

	my %lt = &Apache::lonlocal::texthash(
	sele => 'Select',
	full => 'Fullname',
	usdo => 'Username/domain',
	post => 'Posts',
	);
if ($contrib{'version'}) {	if ($contrib{'version'}) {
for (my $idx=1;$idx<=$contrib{'version'};$idx++) {	for (my $idx=1;$idx<=$contrib{'version'};$idx++) {
my $hidden=($contrib{'hidden'}=~/\.$idx\./);	my $hidden=($contrib{'hidden'}=~/\.$idx\./);
my $deleted=($contrib{'deleted'}=~/\.$idx\./);	my $deleted=($contrib{'deleted'}=~/\.$idx\./);
unless ((($hidden) && (!$seeid)) \|\| ($deleted)) {	unless ((($hidden) && (!$seeid)) \|\| ($deleted)) {
if ((!$contrib{$idx.':anonymous'}) \|\| ($seeid)) {	if ((!$contrib{$idx.':anonymous'}) \|\| (&Apache::lonnet::allowed('rin',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')))) {
my %names = &Apache::lonnet::get('environment',['firstname','lastname'],$contrib{$idx.':senderdomain'},$contrib{$idx.':sendername'});	my %names = &Apache::lonnet::get('environment',['firstname','lastname'],$contrib{$idx.':senderdomain'},$contrib{$idx.':sendername'});
my $lastname = $names{'lastname'};	my $lastname = $names{'lastname'};
my $firstname = $names{'firstname'};	my $firstname = $names{'firstname'};
Line 2020 $start_page	Line 2187 $start_page
<br />	<br />
$table_start	$table_start
<tr>	<tr>
<th>No.</th>	<th>#</th>
<th>Select</th>	<th>$lt{'sele'}</th>
<th>Fullname<font color="#999999">(Username/domain)</font></th>	<th>$lt{'full'} <font color="#999999">($lt{'usdo'})</font></th>
<th>Posts</th>	<th>$lt{'post'}</th>
</tr>	</tr>
END	END
my $count = 0;	my $count = 0;
Line 2134 ENDFAILREDIR	Line 2301 ENDFAILREDIR
}	}

sub redirect_back {	sub redirect_back {
my ($r,$feedurl,$typestyle,$sendsomething,$sendposts,$blog,$status,$previous,$sort,$rolefilter,$statusfilter,$sectionpick,$numpicks) = @_;	my ($r,$feedurl,$typestyle,$sendsomething,$sendposts,$blog,$status,$previous,$sort,$rolefilter,$statusfilter,$sectionpick,$grouppick,$numpicks,$group) = @_;
my $sorttag = '';	my $sorttag = '';
my $roletag = '';	my $roletag = '';
my $statustag = '';	my $statustag = '';
my $sectag = '';	my $sectag = '';
	my $grptag = '';
my $userpicktag = '';	my $userpicktag = '';
my $qrystr = '';	my $qrystr = '';
my $prevtag = '';	my $prevtag = '';

&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;

&dewrapper(\$feedurl);	&dewrapper(\$feedurl);
if ($feedurl=~/^\/adm\//) { $feedurl.='?register=1' };	if ($feedurl=~/^\/adm\//) { $feedurl.='?register=1' };
if ($previous > 0) {	if ($previous > 0) {
Line 2184 sub redirect_back {	Line 2351 sub redirect_back {
$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') {
	$feedurl .= '&grouppick=';
	$sectag .= '<input type="hidden" name="grouppick" value="';
	foreach my $grp (@{$grouppick}) {
	$feedurl .= $grp.',';
	$grptag .= $grp.',';
	}
	$feedurl =~ s/,$//;
	$grptag =~ s/,$//;
	$grptag .= '" />';
	} else {
	$feedurl .= '&grouppick='.$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="';
Line 2202 sub redirect_back {	Line 2383 sub redirect_back {
$statustag ='<input type="hidden" name="statusfilter" value="'.$statusfilter.'" />';	$statustag ='<input type="hidden" name="statusfilter" value="'.$statusfilter.'" />';
}	}
}	}
	my $grouptag;
	if ($group ne '') {
	$grouptag = '<input type="hidden" name="group" value="'.$group.'" />'; my $refarg;
	if (exists($env{'form.ref'})) {
	$refarg = '&ref='.$env{'form.ref'};
	$grouptag .= '<input type="hidden" name="ref" value="'.$env{'form.ref'}.'" />';
	}
	if ($feedurl =~ /\?/) {
	$feedurl .= '&group='.$group.$refarg;
	} else {
	$feedurl .= '?group='.$group.$refarg;
	}
	}
$feedurl=&Apache::lonenc::check_encrypt($feedurl);	$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 = ('onload' => "if (window.name!='loncapaclient') { this.document.reldt.submit(); self.window.close(); }");	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('Feedback sent',undef,
{'redirect' => [2,$feedurl],	{'redirect' => [0,$feedurl],
'only_body' => 1,	'only_body' => 1,
'add_entries' => \%onload});	'add_entries' => \%onload});
my $end_page = &Apache::loncommon::end_page();	my $end_page = &Apache::loncommon::end_page();

$r->print(<<ENDREDIR);	$r->print(<<ENDREDIR);
$start_page	$start_page
<img align="right" src="$logo" />	<img align="right" src="$logo" />
Line 2225 $sorttag	Line 2422 $sorttag
$statustag	$statustag
$roletag	$roletag
$sectag	$sectag
	$grptag
$userpicktag	$userpicktag
	$grouptag
</form>	</form>
$end_page	$end_page
ENDREDIR	ENDREDIR
Line 2235 sub no_redirect_back {	Line 2434 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;
	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',
'add_entries' => {'onload' => "if (window.name!='loncapaclient') { self.window.close(); }"});	'add_entries' => \%onload,);

if ($feedurl !~ m{^/adm/feedback}) {	if ($feedurl !~ m{^/adm/feedback}) {
$body_options{'rediect'} = [2,$feedurl];	$body_options{'rediect'} = [2,$feedurl];
Line 2266 sub screen_header {	Line 2471 sub screen_header {
unless (($env{'form.replydisc'}) \|\| ($env{'form.editdisc'})) {	unless (($env{'form.replydisc'}) \|\| ($env{'form.editdisc'})) {
if (($feedurl=~/^\/res\//) && ($feedurl!~/^\/res\/adm/) && ($env{'user.adv'})) {	if (($feedurl=~/^\/res\//) && ($feedurl!~/^\/res\/adm/) && ($env{'user.adv'})) {
$msgoptions=	$msgoptions=
'<p><label><input type="checkbox" name="author" /> '.	'<p><label><input type="radio" name="discuss" value="author" /> '.
&mt('Feedback to resource author').'</label></p>';	&mt('Feedback to resource author').'</label></p>';
}	}
if (&feedback_available(1)) {	if (&feedback_available(1)) {
$msgoptions.=	$msgoptions.=
'<p><label><input type="checkbox" name="question" /> '.	'<p><label><input type="radio" name="discuss" value="question" /> '.
&mt('Question about resource content').'</label></p>';	&mt('Question about resource content').'</label></p>';
}	}
if (&feedback_available(0,1)) {	if (&feedback_available(0,1)) {
$msgoptions.=	$msgoptions.=
'<p><label><input type="checkbox" name="course" /> '.	'<p><label><input type="radio" name="discuss" value="course" /> '.
&mt('Question/Comment/Feedback about course content').	&mt('Question/Comment/Feedback about course content').
'</label></p>';	'</label></p>';
}	}
if (&feedback_available(0,0,1)) {	if (&feedback_available(0,0,1)) {
$msgoptions.=	$msgoptions.=
'<p><label><input type="checkbox" name="policy" /> '.	'<p><label><input type="radio" name="discuss" value="policy" /> '.
&mt('Question/Comment/Feedback about course policy').	&mt('Question/Comment/Feedback about course policy').
'</label></p>';	'</label></p>';
}	}
Line 2292 sub screen_header {	Line 2497 sub screen_header {
&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'}:''))) {
$discussoptions='<label><input type="checkbox" name="discuss" onClick="this.form.anondiscuss.checked=false;" '.	$discussoptions='<label><input type="radio" name="discuss" value="nonanon" checked="checked" /> '.
($env{'form.replydisc'}?' checked="1"':'').' /> '.
&mt('Contribution to course discussion of resource');	&mt('Contribution to course discussion of resource');
$discussoptions.='</label><br /><label><input type="checkbox" name="anondiscuss" onClick="this.form.discuss.checked=false;" /> '.	$discussoptions.='</label><br /><label><input type="radio" name="discuss" value="anon" /> '.
&mt('Anonymous contribution to course discussion of resource').	&mt('Anonymous contribution to course discussion of resource').
' <i>('.&mt('name only visible to course faculty').')</i></label> '.	' <i>('.&mt('name only visible to course faculty').')</i></label> '.
'<a href="/adm/preferences?action=changescreenname">'.&mt('Change Screenname').'</a>';	'<a href="/adm/preferences?action=changescreenname">'.&mt('Change Screenname').'</a>';
Line 2419 sub decide_receiver {	Line 2623 sub decide_receiver {
my ($feedurl,$author,$question,$course,$policy,$defaultflag) = @_;	my ($feedurl,$author,$question,$course,$policy,$defaultflag) = @_;
my $typestyle='';	my $typestyle='';
my %to=();	my %to=();
if ($env{'form.author'}\|\|$author) {	if ($env{'form.discuss'} eq 'author' \|\|$author) {
$typestyle.='Submitting as Author Feedback<br />';	$typestyle.='Submitting as Author Feedback<br />';
$feedurl=~/^\/res\/(\w+)\/(\w+)\//;	$feedurl=~/^\/res\/(\w+)\/(\w+)\//;
$to{$2.':'.$1}=1;	$to{$2.':'.$1}=1;
}	}
if ($env{'form.question'}\|\|$question) {	if ($env{'form.discuss'} eq 'question' \|\|$question) {
$typestyle.='Submitting as Question<br />';	$typestyle.=&mt('Submitting as Question').'<br />';
foreach (split(/\,/,	foreach (split(/\,/,
$env{'course.'.$env{'request.course.id'}.'.question.email'})	$env{'course.'.$env{'request.course.id'}.'.question.email'})
) {	) {
Line 2433 sub decide_receiver {	Line 2637 sub decide_receiver {
if ($rec) { $to{$rec}=1; }	if ($rec) { $to{$rec}=1; }
}	}
}	}
if ($env{'form.course'}\|\|$course) {	if ($env{'form.discuss'} eq 'course' \|\|$course) {
$typestyle.='Submitting as Comment<br />';	$typestyle.=&mt('Submitting as Comment').'<br />';
foreach (split(/\,/,	foreach (split(/\,/,
$env{'course.'.$env{'request.course.id'}.'.comment.email'})	$env{'course.'.$env{'request.course.id'}.'.comment.email'})
) {	) {
Line 2442 sub decide_receiver {	Line 2646 sub decide_receiver {
if ($rec) { $to{$rec}=1; }	if ($rec) { $to{$rec}=1; }
}	}
}	}
if ($env{'form.policy'}\|\|$policy) {	if ($env{'form.discuss'} eq 'policy' \|\|$policy) {
$typestyle.='Submitting as Policy Feedback<br />';	$typestyle.=&mt('Submitting as Policy Feedback').'<br />';
foreach (split(/\,/,	foreach (split(/\,/,
$env{'course.'.$env{'request.course.id'}.'.policy.email'})	$env{'course.'.$env{'request.course.id'}.'.policy.email'})
) {	) {
Line 2654 sub generate_preview_button {	Line 2858 sub generate_preview_button {
unless ($fieldname) { $fieldname='comment'; }	unless ($fieldname) { $fieldname='comment'; }
my $pre=&mt("Show Preview and Check Spelling");	my $pre=&mt("Show Preview and Check Spelling");
return(<<ENDPREVIEW);	return(<<ENDPREVIEW);
	<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" />
Line 2665 ENDPREVIEW	Line 2870 ENDPREVIEW

sub modify_attachments {	sub modify_attachments {
my ($r,$currnewattach,$currdelold,$symb,$idx,$attachmenturls)=@_;	my ($r,$currnewattach,$currdelold,$symb,$idx,$attachmenturls)=@_;
my $orig_subject = &Apache::lonnet::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,undef,1);
$subject=~s/\n/\<br \/\>/g;	$subject=~s/\n/\<br \/\>/g;
$subject=&Apache::lontexconvert::msgtexconverted($subject);	$subject=&Apache::lontexconvert::msgtexconverted($subject);
Line 2694 END	Line 2899 END
&Apache::loncommon::end_page();	&Apache::loncommon::end_page();

$r->print(<<END);	$r->print(<<END);
	$start_page
<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">	<table border="2">
<tr>	<tr>
Line 2733 END	Line 2939 END
<input type="hidden" name="idx" value="$env{'form.idx'}" />	<input type="hidden" name="idx" value="$env{'form.idx'}" />
<input type="hidden" name="numoldver" value="$env{'form.numoldver'}" />	<input type="hidden" name="numoldver" value="$env{'form.numoldver'}" />
<input type="hidden" name="origpage" value="$env{'form.origpage'}" />	<input type="hidden" name="origpage" value="$env{'form.origpage'}" />
<input type="hidden" name="anondiscuss" value="$env{'form.anondiscuss'}" />
<input type="hidden" name="blog" value="$env{'form.blog'}" />	<input type="hidden" name="blog" value="$env{'form.blog'}" />
<input type="hidden" name="discuss" value="$env{'form.discuss'}" />	<input type="hidden" name="discuss" value="$env{'form.discuss'}" />
END	END
Line 2784 sub generate_attachments_button {	Line 2989 sub generate_attachments_button {
my $origpage = $ENV{'REQUEST_URI'};	my $origpage = $ENV{'REQUEST_URI'};
my $att=$attachnum.' '.&mt("attachments");	my $att=$attachnum.' '.&mt("attachments");
my $response = (<<END);	my $response = (<<END);
	<br />
<form name="attachment" action="/adm/feedback?attach=$ressymb" method="post">	<form name="attachment" action="/adm/feedback?attach=$ressymb" method="post">
Click to add/remove attachments: <input type="button" value="$att"	Click to add/remove attachments: <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);
Line 2799 this.form.submit();" />	Line 3005 this.form.submit();" />
<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="anondiscuss" 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
Line 2979 sub handler {	Line 3184 sub handler {
# --------------------------- Get query string for limited number of parameters	# --------------------------- Get query string for limited number of parameters

&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['hide','unhide','deldisc','postdata','preview','replydisc','editdisc','cmd','symb','onlyunread','allposts','onlyunmark','previous','markread','markonread','markondisp','toggoff','toggon','modifydisp','changes','navtime','navmaps','navurl','sortposts','applysort','rolefilter','statusfilter','sectionpick','posterlist','userpick','attach','origpage','currnewattach','deloldattach','keepold','allversions','export','sendmessageonly']);	['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'};
if ($env{'form.editdisc'}) {	if ($env{'form.editdisc'}) {
if (!(&editing_allowed())) {	if (!(&editing_allowed($env{'form.editdisc'},$env{'form.group'}))) {
my $symb=(split(/\:\:\:/,$env{'form.editdisc'}))[0];	my $symb=(split(/\:\:\:/,$env{'form.editdisc'}))[0];
my ($map,$id,$url)=&Apache::lonnet::decode_symb($symb);	my ($map,$id,$url)=&Apache::lonnet::decode_symb($symb);
my $feedurl=&Apache::lonnet::clutter($url);	my $feedurl=&Apache::lonnet::clutter($url);
&redirect_back($r,$feedurl,&mt('Editing not permitted').'<br />', '0','0','','',$env{'form.previous'},'','','',);	&redirect_back($r,$feedurl,&mt('Editing not permitted').'<br />', '0','0','','',$env{'form.previous'},undef,undef,undef,
	undef,undef,undef,$group);
return OK;	return OK;
}	}
}	}
Line 3012 sub handler {	Line 3219 sub handler {
\%readinghash,$env{'user.domain'},$env{'user.name'});	\%readinghash,$env{'user.domain'},$env{'user.name'});
}	}
&redirect_back($r,$feedurl,&mt('Marked postings read/unread').'<br />',	&redirect_back($r,$feedurl,&mt('Marked postings read/unread').'<br />',
'0','0','','',$env{'form.previous'},'','','',);	'0','0','','',$env{'form.previous'},'','','',
	undef,undef,undef,$group);
return OK;	return OK;
}	}
if ($env{'form.allversions'}) {	if ($env{'form.allversions'}) {
Line 3027 sub handler {	Line 3235 sub handler {
$crs.='_'.$env{'request.course.sec'};	$crs.='_'.$env{'request.course.sec'};
}	}
$crs=~s\|_\|/\|g;	$crs=~s\|_\|/\|g;
my $seeid=&Apache::lonnet::allowed('rin',$crs);	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
my ($symb,$idx)=split(/\:\:\:/,$env{'form.allversions'});	my ($symb,$idx)=split(/\:\:\:/,$env{'form.allversions'});
($symb)=&get_feedurl_and_clean_symb($symb);	($symb)=&get_feedurl_and_clean_symb($symb);
	my $ressymb = &wrap_symb($symb);
	my $group = $env{'form.group'};
	my $seeid;
	if (($group ne '') && (($ressymb =~ m\|^bulletin___\d+___adm/wrapper/adm/\Q$cdom\E/\Q$cnum\E/\d+/bulletinboard$\|))) {
	if (&check_group_priv($group,'dgp') eq 'ok') {
	$seeid = 1;
	}
	} else {
	$seeid = &Apache::lonnet::allowed('rin',$crs);
	}
if ($idx > 0) {	if ($idx > 0) {
my %messages = ();	my %messages = ();
my %subjects = ();	my %subjects = ();
Line 3061 sub handler {	Line 3280 sub handler {
\%discinfo,$env{'user.domain'},$env{'user.name'});	\%discinfo,$env{'user.domain'},$env{'user.name'});
&redirect_back($r,$feedurl,&mt('Changed sort/filter').'<br />','0','0','',	&redirect_back($r,$feedurl,&mt('Changed sort/filter').'<br />','0','0','',
'',$env{'form.previous'},$env{'form.sortposts'},'','','',	'',$env{'form.previous'},$env{'form.sortposts'},'','','',
$numpicks);	'',$numpicks,$group);
return OK;	return OK;
}	}
if ($env{'form.applysort'}) {	if ($env{'form.applysort'}) {
Line 3069 sub handler {	Line 3288 sub handler {
&redirect_back($r,$feedurl,&mt('Changed sort/filter').'<br />','0','0','',	&redirect_back($r,$feedurl,&mt('Changed sort/filter').'<br />','0','0','',
'',$env{'form.previous'},$env{'form.sortposts'},	'',$env{'form.previous'},$env{'form.sortposts'},
$env{'form.rolefilter'},$env{'form.statusfilter'},	$env{'form.rolefilter'},$env{'form.statusfilter'},
$env{'form.sectionpick'});	$env{'form.sectionpick'},$env{'form.grouppick'},
	undef,$group);
return OK;	return OK;
} elsif ($env{'form.cmd'} eq 'sortfilter') {	} elsif ($env{'form.cmd'} eq 'sortfilter') {
my ($symb,$feedurl)=&get_feedurl_and_clean_symb($env{'form.symb'});	my ($symb,$feedurl)=&get_feedurl_and_clean_symb($env{'form.symb'});
Line 3111 sub handler {	Line 3331 sub handler {
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
$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 = ('onload' => "if (window.name!='loncapaclient') { this.document.reldt.submit(); self.window.close(); }");	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,
{'redirect' => [2,$feedurl],	{'redirect' => [2,$feedurl],
Line 3169 ENDREDIR	Line 3394 ENDREDIR
my $previous=$env{'form.previous'};	my $previous=$env{'form.previous'};
if ($env{'form.markondisp'}) { $previous=undef; }	if ($env{'form.markondisp'}) { $previous=undef; }
&redirect_back($r,$feedurl,&mt('Changed display status').'<br />',	&redirect_back($r,$feedurl,&mt('Changed display status').'<br />',
'0','0','','',$previous);	'0','0','','',$previous,'','','','','','',$group);
return OK;	return OK;
} elsif (($env{'form.hide'}) \|\| ($env{'form.unhide'})) {	} elsif (($env{'form.hide'}) \|\| ($env{'form.unhide'})) {
# ----------------------------------------------------------------- Hide/unhide	# ----------------------------------------------------------------- Hide/unhide
Line 3184 ENDREDIR	Line 3409 ENDREDIR
$crs=~s/\_/\//g;	$crs=~s/\_/\//g;
my $seeid=&Apache::lonnet::allowed('rin',$crs);	my $seeid=&Apache::lonnet::allowed('rin',$crs);

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

Line 3214 ENDREDIR	Line 3440 ENDREDIR
$env{'course.'.$env{'request.course.id'}.'.num'});	$env{'course.'.$env{'request.course.id'}.'.num'});

&redirect_back($r,$feedurl,&mt('Changed discussion status').'<br />',	&redirect_back($r,$feedurl,&mt('Changed discussion status').'<br />',
'0','0','','',$env{'form.previous'});	'0','0','','',$env{'form.previous'},undef,undef,undef,
	undef,undef,undef,$group);
return OK;	return OK;
} elsif ($env{'form.cmd'}=~/^(threadedoff\|threadedon)$/) {	} elsif ($env{'form.cmd'}=~/^(threadedoff\|threadedon)$/) {
my ($symb,$feedurl)=&get_feedurl_and_clean_symb($env{'form.symb'});	my ($symb,$feedurl)=&get_feedurl_and_clean_symb($env{'form.symb'});
Line 3226 ENDREDIR	Line 3453 ENDREDIR
&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'});	'0','0','','',$env{'form.previous'},undef,undef,undef,
	undef,undef,undef,$group);
return OK;	return OK;
} elsif ($env{'form.deldisc'}) {	} elsif ($env{'form.deldisc'}) {
# --------------------------------------------------------------- Hide for good	# --------------------------------------------------------------- Hide for good
Line 3240 ENDREDIR	Line 3468 ENDREDIR
$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'});
&redirect_back($r,$feedurl,&mt('Changed discussion status').'<br />',	&redirect_back($r,$feedurl,&mt('Changed discussion status').'<br />',
'0','0','','',$env{'form.previous'});	'0','0','','',$env{'form.previous'},undef,undef,undef,
	undef,undef,undef,$group);
return OK;	return OK;
} elsif ($env{'form.preview'}) {	} elsif ($env{'form.preview'}) {
# -------------------------------------------------------- User wants a preview	# -------------------------------------------------------- User wants a preview
Line 3250 ENDREDIR	Line 3479 ENDREDIR
# -------------------------------------------------------- Work on attachments	# -------------------------------------------------------- Work on attachments
&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','anondiscuss','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);
&process_attachments(\@currnewattach,\@currdelold,\@keepold);	&process_attachments(\@currnewattach,\@currdelold,\@keepold);
if (exists($env{'form.addnewattach.filename'})) {	if (exists($env{'form.addnewattach.filename'})) {
Line 3415 ENDREDIR	Line 3644 ENDREDIR
$attachmenturl,%to);	$attachmenturl,%to);

# Discussion? Store that.	# Discussion? Store that.

my $numpost=0;	my $numpost=0;
if ($env{'form.discuss'} \|\| $env{'form.anondiscuss'}) {	if ( ($env{'form.discuss'} ne ''
	&& $env{'form.discuss'} !~ /^(?:author\|question\|course\|policy)/)
	\|\| $env{'form.anondiscuss'} ne '') {
my $subject = &clear_out_html($env{'form.subject'},undef,1);	my $subject = &clear_out_html($env{'form.subject'},undef,1);
my $anonmode=(defined($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);
$numpost++;	$numpost++;
Line 3438 ENDREDIR	Line 3668 ENDREDIR
}	}

# 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'});	&redirect_back($r,$feedurl,$typestyle,$numsent,$numpost,$blog,$status,$env{'form.previous'},undef,undef,undef,undef,undef,undef,$group);
}	}
return OK;	return OK;
}	}
Line 3479 sub get_feedurl_and_clean_symb {	Line 3709 sub get_feedurl_and_clean_symb {
}	}

sub editing_allowed {	sub editing_allowed {
	my ($postid,$group) = @_;
	$postid = &unescape($postid);
my $can_edit = 0;	my $can_edit = 0;
	if ($group ne '') {
	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
	if ($postid =~ m\|^bulletin___\d+___adm/wrapper(/adm/\Q$cdom\E/\Q$cnum\E/\d+/bulletinboard)\|) {
	if (&check_group_priv($group,'egp') eq 'ok') {
	$can_edit = 1;
	}
	return $can_edit;
	}
	}
my $cid = $env{'request.course.id'};	my $cid = $env{'request.course.id'};
my $role = (split(/\./,$env{'request.role'}))[0];	my $role = (split(/\./,$env{'request.role'}))[0];
my $section = $env{'request.course.sec'};	my $section = $env{'request.course.sec'};
Line 3506 sub editing_allowed {	Line 3748 sub editing_allowed {
return $can_edit;	return $can_edit;
}	}

	sub check_group_priv {
	my ($group,$grp_priv) = @_;
	foreach my $priv ('mdg','vcg') {
	my $checkcourse = $env{'request.course.id'}.
	($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'');
	if (&Apache::lonnet::allowed($priv,$checkcourse)) {
	return 'ok';
	}
	}
	if ($grp_priv && $group ne '') {
	if (&Apache::lonnet::allowed($grp_priv,$env{'request.course.id'}.'/'.$group)) {
	return 'ok';
	}
	}
	return '';
	}

	sub group_args {
	my ($group) = @_;
	if ($group eq '') { return ''; }
	my $extra_args = '&group='.$group;
	if (exists($env{'form.ref'})) {
	$extra_args .= '&ref='.$env{'form.ref'};
	}
	return $extra_args;
	}

1;	1;
__END__	__END__

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.197
changed lines
	Added in v.1.212