Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonfeedback.pm between versions 1.202 and 1.255.2.2

version 1.202, 2006/05/10 22:29:57	version 1.255.2.2, 2008/12/21 16:18:04
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 LONCAPA;

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

sub list_discussion {	sub list_discussion {
my ($mode,$status,$ressymb,$imsextras)=@_;	my ($mode,$status,$ressymb,$imsextras,$group)=@_;
	unless ($ressymb) { $ressymb=&Apache::lonnet::symbread(); }
	unless ($ressymb) { return ''; }
	$ressymb=&wrap_symb($ressymb);
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 83 sub list_discussion {	Line 88 sub list_discussion {
$outputtarget = 'export';	$outputtarget = 'export';
}	}
}	}
if (not &discussion_visible($status)) { return ''; }	if (not &discussion_visible($status)) {
	if ($mode ne 'board') {
	&Apache::lonenc::check_encrypt(\$ressymb);
	return '<br />'.&send_message_link($ressymb);
	}
	}
	if ($group ne '' && $mode eq 'board') {
	if (&check_group_priv($group,'vgb') ne 'ok') {
	return '';
	}
	}

	my ($blocked,$blocktext) =
	&Apache::loncommon::blocking_status('boards');
	if ($blocked) {
	&Apache::lonenc::check_encrypt(\$ressymb);
	if ($mode ne 'board') {
	$blocktext.='<br />'.&send_message_link($ressymb);
	}
	return $blocktext;
	}

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 94 sub list_discussion {	Line 120 sub list_discussion {
$crs.='_'.$env{'request.course.sec'};	$crs.='_'.$env{'request.course.sec'};
}	}
$crs=~s/\_/\//g;	$crs=~s/\_/\//g;
unless ($ressymb) { $ressymb=&Apache::lonnet::symbread(); }
unless ($ressymb) { return ''; }
$ressymb=&wrap_symb($ressymb);
my $encsymb=&Apache::lonenc::check_encrypt($ressymb);	my $encsymb=&Apache::lonenc::check_encrypt($ressymb);
my $viewgrades=(&Apache::lonnet::allowed('vgr',$crs)	my $viewgrades=(&Apache::lonnet::allowed('vgr',$crs)
&& ($ressymb=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|task)$/));	&& ($ressymb=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|task)$/));
Line 124 sub list_discussion {	Line 147 sub list_discussion {
my $previous = 0;	my $previous = 0;
my $visit = 0;	my $visit = 0;
my $newpostsflag = 0;	my $newpostsflag = 0;
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 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'},	foreach my $rolekey (keys(%roleshash)) {
$env{'course.'.$cid.'.num'});	my ($role,$uname,$udom,$sec) = split(/:/,$rolekey);
foreach (keys %roleshash) {
my ($role,$uname,$udom,$sec) = split/:/,$_;
if ($role =~ /^cr/) {	if ($role =~ /^cr/) {
$role = 'cr';	$role = 'cr';
}	}
my ($end,$start) = split/:/,$roleshash{$_};	my ($end,$start) = split(/:/,$roleshash{$rolekey});
my $now = time;	my $now = time;
my $status = 'Active';	my $status = 'Active';
if (($now < $start) \|\| ($end > 0 && $now > $end)) {	if (($now < $start) \|\| ($end > 0 && $now > $end)) {
$status = 'Expired';	$status = 'Expired';
}	}
if ($uname && $udom) {	if ($uname && $udom) {
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) {
my ($section,$status) = ($data->[$sec_index],	my ($section,$status) = ($data->[$sec_index],
$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 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 250 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 278 sub list_discussion {	Line 305 sub list_discussion {
'disp' => 'Display',	'disp' => 'Display',
'nolo' => 'Not new',	'nolo' => 'Not new',
'togg' => 'Toggle read/unread',	'togg' => 'Toggle read/unread',
	'aner' => 'An error occurred opening the manifest file.',
	'difo' => 'Discussion for',
	'aerr' => 'An error occurred opening the export file for posting',
	'aysu' => 'Are you sure you want to delete this post?',
	'dpwn' => 'Deleted posts will no longer be visible to you and other students',
	'bwco' => 'but will continue to be visible to your instructor',
	'depo' => 'Deleted posts will no longer be visible to you or anyone else.',
);	);

my $currdisp = $lt{'allposts'};	my $currdisp = $lt{'allposts'};
Line 323 sub list_discussion {	Line 357 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 371 identifier="MANIFEST-$ressymb" xsi:schem	Line 406 identifier="MANIFEST-$ressymb" xsi:schem
imscp_v1p1.xsd http://www.imsglobal.org/xsd/imsmd_v1p2 imsmd_v1p2p2.xsd">	imscp_v1p1.xsd http://www.imsglobal.org/xsd/imsmd_v1p2 imsmd_v1p2p2.xsd">
<organizations default="$ressymb">	<organizations default="$ressymb">
<organization identifier="$ressymb">	<organization identifier="$ressymb">
<title>Discussion for $ressymb</title>\n\|;	<title>$lt{'difo'} $ressymb</title>\n\|;
} else {	} else {
$discussion .= 'An error occurred opening the manifest file.<br />';	$discussion .= $lt{'aner'}.'<br />';
}	}
} else {	} else {
my $colspan=$maxdepth+1;	my $colspan=$maxdepth+1;
$discussion.= qq\|	$discussion.= qq\|
<script>	<script>
function studentdelete (symb,idx,newflag,previous) {	function verifydelete (caller,symb,idx,newflag,previous,groupparm) {
var symbparm = symb+':::'+idx	var symbparm = symb+':::'+idx
var prevparm = ""	var prevparm = ""
if (newflag == 1) {	if (newflag == 1) {
prevparm = "&previous="+previous	prevparm = "&previous="+previous
}	}
if (confirm("Are you sure you want to delete this post?\\nDeleted posts will no longer be visible to you and other students,\\nbut will continue to be visible to your instructor")) {	if (caller == 'studentdelete') {
document.location.href = "/adm/feedback?hide="+symbparm+prevparm	if (confirm("$lt{'aysu'}\\n$lt{'dpwn'},\\n$lt{'bwco'}")) {
}	document.location.href = "/adm/feedback?hide="+symbparm+prevparm+groupparm
	}
	} else {
	if (caller == 'seeiddelete') {
	if (confirm("$lt{'aysu'}\\n$lt{'depo'}")) {
	document.location.href = "/adm/feedback?deldisc="+symbparm+prevparm+groupparm
	}
	}
	}
}	}
</script>	</script>
\|;	\|;
$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 .= &action_links_bar($colspan,$ressymb,$visible,
'<table border="0" width="100%" bgcolor="#DDDDBB"><tr>';	$newpostsflag,$group,
my $escsymb=&Apache::lonnet::escape($ressymb);	$prevread,$markondisp);
if ($visible>2) {	my $escsymb=&escape($ressymb);
$discussion.='<td align="left">'.	my $numhidden = keys(%notshown);
'<a href="/adm/feedback?cmd=threadedon&symb='.$escsymb;
if ($newpostsflag) {
$discussion .= '&previous='.$prevread;
}
$discussion .='">'.&mt('Threaded View').'</a>  '.
'<a href="/adm/feedback?cmd=threadedoff&symb='.$escsymb;
if ($newpostsflag) {
$discussion .= '&previous='.$prevread;
}
$discussion .='">'.&mt('Chronological View').'</a>
<a href= "/adm/feedback?cmd=sortfilter&symb='.$escsymb;
if ($newpostsflag) {
$discussion .= '&previous='.$prevread;
}
$discussion .='">'.&mt('Sorting/Filtering options').'</a> &nbsp';
} else {
$discussion .= '<td align="left">';
}
$discussion .='<a href= "/adm/feedback?export='.$escsymb;
if ($newpostsflag) {
$discussion .= '&previous='.$prevread;
}
$discussion .= '">'.&mt('Export').'?</a>  </td>';
if ($newpostsflag) {
if (!$markondisp) {
$discussion .='<td align="right"><a href="/adm/preferences?action=changediscussions">'.
&mt('Preferences on what is marked as NEW').
'</a><br /><a href="/adm/feedback?markread=1&symb='.$escsymb.'">'.&mt('Mark NEW posts no longer new').'</a>';
} else {
$discussion .= '<td> </td>';
}
} else {
$discussion .= '<td> </td>';
}
$discussion .= '</tr></table></td></tr>';

my $numhidden = keys %notshown;
if ($numhidden > 0) {	if ($numhidden > 0) {
my $colspan = $maxdepth+1;	my $colspan = $maxdepth+1;
$discussion.="\n".'<tr><td bgcolor="#CCCCCC" colspan="'.$colspan.'">'.	$discussion.="\n".'<tr><td bgcolor="#CCCCCC" colspan="'.$colspan.'">'.
Line 441 imscp_v1p1.xsd http://www.imsglobal.org/	Line 447 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 455 imscp_v1p1.xsd http://www.imsglobal.org/	Line 462 imscp_v1p1.xsd http://www.imsglobal.org/
# Choose sort mechanism	# Choose sort mechanism
my @showposts = ();	my @showposts = ();
if ($sortposts eq 'descdate') {	if ($sortposts eq 'descdate') {
@showposts = (sort { $b <=> $a } keys %alldiscussion);	@showposts = (sort { $b <=> $a } keys(%alldiscussion));
} elsif ($sortposts eq 'thread') {	} elsif ($sortposts eq 'thread') {
@showposts = (sort { $a <=> $b } keys %alldiscussion);	@showposts = (sort { $a <=> $b } keys(%alldiscussion));
} elsif ($sortposts eq 'subject') {	} elsif ($sortposts eq 'subject') {
foreach (sort keys %subjectsort) {	foreach my $key (sort(keys(%subjectsort))) {
push @showposts, @{$subjectsort{$_}};	push(@showposts, @{$subjectsort{$key}});
}	}
} elsif ($sortposts eq 'username') {	} elsif ($sortposts eq 'username') {
foreach my $domain (sort keys %usernamesort) {	foreach my $domain (sort(keys(%usernamesort))) {
foreach (sort keys %{$usernamesort{$domain}}) {	foreach my $key (sort(keys(%{$usernamesort{$domain}}))) {
push @showposts, @{$usernamesort{$domain}{$_}};	push(@showposts, @{$usernamesort{$domain}{$key}});
}	}
}	}
} elsif ($sortposts eq 'lastfirst') {	} elsif ($sortposts eq 'lastfirst') {
foreach my $last (sort keys %namesort) {	foreach my $last (sort(keys(%namesort))) {
foreach (sort keys %{$namesort{$last}}) {	foreach my $key (sort(keys(%{$namesort{$last}}))) {
push @showposts, @{$namesort{$last}{$_}};	push(@showposts, @{$namesort{$last}{$key}});
}	}
}	}
} else {	} else {
@showposts = (sort { $a <=> $b } keys %alldiscussion);	@showposts = (sort { $a <=> $b } keys(%alldiscussion));
}	}
my $currdepth = 0;	my $currdepth = 0;
my $firstidx = $alldiscussion{$showposts[0]};	my $firstidx = $alldiscussion{$showposts[0]};
foreach (@showposts) {	foreach my $post (@showposts) {
unless (($sortposts eq 'thread') \|\| (($sortposts eq '') && ($env{'environment.threadeddiscussion'})) \|\| ($outputtarget eq 'export')) {	unless (($sortposts eq 'thread') \|\| (($sortposts eq '') && ($env{'environment.threadeddiscussion'})) \|\| ($outputtarget eq 'export')) {
$alldiscussion{$_} = $_;	$alldiscussion{$post} = $post;
}	}
unless ( ($notshown{$alldiscussion{$_}} eq '1') \|\| ($shown{$alldiscussion{$_}} == 0) ) {	unless ( ($notshown{$alldiscussion{$post}} eq '1') \|\| ($shown{$alldiscussion{$post}} == 0) ) {
if ($outputtarget ne 'tex' && $outputtarget ne 'export') {	if ($outputtarget ne 'tex' && $outputtarget ne 'export') {
$discussion.="\n<tr>";	$discussion.="\n<tr>";
}	}
my $thisdepth=$depth[$alldiscussion{$_}];	my $thisdepth=$depth[$alldiscussion{$post}];
if ($outputtarget ne 'tex' && $outputtarget ne 'export') {	if ($outputtarget ne 'tex' && $outputtarget ne 'export') {
for (1..$thisdepth) {	for (1..$thisdepth) {
$discussion.='<td>   </td>';	$discussion.='<td>   </td>';
Line 496 imscp_v1p1.xsd http://www.imsglobal.org/	Line 503 imscp_v1p1.xsd http://www.imsglobal.org/
my $colspan=$maxdepth-$thisdepth+1;	my $colspan=$maxdepth-$thisdepth+1;
if ($outputtarget eq 'tex') {	if ($outputtarget eq 'tex') {
#cleanup block	#cleanup block
$discussionitems[$alldiscussion{$_}]=~s/<table([^>]*)>/<table TeXwidth="90 mm">/;	$discussionitems[$alldiscussion{$post}]=~s/<table([^>]*)>/<table TeXwidth="90 mm">/;
$discussionitems[$alldiscussion{$_}]=~s/<tr([^>])><td([^>])>/<tr><td TeXwidth="20 mm" align="left">/;	$discussionitems[$alldiscussion{$post}]=~s/<tr([^>])><td([^>])>/<tr><td TeXwidth="20 mm" align="left">/;
my $threadinsert='';	my $threadinsert='';
if ($thisdepth > 0) {	if ($thisdepth > 0) {
$threadinsert='<br /><strong>Reply: '.$thisdepth.'</strong>';	$threadinsert='<br /><strong>Reply: '.$thisdepth.'</strong>';
}	}
$discussionitems[$alldiscussion{$_}]=~s/<\/td><td([^>]*)>/$threadinsert<\/td><td TeXwidth="65 mm" align="left">/;	$discussionitems[$alldiscussion{$post}]=~s/<\/td><td([^>]*)>/$threadinsert<\/td><td TeXwidth="65 mm" align="left">/;
$discussionitems[$alldiscussion{$_}]=~s/<a([^>]+)>(Edit\|Hide\|Delete\|Reply\|Submissions)<\/a>//g;	$discussionitems[$alldiscussion{$post}]=~s/<a([^>]+)>(Edit\|Hide\|Delete\|Reply\|Submissions)<\/a>//g;
$discussionitems[$alldiscussion{$_}]=~s/(<b>\|<\/b>\|<\/a>\|<a([^>]+)>)//g;	$discussionitems[$alldiscussion{$post}]=~s/(<b>\|<\/b>\|<\/a>\|<a([^>]+)>)//g;

$discussionitems[$alldiscussion{$_}]='<tex>\vskip 0 mm\noindent\makebox[2 cm][b]{\hrulefill}</tex>'.$discussionitems[$alldiscussion{$_}];	$discussionitems[$alldiscussion{$post}]='<tex>\vskip 0 mm\noindent\makebox[2 cm][b]{\hrulefill}</tex>'.$discussionitems[$alldiscussion{$post}];
$discussion.=$discussionitems[$alldiscussion{$_}];	$discussion.=$discussionitems[$alldiscussion{$post}];
} elsif ($outputtarget eq 'export') {	} elsif ($outputtarget eq 'export') {
my $postfilename = $alldiscussion{$_}.'-'.$imsitems{$alldiscussion{$_}}{'timestamp'}.'.html';	my $postfilename = $alldiscussion{$post}.'-'.$imsitems{$alldiscussion{$post}}{'timestamp'}.'.html';
if ($manifestok) {	if ($manifestok) {
if (($depth[$alldiscussion{$_}] <= $currdepth) && ($alldiscussion{$_} != $firstidx)) {	if (($depth[$alldiscussion{$post}] <= $currdepth) && ($alldiscussion{$post} != $firstidx)) {
print $manifestfile ' </item>'."\n";	print $manifestfile ' </item>'."\n";
}	}
$currdepth = $depth[$alldiscussion{$_}];	$currdepth = $depth[$alldiscussion{$post}];
print $manifestfile "\n".	print $manifestfile "\n".
'<item identifier="ITEM-'.$ressymb.'-'.$alldiscussion{$_}.'" isvisible="'.	'<item identifier="ITEM-'.$ressymb.'-'.$alldiscussion{$post}.'" isvisible="'.
$imsitems{$alldiscussion{$_}}{'isvisible'}.'" identifieref="RES-'.$ressymb.'-'.$alldiscussion{$_}.'">'.	$imsitems{$alldiscussion{$post}}{'isvisible'}.'" identifieref="RES-'.$ressymb.'-'.$alldiscussion{$post}.'">'.
'<title>'.$imsitems{$alldiscussion{$_}}{'title'}.'</title>';	'<title>'.$imsitems{$alldiscussion{$post}}{'title'}.'</title>';
$imsresources .= "\n".	$imsresources .= "\n".
'<resource identifier="RES-'.$ressymb.'-'.$alldiscussion{$_}.'" type="webcontent" href="'.$postfilename.'">'."\n".	'<resource identifier="RES-'.$ressymb.'-'.$alldiscussion{$post}.'" type="webcontent" href="'.$postfilename.'">'."\n".
'<file href="'.$postfilename.'">'."\n".	'<file href="'.$postfilename.'">'."\n".
$imsfiles{$alldiscussion{$_}}{$imsitems{$alldiscussion{$_}}{'currversion'}}."\n".	$imsfiles{$alldiscussion{$post}}{$imsitems{$alldiscussion{$post}}{'currversion'}}."\n".
'</resource>';	'</resource>';
}	}
my $postingfile;	my $postingfile;
my $postingfilename = $tempexport.'/'.$postfilename;	my $postingfilename = $tempexport.'/'.$postfilename;
if ($postingfile = Apache::File->new('>'.$postingfilename)) {	if ($postingfile = Apache::File->new('>'.$postingfilename)) {
print $postingfile '<html><head><title>Discussion Post</title></head><body>'.	print $postingfile '<html><head><title>Discussion Post</title></head><body>'.
$imsitems{$alldiscussion{$_}}{'title'}.' '.	$imsitems{$alldiscussion{$post}}{'title'}.' '.
$imsitems{$alldiscussion{$_}}{'sender'}.	$imsitems{$alldiscussion{$post}}{'sender'}.
$imsitems{$alldiscussion{$_}}{'timestamp'}.'<br /><br />'.	$imsitems{$alldiscussion{$post}}{'timestamp'}.'<br /><br />'.
$imsitems{$alldiscussion{$_}}{'message'}.'<br />'.	$imsitems{$alldiscussion{$post}}{'message'}.'<br />'.
$imsitems{$alldiscussion{$_}}{'attach'}.'</body></html>'."\n";	$imsitems{$alldiscussion{$post}}{'attach'}.'</body></html>'."\n";
close($postingfile);	close($postingfile);
} else {	} else {
$discussion .= 'An error occurred opening the export file for posting '.$alldiscussion{$_}.'<br />';	$discussion .= $lt{'aerr'}.' '.$alldiscussion{$post}.'<br />';
}	}
$copyresult.=&replicate_attachments($imsitems{$alldiscussion{$_}}{'allattachments'},$tempexport);	$copyresult.=&replicate_attachments($imsitems{$alldiscussion{$post}}{'allattachments'},$tempexport);
} else {	} else {
$discussion.='<td bgcolor="'.$bgcols[$newitem{$alldiscussion{$_}}].	$discussion.='<td bgcolor="'.$bgcols[$newitem{$alldiscussion{$post}}].
'" colspan="'.$colspan.'">'. $discussionitems[$alldiscussion{$_}].	'" colspan="'.$colspan.'">'. $discussionitems[$alldiscussion{$post}].
'</td></tr>';	'</td></tr>';
}	}
}	}
Line 596 END	Line 603 END
$discussion .= &mt('Posts by').':';	$discussion .= &mt('Posts by').':';
if ($totposters > 0) {	if ($totposters > 0) {
foreach my $poster (@posters) {	foreach my $poster (@posters) {
$poster =~ s/:/\@/;
$discussion .= ' '.$poster.',';	$discussion .= ' '.$poster.',';
}	}
$discussion =~ s/,$//;	$discussion =~ s/,$//;
Line 609 END	Line 615 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 my $role (@rolefilter) {
$filterchoice .= ' '.$role_types{$_}.',';	$filterchoice .= ' '.$role_types{$role}.',';
}	}
$filterchoice =~ s/,$//;	$filterchoice =~ s/,$//;
$filterchoice .= '<br /> &nbsp    &nbsp ';	$filterchoice .= '<br />'.(' ' x8);
}	}
if ($statusfilter) {	if ($statusfilter) {
$filterchoice .= '<i>'.&mt('status').'</i>- '.$status_types{$statusfilter};	$filterchoice .= '<i>'.&mt('status').'</i>- '.$status_types{$statusfilter};
Line 627 END	Line 637 END
}	}
}	}
if ($dischash{$toggkey}) {	if ($dischash{$toggkey}) {
my $storebutton = &mt('Store read/unread changes');	my $storebutton = &mt('Save read/unread changes');
$discussion.='<td align="right">'.	$discussion.='<td align="right">'.
'<input type="hidden" name="discsymb" value="'.$ressymb.'">'."\n".	'<input type="hidden" name="discsymb" value="'.$ressymb.'">'."\n".
'<input type="button" name="readoptions" value="'.$storebutton.'"'.	'<input type="button" name="readoptions" value="'.$storebutton.'"'.
Line 639 END	Line 649 END
</table>	</table>
</td>	</td>
</tr>	</tr>
</table>
<br /><br /></form>
END	END
	$discussion .= &action_links_bar($colspan,$ressymb,$visible,
	$newpostsflag,$group,
	$prevread,$markondisp);
	$discussion .= "
	</table>
	<br /><br /></form>\n";
}	}
if ($outputtarget eq 'export') {	if ($outputtarget eq 'export') {
if ($manifestok) {	if ($manifestok) {
Line 673 END	Line 687 END
open(OUTPUT, "zip -r $imszip * 2> /dev/null \|");	open(OUTPUT, "zip -r $imszip * 2> /dev/null \|");
close(OUTPUT);	close(OUTPUT);
chdir $cwd;	chdir $cwd;
$discussion .= 'Download the zip file from <a href="'.$imszipfile.'">Discussion Posting Archive</a><br />';	$discussion .= &mt('Download the zip file from [_1]Discussion Posting Archive','<a href="'.$imszipfile.'">').'</a><br />';
if ($copyresult) {	if ($copyresult) {
$discussion .= 'The following errors occurred during export - <br />'.$copyresult;	$discussion .= &mt('The following errors occurred during export').' - <br />'.$copyresult;
}	}
}	}
} else {	} else {
$discussion .= '<br />Unfortunately you will not be able to retrieve an archive of the discussion posts at this time, because there was a problem creating a manifest file.<br />';	$discussion .= '<br />'.&mt('Unfortunately you will not be able to retrieve an archive of the discussion posts at this time, because there was a problem creating a manifest file.').'<br />';
}	}
return $discussion;	return $discussion;
}	}
Line 687 END	Line 701 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 .= '<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.='<div class="LC_feedback_link">';
if (&discussion_open($status) &&	if (&discussion_open($status) &&
&Apache::lonnet::allowed('pch',	&Apache::lonnet::allowed('pch',
$env{'request.course.id'}.	$env{'request.course.id'}.
($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))) {	($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))) {
if ($outputtarget ne 'tex') {	if ($outputtarget ne 'tex') {
$discussion.='<a href="/adm/feedback?replydisc='.	$discussion.= &send_feedback_link($ressymb,$target);
&Apache::lonnet::escape($ressymb).':::" '.$target.'>'.
'<img src="'.&Apache::loncommon::lonhttpdurl('/adm/lonMisc/chat.gif').'" border="0" />'.
&mt('Post Discussion').'</a><br />';
}	}
}	}
$discussion.='<a href="/adm/feedback?sendmessageonly=1&symb='.	if ($outputtarget ne 'tex') {
&Apache::lonnet::escape($ressymb).	$discussion.= &send_message_link($ressymb);
'"><img src="'.&Apache::loncommon::lonhttpdurl('/adm/lonMisc/feedback.gif').'" border="0" />'.	}
&mt('Send Message').'</td></tr></table>';	$discussion.='</div>';
	}
	return $discussion;
	}

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

	sub send_message_link {
	my ($ressymb) = @_;
	my $output = '<span class="LC_message_link">'.
	' <a href="/adm/feedback?sendmessageonly=1&symb='.
	&escape($ressymb).'"><img alt="" src="'.
	&Apache::loncommon::lonhttpdurl('/adm/lonMisc/feedback.gif').
	'" border="0" />'.&mt('Send Message').'</a></span>';
	return $output;
	}

	sub action_links_bar {
	my ($colspan,$ressymb,$visible,$newpostsflag,$group,$prevread,$markondisp) = @_;
	my $discussion = '<tr><td bgcolor="#DDDDBB" colspan="'.$colspan.'">'.
	'<table border="0" width="100%" bgcolor="#DDDDBB"><tr>';
	my $escsymb=&escape($ressymb);
	if ($visible>2) {
	$discussion .= '<td align="left">'.
	'<a href="/adm/feedback?cmd=threadedon&symb='.$escsymb;
	if ($newpostsflag) {
	$discussion .= '&previous='.$prevread;
	}
	$discussion .= &group_args($group);
	$discussion .='">'.&mt('Threaded View').'</a>  '.
	'<a href="/adm/feedback?cmd=threadedoff&symb='.$escsymb;
	if ($newpostsflag) {
	$discussion .= '&previous='.$prevread;
	}
	$discussion .= &group_args($group);
	$discussion .='">'.&mt('Chronological View').'</a>
	<a href= "/adm/feedback?cmd=sortfilter&symb='.$escsymb;
	if ($newpostsflag) {
	$discussion .= '&previous='.$prevread;
	}
	$discussion .= &group_args($group);
	$discussion .='">'.&mt('Sorting/Filtering options').'</a>'.(' ' x2);
	} else {
	$discussion .= '<td align="left">';
	}
	$discussion .='<a href= "/adm/feedback?export='.$escsymb;
	if ($newpostsflag) {
	$discussion .= '&previous='.$prevread;
	}
	$discussion .= &group_args($group);
	$discussion .= '">'.&mt('Export').'?</a>  </td>';
	if ($newpostsflag) {
	if (!$markondisp) {
	$discussion .='<td align="right"><a href="/adm/preferences?action=changediscussions';
	$discussion .= &group_args($group);
	$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 {
	$discussion .= '<td> </td>';
	}
	} else {
	$discussion .= '<td> </td>';
}	}
	$discussion .= '</tr></table></td></tr>';
return $discussion;	return $discussion;
}	}

	sub postingform_display {
	my ($mode,$ressymb,$now,$subject,$comment,$outputtarget,$attachnum,
	$currnewattach,$currdelold,$group) = @_;
	my $newattachmsg;
	my %lt = &Apache::lonlocal::texthash(
	'note' => 'Note: in anonymous discussion, your name is visible only to course faculty',
	'title' => 'Title',
	'podi' => 'Post Discussion',
	'poan' => 'Post Anonymous Discussion',
	'newa' => 'New attachments',
	);
	my $postingform = (<<ENDDISCUSS);
	<form action="/adm/feedback" method="post" name="mailform" enctype="multipart/form-data"> <input type="submit" name="discuss" value="$lt{'podi'}" />
	<input type="submit" name="anondiscuss" value="$lt{'poan'}" /> <input type="hidden" name="symb" value="$ressymb" />
	<input type="hidden" name="sendit" value="true" />
	<input type="hidden" name="timestamp" value="$now" />
	<br /><a name="newpost"></a>
	<font size="1">$lt{'note'}</font><br />
	<b>$lt{'title'}:</b> <input type="text" name="subject" value="$subject" size="30" /><br /><br />
	<textarea name="comment" cols="80" rows="14" wrap="hard">$comment</textarea>
	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.'" />';
	}
	my $blockblog = &Apache::loncommon::blocking_status('blogs');
	if (!$blockblog) {
	$postingform .= &add_blog_checkbox();
	}
	$postingform .= "</form>\n";
	if ($outputtarget ne 'tex') {
	$postingform .= &generate_attachments_button('',$attachnum,$ressymb,
	$now,$currnewattach,
	$currdelold,'',$mode,
	$blockblog);
	if ((ref($currnewattach) eq 'ARRAY') && (@{$currnewattach} > 0)) {
	$newattachmsg = '<br /><b>'.$lt{'newa'}.'</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'});

	my $see_anonymous =
	&Apache::lonnet::allowed('rin',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''));

	if ((@{$grouppick} == 0) \|\| (grep(/^all$/,@{$grouppick}))) {
	$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 913 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 820 sub build_posting_display {	Line 953 sub build_posting_display {
$$visible++;	$$visible++;
if ($contrib{$idx.':history'}) {	if ($contrib{$idx.':history'}) {
if ($contrib{$idx.':history'} =~ /:/) {	if ($contrib{$idx.':history'} =~ /:/) {
my @oldversions = split/:/,$contrib{$idx.':history'};	my @oldversions = split(/:/,$contrib{$idx.':history'});
$numoldver = @oldversions;	$numoldver = @oldversions;
} else {	} else {
$numoldver = 1;	$numoldver = 1;
Line 859 sub build_posting_display {	Line 992 sub build_posting_display {

if ($subject eq '') {	if ($subject eq '') {
if (defined($$subjectsort{'__No subject'})) {	if (defined($$subjectsort{'__No subject'})) {
push @{$$subjectsort{'__No subject'}}, $idx;	push(@{$$subjectsort{'__No subject'}}, $idx);
} else {	} else {
@{$$subjectsort{'__No subject'}} = ("$idx");	@{$$subjectsort{'__No subject'}} = ("$idx");
}	}
} else {	} else {
if (defined($$subjectsort{$subject})) {	if (defined($$subjectsort{$subject})) {
push @{$$subjectsort{$subject}}, $idx;	push(@{$$subjectsort{$subject}}, $idx);
} else {	} else {
@{$$subjectsort{$subject}} = ("$idx");	@{$$subjectsort{$subject}} = ("$idx");
}	}
}	}
if ((!$contrib{$idx.':anonymous'}) \|\| ($seeid)) {	if (!$contrib{$idx.':anonymous'} \|\| $see_anonymous) {
$sender=&Apache::loncommon::aboutmewrapper(	$sender=&Apache::loncommon::aboutmewrapper(
$plainname,	$plainname,
$contrib{$idx.':sendername'},	$contrib{$idx.':sendername'},
$contrib{$idx.':senderdomain'}).' ('.	$contrib{$idx.':senderdomain'}).' ('.
$contrib{$idx.':sendername'}.' at '.	$contrib{$idx.':sendername'}.':'.
$contrib{$idx.':senderdomain'}.')';	$contrib{$idx.':senderdomain'}.')';
if ($contrib{$idx.':anonymous'}) {	if ($contrib{$idx.':anonymous'}) {
$sender.=' <font color="red"><b>['.$$anonhash{$key}.']</b></font> '.	$sender.=' <font color="red"><b>['.$$anonhash{$key}.']</b></font> '.
$screenname;	$screenname;
}	}
	if ($see_anonymous) {
	$sender.=&Apache::loncommon::student_image_tag($contrib{$idx.':senderdomain'},$contrib{$idx.':sendername'});
	}
# Set up for sorting by domain, then username	# Set up for sorting by domain, then username
unless (defined($$usernamesort{$contrib{$idx.':senderdomain'}})) {	unless (defined($$usernamesort{$contrib{$idx.':senderdomain'}})) {
%{$$usernamesort{$contrib{$idx.':senderdomain'}}} = ();	%{$$usernamesort{$contrib{$idx.':senderdomain'}}} = ();
}	}
if (defined($$usernamesort{$contrib{$idx.':senderdomain'}}{$contrib{$idx.':sendername'}})) {	if (defined($$usernamesort{$contrib{$idx.':senderdomain'}}{$contrib{$idx.':sendername'}})) {
push @{$$usernamesort{$contrib{$idx.':senderdomain'}}{$contrib{$idx.':sendername'}}}, $idx;	push(@{$$usernamesort{$contrib{$idx.':senderdomain'}}{$contrib{$idx.':sendername'}}}, $idx);
} else {	} else {
@{$$usernamesort{$contrib{$idx.':senderdomain'}}{$contrib{$idx.':sendername'}}} = ("$idx");	@{$$usernamesort{$contrib{$idx.':senderdomain'}}{$contrib{$idx.':sendername'}}} = ("$idx");
}	}
Line 907 sub build_posting_display {	Line 1042 sub build_posting_display {
%{$$namesort{$lastname}} = ();	%{$$namesort{$lastname}} = ();
}	}
if (defined($$namesort{$lastname}{$firstname})) {	if (defined($$namesort{$lastname}{$firstname})) {
push @{$$namesort{$lastname}{$firstname}}, $idx;	push(@{$$namesort{$lastname}{$firstname}}, $idx);
} 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')";	my $grpargs = &group_args($group);
	$sender.=" <a href=\"javascript:verifydelete('studentdelete','$escsymb','$idx','$$newpostsflag','$prevread','$grpargs')";
$sender .= '">'.&mt('Delete').'</a>';	$sender .= '">'.&mt('Delete').'</a>';
}	}
}	}
Line 941 sub build_posting_display {	Line 1079 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='.	my $grpargs = &group_args($group);
$escsymb.':::'.$idx;	$sender.=
if ($$newpostsflag) {	" <a href=\"javascript:verifydelete('seeiddelete','$escsymb','$idx','$$newpostsflag','$prevread','$grpargs')\">";
$sender .= '&previous='.$prevread;	$sender .= &mt('Delete').'</a>';
}
$sender .= '">'.&mt('Delete').'</a>';
}	}
} else {	} else {
if ($screenname) {	if ($screenname) {
Line 961 sub build_posting_display {	Line 1098 sub build_posting_display {
%{$$usernamesort{'__anon'}} = ();	%{$$usernamesort{'__anon'}} = ();
}	}
if (defined($$usernamesort{'__anon'}{'__anon'})) {	if (defined($$usernamesort{'__anon'}{'__anon'})) {
push @{$$usernamesort{'__anon'}{'__anon'}}, $idx;	push(@{$$usernamesort{'__anon'}{'__anon'}}, $idx);
} else {	} else {
@{$$usernamesort{'__anon'}{'__anon'}} = ("$idx");	@{$$usernamesort{'__anon'}{'__anon'}} = ("$idx");
}	}
Line 970 sub build_posting_display {	Line 1107 sub build_posting_display {
%{$$namesort{'__anon'}} = ();	%{$$namesort{'__anon'}} = ();
}	}
if (defined($$namesort{'__anon'}{'__anon'})) {	if (defined($$namesort{'__anon'}{'__anon'})) {
push @{$$namesort{'__anon'}{'__anon'}}, $idx;	push(@{$$namesort{'__anon'}{'__anon'}}, $idx);
} else {	} else {
@{$$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 1189 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 1214 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 1075 sub build_posting_display {	Line 1240 sub build_posting_display {
$$newitem{$idx} = 1;	$$newitem{$idx} = 1;
$$discussionitems[$idx] .= '	$$discussionitems[$idx] .= '
<p><table border="0" width="100%">	<p><table border="0" width="100%">
<tr><td align="left"><font color="#FF0000"><b>NEW</b></font></td>';	<tr><td align="left"><font color="#FF0000"><b>'.&mt('NEW').'</b></font></td>';
} else {	} else {
$$newitem{$idx} = 0;	$$newitem{$idx} = 0;
$$discussionitems[$idx] .= '	$$discussionitems[$idx] .= '
Line 1096 sub build_posting_display {	Line 1261 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/:/) {
@postversions = split/:/,$contrib{$idx.':history'};	@postversions = split(/:/,$contrib{$idx.':history'});
} else {	} else {
@postversions = ("$contrib{$idx.':history'}");	@postversions = ("$contrib{$idx.':history'}");
}	}
Line 1123 sub filter_regexp {	Line 1290 sub filter_regexp {
my $skiptest = 1;	my $skiptest = 1;
if (@{$rolefilter} > 0) {	if (@{$rolefilter} > 0) {
my @okrolefilter = ();	my @okrolefilter = ();
foreach (@{$rolefilter}) {	foreach my $role (@{$rolefilter}) {
unless ($_ eq '') {	unless ($role eq '') {
push @okrolefilter, $_;	push(@okrolefilter, $role);
}	}
}	}
if (@okrolefilter > 0) {	if (@okrolefilter > 0) {
Line 1143 sub filter_regexp {	Line 1310 sub filter_regexp {
}	}
if (@{$sectionpick} > 0) {	if (@{$sectionpick} > 0) {
my @oksectionpick = ();	my @oksectionpick = ();
foreach (@{$sectionpick}) {	foreach my $sec (@{$sectionpick}) {
unless ($_ eq '') {	unless ($sec eq '') {
push @oksectionpick, $_;	push(@oksectionpick, $sec);
}	}
}	}
if ((@oksectionpick > 0) && (!grep/^all$/,@oksectionpick)) {	if ((@oksectionpick > 0) && (!grep/^all$/,@oksectionpick)) {
Line 1159 sub filter_regexp {	Line 1326 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 1347 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 1206 sub get_post_contents {	Line 1374 sub get_post_contents {
}	}
&get_post_versions($messages,$$contrib{$idx.':message'},1);	&get_post_versions($messages,$$contrib{$idx.':message'},1);
&get_post_versions($subjects,$$contrib{$idx.':subject'},1);	&get_post_versions($subjects,$$contrib{$idx.':subject'},1);
push @postversions,$$contrib{$idx.':timestamp'};	push(@postversions,$$contrib{$idx.':timestamp'});
$end = @postversions;	$end = @postversions;
} else {	} else {
&get_post_versions($messages,$$contrib{$idx.':message'},1,$numver);	&get_post_versions($messages,$$contrib{$idx.':message'},1,$numver);
Line 1233 sub get_post_contents {	Line 1401 sub get_post_contents {
if ($type eq 'export') {	if ($type eq 'export') {
$$imsfiles{$idx}{$i} = '';	$$imsfiles{$idx}{$i} = '';
if ($attachmsg) {	if ($attachmsg) {
$$attachtxt{$i} = '<br />Attachments:<br />';	$$attachtxt{$i} = '<br />'.&mt('Attachments').':<br />';
foreach (sort keys %currattach) {	foreach my $key (sort(keys(%currattach))) {
if ($$allattachments{$_}{'filename'} =~ m-^/uploaded/([^/]+/[^/]+)(/feedback)?(/?\d*)/([^/]+)$-) {	if ($$allattachments{$key}{'filename'} =~ m-^/uploaded/([^/]+/[^/]+)(/feedback)?(/?\d*)/([^/]+)$-) {
my $fname = $1.$3.'/'.$4;	my $fname = $1.$3.'/'.$4;
$$imsfiles{$idx}{$i} .= '<file href="'.$fname.'">'."\n";	$$imsfiles{$idx}{$i} .= '<file href="'.$fname.'">'."\n";
$$attachtxt{$i}.= '<a href="'.$fname.'">'.$4.'</a><br />';	$$attachtxt{$i}.= '<a href="'.$fname.'">'.$4.'</a><br />';
Line 1244 sub get_post_contents {	Line 1412 sub get_post_contents {
}	}
} else {	} else {
if ($attachmsg) {	if ($attachmsg) {
$$attachtxt{$i} = '<br />Attachments:'.$attachmsg.'<br />';	$$attachtxt{$i} = '<br />'.&mt('Attachments').':'.$attachmsg.'<br />';
} else {	} else {
$$attachtxt{$i} = '';	$$attachtxt{$i} = '';
}	}
Line 1268 END	Line 1436 END
sub replicate_attachments {	sub replicate_attachments {
my ($attachrefs,$tempexport) = @_;	my ($attachrefs,$tempexport) = @_;
my $response;	my $response;
foreach my $id (keys %{$attachrefs}) {	foreach my $id (keys(%{$attachrefs})) {
if ($$attachrefs{$id}{'filename'} =~ m-^/uploaded/([^/]+)/([^/]+)(/feedback)?(/?\d*)/([^/]+)$-) {	if ($$attachrefs{$id}{'filename'} =~ m-^/uploaded/([^/]+)/([^/]+)(/feedback)?(/?\d*)/([^/]+)$-) {
my $path = $tempexport;	my $path = $tempexport;
my $tail = $1.'/'.$2.$4;	my $tail = $1.'/'.$2.$4;
my @extras = split/\//,$tail;	my @extras = split(/\//,$tail);
my $destination = $tempexport.'/'.$1.'/'.$2.$4.'/'.$5;	my $destination = $tempexport.'/'.$1.'/'.$2.$4.'/'.$5;
if (!-e $destination) {	if (!-e $destination) {
my $i= 0;	my $i= 0;
Line 1291 sub replicate_attachments {	Line 1459 sub replicate_attachments {
print $attachcopy $content;	print $attachcopy $content;
close($attachcopy);	close($attachcopy);
} else {	} else {
$response .= 'Error copying file attachment - '.$5.' to IMS package: '.$!.'<br />'."\n";	$response .= &mt('Error copying file attachment - [_1] to IMS package',$5).': '.$!.'<br />'."\n";
}	}
} else {	} else {
&Apache::lonnet::logthis("Replication of attachment failed when building IMS export of discussion posts - domain: $1, course: $2, file: $$attachrefs{$id}{'filename'} -error: $rtncode");	&Apache::lonnet::logthis("Replication of attachment failed when building IMS export of discussion posts - domain: $1, course: $2, file: $$attachrefs{$id}{'filename'} -error: $rtncode");
$response .= 'Error copying file attachment - '.$5.' to IMS package: '.$rtncode.'<br />'."\n";	$response .= &mt('Error copying file attachment - [_1] to IMS package: ',$5).$rtncode.'<br />'."\n";
}	}
}	}
}	}
Line 1304 sub replicate_attachments {	Line 1472 sub replicate_attachments {
}	}

sub mail_screen {	sub mail_screen {
my ($r,$feedurl,$options) = @_;	my ($r,$feedurl,$options,$caller_symb,$attachmaxtext) = @_;
if (exists($env{'form.origpage'})) {	if (exists($env{'form.origpage'})) {
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['subject','comment','currnewattach','addnewattach','deloldattach','delnewattach','timestamp','idx','anondiscuss','discuss','blog']);	&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 %lt = &Apache::lonlocal::texthash(
if (!$title) { $title = $feedurl; }	'plch' => 'Please check at least one of the following feedback types:',
	'myqu' => 'My question/comment/feedback:',
	'title' => 'Title',
	'reta' => 'Retained attachments',
	'atta' => 'Attachment',
	);
	my $restitle = &get_resource_title($caller_symb,$feedurl);
my $quote='';	my $quote='';
my $subject = '';	my $subject = '';
my $comment = '';	my $comment = '';
Line 1376 END	Line 1550 END
unless (($contrib{'hidden'}=~/\.$idx\./) \|\| ($contrib{'deleted'}=~/\.$idx\./)) {	unless (($contrib{'hidden'}=~/\.$idx\./) \|\| ($contrib{'deleted'}=~/\.$idx\./)) {
if ($contrib{$idx.':history'}) {	if ($contrib{$idx.':history'}) {
if ($contrib{$idx.':history'} =~ /:/) {	if ($contrib{$idx.':history'} =~ /:/) {
my @oldversions = split/:/,$contrib{$idx.':history'};	my @oldversions = split(/:/,$contrib{$idx.':history'});
$numoldver = @oldversions;	$numoldver = @oldversions;
} else {	} else {
$numoldver = 1;	$numoldver = 1;
Line 1385 END	Line 1559 END
if ($env{'form.replydisc'}) {	if ($env{'form.replydisc'}) {
if ($contrib{$idx.':history'}) {	if ($contrib{$idx.':history'}) {
if ($contrib{$idx.':history'} =~ /:/) {	if ($contrib{$idx.':history'} =~ /:/) {
my @oldversions = split/:/,$contrib{$idx.':history'};	my @oldversions = split(/:/,$contrib{$idx.':history'});
$numoldver = @oldversions;	$numoldver = @oldversions;
} else {	} else {
$numoldver = 1;	$numoldver = 1;
}	}
}	}
my $message;
if ($idx > 0) {	if ($idx > 0) {
my %msgversions = ();	my %msgversions = ();
&get_post_versions(\%msgversions,$contrib{$idx.':message'},0,$numoldver);	&get_post_versions(\%msgversions,$contrib{$idx.':message'},0,$numoldver);
$message = $msgversions{$numoldver};	$quote = $msgversions{$numoldver};
}	}
&newline_to_br(\$message);
$quote='<blockquote>'.&Apache::lontexconvert::msgtexconverted($message).'</blockquote>';
if ($idx > 0) {	if ($idx > 0) {
my %subversions = ();	my %subversions = ();
&get_post_versions(\%subversions,$contrib{$idx.':subject'},1,$numoldver);	&get_post_versions(\%subversions,$contrib{$idx.':subject'},1,$numoldver);
$subject = 'Re: '.$subversions{$numoldver};	$subject = &mt('Re: ').$subversions{$numoldver};
}	}
$subject = &HTML::Entities::encode($subject,'<>&"');	$subject = &HTML::Entities::encode($subject,'<>&"');
} else {	} else {
Line 1419 END	Line 1590 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.value = 'anon'	if (document.mailform.elements.discuss[i].value == currtype ) {
}	document.mailform.elements.discuss[i].checked=1;
if (currtype == 0) {	}
document.mailform.elements.discuss.value = 'nonanon'
}	}
return	return
}	}
Line 1444 END	Line 1614 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();
my $send=&mt('Send');	my $send=&mt('Send');
	my $alert = &mt('Please select a feedback type.');
my $js= <<END;	my $js= <<END;
<script type="text/javascript">	<script type="text/javascript">
//<!--	//<!--
function gosubmit() {	function gosubmit() {
var rec=0;	var rec=0;
if (typeof(document.mailform.elements.discuss)!="undefined") {	if (typeof(document.mailform.elements.discuss)!="undefined") {
if (typeof(document.mailform.discuss.length) == "undefined") {	if (typeof(document.mailform.elements.discuss.length) == "undefined") {
if (document.mailform.discuss.checked ) {	if (document.mailform.elements.discuss.checked ) {
rec=1;	rec=1;
}	}
} else {	} else {
for (var i=0; i<document.mailform.discuss.length; i++) {	for (var i=0; i<document.mailform.elements.discuss.length; i++) {
if (document.mailform.discuss[i].checked ) {	if (document.mailform.elements.discuss[i].checked ) {
rec=1;	rec=1;
}	}
}	}
}	}
}	}
if (typeof(document.mailform.elements.blog)!="undefined") {	if (typeof(document.mailform.elements.blog)!="undefined") {
if (document.mailform.blog.checked) {	if (document.mailform.elements.blog.checked) {
rec=1;	rec=1;
}	}
}	}
Line 1480 END	Line 1651 END
}	}
document.mailform.submit();	document.mailform.submit();
} else {	} else {
alert('Please select a feedback type.');	alert('$alert');
}	}
}	}
$anonchk	$anonchk
Line 1494 END	Line 1665 END
&Apache::loncommon::start_page('Resource Feedback and Discussion',$js,	&Apache::loncommon::start_page('Resource Feedback and Discussion',$js,
{'add_entries' => \%onload});	{'add_entries' => \%onload});

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

$r->print(<<END);	$r->print(<<END);
$start_page	$start_page
<h2><tt>$title</tt></h2>	<h2><tt>$restitle</tt></h2>
<form action="/adm/feedback" method="post" name="mailform"	<form action="/adm/feedback" method="post" name="mailform"
enctype="multipart/form-data">	enctype="multipart/form-data">
$prevtag	$prevtag
Line 1513 END	Line 1689 END
END	END
}	}
$r->print(<<END);	$r->print(<<END);
Please check at least one of the following feedback types:	$lt{'plch'}
$options<hr />	$options<hr />
$quote	$quote
<p>My question/comment/feedback:</p>	<p>$lt{'myqu'}</p>
<p>	<p>
$latexHelp	$latexHelp
Title: <input type="text" name="subject" size="30" value="$subject" /></p>	$lt{'title'}: <input type="text" name="subject" size="30" value="$subject" /></p>
<p>	<p>
<textarea name="comment" id="comment" cols="60" rows="10" wrap="hard">$comment	<textarea name="comment" id="comment" cols="60" rows="10" wrap="hard">$comment
</textarea></p>	</textarea></p>
Line 1527 Title: <input type="text" name="subject"	Line 1703 Title: <input type="text" name="subject"
END	END
if ( ($env{'form.editdisc'}) \|\| ($env{'form.replydisc'}) ) {	if ( ($env{'form.editdisc'}) \|\| ($env{'form.replydisc'}) ) {
if ($env{'form.origpage'}) {	if ($env{'form.origpage'}) {
foreach (@currnewattach) {	foreach my $attach (@currnewattach) {
$r->print('<input type="hidden" name="currnewattach" value="'.$_.'" />'."\n");	$r->print('<input type="hidden" name="currnewattach" value="'.$attach.'" />'."\n");
}	}
foreach (@currdelold) {	foreach my $oldatt (@currdelold) {
$r->print('<input type="hidden" name="deloldattach" value="'.$_.'" />'."\n");	$r->print('<input type="hidden" name="deloldattach" value="'.$oldatt.'" />'."\n");
}	}
}	}
if ($env{'form.editdisc'}) {	if ($env{'form.editdisc'}) {
if ($attachmenturls) {	if ($attachmenturls) {
&extract_attachments($attachmenturls,$idx,$numoldver,\$attachmsg,\%attachments,\%currattach,\@currdelold);	&extract_attachments($attachmenturls,$idx,$numoldver,\$attachmsg,\%attachments,\%currattach,\@currdelold);
$attachnum = scalar(keys %currattach);	$attachnum = scalar(keys(%currattach));
foreach (keys %currattach) {	foreach my $key (keys(%currattach)) {
$r->print('<input type="hidden" name="keepold" value="'.$_.'" />'."\n");	$r->print('<input type="hidden" name="keepold" value="'.$key.'" />'."\n");
}	}
}	}
}	}
} else {	} else {
$r->print(<<END);	$r->print(<<END);
Attachment (128 KB max size): <input type="file" name="attachment" />	$lt{'atta'} $attachmaxtext: <input type="file" name="attachment" />
</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 1559 END	Line 1741 END
if ($env{'form.editdisc'} \|\| $env{'form.replydisc'}) {	if ($env{'form.editdisc'} \|\| $env{'form.replydisc'}) {
my $now = time;	my $now = time;
my $ressymb = $symb;	my $ressymb = $symb;
	&Apache::lonenc::check_encrypt(\$ressymb);
my $postidx = '';	my $postidx = '';
if ($env{'form.editdisc'}) {	if ($env{'form.editdisc'}) {
$postidx = $idx;	$postidx = $idx;
Line 1566 END	Line 1749 END
if (@currnewattach > 0) {	if (@currnewattach > 0) {
$attachnum += @currnewattach;	$attachnum += @currnewattach;
}	}
$r->print(&generate_attachments_button($postidx,$attachnum,$ressymb,$now,\@currnewattach,\@currdelold,$numoldver));	my $blockblog = &Apache::loncommon::blocking_status('blogs');
	$r->print(&generate_attachments_button($postidx,$attachnum,$ressymb,$now,\@currnewattach,\@currdelold,$numoldver,'',$blockblog));
if ($attachnum > 0) {	if ($attachnum > 0) {
if (@currnewattach > 0) {	if (@currnewattach > 0) {
$newattachmsg .= '<br /><b>New attachments</b><br />';	$newattachmsg .= '<br /><b>'.&mt('New attachments').'</b><br />';
if (@currnewattach > 1) {	if (@currnewattach > 1) {
$newattachmsg .= '<ol>';	$newattachmsg .= '<ol>';
foreach my $item (@currnewattach) {	foreach my $item (@currnewattach) {
Line 1583 END	Line 1767 END
}	}
}	}
if ($attachmsg) {	if ($attachmsg) {
$r->print("<b>Retained attachments</b>:$attachmsg<br />\n");	$r->print("<br /><b>$lt{'reta'}</b>:$attachmsg<br />\n");
}	}
if ($newattachmsg) {	if ($newattachmsg) {
$r->print("$newattachmsg<br />");	$r->print("$newattachmsg<br />");
Line 1618 sub print_display_options {	Line 1802 sub print_display_options {
'unread' => 'New posts only',	'unread' => 'New posts only',
'unmark' => 'Posts not marked read',	'unmark' => 'Posts not marked read',
'ondisp' => 'Once displayed',	'ondisp' => 'Once displayed',
'onmark' => 'Once marked not NEW ',	'onmark' => 'Once marked not NEW',
'toggon' => 'Shown',	'toggon' => 'Shown',
'toggoff' => 'Not shown',	'toggoff' => 'Not shown',
'disa' => 'Posts displayed?',	'disa' => 'Posts displayed?',
Line 1776 END	Line 1960 END
<td>$lt{$disctogg}</td>	<td>$lt{$disctogg}</td>
<td><label><input type="checkbox" name="disctogg" onClick="discdispChk('2')" />$lt{'chgt'} "$toggchange"</label></td>	<td><label><input type="checkbox" name="disctogg" onClick="discdispChk('2')" />$lt{'chgt'} "$toggchange"</label></td>
END	END
	my $save = &mt('Save Changes');
$r->print(&Apache::loncommon::end_data_table_row());	$r->print(&Apache::loncommon::end_data_table_row());
$r->print(&Apache::loncommon::end_data_table());	$r->print(&Apache::loncommon::end_data_table());
$r->print(<<END);	$r->print(<<END);
Line 1787 END	Line 1972 END
<input type="hidden" name="$dispchgB" value=""/>	<input type="hidden" name="$dispchgB" value=""/>
<input type="hidden" name="$markchg" value=""/>	<input type="hidden" name="$markchg" value=""/>
<input type="hidden" name="$toggchg" value="" />	<input type="hidden" name="$toggchg" value="" />
<input type="button" name="sub" value="Store Changes" onClick="javascript:setDisp()" />	<input type="button" name="sub" value="$save" onClick="javascript:setDisp()" />
	END
	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 1806 sub print_sortfilter_options {	Line 1999 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 1819 sub print_sortfilter_options {	Line 2015 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 1835 sub print_sortfilter_options {	Line 2057 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',
	'stor' => 'Save changes',
);	);

my %sort_types = ();	my %sort_types = ();
Line 1866 function verifyFilter() {	Line 2090 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 1891 $start_page	Line 2126 $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>
	<option value="Future">$status_types{'Future'}</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 />
<br />	<br />
<input type="hidden" name="previous" value="$previous" />	<input type="hidden" name="previous" value="$previous" />
<input type="hidden" name="applysort" value="$symb" />	<input type="hidden" name="applysort" value="$symb" />
<input type="button" name="sub" value="Store Changes" onClick="verifyFilter()" />	<input type="button" name="sub" value="$lt{'stor'}" 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 1959 sub print_showposters {	Line 2210 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 1988 sub print_showposters {	Line 2256 sub print_showposters {
$postcounts{$poster} ++;	$postcounts{$poster} ++;
if (defined($namesort{$lastname}{$firstname})) {	if (defined($namesort{$lastname}{$firstname})) {
if (!grep/^$poster$/,@{$namesort{$lastname}{$firstname}}) {	if (!grep/^$poster$/,@{$namesort{$lastname}{$firstname}}) {
push @{$namesort{$lastname}{$firstname}}, $poster;	push(@{$namesort{$lastname}{$firstname}}, $poster);
}	}
} else {	} else {
@{$namesort{$lastname}{$firstname}} = ("$poster");	@{$namesort{$lastname}{$firstname}} = ("$poster");
Line 2006 $start_page	Line 2274 $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;
foreach my $last (sort keys %namesort) {	foreach my $last (sort(keys(%namesort))) {
foreach my $first (sort keys %{$namesort{$last}}) {	foreach my $first (sort(keys(%{$namesort{$last}}))) {
foreach (sort @{$namesort{$last}{$first}}) {	foreach my $user (sort(@{$namesort{$last}{$first}})) {
my ($uname,$udom) = split/:/,$_;	my ($uname,$udom) = split(/:/,$user);
if (!$uname \|\| !$udom) {	if (!$uname \|\| !$udom) {
next;	next;
} else {	} else {
$count ++;	$count ++;
$r->print(&Apache::loncommon::start_data_table_row().	$r->print(&Apache::loncommon::start_data_table_row().
'<td align="right">'.$count.'</td>	'<td align="right">'.$count.'</td>
<td align="center"><label><input name="stuinfo" type="checkbox" value="'.$_.'" /></td>	<td align="center"><label><input name="stuinfo" type="checkbox" value="'.$user.'" /></td>
<td>'.$last.', '.$first.' ('.$uname.','.$udom.')</label></td>	<td>'.$last.', '.$first.' ('.$uname.':'.$udom.')</label></td>
<td>'.$postcounts{$_}.'</td>'.	<td>'.$postcounts{$user}.'</td>'.
&Apache::loncommon::end_data_table_row());	&Apache::loncommon::end_data_table_row());
}	}
}	}
Line 2108 sub get_post_attachments {	Line 2376 sub get_post_attachments {
sub fail_redirect {	sub fail_redirect {
my ($r,$feedurl) = @_;	my ($r,$feedurl) = @_;
if ($feedurl=~/^\/adm\//) { $feedurl.='?register=1' };	if ($feedurl=~/^\/adm\//) { $feedurl.='?register=1' };
	my %lt = &Apache::lonlocal::texthash(
	'sorr' => 'Sorry, no recipients ...',
	);
my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');	my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');
$r->print(&Apache::loncommon::start_page('Feedback not sent',undef,	$r->print(&Apache::loncommon::start_page('Feedback not sent',undef,
{'redirect' => [2,$feedurl],	{'redirect' => [2,$feedurl],
'only_body' => 1,}));	'only_body' => 1,}));
$r->print(<<ENDFAILREDIR);	$r->print(<<ENDFAILREDIR);
<img align="right" src="$logo" />	<img align="right" src="$logo" />
<b>Sorry, no recipients ...</b>	<b>$lt{'sorr'}</b>
ENDFAILREDIR	ENDFAILREDIR
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
}	}

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,$toolarge) = @_;
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 2159 sub redirect_back {	Line 2430 sub redirect_back {
if (ref($sectionpick) eq 'ARRAY') {	if (ref($sectionpick) eq 'ARRAY') {
$feedurl .= '&sectionpick=';	$feedurl .= '&sectionpick=';
$sectag .= '<input type="hidden" name="sectionpick" value="';	$sectag .= '<input type="hidden" name="sectionpick" value="';
foreach (@{$sectionpick}) {	foreach my $sec (@{$sectionpick}) {
$feedurl .= $_.',';	$feedurl .= $sec.',';
$sectag .= $_.',';	$sectag .= $sec.',';
}	}
$feedurl =~ s/,$//;	$feedurl =~ s/,$//;
$sectag =~ s/,$//;	$sectag =~ s/,$//;
Line 2170 sub redirect_back {	Line 2441 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="';
foreach (@{$rolefilter}) {	foreach my $role (@{$rolefilter}) {
$feedurl .= $_.',';	$feedurl .= $role.',';
$roletag .= $_.',';	$roletag .= $role.',';
}	}
$feedurl =~ s/,$//;	$feedurl =~ s/,$//;
$roletag =~ s/,$//;	$roletag =~ s/,$//;
Line 2188 sub redirect_back {	Line 2473 sub redirect_back {
$statustag ='<input type="hidden" name="statusfilter" value="'.$statusfilter.'" />';	$statustag ='<input type="hidden" name="statusfilter" value="'.$statusfilter.'" />';
}	}
}	}
$feedurl=&Apache::lonenc::check_encrypt($feedurl);	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;
	}
	}
	&Apache::lonenc::check_encrypt(\$feedurl);
my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');	my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');
my %onload;	my %onload;
if ($env{'environment.remote'} ne 'off') {	if ($env{'environment.remote'} ne 'off') {
Line 2196 sub redirect_back {	Line 2494 sub redirect_back {
"if (window.name!='loncapaclient') { this.document.reldt.submit(); self.window.close(); }";	"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" />
$typestyle	$typestyle
<b>Sent $sendsomething message(s), and $sendposts post(s).</b>	<b>Sent $sendsomething message(s), and $sendposts post(s).</b>
$blog	$blog
	$toolarge
<font color="red">$status</font>	<font color="red">$status</font>
<form name="reldt" action="$feedurl" target="loncapaclient">	<form name="reldt" action="$feedurl" target="loncapaclient">
$prevtag	$prevtag
Line 2215 $sorttag	Line 2513 $sorttag
$statustag	$statustag
$roletag	$roletag
$sectag	$sectag
	$grptag
$userpicktag	$userpicktag
	$grouptag
</form>	</form>
$end_page	$end_page
ENDREDIR	ENDREDIR
Line 2244 sub no_redirect_back {	Line 2544 sub no_redirect_back {

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

$feedurl=&Apache::lonenc::check_encrypt($feedurl);	&Apache::lonenc::check_encrypt(\$feedurl);
my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');	my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');
$r->print (<<ENDNOREDIRTWO);	$r->print (<<ENDNOREDIRTWO);
$start_page	$start_page
Line 2265 sub screen_header {	Line 2565 sub screen_header {
'<p><label><input type="radio" name="discuss" value="author" /> '.	'<p><label><input type="radio" name="discuss" value="author" /> '.
&mt('Feedback to resource author').'</label></p>';	&mt('Feedback to resource author').'</label></p>';
}	}
	my %optionhash=();
	foreach my $type ('question','comment','policy') {
	$optionhash{$type}=$env{'course.'.$env{'request.course.id'}.'.'.$type.'.email.text'};
	}
if (&feedback_available(1)) {	if (&feedback_available(1)) {
$msgoptions.=	$msgoptions.=
'<p><label><input type="radio" name="discuss" value="question" /> '.	'<p><label><input type="radio" name="discuss" value="question" /> '.
&mt('Question about resource content').'</label></p>';	($optionhash{'question'}?$optionhash{'question'}:&mt('Question about resource content')).'</label></p>';
}	}
if (&feedback_available(0,1)) {	if (&feedback_available(0,1)) {
$msgoptions.=	$msgoptions.=
'<p><label><input type="radio" name="discuss" value="course" /> '.	'<p><label><input type="radio" name="discuss" value="course" /> '.
&mt('Question/Comment/Feedback about course content').	($optionhash{'comment'}?$optionhash{'comment'}:&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="radio" name="discuss" value="policy" /> '.	'<p><label><input type="radio" name="discuss" value="policy" /> '.
&mt('Question/Comment/Feedback about course policy').	($optionhash{'policy'}?$optionhash{'policy'}:&mt('Question/Comment/Feedback about course policy')).
'</label></p>';	'</label></p>';
}	}
}	}
if (($env{'request.course.id'}) && (!$env{'form.sendmessageonly'})) {	if (($env{'request.course.id'}) && (!$env{'form.sendmessageonly'})) {
if (&discussion_open(undef,$symb) &&	my ($blocked,$blocktext) = &Apache::loncommon::blocking_status('boards');
	if (!$blocked && &discussion_open(undef,$symb) &&
&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="radio" name="discuss" value="nonanon" checked="checked" /> '.	$discussoptions='<label><input type="radio" name="discuss" value="nonanon" checked="checked" /> '.
&mt('Contribution to course discussion of resource');	&mt('Contribution to course discussion of resource');
$discussoptions.='</label><br /><label><input type="radio" name="discuss" value="anon" /> '.	$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>';
	my $blockblog = &Apache::loncommon::blocking_status('blogs');
	if (!$blockblog) {
	$discussoptions.= &add_blog_checkbox();
	}
}	}
$discussoptions.='<br /><label><input type="checkbox" name="blog" /> '.
&mt('Add to my public course blog').'</label>';
}	}
if ($msgoptions) { $msgoptions='<h2><img src="'.&Apache::loncommon::lonhttpdurl('/adm/lonMisc/feedback.gif').'" />'.&mt('Sending Messages').'</h2>'.$msgoptions; }	if ($msgoptions) { $msgoptions='<h2><img src="'.&Apache::loncommon::lonhttpdurl('/adm/lonMisc/feedback.gif').'" />'.&mt('Sending Messages').'</h2>'.$msgoptions; }
if ($discussoptions) {	if ($discussoptions) {
Line 2336 sub clear_out_html {	Line 2643 sub clear_out_html {
H1=>1, H2=>1, H3=>1, H4=>1, H5=>1);	H1=>1, H2=>1, H3=>1, H4=>1, H5=>1);
}	}
# Do the substitution of everything that is not explicitly allowed	# Do the substitution of everything that is not explicitly allowed
$message =~ s/\<(\/?\s(\w)[^\>\<]*)/	$message =~ s/\<(\/?\s(\w+)[^\>\<])/
{($html{uc($2)}&&(length($1)<1000))?"\<$1":"\<$1"}/ge;	{($html{uc($2)}&&(length($1)<1000))?"\<$1":"\<$1"}/ge;
$message =~ s/(\<?\s(\w)[^\<\>]*)\>/	$message =~ s/(\<?\s(\w+)[^\<\>])\>/
{($html{uc($2)}&&(length($1)<1000))?"$1\>":"$1\>"}/ge;	{($html{uc($2)}&&(length($1)<1000))?"$1\>":"$1\>"}/ge;
return $message;	return $message;
}	}

sub assemble_email {	sub assemble_email {
my ($feedurl,$message,$prevattempts,$usersaw,$useranswer)=@_;	my ($message,$prevattempts,$usersaw,$useranswer)=@_;
	my %lt = &Apache::lonlocal::texthash(
	'prev' => 'Previous attempts of student (if applicable)',
	'orig' => 'Original screen output (if applicable)',
	'corr' => 'Correct Answer(s) (if applicable)',
	);
my $email=<<"ENDEMAIL";	my $email=<<"ENDEMAIL";
$message	$message
ENDEMAIL	ENDEMAIL
my $citations=<<"ENDCITE";	my $citations=<<"ENDCITE";
<h2>Previous attempts of student (if applicable)</h2>	<h2>$lt{'prev'}</h2>
$prevattempts	$prevattempts
<br /><hr />	<br /><hr />
<h2>Original screen output (if applicable)</h2>	<h2>$lt{'orig'}</h2>
$usersaw	$usersaw
<h2>Correct Answer(s) (if applicable)</h2>	<h2>$lt{'corr'}</h2>
$useranswer	$useranswer
ENDCITE	ENDCITE
return ($email,$citations);	return ($email,$citations);
}	}

sub secapply {
my $rec=shift;
my $defaultflag=shift;
$rec=~s/\s+//g;
$rec=~s/\@/\:/g;
my ($adr,$sections)=($rec=~/^([^$]+)\(([^$]+)\)/);
if ($sections) {
foreach (split(/\;/,$sections)) {
if (($_ eq $env{'request.course.sec'}) \|\|
($defaultflag && ($_ eq '*'))) {
return $adr;
}
}
} else {
return $rec;
}
return '';
}

=pod

=over 4

=item *

decide_receiver($feedurl,$author,$question,$course,$policy,$defaultflag);

Arguments
$feedurl - /res/ url of resource (only need if $author is true)
$author,$question,$course,$policy - all true/false parameters
if true will attempt to find the addresses of user that should receive
this type of feedback (author - feedback to author of resource $feedurl,
$question 'Resource Content Questions', $course 'Course Content Question',
$policy 'Course Policy')
(Additionally it also checks $env for whether the corresponding form.<name>
element exists, for ease of use in a html response context)

$defaultflag - (internal should be left blank) if true gather addresses
that aren't for a section even if I have a section
(used for reccursion internally, first we look for
addresses for our specific section then we recurse
and look for non section addresses)

Returns
$typestyle - string of html text, describing what addresses were found
%to - a hash, which keys are addresses of users to send messages to
the keys will look like name:domain

=cut

sub decide_receiver {
my ($feedurl,$author,$question,$course,$policy,$defaultflag) = @_;
my $typestyle='';
my %to=();
if ($env{'form.discuss'} eq 'author' \|\|$author) {
$typestyle.='Submitting as Author Feedback<br />';
$feedurl=~/^\/res\/(\w+)\/(\w+)\//;
$to{$2.':'.$1}=1;
}
if ($env{'form.discuss'} eq 'question' \|\|$question) {
$typestyle.=&mt('Submitting as Question').'<br />';
foreach (split(/\,/,
$env{'course.'.$env{'request.course.id'}.'.question.email'})
) {
my $rec=&secapply($_,$defaultflag);
if ($rec) { $to{$rec}=1; }
}
}
if ($env{'form.discuss'} eq 'course' \|\|$course) {
$typestyle.=&mt('Submitting as Comment').'<br />';
foreach (split(/\,/,
$env{'course.'.$env{'request.course.id'}.'.comment.email'})
) {
my $rec=&secapply($_,$defaultflag);
if ($rec) { $to{$rec}=1; }
}
}
if ($env{'form.discuss'} eq 'policy' \|\|$policy) {
$typestyle.=&mt('Submitting as Policy Feedback').'<br />';
foreach (split(/\,/,
$env{'course.'.$env{'request.course.id'}.'.policy.email'})
) {
my $rec=&secapply($_,$defaultflag);
if ($rec) { $to{$rec}=1; }
}
}
if ((scalar(%to) eq '0') && (!$defaultflag)) {
($typestyle,%to)=
&decide_receiver($feedurl,$author,$question,$course,$policy,1);
}
return ($typestyle,%to);
}

sub feedback_available {	sub feedback_available {
my ($question,$course,$policy)=@_;	my ($question,$course,$policy)=@_;
my ($typestyle,%to)=&decide_receiver('',0,$question,$course,$policy);	my ($typestyle,%to)=&Apache::lonmsg::decide_receiver('',0,$question,
	$course,$policy);
return scalar(%to);	return scalar(%to);
}	}

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

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

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

sub adddiscuss {	sub adddiscuss {
Line 2522 sub adddiscuss {	Line 2751 sub adddiscuss {
$contrib{'anonymous'}='true';	$contrib{'anonymous'}='true';
}	}
if (($symb) && ($email)) {	if (($symb) && ($email)) {
	my $now = time;
if ($env{'form.editdisc'}) {	if ($env{'form.editdisc'}) {
$contrib{'ip'}=$ENV{'REMOTE_ADDR'};	$contrib{'ip'}=$ENV{'REMOTE_ADDR'};
$contrib{'host'}=$Apache::lonnet::perlvar{'lonHostID'};	$contrib{'host'}=$Apache::lonnet::perlvar{'lonHostID'};
$contrib{'timestamp'} = time;	$contrib{'timestamp'} = $now;
$contrib{'history'} = '';	$contrib{'history'} = '';
my $numoldver = 0;	my $numoldver = 0;
my ($oldsymb,$oldidx)=split(/\:\:\:/,$env{'form.editdisc'});	my ($oldsymb,$oldidx)=split(/\:\:\:/,$env{'form.editdisc'});
Line 2540 sub adddiscuss {	Line 2770 sub adddiscuss {
}	}
if (defined($oldcontrib{$oldidx.':history'})) {	if (defined($oldcontrib{$oldidx.':history'})) {
if ($oldcontrib{$oldidx.':history'} =~ /:/) {	if ($oldcontrib{$oldidx.':history'} =~ /:/) {
my @oldversions = split/:/,$oldcontrib{$oldidx.':history'};	my @oldversions = split(/:/,$oldcontrib{$oldidx.':history'});
$numoldver = @oldversions;	$numoldver = @oldversions;
} else {	} else {
$numoldver = 1;	$numoldver = 1;
Line 2576 sub adddiscuss {	Line 2806 sub adddiscuss {
$env{'course.'.$env{'request.course.id'}.'.domain'},	$env{'course.'.$env{'request.course.id'}.'.domain'},
$env{'course.'.$env{'request.course.id'}.'.num'});	$env{'course.'.$env{'request.course.id'}.'.num'});
}	}
my %storenewentry=($symb => time);	my %storenewentry=($symb => $now);
$status.='<br />'.&mt('Updating discussion time').': '.	$status.='<br />'.&mt('Updating discussion time').': '.
&Apache::lonnet::put('discussiontimes',\%storenewentry,	&Apache::lonnet::put('discussiontimes',\%storenewentry,
$env{'course.'.$env{'request.course.id'}.'.domain'},	$env{'course.'.$env{'request.course.id'}.'.domain'},
$env{'course.'.$env{'request.course.id'}.'.num'});	$env{'course.'.$env{'request.course.id'}.'.num'});
}	}
my %record=&Apache::lonnet::restore('_discussion');	my %record=&Apache::lonnet::restore('_discussion');
my ($temp)=keys %record;	my ($temp)=keys(%record);
unless ($temp=~/^error\:/) {	unless ($temp=~/^error\:/) {
my %newrecord=();	my %newrecord=();
$newrecord{'resource'}=$symb;	$newrecord{'resource'}=$symb;
Line 2597 sub adddiscuss {	Line 2827 sub adddiscuss {
return $status.'<br />';	return $status.'<br />';
}	}

	sub get_discussion_info {
	my ($idx,%contrib) = @_;
	my $changelast = 0;
	my $count = 0;
	my $hiddenflag = 0;
	my $deletedflag = 0;
	my ($hidden,$deleted,%info,$newlastdisc);
	my $version = $contrib{'version'};
	if ($version) {
	for (my $id=$version; $id>0; $id--) {
	my $vkeys=$contrib{$id.':keys'};
	my @keys=split(/:/,$vkeys);
	if (grep(/^hidden$/,@keys)) {
	if (!$hiddenflag) {
	$hidden = $contrib{$id.':hidden'};
	$hiddenflag = 1;
	}
	} elsif (grep(/^deleted$/,@keys)) {
	if (!$deletedflag) {
	$deleted = $contrib{$id.':deleted'};
	$deletedflag = 1;
	}
	} else {
	if (($hidden !~/\.$id\./) && ($deleted !~/\.$id\./)) {
	$count++;
	$info{$count}{'id'} = $id;
	$info{$count}{'timestamp'}=$contrib{$id.':timestamp'};
	}
	}
	}
	if ($info{'1'}{'id'} == $idx) {
	$changelast = 1;
	if ($count > 1) {
	$newlastdisc = $info{'2'}{'timestamp'};
	} else {
	$newlastdisc = 0;
	}
	}
	}
	return ($changelast,$newlastdisc);
	}

# ----------------------------------------------------------- Preview function	# ----------------------------------------------------------- Preview function

sub show_preview {	sub show_preview {
my ($r) = @_;	my ($r) = @_;
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
	my $start_page=
	&Apache::loncommon::start_page('Preview',undef,
	{'only_body' => 1,});

my $message=&clear_out_html($env{'form.comment'});	my $message=&clear_out_html($env{'form.comment'});
&newline_to_br(\$message);	&newline_to_br(\$message);
$message=&Apache::lonspeller::markeduptext($message);	$message=&Apache::lonspeller::markeduptext($message);
Line 2610 sub show_preview {	Line 2886 sub show_preview {
my $subject=&clear_out_html($env{'form.subject'},undef,1);	my $subject=&clear_out_html($env{'form.subject'},undef,1);
$subject=~s/\n/\<br \/\>/g;	$subject=~s/\n/\<br \/\>/g;
$subject=&Apache::lontexconvert::msgtexconverted($subject);	$subject=&Apache::lontexconvert::msgtexconverted($subject);
my $start_page=
&Apache::loncommon::start_page('Preview',undef,
{'only_body' => 1,});

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

$r->print($start_page.'<table border="2"><tr><td>'.	$r->print($start_page.'<table border="2"><tr><td>'.
'<b>Subject:</b> '.$subject.'<br /><br />'.	'<b>'.&mt('Subject').':</b> '.$subject.'<br /><br />'.
$message.'</td></tr></table>'.$end_page);	$message.'</td></tr></table>'.$end_page);
}	}

Line 2649 sub generate_preview_button {	Line 2922 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 2659 ENDPREVIEW	Line 2933 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'});	$attachmaxtext,$toolarge)=@_;

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

	my $start_page =
	&Apache::loncommon::start_page('Discussion Post Attachments',$js);

	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 2674 sub modify_attachments {	Line 2970 sub modify_attachments {
&extract_attachments($attachmenturls,$idx,$numoldver,\$msg,\%attachments,\%currattach,$currdelold);	&extract_attachments($attachmenturls,$idx,$numoldver,\$msg,\%attachments,\%currattach,$currdelold);
}	}
&Apache::lonenc::check_encrypt(\$symb);	&Apache::lonenc::check_encrypt(\$symb);
my $js = <<END;
<script type="text/javascript">
function setAction () {
document.modattachments.action = document.modattachments.origpage.value;
document.modattachments.submit();
}
</script>
END

my $start_page =
&Apache::loncommon::start_page('Discussion Post Attachments',$js);
my $end_page =	my $end_page =
&Apache::loncommon::end_page();	&Apache::loncommon::end_page();

$r->print(<<END);	$r->print(<<END);
$start_page	$start_page
	$toolarge
<form name="modattachments" method="post" enctype="multipart/form-data" action="/adm/feedback?attach=$symb">	<form name="modattachments" method="post" enctype="multipart/form-data" action="/adm/feedback?attach=$symb">
<table border="2">	<br />
	<table class="LC_data_table">
<tr>	<tr>
<td>	<td colspan="2">
<b>Subject:</b> $subject</b><br /><br />	<b>Subject:</b> $subject</b><br /><br />
END	END
if ($idx) {	if ($idx) {
if ($attachmenturls) {	if ($attachmenturls) {
my @currold = keys %currattach;	my @currold = keys(%currattach);
if (@currold > 0) {	if (@currold > 0) {
$r->print("The following attachments were part of the most recent saved version of this posting.<br />Check the checkboxes for any you wish to remove<br />\n");	$r->print($lt{'thfo'}.'<br />'.$lt{'chth'}.'<br />'."\n");
foreach my $id (@currold) {	foreach my $id (@currold) {
my $attachurl = &HTML::Entities::decode($attachments{$id}{'filename'});	my $attachurl = &HTML::Entities::decode($attachments{$id}{'filename'});
$attachurl =~ m#/([^/]+)$#;	$attachurl =~ m#/([^/]+)$#;
Line 2710 END	Line 2998 END
}	}
}	}
}	}
if (@{$currnewattach} > 0) {	if ((ref($currnewattach) eq 'ARRAY') && (@{$currnewattach} > 0)) {
$r->print("The following attachments have been uploaded for inclusion with this posting.<br />Check the checkboxes for any you wish to remove<br />\n");	$r->print($lt{'thef'}.'<br />'.$lt{'chth'}.'<br />'."\n");
foreach (@{$currnewattach}) {	foreach my $attach (@{$currnewattach}) {
$_ =~ m#/([^/]+)$#;	$attach =~ m#/([^/]+)$#;
$r->print('<label><input type="checkbox" name="delnewattach" value="'.$_.'" /> '.$1.'</label><br />'."\n");	$r->print('<label><input type="checkbox" name="delnewattach" value="'.$attach.'" /> '.$1.'</label><br />'."\n");
}	}
$r->print("<br />");	$r->print("<br />");
}	}
$r->print(<<END);	$r->print(<<END);
Add a new attachment to this post. <input type="file" name="addnewattach" /><input type="button" name="upload" value="Upload" onClick="this.form.submit()" />	</td></tr>
	<tr>
	<td>
	$lt{'adda'}</td><td><input type="file" name="addnewattach" /><input type="button" name="upload" value="Upload" onClick="this.form.submit()" />
</td>	</td>
</tr>	</tr>
	<tr>
	<td colspan="2">$attachmaxtext</td>
	</tr>
</table>	</table>
<input type="hidden" name="subject" value="$env{'form.subject'}" />	<input type="hidden" name="subject" value="$env{'form.subject'}" />
<input type="hidden" name="comment" value="$env{'form.comment'}" />	<input type="hidden" name="comment" value="$env{'form.comment'}" />
Line 2732 END	Line 3026 END
<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
foreach (@{$currnewattach}) {	foreach my $item (@{$currnewattach}) {
$r->print('<input type="hidden" name="currnewattach" value="'.$_.'" />'."\n");	$r->print('<input type="hidden" name="currnewattach" value="'.$item.'" />'."\n");
}	}
foreach (@{$currdelold}) {	foreach my $item (@{$currdelold}) {
$r->print('<input type="hidden" name="deloldattach" value="'.$_.'" />'."\n");	$r->print('<input type="hidden" name="deloldattach" value="'.$item.'" />'."\n");
}	}
$r->print(<<END);	$r->print(<<END);
<input type="button" name="rtntoedit" value="Store Changes" onClick="setAction()"/>	<input type="button" name="rtntoedit" value="$lt{'stch'}" onClick="setAction()"/>
</form>	</form>
$end_page	$end_page
END	END
Line 2759 sub process_attachments {	Line 3053 sub process_attachments {
my @currnew = ();	my @currnew = ();
foreach my $newone (@{$currnewattach}) {	foreach my $newone (@{$currnewattach}) {
my $delflag = 0;	my $delflag = 0;
foreach (@currdelnew) {	foreach my $item (@currdelnew) {
if ($newone eq $_) {	if ($newone eq $item) {
$delflag = 1;	$delflag = 1;
last;	last;
}	}
}	}
unless ($delflag) {	unless ($delflag) {
push @currnew, $newone;	push(@currnew, $newone);
}	}
}	}
@{$currnewattach} = @currnew;	@{$currnewattach} = @currnew;
Line 2775 sub process_attachments {	Line 3069 sub process_attachments {
}	}

sub generate_attachments_button {	sub generate_attachments_button {
my ($idx,$attachnum,$ressymb,$now,$currnewattach,$deloldattach,$numoldver,$mode) = @_;	my ($idx,$attachnum,$ressymb,$now,$currnewattach,$deloldattach,
	$numoldver,$mode,$blockblog) = @_;
my $origpage = $ENV{'REQUEST_URI'};	my $origpage = $ENV{'REQUEST_URI'};
my $att=$attachnum.' '.&mt("attachments");	my $att=$attachnum.' '.&mt("attachments");
	my %lt = &Apache::lonlocal::texthash(
	'clic' => 'Click to add/remove 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"	$lt{'clic'}: <input type="button" value="$att"
onClick="if (typeof(document.mailform.onsubmit)=='function') {document.mailform.onsubmit();};this.form.comment.value=escape(document.mailform.comment.value);this.form.subject.value=escape(document.mailform.subject.value);	onClick="if (typeof(document.mailform.onsubmit)=='function') {document.mailform.onsubmit();};this.form.comment.value=escape(document.mailform.comment.value);this.form.subject.value=escape(document.mailform.subject.value);
END	END
	if (!$blockblog) {
	$response .= 'setblogvalue();';
	}
unless ($mode eq 'board') {	unless ($mode eq 'board') {
$response .= 'javascript:anonchk();';	$response .= 'javascript:anonchk();';
}	}
Line 2799 this.form.submit();" />	Line 3101 this.form.submit();" />
ENDATTACH	ENDATTACH
if (defined($deloldattach)) {	if (defined($deloldattach)) {
if (@{$deloldattach} > 0) {	if (@{$deloldattach} > 0) {
foreach (@{$deloldattach}) {	foreach my $delatt (@{$deloldattach}) {
$response .= '<input type="hidden" name="deloldattach" value="'.$_.'" />'."\n";	$response .= '<input type="hidden" name="deloldattach" value="'.$delatt.'" />'."\n";
}	}
}	}
}	}
if (defined($currnewattach)) {	if (defined($currnewattach)) {
if (@{$currnewattach} > 0) {	if (@{$currnewattach} > 0) {
foreach (@{$currnewattach}) {	foreach my $attach (@{$currnewattach}) {
$response .= '<input type="hidden" name="currnewattach" value="'.$_.'" />'."\n";	$response .= '<input type="hidden" name="currnewattach" value="'.$attach.'" />'."\n";
}	}
}	}
}	}
Line 2819 sub extract_attachments {	Line 3121 sub extract_attachments {
my ($attachmenturls,$idx,$numoldver,$message,$attachments,$currattach,$currdelold) = @_;	my ($attachmenturls,$idx,$numoldver,$message,$attachments,$currattach,$currdelold) = @_;
%{$attachments}=();	%{$attachments}=();
&get_post_attachments($attachments,$attachmenturls);	&get_post_attachments($attachments,$attachmenturls);
foreach my $id (sort keys %{$attachments}) {	foreach my $id (sort(keys(%{$attachments}))) {
if (exists($$attachments{$id}{$numoldver})) {	if (exists($$attachments{$id}{$numoldver})) {
if (defined($currdelold)) {	if (defined($currdelold)) {
if (@{$currdelold} > 0) {	if (@{$currdelold} > 0) {
Line 2834 sub extract_attachments {	Line 3136 sub extract_attachments {
}	}
}	}
}	}
my @attached = (sort { $a <=> $b } keys %{$currattach});	my @attached = (sort { $a <=> $b } keys(%{$currattach}));
if (@attached == 1) {	if (@attached == 1) {
my $id = $attached[0];	my $id = $attached[0];
my $attachurl;	my $attachurl;
Line 2850 sub extract_attachments {	Line 3152 sub extract_attachments {
$attachurl);	$attachurl);
} elsif (@attached > 1) {	} elsif (@attached > 1) {
$$message.='<ol>';	$$message.='<ol>';
foreach (@attached) {	foreach my $attach (@attached) {
my $id = $_;	my $id = $attach;
my $attachurl = &HTML::Entities::decode($$attachments{$id}{'filename'});	my $attachurl = &HTML::Entities::decode($$attachments{$id}{'filename'});
my ($fname)	my ($fname)
=($attachurl=~m\|/([^/]+)$\|);	=($attachurl=~m\|/([^/]+)$\|);
Line 2878 sub construct_attachmenturl {	Line 3180 sub construct_attachmenturl {
$oldattachmenturl = $contrib{$idx.':attachmenturl'};	$oldattachmenturl = $contrib{$idx.':attachmenturl'};
if ($contrib{$idx.':history'}) {	if ($contrib{$idx.':history'}) {
if ($contrib{$idx.':history'} =~ /:/) {	if ($contrib{$idx.':history'} =~ /:/) {
my @oldversions = split/:/,$contrib{$idx.':history'};	my @oldversions = split(/:/,$contrib{$idx.':history'});
$currver = 1 + scalar(@oldversions);	$currver = 1 + scalar(@oldversions);
} else {	} else {
$currver = 2;	$currver = 2;
Line 2891 sub construct_attachmenturl {	Line 3193 sub construct_attachmenturl {
my %attachments = ();	my %attachments = ();
my $prevver = $currver-1;	my $prevver = $currver-1;
&get_post_attachments(\%attachments,$oldattachmenturl);	&get_post_attachments(\%attachments,$oldattachmenturl);
my $numattach = scalar(keys %attachments);	my $numattach = scalar(keys(%attachments));
$startnum += $numattach;	$startnum += $numattach;
foreach my $num (sort {$a <=> $b} keys %attachments) {	foreach my $num (sort {$a <=> $b} keys(%attachments)) {
$newattachmenturl .= '<attachment id="'.$num.'"><filename>'.$attachments{$num}{'filename'}.'</filename>';	$newattachmenturl .= '<attachment id="'.$num.'"><filename>'.$attachments{$num}{'filename'}.'</filename>';
foreach $_ (sort {$a <=> $b} keys %{$attachments{$num}}) {	foreach my $item (sort {$a <=> $b} keys(%{$attachments{$num}})) {
unless ($_ eq 'filename') {	unless ($item eq 'filename') {
$newattachmenturl .= '<post id="'.$_.'">'.$attachments{$num}{$_}.'</post>';	$newattachmenturl .= '<post id="'.$item.'">'.$attachments{$num}{$item}.'</post>';
}	}
}	}
if (grep/^$num$/,@{$keepold}) {	if (grep/^$num$/,@{$keepold}) {
Line 2922 sub construct_attachmenturl {	Line 3224 sub construct_attachmenturl {
return $newattachmenturl;	return $newattachmenturl;
}	}

	sub add_blog_checkbox {
	my ($checkstatus);
	if ($env{'form.blog'}) {
	$checkstatus = 'checked="checked"';
	}
	my $output = '
	<script type="text/javascript">
	function setblogvalue() {
	if (document.mailform.blog.checked) {
	document.attachment.blog.value = 1;
	} else {
	document.attachment.blog.value = 0;
	}
	}
	</script><br />
	<label><input type="checkbox" name="blog" '.$checkstatus.' /> '.
	&mt('Add to my public course blog').'</label><br />'."\n";
	return $output;
	}

sub has_discussion {	sub has_discussion {
my $resourcesref = shift;	my $resourcesref = shift;
my $navmap = Apache::lonnavmaps::navmap->new();	my $navmap = Apache::lonnavmaps::navmap->new();
my @allres=$navmap->retrieveResources();	if (defined($navmap)) {
foreach my $resource (@allres) {	my @allres=$navmap->retrieveResources();
if ($resource->hasDiscussion()) {	foreach my $resource (@allres) {
my $ressymb = $resource->wrap_symb();	if ($resource->hasDiscussion()) {
push @{$resourcesref}, $ressymb;	my $ressymb = $resource->wrap_symb();
	if (ref($resourcesref) eq 'ARRAY') {
	push(@{$resourcesref}, $ressymb);
	}
	}
}	}
	} else {
	&Apache::lonnet::logthis('Has discussion check failed - could not create navmap object.');
}	}
return;	return;
}	}
Line 2957 sub sort_filter_names {	Line 3285 sub sort_filter_names {
);	);
%{$status_types} = (	%{$status_types} = (
all => 'Roles of any status',	all => 'Roles of any status',
Active => 'Only active roles',	Active => 'Only active roles',
Expired => 'Only inactive roles'	Expired => 'Only past roles',
	Future => 'Only future roles',
);	);
}	}

Line 2973 sub handler {	Line 3302 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'};
	my %attachmax = (
	text => '(128 KB max size)',
	num => 131072,
	);
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 2988 sub handler {	Line 3323 sub handler {
my $readkey = $symb.'_read';	my $readkey = $symb.'_read';
my $chgcount = 0;	my $chgcount = 0;
my %readinghash = &Apache::lonnet::get('nohist_'.$env{'request.course.id'}.'_discuss',[$readkey],$env{'user.domain'},$env{'user.name'});	my %readinghash = &Apache::lonnet::get('nohist_'.$env{'request.course.id'}.'_discuss',[$readkey],$env{'user.domain'},$env{'user.name'});
foreach my $key (keys %env) {	foreach my $key (keys(%env)) {
if ($key =~ m/^form\.postunread_(\d+)/) {	if ($key =~ m/^form\.postunread_(\d+)/) {
if ($readinghash{$readkey} =~ /\.$1\./) {	if ($readinghash{$readkey} =~ /\.$1\./) {
$readinghash{$readkey} =~ s/\.$1\.//;	$readinghash{$readkey} =~ s/\.$1\.//;
Line 3006 sub handler {	Line 3341 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 3021 sub handler {	Line 3357 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 3055 sub handler {	Line 3402 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 3063 sub handler {	Line 3410 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 3074 sub handler {	Line 3422 sub handler {
my @resources = ();	my @resources = ();
if (defined($env{'form.navmaps'})) {	if (defined($env{'form.navmaps'})) {
if ($env{'form.navmaps'} =~ /:/) {	if ($env{'form.navmaps'} =~ /:/) {
@resources = split/:/,$env{'form.navmaps'};	@resources = split(/:/,$env{'form.navmaps'});
} else {	} else {
@resources = ("$env{'form.navmaps'}");	@resources = ("$env{'form.navmaps'}");
}	}
Line 3089 sub handler {	Line 3437 sub handler {
'robb' => 'resources/bulletin boards.',	'robb' => 'resources/bulletin boards.',
'twnp' => 'There are currently no resources or bulletin boards with unread discussion postings.'	'twnp' => 'There are currently no resources or bulletin boards with unread discussion postings.'
);	);
foreach (@resources) {	foreach my $res (@resources) {
my $ressymb=$_;	my $ressymb=$res;
&Apache::lonenc::check_decrypt(\$ressymb);	&Apache::lonenc::check_decrypt(\$ressymb);
my $lastkey = $ressymb.'_lastread';	my $lastkey = $ressymb.'_lastread';
$discinfo{$lastkey} = $env{'form.navtime'};	$discinfo{$lastkey} = $env{'form.navtime'};
Line 3168 ENDREDIR	Line 3516 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 3183 ENDREDIR	Line 3531 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 3207 ENDREDIR	Line 3556 ENDREDIR
if ( ($env{'form.hide'}) && (!$seeid) ) {	if ( ($env{'form.hide'}) && (!$seeid) ) {
$newhash{'studenthidden'} = $currentstudenthidden;	$newhash{'studenthidden'} = $currentstudenthidden;
}	}
	if ($env{'form.hide'}) {
	my $changelast = 0;
	my $newlast;
	($changelast,$newlast) = &get_discussion_info($idx,%contrib);
	if ($changelast) {
	&Apache::lonnet::put('discussiontimes',{$symb => $newlast},
	$env{'course.'.$env{'request.course.id'}.'.domain'},
	$env{'course.'.$env{'request.course.id'}.'.num'});
	}
	}
&Apache::lonnet::store(\%newhash,$symb,$env{'request.course.id'},	&Apache::lonnet::store(\%newhash,$symb,$env{'request.course.id'},
$env{'course.'.$env{'request.course.id'}.'.domain'},	$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.cmd'}=~/^(threadedoff\|threadedon)$/) {	} elsif ($env{'form.cmd'}=~/^(threadedoff\|threadedon)$/) {
my ($symb,$feedurl)=&get_feedurl_and_clean_symb($env{'form.symb'});	my ($symb,$feedurl)=&get_feedurl_and_clean_symb($env{'form.symb'});
if ($env{'form.cmd'} eq 'threadedon') {	if ($env{'form.cmd'} eq 'threadedon') {
&Apache::lonnet::put('environment',{'threadeddiscussion' => 'on'});	&Apache::lonnet::put('environment',{'threadeddiscussion' => 'on'});
&Apache::lonnet::appenv('environment.threadeddiscussion' => 'on');	&Apache::lonnet::appenv({'environment.threadeddiscussion' => 'on'});
} else {	} else {
&Apache::lonnet::del('environment',['threadeddiscussion']);	&Apache::lonnet::del('environment',['threadeddiscussion']);
&Apache::lonnet::delenv('environment\.threadeddiscussion');	&Apache::lonnet::delenv('environment\.threadeddiscussion');
}	}
&redirect_back($r,$feedurl,&mt('Changed discussion view mode').'<br />',	&redirect_back($r,$feedurl,&mt('Changed discussion view mode').'<br />',
'0','0','','',$env{'form.previous'});	'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 3234 ENDREDIR	Line 3594 ENDREDIR
my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'},	my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'},
$env{'course.'.$env{'request.course.id'}.'.domain'},	$env{'course.'.$env{'request.course.id'}.'.domain'},
$env{'course.'.$env{'request.course.id'}.'.num'});	$env{'course.'.$env{'request.course.id'}.'.num'});
	my ($changelast,$newlast) = &get_discussion_info($idx,%contrib);
	if ($changelast) {
	&Apache::lonnet::put('discussiontimes',{$symb => $newlast},
	$env{'course.'.$env{'request.course.id'}.'.domain'}, $env{'course.'.$env{'request.course.id'}.'.num'});
	}
my %newhash=('deleted' => $contrib{'deleted'}.".$idx.");	my %newhash=('deleted' => $contrib{'deleted'}.".$idx.");
&Apache::lonnet::store(\%newhash,$symb,$env{'request.course.id'},	&Apache::lonnet::store(\%newhash,$symb,$env{'request.course.id'},
$env{'course.'.$env{'request.course.id'}.'.domain'},	$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 3616 ENDREDIR
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['subject','comment','addnewattach','delnewattach','timestamp','numoldver','idx','discuss','blog']);	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['subject','comment','addnewattach','delnewattach','timestamp','numoldver','idx','discuss','blog']);
my (@currnewattach,@currdelold,@keepold);	my (@currnewattach,@currdelold,@keepold,$toolarge);
&process_attachments(\@currnewattach,\@currdelold,\@keepold);	&process_attachments(\@currnewattach,\@currdelold,\@keepold);
if (exists($env{'form.addnewattach.filename'})) {	if (exists($env{'form.addnewattach.filename'})) {
unless (length($env{'form.addnewattach'})>131072) {	if (length($env{'form.addnewattach'})<=$attachmax{'num'}) {
my $subdir = 'feedback/'.$env{'form.timestamp'};	my $subdir = 'feedback/'.$env{'form.timestamp'};
my $newattachment=&Apache::lonnet::userfileupload('addnewattach',undef,$subdir);	my $newattachment=&Apache::lonnet::userfileupload('addnewattach',undef,$subdir);
push @currnewattach, $newattachment;	push(@currnewattach, $newattachment);
	} else {
	$toolarge = '<p><span class="LC_warning">'.&mt('Attachment not included - exceeded permitted length').'</span><br /></p>';
}	}
}	}
my $attachmenturls;	my $attachmenturls;
Line 3269 ENDREDIR	Line 3637 ENDREDIR
$attachmenturls = $contrib{$idx.':attachmenturl'};	$attachmenturls = $contrib{$idx.':attachmenturl'};
}	}
&modify_attachments($r,\@currnewattach,\@currdelold,$symb,$idx,	&modify_attachments($r,\@currnewattach,\@currdelold,$symb,$idx,
$attachmenturls);	$attachmenturls,$attachmax{'text'},$toolarge);
return OK;	return OK;
} elsif ($env{'form.export'}) {	} elsif ($env{'form.export'}) {
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
Line 3292 ENDREDIR	Line 3660 ENDREDIR
} else {	} else {
# ------------------------------------------------------------- Normal feedback	# ------------------------------------------------------------- Normal feedback
my $feedurl=$env{'form.postdata'};	my $feedurl=$env{'form.postdata'};
$feedurl=~s/^http\:\/\///;	$feedurl=~s/^https?\:\/\///;
$feedurl=~s/^$ENV{'SERVER_NAME'}//;	$feedurl=~s/^$ENV{'SERVER_NAME'}//;
$feedurl=~s/^$ENV{'HTTP_HOST'}//;	$feedurl=~s/^$ENV{'HTTP_HOST'}//;
$feedurl=~s/\?.+$//;	$feedurl=~s/\?.+$//;
Line 3300 ENDREDIR	Line 3668 ENDREDIR
my $symb;	my $symb;
if ($env{'form.replydisc'}) {	if ($env{'form.replydisc'}) {
$symb=(split(/\:\:\:/,$env{'form.replydisc'}))[0];	$symb=(split(/\:\:\:/,$env{'form.replydisc'}))[0];
my ($map,$id,$url)=&Apache::lonnet::decode_symb($symb);
$feedurl=&Apache::lonnet::clutter($url);
} elsif ($env{'form.editdisc'}) {	} elsif ($env{'form.editdisc'}) {
$symb=(split(/\:\:\:/,$env{'form.editdisc'}))[0];	$symb=(split(/\:\:\:/,$env{'form.editdisc'}))[0];
my ($map,$id,$url)=&Apache::lonnet::decode_symb($symb);
$feedurl=&Apache::lonnet::clutter($url);
} elsif ($env{'form.origpage'}) {	} elsif ($env{'form.origpage'}) {
$symb="";	$symb="";
} else {	} else {
Line 3313 ENDREDIR	Line 3677 ENDREDIR
}	}
unless ($symb) {	unless ($symb) {
$symb=$env{'form.symb'};	$symb=$env{'form.symb'};
if ($symb) {
my ($map,$id,$url)=&Apache::lonnet::decode_symb($symb);
$feedurl=&Apache::lonnet::clutter($url);
}
}	}
&Apache::lonenc::check_decrypt(\$symb);	if (defined($symb)) {
	($symb,$feedurl)=&get_feedurl_and_clean_symb($symb);
	} else {
	# backward compatibility (bulletin boards used to be 'wrapped')
	&Apache::lonenc::check_decrypt(\$feedurl);
	&dewrapper(\$feedurl);
	}
my $goahead=1;	my $goahead=1;
if ($feedurl=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|task)$/) {	if ($feedurl=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|task)$/) {
unless ($symb) { $goahead=0; }	unless ($symb) { $goahead=0; }
}	}
# backward compatibility (bulletin boards used to be 'wrapped')
&dewrapper(\$feedurl);
if (!$goahead) {	if (!$goahead) {
# Ambiguous Problem Resource	# Ambiguous Problem Resource
$r->internal_redirect('/adm/ambiguous');	$r->internal_redirect('/adm/ambiguous');
Line 3343 ENDREDIR	Line 3707 ENDREDIR
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
# Unable to give feedback	# Unable to give feedback
	&Apache::lonenc::check_encrypt(\$feedurl);
&no_redirect_back($r,$feedurl);	&no_redirect_back($r,$feedurl);
return OK;	return OK;
}	}
# --------------------------------------------------- Print login screen header	# --------------------------------------------------- Print login screen header
unless ($env{'form.sendit'}) {	unless ($env{'form.sendit'}) {
	&Apache::lonenc::check_encrypt(\$feedurl);
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
	if (($env{'form.replydisc'}) \|\| ($env{'form.editdisc'})) {
	my ($blocked,$blocktext) =
	&Apache::loncommon::blocking_status('boards');
	if ($blocked) {
	$r->print(&blocked_reply_or_edit($blocktext));
	return OK;
	}
	}
my $options=&screen_header($feedurl,$symb);	my $options=&screen_header($feedurl,$symb);
if ($options) {	if ($options) {
&mail_screen($r,$feedurl,$options);	&mail_screen($r,$feedurl,$options,$symb,$attachmax{'text'});
} else {	} else {
&fail_redirect($r,$feedurl);	&fail_redirect($r,$feedurl);
}	}
Line 3365 ENDREDIR	Line 3739 ENDREDIR
$env{'request.course.id'});	$env{'request.course.id'});

# Get output from resource	# Get output from resource
	&Apache::lonenc::check_encrypt(\$feedurl);
my $usersaw=&resource_output($feedurl);	my $usersaw=&resource_output($feedurl);

# Get resource answer (need to allow student to view grades for this to work)	# Get resource answer (need to allow student to view grades for this to work)
&Apache::lonnet::appenv(('allowed.vgr'=>'F'));	&Apache::lonnet::appenv({'allowed.vgr'=>'F'});
my $useranswer=&Apache::loncommon::get_student_answers(	my $usersymb = &Apache::lonenc::check_encrypt($symb);
$symb,$env{'user.name'},$env{'user.domain'},	my $useranswer=
$env{'request.course.id'});	&Apache::loncommon::get_student_answers(
	$usersymb,$env{'user.name'},$env{'user.domain'},
	$env{'request.course.id'});
&Apache::lonnet::delenv('allowed.vgr');	&Apache::lonnet::delenv('allowed.vgr');
# Get attachments, if any, and not too large	# Get attachments, if any, and not too large
my $attachmenturl='';	my $attachmenturl='';
	my $toolarge='';
if (($env{'form.origpage'}) \|\| ($env{'form.editdisc'}) \|\|	if (($env{'form.origpage'}) \|\| ($env{'form.editdisc'}) \|\|
($env{'form.replydisc'})) {	($env{'form.replydisc'})) {
my ($symb,$idx);	my ($symb,$idx);
Line 3393 ENDREDIR	Line 3771 ENDREDIR
$symb=~s\|(bulletin___\d+___)adm/wrapper/\|$1\|;	$symb=~s\|(bulletin___\d+___)adm/wrapper/\|$1\|;
$attachmenturl=&construct_attachmenturl(\@currnewattach,\@keepold,$symb,$idx);	$attachmenturl=&construct_attachmenturl(\@currnewattach,\@keepold,$symb,$idx);
} elsif ($env{'form.attachment.filename'}) {	} elsif ($env{'form.attachment.filename'}) {
unless (length($env{'form.attachment'})>131072) {	if (length($env{'form.attachment'})<=$attachmax{'num'}) {
$attachmenturl=&Apache::lonnet::userfileupload('attachment',undef,'feedback');	my $now = time;
}	my $subdir = 'feedback/'.$now;
	$attachmenturl=&Apache::lonnet::userfileupload('attachment',undef,$subdir);
	} else {
	$toolarge = '<p><span class="LC_warning">'.&mt('Attachment not included - exceeded permitted length').'</span><br /></p>';
	}
}	}
# Filter HTML out of message (could be nasty)	# Filter HTML out of message (could be nasty)
my $message=&clear_out_html($env{'form.comment'});	my $message=&clear_out_html($env{'form.comment'});

# Assemble email	# Assemble email
my ($email,$citations)=&assemble_email($feedurl,$message,$prevattempts,	my ($email,$citations)=&assemble_email($message,$prevattempts,
$usersaw,$useranswer);	$usersaw,$useranswer);

# Who gets this?	# Who gets this?
my ($typestyle,%to) = &decide_receiver($feedurl);	my ($typestyle,%to) = &Apache::lonmsg::decide_receiver($feedurl);

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

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

my $numpost=0;	my $numpost=0;
if ($env{'form.discuss'} =~/^(?:non\|)anon$/	if ( ($env{'form.discuss'} ne ''
\|\| $env{'form.anondiscuss'}) {	&& $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=($env{'form.discuss'} eq 'anon' \|\| $env{'form.anondiscuss'} );	my $anonmode=($env{'form.discuss'} eq 'anon' \|\| $env{'form.anondiscuss'} );
$typestyle.=&adddiscuss($symb,$message,$anonmode,$attachmenturl,	$typestyle.=&adddiscuss($symb,$message,$anonmode,$attachmenturl,
Line 3438 ENDREDIR	Line 3820 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,$toolarge);
}	}
return OK;	return OK;
	}

	sub blocked_reply_or_edit {
	my ($blocktext) = @_;
	return
	&Apache::loncommon::start_page('Resource Feedback and Discussion').
	$blocktext.'<br /><br /><a href="javascript:history.go(-1)">'.
	&mt('Back to previous page').
	&Apache::loncommon::end_page();
}	}

sub wrap_symb {	sub wrap_symb {
Line 3479 sub get_feedurl_and_clean_symb {	Line 3870 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 3909 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;
	}

	sub get_resource_title {
	my ($symb,$feedurl) = @_;
	my ($restitle,$plainurl);
	if (defined($symb)) {
	my $plain_symb = &Apache::lonenc::check_decrypt($symb);
	$restitle = &Apache::lonnet::gettitle($plain_symb);
	}
	if (defined($feedurl)) {
	$plainurl = &Apache::lonenc::check_decrypt($feedurl);
	}
	if (!defined($restitle)) {
	if (defined($feedurl)) {
	$restitle = &Apache::lonnet::gettitle($plainurl);
	}
	}
	if ($plainurl ne $feedurl) {
	my ($plain_filename) = ($plainurl =~ m-/([^/]+)$-);
	if ($plain_filename eq $restitle) {
	$restitle = &mt('Untitled resource');
	}
	}
	if ($restitle eq '') {
	$restitle = &mt('Untitled resource');
	}
	return $restitle;
	}

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.202
changed lines
	Added in v.1.255.2.2