loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonfeedback.pm between versions 1.207 and 1.208

version 1.207, 2006/06/30 04:49:03	version 1.208, 2006/07/17 23:02:33
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 lib '/home/httpd/lib/perl/';
use LONCAPA;	use LONCAPA;
Line 73 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 86 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 129 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 = ();
Line 138 sub list_discussion {	Line 144 sub list_discussion {
} else {	} else {
$sectionpick[0] = $env{'form.sectionpick'};	$sectionpick[0] = $env{'form.sectionpick'};
}	}
	my @grouppick = ();
	if ($env{'form.grouppick'} =~ /,/) {
	@grouppick = split/,/,$env{'form.grouppick'};
	} else {
	$grouppick[0] = $env{'form.grouppick'};
	}

my @rolefilter = ();	my @rolefilter = ();
if ($env{'form.rolefilter'} =~ /,/) {	if ($env{'form.rolefilter'} =~ /,/) {
@rolefilter = split/,/,$env{'form.rolefilter'};	@rolefilter = split/,/,$env{'form.rolefilter'};
Line 154 sub list_discussion {	Line 167 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 176 sub list_discussion {	Line 191 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 186 sub list_discussion {	Line 200 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 225 sub list_discussion {	Line 242 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 252 sub list_discussion {	Line 277 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 261 sub list_discussion {	Line 286 sub list_discussion {
my $imsresources;	my $imsresources;
my $copyresult;	my $copyresult;

	my $grp_arg;
	if ($group ne '') {
	$grp_arg = &grp_args($group);
	}

my $function = &Apache::loncommon::get_users_function();	my $function = &Apache::loncommon::get_users_function();
my $color = &Apache::loncommon::designparm($function.'.tabbg',	my $color = &Apache::loncommon::designparm($function.'.tabbg',
$env{'user.domain'});	$env{'user.domain'});
Line 325 sub list_discussion {	Line 355 sub list_discussion {
if ($newpostsflag) {	if ($newpostsflag) {
$chglink .= '&previous='.$prevread;	$chglink .= '&previous='.$prevread;
}	}
	if ($group ne '') {
	$chglink.='&'.$grp_arg;
	}

if ($visible) {	if ($visible) {
# Print the discusssion	# Print the discusssion
Line 403 imscp_v1p1.xsd http://www.imsglobal.org/	Line 436 imscp_v1p1.xsd http://www.imsglobal.org/
if ($newpostsflag) {	if ($newpostsflag) {
$discussion .= '&previous='.$prevread;	$discussion .= '&previous='.$prevread;
}	}
	if ($group ne '') {
	$discussion .= '&'.$grp_arg;
	}
$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;
}	}
	if ($group ne '') {
	$discussion .= '&'.$grp_arg;
	}
$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;
}	}
	if ($group ne '') {
	$discussion .= '&'.$grp_arg;
	}
$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 421 imscp_v1p1.xsd http://www.imsglobal.org/	Line 463 imscp_v1p1.xsd http://www.imsglobal.org/
if ($newpostsflag) {	if ($newpostsflag) {
$discussion .= '&previous='.$prevread;	$discussion .= '&previous='.$prevread;
}	}
	if ($group ne '') {
	$discussion .= '&'.$grp_arg;
	}
$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').	if ($group ne '') {
'</a><br /><a href="/adm/feedback?markread=1&symb='.$escsymb.'">'.&mt('Mark NEW posts no longer new').'</a>';	$discussion .= '&'.$grp_arg;
	}
	$discussion .= '">'.
	&mt('Preferences on what is marked as NEW').
	'</a><br /><a href="/adm/feedback?markread=1&symb='.$escsymb;
	if ($group ne '') {
	$discussion .= '&'.$grp_arg;
	}
	$discussion .= '">'.&mt('Mark NEW posts no longer new').'</a>';
} else {	} else {
$discussion .= '<td> </td>';	$discussion .= '<td> </td>';
}	}
Line 443 imscp_v1p1.xsd http://www.imsglobal.org/	Line 496 imscp_v1p1.xsd http://www.imsglobal.org/
if ($newpostsflag) {	if ($newpostsflag) {
$discussion .= '&previous='.$prevread;	$discussion .= '&previous='.$prevread;
}	}
	if ($group ne '') {
	$discussion .= '&'.$grp_arg;
	}
$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 611 END	Line 667 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 689 END	Line 749 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'}) {
Line 699 END	Line 758 END
$subject = &unescape($env{'form.subject'});	$subject = &unescape($env{'form.subject'});
$comment = &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,$comment,
<input type="hidden" name="symb" value="$ressymb" />	$outputtarget,$attachnum,$currnewattach,
<input type="hidden" name="sendit" value="true" />	$currdelold,$group);
<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'}) {
$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 .= '<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";
}
}	}
$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 766 ENDDISCUSS	Line 799 ENDDISCUSS
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 $skipgrpcheck = 0;
my $symb=&Apache::lonenc::check_decrypt($ressymb);	my $symb=&Apache::lonenc::check_decrypt($ressymb);
my $escsymb=&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})) {
	$skipgrpcheck = 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 783 sub build_posting_display {	Line 875 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 872 sub build_posting_display {	Line 965 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 913 sub build_posting_display {	Line 1006 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>';	if ($group ne '') {
	$sender.='&'.&grp_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 943 sub build_posting_display {	Line 1040 sub build_posting_display {
if ($$newpostsflag) {	if ($$newpostsflag) {
$sender .= '&previous='.$prevread;	$sender .= '&previous='.$prevread;
}	}
	if ($group ne '') {
	$sender.='&'.&grp_args($group);
	}
$sender .= '">'.&mt('Hide').'</a>';	$sender .= '">'.&mt('Hide').'</a>';
}	}
$sender.=' <a href="/adm/feedback?deldisc='.	$sender.=' <a href="/adm/feedback?deldisc='.
Line 950 sub build_posting_display {	Line 1050 sub build_posting_display {
if ($$newpostsflag) {	if ($$newpostsflag) {
$sender .= '&previous='.$prevread;	$sender .= '&previous='.$prevread;
}	}
	if ($group ne '') {
	$sender .= '&'.&grp_args($group);
	}
$sender .= '">'.&mt('Delete').'</a>';	$sender .= '">'.&mt('Delete').'</a>';
}	}
} else {	} else {
Line 977 sub build_posting_display {	Line 1080 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 .= '&'.&grp_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 1043 sub build_posting_display {	Line 1157 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 1068 sub build_posting_display {	Line 1182 sub build_posting_display {
}	}
}	}
}	}
	if ($$shown{$idx} && !$skipgrpcheck) {
	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 1098 sub build_posting_display {	Line 1229 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;
	if ($group ne '') {
	$$discussionitems[$idx] .= '&'.&grp_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 1161 sub filter_regexp {	Line 1296 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 1181 sub get_post_contents {	Line 1317 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 1308 sub replicate_attachments {	Line 1444 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 1550 Attachment (128 KB max size): <input typ	Line 1686 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 1789 END	Line 1931 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 1807 sub print_sortfilter_options {	Line 1957 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 1823 sub print_sortfilter_options {	Line 1976 sub print_sortfilter_options {
foreach (@sections) {	foreach (@sections) {
$section_sel .= " <option value=\"$_\" />$_\n";	$section_sel .= " <option value=\"$_\" />$_\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 (@groups) {
	$group_sel .= " <option value=\"$_\" />$_\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 1836 sub print_sortfilter_options {	Line 2015 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 1867 function verifyFilter() {	Line 2047 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 1892 $start_page	Line 2083 $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 value="descdate" />$sort_types{'descdate'}	<option value="descdate" />$sort_types{'descdate'}
Line 1906 $start_page	Line 2099 $start_page
</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 value="Active" />$status_types{'Active'}	<option value="Active" />$status_types{'Active'}
Line 1914 $start_page	Line 2107 $start_page
</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 value="st" />$role_types{'st'}	<option value="st" />$role_types{'st'}
Line 1922 $start_page	Line 2115 $start_page
<option value="in" />$role_types{'in'}	<option value="in" />$role_types{'in'}
<option value="ta" />$role_types{'ta'}	<option value="ta" />$role_types{'ta'}
<option value="ep" />$role_types{'ep'}	<option value="ep" />$role_types{'ep'}
<option value="ad" />$role_types{'ad'}
<option value="cr" />$role_types{'cr'}	<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 1941 $start_page	Line 2139 $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 1960 sub print_showposters {	Line 2166 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 2007 $start_page	Line 2230 $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 2121 ENDFAILREDIR	Line 2344 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 2171 sub redirect_back {	Line 2394 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 2189 sub redirect_back {	Line 2426 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;	my %onload;
Line 2198 sub redirect_back {	Line 2448 sub redirect_back {
}	}
my $start_page=	my $start_page=
&Apache::loncommon::start_page('Feedback sent',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 2216 $sorttag	Line 2465 $sorttag
$statustag	$statustag
$roletag	$roletag
$sectag	$sectag
	$grptag
$userpicktag	$userpicktag
	$grouptag
</form>	</form>
$end_page	$end_page
ENDREDIR	ENDREDIR
Line 2976 sub handler {	Line 3227 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 3009 sub handler {	Line 3262 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 3024 sub handler {	Line 3278 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 3058 sub handler {	Line 3323 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 3066 sub handler {	Line 3331 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 3171 ENDREDIR	Line 3437 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 3186 ENDREDIR	Line 3452 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 3216 ENDREDIR	Line 3483 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 3228 ENDREDIR	Line 3496 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 3242 ENDREDIR	Line 3511 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 3441 ENDREDIR	Line 3711 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 3482 sub get_feedurl_and_clean_symb {	Line 3752 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 3509 sub editing_allowed {	Line 3791 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 grp_args {
	my ($group) = @_;
	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>

Removed from v.1.207
changed lines
	Added in v.1.208