loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonfeedback.pm between versions 1.345 and 1.370.2.6

version 1.345, 2012/03/16 01:43:48	version 1.370.2.6, 2022/01/19 01:35:58
Line 44 use HTML::LCParser();	Line 44 use HTML::LCParser();
#use HTML::Tidy::libXML;	#use HTML::Tidy::libXML;
use Apache::lonspeller();	use Apache::lonspeller();
use Apache::longroup;	use Apache::longroup;
use Cwd;	use Archive::Zip qw( :ERROR_CODES );
use LONCAPA;	use LONCAPA qw(:DEFAULT :match);

sub discussion_open {	sub discussion_open {
my ($status,$symb)=@_;	my ($status,$symb)=@_;
Line 277 sub list_discussion {	Line 277 sub list_discussion {
$visit ++;	$visit ++;

my $seeid;	my $seeid;
if (($group ne '') && ($mode eq 'board') &&	if (&Apache::lonnet::allowed('rin',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))) {
($ressymb =~ m\|^bulletin___\d+___adm/wrapper/adm/\Q$cdom\E/\Q$cnum\E/\d+/bulletinboard$\|)) {	$seeid = 1;
if (&check_group_priv($group,'dgp') eq 'ok') {
$seeid = 1;
}
} else {
$seeid=&Apache::lonnet::allowed('rin',$crs);
}	}
	my $seehidden = &can_see_hidden($mode,$ressymb,undef,$group,$cdom,$cnum,$crs);

# Is voting on discussions available	# Is voting on discussions available
my $realsymb = &get_realsymb($ressymb);	my $realsymb = &get_realsymb($ressymb);
Line 311 sub list_discussion {	Line 307 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,$canvote,$prevread,$sortposts,$encsymb,$readkey,$showunmark,$showonlyunread,$totposters,\@rolefilter,\@sectionpick,\@grouppick,$classgroups,$statusfilter,$toggkey,$outputtarget,\%anonhash,$anoncnt,$group);	&build_posting_display(\%usernamesort,\%subjectsort,\%namesort,\%notshown,\%newitem,\%dischash,\%shown,\%alldiscussion,\%imsitems,\%imsfiles,\%roleinfo,\@discussionitems,\@replies,\@depth,\@posters,\$maxdepth,\$visible,\$newpostsflag,\$current,$status,$viewgrades,$seeid,$seehidden,$canvote,$prevread,$sortposts,$encsymb,$readkey,$showunmark,$showonlyunread,$totposters,\@rolefilter,\@sectionpick,\@grouppick,$classgroups,$statusfilter,$toggkey,$outputtarget,\%anonhash,$anoncnt,$group);

my $discussion='';	my $discussion='';
my $manifestfile;	my $manifestfile;
Line 340 sub list_discussion {	Line 336 sub list_discussion {
'aner' => 'An error occurred opening the manifest file.',	'aner' => 'An error occurred opening the manifest file.',
'difo' => 'Discussion for',	'difo' => 'Discussion for',
'aerr' => 'An error occurred opening the export file for posting',	'aerr' => 'An error occurred opening the export file for posting',
	'discussions' => 'DISCUSSIONS'
	);
	my %js_lt = &Apache::lonlocal::texthash(
'aysu' => 'Are you sure you want to delete this post?',	'aysu' => 'Are you sure you want to delete this post?',
'dpwn' => 'Deleted posts will no longer be visible to you and other students',	'dpwn' => 'Deleted posts will no longer be visible to you and other students',
'bwco' => 'but will continue to be visible to your instructor',	'bwco' => 'but will continue to be visible to your instructor',
'depo' => 'Deleted posts will no longer be visible to you or anyone else.',	'depo' => 'Deleted posts will no longer be visible to you or anyone else.',
'discussions' => 'DISCUSSIONS'
);	);
	&js_escape(\%js_lt);

my $currdisp = $lt{'allposts'};	my $currdisp = $lt{'allposts'};
my $currmark = $lt{'onmark'};	my $currmark = $lt{'onmark'};
Line 451 imscp_v1p1.xsd http://www.imsglobal.org/	Line 450 imscp_v1p1.xsd http://www.imsglobal.org/
prevparm = "&previous="+previous	prevparm = "&previous="+previous
}	}
if (caller == 'studentdelete') {	if (caller == 'studentdelete') {
if (confirm("$lt{'aysu'}\\n$lt{'dpwn'},\\n$lt{'bwco'}")) {	if (confirm("$js_lt{'aysu'}\\n$js_lt{'dpwn'},\\n$js_lt{'bwco'}")) {
document.location.href = "/adm/feedback?hide="+symbparm+prevparm+groupparm	document.location.href = "/adm/feedback?hide="+symbparm+prevparm+groupparm
}	}
} else {	} else {
if (caller == 'seeiddelete') {	if (caller == 'seeiddelete') {
if (confirm("$lt{'aysu'}\\n$lt{'depo'}")) {	if (confirm("$js_lt{'aysu'}\\n$js_lt{'depo'}")) {
document.location.href = "/adm/feedback?deldisc="+symbparm+prevparm+groupparm	document.location.href = "/adm/feedback?deldisc="+symbparm+prevparm+groupparm
}	}
}	}
Line 467 imscp_v1p1.xsd http://www.imsglobal.org/	Line 466 imscp_v1p1.xsd http://www.imsglobal.org/
"\n".'<table width="100%" class="LC_discussion">';	"\n".'<table width="100%" class="LC_discussion">';
$discussion .= &action_links_bar($colspan,$ressymb,$visible,	$discussion .= &action_links_bar($colspan,$ressymb,$visible,
$newpostsflag,$group,	$newpostsflag,$group,
$prevread,$markondisp);	$prevread,$markondisp,$seehidden);
my $escsymb=&escape($ressymb);	my $escsymb=&escape($ressymb);
my $numhidden = keys(%notshown);	my $numhidden = keys(%notshown);
if ($numhidden > 0) {	if ($numhidden > 0) {
my $colspan = $maxdepth+1;	my $colspan = $maxdepth+1;
$discussion.="\n".'<tr><td bgcolor="#CCCCCC" colspan="'.$colspan.'">'.	$discussion.="\n".'<tr><td bgcolor="#CCCCCC" colspan="'.$colspan.'">';
'<a href="/adm/feedback?allposts=1&symb='.$escsymb;	my $href = '/adm/feedback?allposts=1&symb='.$escsymb;
if ($newpostsflag) {	if ($newpostsflag) {
$discussion .= '&previous='.$prevread;	$href .= '&previous='.$prevread;
}	}
$discussion .= &group_args($group);	$href .= &group_args($group);
$discussion .= '">'.&mt('Show all posts').'</a> '.&mt('to display').' '.
$numhidden.' ';
if ($showunmark) {	if ($showunmark) {
$discussion .= &mt('posts previously marked read');	$discussion .= &mt('[_1]Show all posts[_2] to display [quant,_3,post] previously marked read',
	'<a href="'.$href.'">','</a>',$numhidden);
} else {	} else {
$discussion .= &mt('previously viewed posts');	$discussion .= &mt('[_1]Show all posts[_2] to display [quant,_3,post] previously viewed',
	'<a href="'.$href.'">','</a>',$numhidden);
}	}
$discussion .= '<br/></td></tr>';	$discussion .= '<br/></td></tr>';
}	}
Line 517 imscp_v1p1.xsd http://www.imsglobal.org/	Line 516 imscp_v1p1.xsd http://www.imsglobal.org/
my $currdepth = 0;	my $currdepth = 0;
my $firstidx = $alldiscussion{$showposts[0]};	my $firstidx = $alldiscussion{$showposts[0]};
foreach my $post (@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.unthreadeddiscussion'})) \|\|
	($outputtarget eq 'export')) {
$alldiscussion{$post} = $post;	$alldiscussion{$post} = $post;
}	}
unless ( ($notshown{$alldiscussion{$post}} eq '1') \|\| ($shown{$alldiscussion{$post}} == 0) ) {	unless ( ($notshown{$alldiscussion{$post}} eq '1') \|\| ($shown{$alldiscussion{$post}} == 0) ) {
Line 564 imscp_v1p1.xsd http://www.imsglobal.org/	Line 565 imscp_v1p1.xsd http://www.imsglobal.org/
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>'.&mt('Discussion Post').'</title></head><body>'.
$imsitems{$alldiscussion{$post}}{'title'}.' '.	$imsitems{$alldiscussion{$post}}{'title'}.' '.
$imsitems{$alldiscussion{$post}}{'sender'}.	$imsitems{$alldiscussion{$post}}{'sender'}.
$imsitems{$alldiscussion{$post}}{'timestamp'}.'<br /><br />'.	$imsitems{$alldiscussion{$post}}{'timestamp'}.'<br /><br />'.
Line 671 END	Line 672 END
END	END
$discussion .= &action_links_bar($colspan,$ressymb,$visible,	$discussion .= &action_links_bar($colspan,$ressymb,$visible,
$newpostsflag,$group,	$newpostsflag,$group,
$prevread,$markondisp);	$prevread,$markondisp,$seehidden);
$discussion .= "</table></form>\n";	$discussion .= "</table></form>\n";
}	}
if ($outputtarget eq 'export') {	if ($outputtarget eq 'export') {
Line 695 END	Line 696 END

#Create zip file in prtspool	#Create zip file in prtspool

my $imszipfile = '/prtspool/'.	if (($env{'user.name'} =~ /^$match_username$/)
$env{'user.name'}.'_'.$env{'user.domain'}.'_'.	&& ($env{'user.domain'} =~ /^$match_domain$/)) {
time.'_'.rand(1000000000).'.zip';	my $now = time();
my $cwd = &getcwd();	my $imszipfile = '/prtspool/'.
my $imszip = '/home/httpd/'.$imszipfile;	join('_',$env{'user.name'},$env{'user.domain'},$now).
chdir $tempexport;	'_'.rand(1000000000).'.zip';
open(OUTPUT, "zip -r $imszip * 2> /dev/null \|");	my $zip = Archive::Zip->new();
close(OUTPUT);	$zip->addTree($tempexport);
chdir $cwd;	my $imszip = '/home/httpd/'.$imszipfile;
$discussion .= &mt('Download the zip file from [_1]Discussion Posting Archive','<a href="'.$imszipfile.'">').'</a><br />';	if ($zip->writeToFileNamed($imszip) == AZ_OK) {
if ($copyresult) {	$discussion .= &mt('Download the zip file from [_1]Discussion Posting Archive[_2]',
$discussion .= &mt('The following errors occurred during export').' - <br />'.$copyresult;	'<a href="'.$imszipfile.'">','</a>').'<br />';
	} else {
	$discussion .= &mt('Failed to create zip file').'<br />';
	}
	if ($copyresult) {
	$discussion .= '<span class="LC_error">'.
	&mt('The following errors occurred during export:').
	'</span><br />'.$copyresult;
	}
	} else {
	$discussion .= '<p class="LC_error">'.
	&mt('Unfortunately you will not be able to retrieve an archive of the discussion posts at this time, because there was a problem creating the zip file.').'</p>';
}	}
}	}
} else {	} else {
$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 />';	$discussion .= '<p class="LC_error">'.
	&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.').'</p>';
}	}
return $discussion;	return $discussion;
}	}
Line 788 END	Line 801 END
return $discussion;	return $discussion;
}	}

	sub can_see_hidden {
	my ($mode,$ressymb,$feedurl,$group,$cdom,$cnum,$crs) = @_;
	my $seehidden;
	if ($env{'request.course.id'}) {
	unless ($cdom ne '' && $cnum ne '') {
	$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
	$cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
	}
	if ($crs eq '') {
	$crs = '/'.$env{'request.course.id'};
	if ($env{'request.course.sec'}) {
	$crs.='_'.$env{'request.course.sec'};
	}
	$crs=~s{_}{/}g;
	}
	if ($mode eq '') {
	$mode='board';
	if ($feedurl =~ /$LONCAPA::assess_re/) {
	$mode='problem';
	}
	}
	if (($group ne '') && ($mode eq 'board') &&
	($ressymb =~ m{^bulletin___\d+\Q___adm/wrapper/adm/$cdom/$cnum/\E\d+/bulletinboard$})) {
	if (&check_group_priv($group,'dgp') eq 'ok') {
	$seehidden = 1;
	}
	} else {
	$seehidden=&Apache::lonnet::allowed('rin',$crs);
	}
	}
	return $seehidden;
	}

sub discussion_link {	sub discussion_link {
my ($ressymb,$linktext,$cmd,$item,$flag,$prev,$adds,$title)=@_;	my ($ressymb,$linktext,$cmd,$item,$flag,$prev,$adds,$title)=@_;
my $link='/adm/feedback?inhibitmenu=yes&modal=yes&'.$cmd.'='.&escape($ressymb).':::'.$item;	my $link='/adm/feedback?inhibitmenu=yes&modal=yes&'.$cmd.'='.&escape($ressymb).':::'.$item;
if ($flag) { $link .= '&previous='.$prev; }	if ($flag) { $link .= '&previous='.$prev; }
if ($adds) { $link .= $adds; }	if ($adds) { $link .= $adds; }
my $width=600;	my $width=600;
Line 810 sub send_feedback_link {	Line 855 sub send_feedback_link {
&discussion_link($ressymb,	&discussion_link($ressymb,
'<img alt="" class="LC_noBorder" src="'.	'<img alt="" class="LC_noBorder" src="'.
&Apache::loncommon::lonhttpdurl('/adm/lonMisc/chat.gif').	&Apache::loncommon::lonhttpdurl('/adm/lonMisc/chat.gif').
'" border="0" /><span class="LC_menubuttons_inline_text">'.&mt('Post Discussion').'</span>',	'" /><span class="LC_menubuttons_inline_text">'.&mt('Post Discussion').'</span>',
'replydisc').	'replydisc').
'</span>';	'</span>';
}	}
Line 821 sub send_message_link {	Line 866 sub send_message_link {
&discussion_link($ressymb,	&discussion_link($ressymb,
'<img alt="" class="LC_noBorder" src="'.	'<img alt="" class="LC_noBorder" src="'.
&Apache::loncommon::lonhttpdurl('/res/adm/pages/feedback.png').	&Apache::loncommon::lonhttpdurl('/res/adm/pages/feedback.png').
'" border="0" /><span class="LC_menubuttons_inline_text">'.&mt('Send Feedback').'</span>',	'" /><span class="LC_menubuttons_inline_text">'.&mt('Send Feedback').'</span>',
'sendmessageonly').	'sendmessageonly').
'</span>';	'</span>';
return $output;	return $output;
}	}

sub action_links_bar {	sub action_links_bar {
my ($colspan,$ressymb,$visible,$newpostsflag,$group,$prevread,$markondisp) = @_;	my ($colspan,$ressymb,$visible,$newpostsflag,$group,$prevread,$markondisp,
	$seehidden) = @_;
my $discussion = '<tr><td colspan="'.$colspan.'">'.	my $discussion = '<tr><td colspan="'.$colspan.'">'.
'<table width="100%"><tr>'.	'<table width="100%"><tr>'.
'<td class="LC_disc_action_left">';	'<td class="LC_disc_action_left">';
Line 861 sub action_links_bar {	Line 907 sub action_links_bar {
}	}
$discussion .= &group_args($group);	$discussion .= &group_args($group);
$discussion .= '">'.&mt('Export').'</a>';	$discussion .= '">'.&mt('Export').'</a>';
if (&Apache::lonnet::allowed('rin',$env{'request.course.id'})) {	if ($seehidden) {
$discussion .= '  ';	$discussion .= '  ';
$discussion .='<a href="/adm/feedback?undeleteall='.$escsymb;	$discussion .='<a href="/adm/feedback?undeleteall='.$escsymb;
if ($newpostsflag) {	if ($newpostsflag) {
Line 895 sub postingform_display {	Line 941 sub postingform_display {
$currnewattach,$currdelold,$group,$crstype) = @_;	$currnewattach,$currdelold,$group,$crstype) = @_;
my $newattachmsg;	my $newattachmsg;
my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
'note' => 'Note: in anonymous discussion, your name is visible only to course faculty',	'note' => 'Note: in anonymous discussion, your name is visible only to course faculty',
'title' => 'Title',	'title' => 'Title',
'podi' => 'Post Discussion',	'podi' => 'Post Discussion',
'poan' => 'Post Anonymous Discussion',	'poan' => 'Post Anonymous Discussion',
Line 968 ENDDISCUSS	Line 1014 ENDDISCUSS
}	}

sub build_posting_display {	sub build_posting_display {
my ($usernamesort,$subjectsort,$namesort,$notshown,$newitem,$dischash,$shown,$alldiscussion,$imsitems,$imsfiles,$roleinfo,$discussionitems,$replies,$depth,$posters,$maxdepth,$visible,$newpostsflag,$current,$status,$viewgrades,$seeid,$canvote,$prevread,$sortposts,$ressymb,$readkey,$showunmark,$showonlyunread,$totposters,$rolefilter,$sectionpick,$grouppick,$classgroups,$statusfilter,$toggkey,$outputtarget,$anonhash,$anoncnt,$group) = @_;	my ($usernamesort,$subjectsort,$namesort,$notshown,$newitem,$dischash,$shown,$alldiscussion,$imsitems,$imsfiles,$roleinfo,$discussionitems,$replies,$depth,$posters,$maxdepth,$visible,$newpostsflag,$current,$status,$viewgrades,$seeid,$seehidden,$canvote,$prevread,$sortposts,$ressymb,$readkey,$showunmark,$showonlyunread,$totposters,$rolefilter,$sectionpick,$grouppick,$classgroups,$statusfilter,$toggkey,$outputtarget,$anonhash,$anoncnt,$group) = @_;
my @original=();	my @original=();
my @index=();	my @index=();
my $skip_group_check = 0;	my $skip_group_check = 0;
Line 1025 sub build_posting_display {	Line 1071 sub build_posting_display {
&filter_regexp($rolefilter,$sectionpick,$statusfilter);	&filter_regexp($rolefilter,$sectionpick,$statusfilter);
$rolematch = $roleregexp.':'.$secregexp.':'.$statusregexp;	$rolematch = $roleregexp.':'.$secregexp.':'.$statusregexp;
}	}
	my %votestyle;
if ($seeid \|\| $canvote) {	if ($seeid \|\| $canvote) {
# We need to go through this twice, first to get the likes/dislikes, then to actually build the display	# We need to go through this twice, first to get the likes/dislikes, then to actually build the display
for (my $id=1;$id<=$contrib{'version'};$id++) {	for (my $id=1;$id<=$contrib{'version'};$id++) {
my $idx=$id;	my $idx=$id;
next if ($contrib{$idx.':deleted'});	next if ($contrib{$idx.':deleted'});
next if ($contrib{$idx.':hidden'});	next if ($contrib{$idx.':hidden'});
unless ((($hiddens{$idx}) && (!$seeid)) \|\| ($deletions{$idx}) \|\| (!$contrib{$idx.':message'})) {	unless ((($hiddens{$idx}) && (!$seehidden)) \|\| ($deletions{$idx}) \|\| (!$contrib{$idx.':message'})) {
	push(@theselikes,$likes{$symb.':'.$idx.':likes'});
if ($likes{$symb.':'.$idx.':likes'} ne '') {	if ($likes{$symb.':'.$idx.':likes'} ne '') {
push(@theselikes,$likes{$symb.':'.$idx.':likes'});
if (ref($likes{$symb.':'.$idx.':likers'}) eq 'HASH') {	if (ref($likes{$symb.':'.$idx.':likers'}) eq 'HASH') {
if (exists($likes{$symb.':'.$idx.':likers'}{$thisuser})) {	if (exists($likes{$symb.':'.$idx.':likers'}{$thisuser})) {
$userlikes{$idx} = 1;	$userlikes{$idx} = 1;
Line 1070 sub build_posting_display {	Line 1117 sub build_posting_display {
$twoplus=$ave+2.*$stddev;	$twoplus=$ave+2.*$stddev;
$oneminus=$ave-$stddev;	$oneminus=$ave-$stddev;
$twominus=$ave-2.*$stddev;	$twominus=$ave-2.*$stddev;
	if ($#theselikes>1) {
	foreach my $class ('twoplus','oneplus','zero','oneminus','twominus') {
	my $fontstyle = $env{'course.'.$env{'request.course.id'}.'.discussion_post_fonts_'.$class};
	if ($fontstyle ne '') {
	my ($size,$weight,$style,$other) = split(/,/,$fontstyle);
	if ($size ne '') {
	$votestyle{$class} .= 'font-size: '.$size.';';
	}
	if ($weight ne '') {
	$votestyle{$class} .= 'font-weight: '.$weight.';';
	}
	if ($style ne '') {
	$votestyle{$class} .= 'font-style: '.$style.';';
	}
	if ($other ne '') {
	$votestyle{$class} .= $other;
	}
	if ($votestyle{$class} ne '') {
	$votestyle{$class} = 'style="'.$votestyle{$class}.'"';
	}
	}
	}
	}
}	}
#	#
# This is now the real loop. Go through all entries, pick up what we need	# This is now the real loop. Go through all entries, pick up what we need
Line 1088 sub build_posting_display {	Line 1158 sub build_posting_display {
my $origindex='0.';	my $origindex='0.';
my $numoldver=0;	my $numoldver=0;
if ($contrib{$idx.':replyto'}) {	if ($contrib{$idx.':replyto'}) {
if ( (($env{'environment.threadeddiscussion'}) && ($sortposts eq '')) \|\| ($sortposts eq 'thread') \|\| ($outputtarget eq 'export')) {	if ( ((!$env{'environment.unthreadeddiscussion'}) && ($sortposts eq '')) \|\|
	($sortposts eq 'thread') \|\| ($outputtarget eq 'export')) {
# this is a follow-up message	# this is a follow-up message
$original[$idx]=$original[$contrib{$idx.':replyto'}];	$original[$idx]=$original[$contrib{$idx.':replyto'}];
$$depth[$idx]=$$depth[$contrib{$idx.':replyto'}]+1;	$$depth[$idx]=$$depth[$contrib{$idx.':replyto'}]+1;
Line 1108 sub build_posting_display {	Line 1179 sub build_posting_display {
} else {	} else {
$$replies[$$depth[$idx]]=1;	$$replies[$$depth[$idx]]=1;
}	}
unless ((($hiddens{$idx}) && (!$seeid)) \|\| ($deletions{$idx})) {	unless ((($hiddens{$idx}) && (!$seehidden)) \|\| ($deletions{$idx})) {
$$visible++;	$$visible++;
if ($contrib{$idx.':history'}) {	if ($contrib{$idx.':history'}) {
if ($contrib{$idx.':history'} =~ /:/) {	if ($contrib{$idx.':history'} =~ /:/) {
Line 1133 sub build_posting_display {	Line 1204 sub build_posting_display {
$$anonhash{$key}=&mt('Anonymous').' '.$anoncnt;	$$anonhash{$key}=&mt('Anonymous').' '.$anoncnt;
}	}
my ($message,$subject,$vgrlink,$ctlink);	my ($message,$subject,$vgrlink,$ctlink);
&get_post_contents(\%contrib,$idx,$seeid,$outputtarget,\%messages,\%subjects,\%allattachments,\%attachtxt,$imsfiles,\$screenname,\$plainname,\$showaboutme,$numoldver);	&get_post_contents(\%contrib,$idx,$seeid,$seehidden,$outputtarget,\%messages,\%subjects,\%allattachments,\%attachtxt,$imsfiles,\$screenname,\$plainname,\$showaboutme,$numoldver);


# Set up for sorting by subject	# Set up for sorting by subject
Line 1222 sub build_posting_display {	Line 1293 sub build_posting_display {
if (&editing_allowed($escsymb.':::'.$idx,$group)) {	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.=' '.	$sender.=' '.
&discussion_link($symb,&mt('Edit'),'editdisc',$idx,$$newpostsflag,$prevread,&group_args($group));	&discussion_link($ressymb,&mt('Edit'),'editdisc',$idx,$$newpostsflag,$prevread,&group_args($group));
unless ($seeid) {	unless ($seehidden) {
my $grpargs = &group_args($group);	my $grpargs = &group_args($group);
$sender.=" <a href=\"javascript:verifydelete('studentdelete','$escsymb','$idx','$$newpostsflag','$prevread','$grpargs')";	$sender.=" <a href=\"javascript:verifydelete('studentdelete','$escsymb','$idx','$$newpostsflag','$prevread','$grpargs')";
$sender .= '">'.&mt('Delete').'</a>';	$sender .= '">'.&mt('Delete').'</a>';
}	}
}	}
}	}
if ($seeid) {	if ($seehidden) {
if ($hiddens{$idx}) {	if ($hiddens{$idx}) {
unless ($studenthidden) {	unless ($studenthidden) {
$sender.=' '.	$sender.=' '.
&discussion_link($symb,&mt('Make Visible'),'unhide',$idx,$$newpostsflag,$prevread,&group_args($group));	&discussion_link($ressymb,&mt('Make Visible'),'unhide',$idx,$$newpostsflag,$prevread,&group_args($group));
}	}
} else {	} else {
$sender.=' '.	$sender.=' '.
&discussion_link($symb,&mt('Hide'),'hide',$idx,$$newpostsflag,$prevread,&group_args($group));	&discussion_link($ressymb,&mt('Hide'),'hide',$idx,$$newpostsflag,$prevread,&group_args($group));
}	}
my $grpargs = &group_args($group);	my $grpargs = &group_args($group);
$sender.=	$sender.=
Line 1277 sub build_posting_display {	Line 1348 sub build_posting_display {
if (($group ne '') &&	if (($group ne '') &&
(&check_group_priv($group,'pgd') eq 'ok')) {	(&check_group_priv($group,'pgd') eq 'ok')) {
$sender.=' '.	$sender.=' '.
&discussion_link($symb,&mt('Reply'),'replydisc',$idx,$$newpostsflag,$prevread,&group_args($group));	&discussion_link($ressymb,&mt('Reply'),'replydisc',$idx,$$newpostsflag,$prevread,&group_args($group));
} elsif (&Apache::lonnet::allowed('pch',	} elsif (&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'}:''))) {
$sender.=' '.	$sender.=' '.
&discussion_link($symb,&mt('Reply'),'replydisc',$idx,$$newpostsflag,$prevread);	&discussion_link($ressymb,&mt('Reply'),'replydisc',$idx,$$newpostsflag,$prevread);
}	}
}	}
if ($viewgrades) {	if ($viewgrades) {
Line 1301 sub build_posting_display {	Line 1372 sub build_posting_display {
}	}
if ($outputtarget eq 'export' \|\| $message) {	if ($outputtarget eq 'export' \|\| $message) {
my $thisindex=$idx;	my $thisindex=$idx;
if ( (($env{'environment.threadeddiscussion'}) && ($sortposts eq '')) \|\| ($sortposts eq 'thread') \|\| ($outputtarget eq 'export')) {	if ( ((!$env{'environment.unthreadeddiscussion'}) && ($sortposts eq '')) \|\|
	($sortposts eq 'thread') \|\| ($outputtarget eq 'export')) {
$thisindex=$origindex.substr('00'.$$replies[$$depth[$idx]],-2,2);	$thisindex=$origindex.substr('00'.$$replies[$$depth[$idx]],-2,2);
}	}
$$alldiscussion{$thisindex}=$idx;	$$alldiscussion{$thisindex}=$idx;
Line 1403 sub build_posting_display {	Line 1475 sub build_posting_display {
$$discussionitems[$idx].='  '.$ctlink;	$$discussionitems[$idx].='  '.$ctlink;
}	}
my $thislikes=$likes{$symb.':'.$idx.':likes'};	my $thislikes=$likes{$symb.':'.$idx.':likes'};
my $likesize="100";	my $likestyle;
if ($seeid \|\| $canvote) {	if ($seeid \|\| $canvote) {
# Figure out size based on likes	# Figure out size based on likes
	my $class = 'zero';
my $thislikes=$likes{$symb.':'.$idx.':likes'};	my $thislikes=$likes{$symb.':'.$idx.':likes'};
if ($thislikes>$twoplus) {	if ($thislikes>$twoplus) {
$likesize="200";	$class = 'twoplus';
} elsif ($thislikes>$oneplus) {	} elsif ($thislikes>$oneplus) {
$likesize="150";	$class = 'oneplus';
}	}
if ($thislikes<$twominus) {	if ($thislikes<$twominus) {
$likesize="50";	$class = 'twominus';
} elsif ($thislikes<$oneminus) {	} elsif ($thislikes<$oneminus) {
$likesize="75";	$class = 'oneminus';
}	}
	$likestyle = $votestyle{$class};
}	}
# Actually glue in the message itself	# Actually glue in the message itself
$$discussionitems[$idx].= '<br /><blockquote>'.	$$discussionitems[$idx].= '<br /><blockquote>'.
"<div style='font-size:$likesize%'>".	"<div $likestyle>".
$message.	$message.
'</div></blockquote>';	'</div></blockquote>';
if ($canvote) {	if ($canvote) {
	my $ownpost;
	if (($uname eq $env{'user.name'}) &&
	($udom eq $env{'user.domain'})) {
	$ownpost = 1;
	}
# Put in the like and unlike buttons	# Put in the like and unlike buttons
if (($uname eq $env{'user.name'}) && ($udom eq $env{'user.domain'})) {	if ($ownpost \|\| (($hiddens{$idx}) && ($seehidden))) {
my $novote = &mt('No voting for your own posts');	my $novote;
	if ($ownpost) {
	$novote = &mt('No voting for your own posts.');
	} else {
	$novote = &mt('No voting for hidden posts.');
	}
	&html_escape(\$novote);
$$discussionitems[$idx].=	$$discussionitems[$idx].=
'<a href="javascript:alert('."'$novote'".');" style="text-decoration: none;">'.	'<a href="javascript:alert('."'$novote'".');" style="text-decoration: none;">'.
'<img border="0" src="/res/adm/pages/thumbsup_novote.png" alt="'.$novote.'" /> '.	'<img border="0" src="/res/adm/pages/thumbsup_novote.png" alt="'.$novote.'" /> '.
'<img border="0" src="/res/adm/pages/thumbsdown_novote.png" alt="'.$novote.'" /></a>';	'<img border="0" src="/res/adm/pages/thumbsdown_novote.png" alt="'.$novote.'" /></a>';

} else {	} else {
if ($userlikes{$idx}) {	if ($userlikes{$idx}) {
$$discussionitems[$idx].='<img border="0" src="/res/adm/pages/thumbsup_gray.png" alt="'.&mt('You like this posting').'" />';	$$discussionitems[$idx].='<img border="0" src="/res/adm/pages/thumbsup_gray.png" alt="'.&mt('You like this posting').'" />';
} else {	} else {
$$discussionitems[$idx].=' '.&discussion_link($symb,'<img border="0" src="/res/adm/pages/thumbsup.png" alt="'.&mt('Like').'" />','like',$idx,$$newpostsflag,$prevread,&group_args($group),&mt("Like this posting"));	$$discussionitems[$idx].=' '.&discussion_link($ressymb,'<img border="0" src="/res/adm/pages/thumbsup.png" alt="'.&mt('Like').'" />','like',$idx,$$newpostsflag,$prevread,&group_args($group),&mt("Like this posting"));
}	}
if ($userunlikes{$idx}) {	if ($userunlikes{$idx}) {
$$discussionitems[$idx].='<img border="0" src="/res/adm/pages/thumbsdown_gray.png" alt="'.&mt('You unlike this posting').'" />';	$$discussionitems[$idx].='<img border="0" src="/res/adm/pages/thumbsdown_gray.png" alt="'.&mt('You unlike this posting').'" />';
} else {	} else {
$$discussionitems[$idx].=' '.&discussion_link($symb,'<img border="0" src="/res/adm/pages/thumbsdown.png" alt="'.&mt('Unlike').'" />','unlike',$idx,$$newpostsflag,$prevread,&group_args($group),&mt("Unlike this posting"));	$$discussionitems[$idx].=' '.&discussion_link($ressymb,'<img border="0" src="/res/adm/pages/thumbsdown.png" alt="'.&mt('Unlike').'" />','unlike',$idx,$$newpostsflag,$prevread,&group_args($group),&mt("Unlike this posting"));
}	}
}	}
}	}
Line 1456 sub build_posting_display {	Line 1542 sub build_posting_display {
if ($contrib{$idx.':history'}) {	if ($contrib{$idx.':history'}) {
my @postversions = ();	my @postversions = ();
$$discussionitems[$idx] .= '  '.&mt('This post has been edited by the author.');	$$discussionitems[$idx] .= '  '.&mt('This post has been edited by the author.');
if ($seeid) {	if ($seehidden) {
$$discussionitems[$idx] .= '  '.	$$discussionitems[$idx] .= '  '.
&discussion_link($symb,&mt('Display all versions'),'allversions',$idx,$$newpostsflag,$prevread,&group_args($group));	&discussion_link($ressymb,&mt('Display all versions'),'allversions',$idx,$$newpostsflag,$prevread,&group_args($group));
}	}
$$discussionitems[$idx].='<br/>'.&mt('Earlier version(s) were posted on: ');	$$discussionitems[$idx].='<br/>'.&mt('Earlier version(s) were posted on: ');
if ($contrib{$idx.':history'} =~ m/:/) {	if ($contrib{$idx.':history'} =~ m/:/) {
Line 1542 sub filter_regexp {	Line 1628 sub filter_regexp {


sub get_post_contents {	sub get_post_contents {
my ($contrib,$idx,$seeid,$type,$messages,$subjects,$allattachments,$attachtxt,$imsfiles,$screenname,$plainname,$showaboutme,$numver) = @_;	my ($contrib,$idx,$seeid,$seehidden,$type,$messages,$subjects,$allattachments,$attachtxt,$imsfiles,$screenname,$plainname,$showaboutme,$numver) = @_;
my $discussion = '';	my $discussion = '';
my $start=$numver;	my $start=$numver;
my $end=$numver + 1;	my $end=$numver + 1;
%{$$imsfiles{$idx}}=();	%{$$imsfiles{$idx}}=();
if ($type eq 'allversions') {	if ($type eq 'allversions') {
unless($seeid) {	unless($seehidden) {
$discussion=&mt('You do not have privileges to view all versions of posts.').' '.&mt('Please select a different role.');	$discussion=&mt('You do not have privileges to view all versions of posts.').' '.&mt('Please select a different role.');
return $discussion;	return $discussion;
}	}
Line 1690 sub mail_screen {	Line 1776 sub mail_screen {

my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
'myqu' => 'Question/comment/feedback:',	'myqu' => 'Question/comment/feedback:',
'title' => 'Title',
'reta' => 'Retained attachments',	'reta' => 'Retained attachments',
'atta' => 'Attachment',	'atta' => 'Attachment',
);	);
if($env{'form.editdisc'} \|\| $env{'form.replydisc'}){	if ($env{'form.editdisc'} \|\| $env{'form.replydisc'}){
%lt = &Apache::lonlocal::texthash(	$lt{'myqu'} = &mt('Post Discussion');
'myqu' => 'Post Discussion',
);
}	}
my $restitle = &get_resource_title($caller_symb,$feedurl);	my $restitle = &get_resource_title($caller_symb,$feedurl);
my $quote='';	my $quote='';
Line 1763 END	Line 1846 END
$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'});
unless (($contrib{'hidden'}=~/\.$idx\./) \|\| ($contrib{'deleted'}=~/\.$idx\./)) {	unless (($contrib{'hidden'}=~/\.$idx\./) \|\| ($contrib{'deleted'}=~/\.$idx\./)) {
	my $numoldver = 0;
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'});
Line 1771 END	Line 1855 END
$numoldver = 1;	$numoldver = 1;
}	}
}	}
if ($env{'form.replydisc'}) {	if ($idx > 0) {
if ($contrib{$idx.':history'}) {	my (%msgversions,%subversions,$htmldecode);
if ($contrib{$idx.':history'} =~ /:/) {	$htmldecode = 0;
my @oldversions = split(/:/,$contrib{$idx.':history'});	if ($env{'form.replydisc'}) {
$numoldver = @oldversions;	$htmldecode = 1;
} else {
$numoldver = 1;
}
}	}
if ($idx > 0) {	&get_post_versions(\%msgversions,$contrib{$idx.':message'},0,$numoldver);
my %msgversions = ();	&get_post_versions(\%subversions,$contrib{$idx.':subject'},$htmldecode,
&get_post_versions(\%msgversions,$contrib{$idx.':message'},0,$numoldver);	$numoldver);
	$subject = $subversions{$numoldver};
	if ($env{'form.replydisc'}) {
$quote = $msgversions{$numoldver};	$quote = $msgversions{$numoldver};
}	$subject = &HTML::Entities::encode(&mt('Re: ').$subject,'<>&"');
if ($idx > 0) {	} else {
my %subversions = ();
&get_post_versions(\%subversions,$contrib{$idx.':subject'},1,$numoldver);
$subject = &mt('Re: ').$subversions{$numoldver};
}
$subject = &HTML::Entities::encode($subject,'<>&"');
} else {
$attachmenturls = $contrib{$idx.':attachmenturl'};
if ($idx > 0) {
my %msgversions = ();
&get_post_versions(\%msgversions,$contrib{$idx.':message'},0,$numoldver);
$comment = $msgversions{$numoldver};	$comment = $msgversions{$numoldver};
my %subversions = ();
&get_post_versions(\%subversions,$contrib{$idx.':subject'},0,$numoldver);
$subject = $subversions{$numoldver};
}	}
	}
	if ($env{'form.editdisc'}) {
	$attachmenturls = $contrib{$idx.':attachmenturl'};
if (defined($contrib{$idx.':replyto'})) {	if (defined($contrib{$idx.':replyto'})) {
$parentmsg = $contrib{$idx.':replyto'};	$parentmsg = $contrib{$idx.':replyto'};
}	}
Line 1836 END	Line 1909 END
my $latexHelp=&Apache::loncommon::helpLatexCheatsheet(undef,undef,1,($env{'form.modal'}?'popup':0));	my $latexHelp=&Apache::loncommon::helpLatexCheatsheet(undef,undef,1,($env{'form.modal'}?'popup':0));
my $send=&mt('Send');	my $send=&mt('Send');
my $alert = &mt('Please select a feedback type.');	my $alert = &mt('Please select a feedback type.');
	&js_escape(\$alert);
my $js= <<END;	my $js= <<END;
<script type="text/javascript">	<script type="text/javascript">
//<!--	//<!--
Line 1873 END	Line 1947 END
$anonscript	$anonscript
//-->	//-->
</script>	</script>
	<script type="text/javascript" src="/res/adm/includes/file_upload.js"></script>
END	END

my ($textareaheader,$textareaclass);	my ($textareaheader,$textareaclass);
Line 1892 END	Line 1967 END

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

Line 1901 END	Line 1976 END
unless (&contains_block_html($quote)) {	unless (&contains_block_html($quote)) {
&newline_to_br(\$quote);	&newline_to_br(\$quote);
}	}
$quote='<blockquote>'.&Apache::lontexconvert::msgtexconverted($quote).'</blockquote>';	$quote=&Apache::lonhtmlcommon::start_pick_box().
	&Apache::lonhtmlcommon::row_title(&mt('Quote')).
	&Apache::lontexconvert::msgtexconverted($quote).
	&Apache::lonhtmlcommon::row_closure(1).
	&Apache::lonhtmlcommon::end_pick_box();
}	}
my $header='';	my $header='';
unless ($env{'form.modal'}) {	unless ($env{'form.modal'}) {
Line 1929 END	Line 2008 END
}	}
$r->print(<<END);	$r->print(<<END);
$options	$options
	<br />
	END
	$r->print(&Apache::lonhtmlcommon::start_pick_box());
	$r->print(<<END);
$quote	$quote
<p>	<p>
$textareaheader	$textareaheader
</p>	</p>
<br>
<p>	<p>
$latexHelp	$latexHelp
</p>	</p>
<p>	<p>
END	END

$r->print(&Apache::lonhtmlcommon::start_pick_box());
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Subject')));	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Subject')));
$r->print('<input type="text" name="subject" size="30" value="'.	$r->print('<input type="text" name="subject" size="30" value="'.
$subject.'" /></p>');	$subject.'" /></p>');
$r->print(&Apache::lonhtmlcommon::row_closure());	$r->print(&Apache::lonhtmlcommon::row_closure());
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Message')));	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Message')));
$r->print('<textarea name="comment" id="comment" cols="60" rows="10" '.	$r->print('<textarea name="comment" id="comment" cols="55" rows="10" '.
$textareaclass.'>'.$comment.	$textareaclass.'>'.$comment.
'</textarea>');	'</textarea>');
$r->print(&Apache::lonhtmlcommon::row_closure(1));	$r->print(&Apache::lonhtmlcommon::row_closure(1));
Line 1973 END	Line 2055 END
} else {	} else {
$r->print(<<END);	$r->print(<<END);
<p>	<p>
$lt{'atta'} $attachmaxtext: <input type="file" name="attachment" />	$lt{'atta'} $attachmaxtext: <input type="file" name="attachment" class="LC_flUpload" />
	<input type="hidden" id="LC_free_space" value="131072" />
</p>	</p>
END	END
}	}
Line 1984 END	Line 2067 END
$r->print('<input type="hidden" name="ref" value="'.$env{'form.ref'}.'" />');	$r->print('<input type="hidden" name="ref" value="'.$env{'form.ref'}.'" />');
}	}
$r->print(<<END);	$r->print(<<END);
<p>
<input type="hidden" name="sendit" value="1" />	<input type="hidden" name="sendit" value="1" />
<input type="button" value="$send" onclick='gosubmit();' />	<input type="button" value="$send" onclick='gosubmit();' />
</p>
</form>	</form>
END	END
if ($env{'form.editdisc'} \|\| $env{'form.replydisc'}) {	if ($env{'form.editdisc'} \|\| $env{'form.replydisc'}) {
Line 2002 END	Line 2083 END
$attachnum += @currnewattach;	$attachnum += @currnewattach;
}	}
my $blockblog = &Apache::loncommon::blocking_status('blogs');	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>'.&mt('New attachments').'</b><br />';	$newattachmsg .= '<br /><b>'.&mt('New attachments').'</b><br />';
Line 2022 END	Line 2102 END
$r->print("<br /><b>$lt{'reta'}</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");
}	}
}	}
	$r->print(&generate_attachments_button($postidx,$attachnum,$ressymb,$now,\@currnewattach,\@currdelold,$numoldver,'',$blockblog));
}	}
$r->print(&generate_preview_button().	$r->print(&generate_preview_button().
&Apache::loncommon::end_page());	&Apache::loncommon::end_page());
Line 2064 sub print_display_options {	Line 2145 sub print_display_options {
'yhni' => 'You have not indicated that you wish to change any of the discussion settings',	'yhni' => 'You have not indicated that you wish to change any of the discussion settings',
'ywbr' => 'You will be returned to the previous page if you click OK.'	'ywbr' => 'You will be returned to the previous page if you click OK.'
);	);
	my %js_lt = &Apache::lonlocal::texthash(
	'yhni' => 'You have not indicated that you wish to change any of the discussion settings',
	'ywbr' => 'You will be returned to the previous page if you click OK.'
	);
	&js_escape(\%js_lt);

my $dispchangeA = $lt{'unread'};	my $dispchangeA = $lt{'unread'};
my $dispchangeB = $lt{'unmark'};	my $dispchangeB = $lt{'unmark'};
Line 2157 function setDisp() {	Line 2243 function setDisp() {
if (chktotal > 0) {	if (chktotal > 0) {
document.modifydisp.submit()	document.modifydisp.submit()
} else {	} else {
if(confirm("$lt{'yhni'}. \\n$lt{'ywbr'}")) {	if(confirm("$js_lt{'yhni'}. \\n$js_lt{'ywbr'}")) {
if (prev > 0) {	if (prev > 0) {
location.href = "$feedurl?previous=$previous"	location.href = "$feedurl?previous=$previous"
} else {	} else {
Line 2465 sub print_showposters {	Line 2551 sub print_showposters {
$r->send_http_header;	$r->send_http_header;

&Apache::lonenc::check_encrypt(\$symb);	&Apache::lonenc::check_encrypt(\$symb);
my $crs='/'.$env{'request.course.id'};
if ($env{'request.course.sec'}) {
$crs.='_'.$env{'request.course.sec'};
}
$crs=~s/\_/\//g;
my $seeid;
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
my $group = $env{'form.group'};	my $group = $env{'form.group'};
my $ressymb = &wrap_symb($symb);	my $ressymb = &wrap_symb($symb);
if (($group ne '') &&	my $seehidden = &can_see_hidden('',$ressymb,$feedurl,$group,$cdom,$cnum);
($ressymb =~ m\|^bulletin___\d+___adm/wrapper/adm/\Q$cdom\E/\Q$cnum\E/\d+/bulletinboard$\|)) {
if (&check_group_priv($group,'dgp') eq 'ok') {
$seeid = 1;
}
} else {
$seeid=&Apache::lonnet::allowed('rin',$crs);
}
my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'},	my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'},
$cdom,$cnum);	$cdom,$cnum);
my %namesort = ();	my %namesort = ();
Line 2498 sub print_showposters {	Line 2571 sub print_showposters {
for (my $idx=1;$idx<=$contrib{'version'};$idx++) {	for (my $idx=1;$idx<=$contrib{'version'};$idx++) {
my $hidden=($contrib{'hidden'}=~/\.$idx\./);	my $hidden=($contrib{'hidden'}=~/\.$idx\./);
my $deleted=($contrib{'deleted'}=~/\.$idx\./);	my $deleted=($contrib{'deleted'}=~/\.$idx\./);
unless ((($hidden) && (!$seeid)) \|\| ($deleted)) {	unless ((($hidden) && (!$seehidden)) \|\| ($deleted)) {
if ((!$contrib{$idx.':anonymous'}) \|\| (&Apache::lonnet::allowed('rin',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')))) {	if ((!$contrib{$idx.':anonymous'}) \|\| (&Apache::lonnet::allowed('rin',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')))) {
my %names = &Apache::lonnet::get('environment',['firstname','lastname'],$contrib{$idx.':senderdomain'},$contrib{$idx.':sendername'});	my %names = &Apache::lonnet::get('environment',['firstname','lastname'],$contrib{$idx.':senderdomain'},$contrib{$idx.':sendername'});
my $lastname = $names{'lastname'};	my $lastname = $names{'lastname'};
Line 2523 sub print_showposters {	Line 2596 sub print_showposters {
}	}
}	}
}	}
}	}
}	}

my $start_page = &Apache::loncommon::start_page('Discussion options');	my $start_page = &Apache::loncommon::start_page('Discussion options');
my $table_start =&Apache::loncommon::start_data_table();	my $table_start =&Apache::loncommon::start_data_table();
$r->print(<<END);	$r->print(<<END);
$start_page	$start_page
<form name="pickpostersform" method="post">	<form name="pickpostersform" method="post" action="">
<br />	<br />
$table_start	$table_start
<tr>	<tr>
Line 2630 sub get_post_attachments {	Line 2703 sub get_post_attachments {
$$attachments{'0'}{'filename'} = $attachmenturls;	$$attachments{'0'}{'filename'} = $attachmenturls;
$$attachments{'0'}{'0'} = 'n';	$$attachments{'0'}{'0'} = 'n';
}	}

return;	return;
}	}

sub fail_redirect {	sub fail_redirect {
my ($r,$feedurl) = @_;	my ($r,$feedurl,$delay) = @_;
if ($feedurl=~/^\/adm\//) { $feedurl.='?register=1' };	if ($feedurl=~/^\/adm\//) { $feedurl.='?register=1' };
my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
'sorr' => 'Sorry, no recipients ...',	'sorr' => 'Sorry, no recipients ...',
);	);
my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');	my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');
$r->print(&Apache::loncommon::start_page('Feedback not sent',undef,	my %parms=('only_body' => 1);
{'redirect' => [2,$feedurl],	if ($delay !~ /^\d+(\|\.\d+)$/) {
'only_body' => 1,}));	$delay = 2;
	}
	if ($env{'form.modal'}) {
	my $onload = 'document.forms.reldt.submit()';
	if ($delay) {
	my $js_delay = int(1000 * $delay);
	$onload = "setTimeout(function(){
	document.forms.reldt.submit();
	},$js_delay);";
	}
	$parms{'add_entries'}={'onload' => $onload};
	} else {
	$parms{'redirect'}=[$delay,$feedurl];
	}
	$r->print(&Apache::loncommon::start_page('Feedback not sent',undef,\%parms));
	my $windowname = 'loncapaclient';
$r->print(<<ENDFAILREDIR);	$r->print(<<ENDFAILREDIR);
<img align="right" src="$logo" />	<img align="right" src="$logo" />
<b>$lt{'sorr'}</b>	<p class="LC_warning">$lt{'sorr'}</p>
	<form name="reldt" action="$feedurl" target="$windowname">
	</form>
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,$grouppick,$numpicks,$group,$toolarge) = @_;	my ($r,$feedurl,$typestyle,$sendsomething,$sendposts,$blog,$status,$previous,$sort,
	$rolefilter,$statusfilter,$sectionpick,$grouppick,$numpicks,$group,$toolarge,$delay) = @_;
my $sorttag = '';	my $sorttag = '';
my $roletag = '';	my $roletag = '';
my $statustag = '';	my $statustag = '';
Line 2751 sub redirect_back {	Line 2841 sub redirect_back {
&Apache::lonenc::check_encrypt(\$feedurl);	&Apache::lonenc::check_encrypt(\$feedurl);
my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');	my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');
my %parms=('only_body' => 1);	my %parms=('only_body' => 1);
	if ($delay !~ /^\d+(\|\.\d+)$/) {
	$delay = 0;
	}
if ($env{'form.modal'}) {	if ($env{'form.modal'}) {
$parms{'add_entries'}={'onLoad' => 'document.forms.reldt.submit()'};	my $onload = 'document.forms.reldt.submit()';
	if ($delay) {
	my $js_delay = int(1000 * $delay);
	$onload = "setTimeout(function(){
	document.forms.reldt.submit();
	},$js_delay);";
	}
	$parms{'add_entries'}={'onload' => $onload};
} else {	} else {
$parms{'redirect'}=[0,$feedurl];	$parms{'redirect'}=[$delay,$feedurl];
}	}
my $start_page=	my $start_page=
&Apache::loncommon::start_page('Feedback sent',undef,\%parms);	&Apache::loncommon::start_page('Feedback sent',undef,\%parms);
Line 2782 ENDREDIR	Line 2882 ENDREDIR
}	}

sub no_redirect_back {	sub no_redirect_back {
my ($r,$feedurl) = @_;	my ($r,$feedurl,$delay) = @_;
my $nofeed=&mt('Sorry, no feedback possible on this resource ...');	my $nofeed=&mt('Sorry, no feedback possible on this resource ...');
	my $form_for_modal;
my %onload;	my %parms=('only_body' => 1,
	'bgcolor' => '#FFFFFF',);
my %body_options = ('only_body' => 1,	if ($delay !~ /^\d+(\|\.\d+)$/) {
'bgcolor' => '#FFFFFF',	$delay = 0;
'add_entries' => \%onload,);	}
	if ($env{'form.modal'}) {
if ($feedurl !~ m{^/adm/feedback}) {	if (($feedurl !~ m{^/adm/feedback}) && ($feedurl ne '')) {
$body_options{'redirect'} = [2,$feedurl];	my $onload = 'document.forms.reldt.submit()';
	if ($delay) {
	my $js_delay = int(1000 * $delay);
	$onload = "setTimeout(function(){
	document.forms.reldt.submit();
	},$js_delay);";
	}
	$parms{'add_entries'}={'onload' => $onload};
	my $windowname = 'loncapaclient';
	$form_for_modal = <<ENDFORM;
	<form name="reldt" action="$feedurl" target="$windowname">
	</form>
	ENDFORM
	}
	} else {
	if (($feedurl !~ m{^/adm/feedback}) && ($feedurl ne '')) {
	$parms{'redirect'}=[$delay,$feedurl];
	}
}	}
my $start_page=	my $start_page=
&Apache::loncommon::start_page('Feedback not sent',undef,	&Apache::loncommon::start_page('Feedback not sent',undef,
\%body_options);	\%parms);

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

&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
<img align="right" src="$logo" />	<img align="right" src="$logo" />
<b>$nofeed</b>	<b>$nofeed</b>
<br />	<br />
	$form_for_modal
$end_page	$end_page
ENDNOREDIRTWO	ENDNOREDIRTWO
}	}

sub screen_header {	sub screen_header {
my ($feedurl,$symb,$group) = @_;	my ($feedurl,$symb,$group) = @_;
my $crscontent = &mt('Question/Comment/Feedback about course content');	my %default = &Apache::lonlocal::texthash (
my $crspolicy = &mt('Question/Comment/Feedback about course policy');	question => 'Question about resource content',
	comment => 'Question/Comment/Feedback about course content',
	policy => 'Question/Comment/Feedback about course policy',
	);
my $contribdisc = &mt('Contribution to course discussion of resource');	my $contribdisc = &mt('Contribution to course discussion of resource');
my $anoncontrib = &mt('Anonymous contribution to course discussion of resource');	my $anoncontrib = &mt('Anonymous contribution to course discussion of resource');
my $namevis = &mt('name only visible to course faculty');	my $namevis = &mt('name only visible to course faculty');
Line 2822 sub screen_header {	Line 2942 sub screen_header {
if ($env{'request.course.id'}) {	if ($env{'request.course.id'}) {
$crstype = &Apache::loncommon::course_type();	$crstype = &Apache::loncommon::course_type();
if ($crstype eq 'Community') {	if ($crstype eq 'Community') {
$crscontent = &mt('Question/Comment/Feedback about community content');	$default{'comment'} = &mt('Question/Comment/Feedback about community content');
$crspolicy = &mt('Question/Comment/Feedback about community policy');	$default{'policy'} = &mt('Question/Comment/Feedback about community policy');
$contribdisc = &mt('Contribution to community discussion of resource');	$contribdisc = &mt('Contribution to community discussion of resource');
$anoncontrib = &mt('Anonymous contribution to community discussion of resource');	$anoncontrib = &mt('Anonymous contribution to community discussion of resource');
$namevis = &mt('name only visible to community facilitators');	$namevis = &mt('name only visible to community facilitators');
Line 2831 sub screen_header {	Line 2951 sub screen_header {
}	}
my $msgoptions='';	my $msgoptions='';
my $discussoptions='';	my $discussoptions='';
	my $checkradio = '';
	my $blockblog;
	my (%fdbkoptions,%discoptions);
unless (($env{'form.replydisc'}) \|\| ($env{'form.editdisc'})) {	unless (($env{'form.replydisc'}) \|\| ($env{'form.editdisc'})) {
if (($feedurl=~/^\/res\//) && ($feedurl!~/^\/res\/adm/) && ($env{'user.adv'})) {	if (($feedurl=~/^\/res\//) && ($feedurl!~/^\/res\/adm/) && ($env{'user.adv'})) {
$msgoptions=	$fdbkoptions{'author'} = 1;
'<label><input type="radio" name="discuss" value="author" /> '.	}
&mt('Feedback to resource author').'</label><br />';	if (&feedback_available(1)) {
}	$fdbkoptions{'question'} = 1;
my %optionhash=();	}
foreach my $type ('question','comment','policy') {	if (&feedback_available(0,1)) {
$optionhash{$type}=$env{'course.'.$env{'request.course.id'}.'.'.$type.'.email.text'};	$fdbkoptions{'course'} = 1;
}	}
if (&feedback_available(1)) {	if (&feedback_available(0,0,1)) {
$msgoptions.=	$fdbkoptions{'policy'} = 1;
'<label><input type="radio" name="discuss" value="question" /> '.	}
($optionhash{'question'}?$optionhash{'question'}:&mt('Question about resource content')).'</label><br />';
}
if (&feedback_available(0,1)) {
$msgoptions.=
'<label><input type="radio" name="discuss" value="course" /> '.
($optionhash{'comment'}?$optionhash{'comment'}:$crscontent).
'</label><br />';
}
if (&feedback_available(0,0,1)) {
$msgoptions.=
'<label><input type="radio" name="discuss" value="policy" /> '.
($optionhash{'policy'}?$optionhash{'policy'}:$crspolicy).
'</label><br />';
}
}	}
if (($env{'request.course.id'}) && (!$env{'form.sendmessageonly'})) {	if (($env{'request.course.id'}) && (!$env{'form.sendmessageonly'})) {
my ($blocked,$blocktext) = &Apache::loncommon::blocking_status('boards');	my ($blocked,$blocktext) = &Apache::loncommon::blocking_status('boards');
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
my $realsymb = &get_realsymb($symb);	my $realsymb = &get_realsymb($symb);
if (!$blocked && &discussion_open(undef,$realsymb) &&	if (!$blocked && &discussion_open(undef,$realsymb) &&
(&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'}:'')) \|\|
(($group ne '') && ($symb =~ m{^bulletin___\d+___adm/wrapper/adm/\Q$cdom\E/\Q$cnum\E/\d+/bulletinboard$}) && (&check_group_priv($group,'pgd') eq 'ok')))) {	(($group ne '') && ($symb =~ m{^bulletin___\d+___adm/wrapper/adm/\Q$cdom\E/\Q$cnum\E/\d+/bulletinboard$}) && (&check_group_priv($group,'pgd') eq 'ok')))) {
$discussoptions='<label><input type="radio" name="discuss" value="nonanon" checked="checked" /> '.	$discoptions{'nonanon'} = 1;
$contribdisc.	$discoptions{'anon'} = 1;
'</label><br /><label><input type="radio" name="discuss" value="anon" /> '.	$blockblog = &Apache::loncommon::blocking_status('blogs');
$anoncontrib.	}
' <i>('.$namevis.')</i></label> '.	}
'<a href="/adm/preferences?action=changescreenname">'.&mt('Change Screenname').'</a>';	my $total = scalar(keys(%fdbkoptions)) + scalar(keys(%discoptions));
my $blockblog = &Apache::loncommon::blocking_status('blogs');	return if (!$total);
if (!$blockblog) {	if ($total == 1) {
$discussoptions.= &add_blog_checkbox($crstype);	$checkradio = ' checked="checked"';
	}
	if (keys(%fdbkoptions)) {
	if ($fdbkoptions{'author'}) {
	$msgoptions =
	'<label><input type="radio" name="discuss" value="author"'.$checkradio.' /> '.
	&mt('Feedback to resource author').'</label><br />';
	}
	foreach my $item ('question','comment','policy') {
	my $type = $item;
	if ($item eq 'comment') {
	$type = 'course';
	}
	my $optionhash=$env{'course.'.$env{'request.course.id'}.'.'.$item.'.email.text'};
	if ($fdbkoptions{$type}) {
	$msgoptions .=
	'<label><input type="radio" name="discuss" value="'.$type.'"'.$checkradio.' />'.
	($optionhash?$optionhash:$default{$item}).'</label><br />';
}	}
}	}
}	}
	if (keys(%discoptions)) {
	if ($discoptions{'nonanon'}) {
	$discussoptions='<label><input type="radio" name="discuss" value="nonanon" checked="checked" /> '.
	$contribdisc.
	'</label>';
	}
	if ($discoptions{'anon'}) {
	$discussoptions .= '<br /><label><input type="radio" name="discuss" value="anon"'.$checkradio.' /> '.
	$anoncontrib.
	' <i>('.$namevis.')</i></label> '.
	'<a href="/adm/preferences?action=changescreenname">'.&mt('Change Screenname').'</a>';
	}
	if (!$blockblog) {
	$discussoptions.= &add_blog_checkbox($crstype);
	}
	}
if ($msgoptions) {	if ($msgoptions) {
$msgoptions='<tr><th><img src="'.&Apache::loncommon::lonhttpdurl('/res/adm/pages/feedback.png').'" />'	$msgoptions='<tr><th><img src="'.&Apache::loncommon::lonhttpdurl('/res/adm/pages/feedback.png').'" />'
.'<br />'.&mt('Send Feedback').'<br />'.&Apache::lonhtmlcommon::coursepreflink(&mt('Feedback Settings'),'feedback').'</th>'.	.'<br />'.&mt('Send Feedback').'<br />'.&Apache::lonhtmlcommon::coursepreflink(&mt('Feedback Settings'),'feedback').'</th>'.
Line 2966 sub feedback_available {	Line 3108 sub feedback_available {
}	}

sub send_msg {	sub send_msg {
my ($title,$feedurl,$email,$citations,$attachmenturl,$symb,%to)=@_;	my ($title,$feedurl,$email,$citations,$attachmenturl,$symb,$clientip,%to)=@_;
my $status='';	my $status='';
my $sendsomething=0;	my $sendsomething=0;
	my $delay;
	my $senthide;
	my %setters;
	my ($startblock,$endblock,$triggerblock,$by_ip,$blockdom) =
	&Apache::loncommon::blockcheck(\%setters,'com',$clientip);
	if ($by_ip) {
	$senthide = 1;
	}
my $restitle = &get_resource_title($symb,$feedurl);	my $restitle = &get_resource_title($symb,$feedurl);
if ($title=~/^Error/) { $title=&mt('Feedback').': '.$title; }	if ($title=~/^Error/) { $title=&mt('Feedback').': '.$title; }
unless ($title=~/\w/) { $title=&mt('Feedback'); }	unless ($title=~/\w/) { $title=&mt('Feedback'); }
Line 2982 sub send_msg {	Line 3132 sub send_msg {
} else {	} else {
unless (&Apache::lonmsg::user_normal_msg($user,$domain,	unless (&Apache::lonmsg::user_normal_msg($user,$domain,
$title.' ['.$restitle.']',$email,$citations,$feedurl,	$title.' ['.$restitle.']',$email,$citations,$feedurl,
$attachmenturl,undef,undef,$symb,$restitle)=~/ok/) {	$attachmenturl,undef,undef,$symb,$restitle,undef,
	undef,undef,undef,$senthide)=~/ok/) {
$status.='<br />'.&mt('Error sending message to').' '.$key.'<br />';	$status.='<br />'.&mt('Error sending message to').' '.$key.'<br />';
} else {	} else {
$sendsomething++;	$sendsomething++;
Line 2990 sub send_msg {	Line 3141 sub send_msg {
}	}
}	}
}	}
	if ($sendsomething && $senthide) {
	if ($by_ip) {
	my $showdom = &Apache::lonnet::domain($blockdom);
	if ($showdom eq '') {
	$showdom = $blockdom;
	}
	$delay = 4;
	$status.='<br />'.&mt("Message content of feedback you send to instructor(s) from your current IP address: [_1] will be unavailable in your 'Sent' folder.",$clientip).
	'<ul><li>'.
	&mt('This does not affect delivery of feedback to your instructor(s).').
	'</li><li>'.
	&mt('Note: some types of communication functionality are blocked for certain IP address(es).').
	'</li><li>'.
	&mt('This restriction was set by an administrator in the [_1] LON-CAPA domain.',
	$showdom).
	'</li></ul><br />';
	}
	}

# Records of number of feedback messages are kept under the "symb" called "_feedback"	# Records of number of feedback messages are kept under the "symb" called "_feedback"
# There are two entries within the framework of a course:	# There are two entries within the framework of a course:
Line 3007 sub send_msg {	Line 3176 sub send_msg {
}	}
}	}
}	}
return ($status,$sendsomething);	return ($status,$sendsomething,$delay);
}	}

# Routine to get the complete feedback records	# Routine to get the complete feedback records
Line 3097 sub adddiscuss {	Line 3266 sub adddiscuss {
if (($symb) && ($email)) {	if (($symb) && ($email)) {
my $now = time;	my $now = time;
if ($env{'form.editdisc'}) {	if ($env{'form.editdisc'}) {
$contrib{'ip'}=$ENV{'REMOTE_ADDR'};	$contrib{'ip'}=&Apache::lonnet::get_requestor_ip();
$contrib{'host'}=$Apache::lonnet::perlvar{'lonHostID'};	$contrib{'host'}=$Apache::lonnet::perlvar{'lonHostID'};
$contrib{'timestamp'} = $now;	$contrib{'timestamp'} = $now;
$contrib{'history'} = '';	$contrib{'history'} = '';
Line 3188 sub getdiscussionrecords {	Line 3357 sub getdiscussionrecords {

sub getdiscussionstats {	sub getdiscussionstats {
my %record=&getdiscussionrecords(@_);	my %record=&getdiscussionrecords(@_);
return ($record{'subnumber'},$record{'points'},$record{'totallikes'},$record{'totalvotes'});	my $totalvotes = $record{'totallikes'} + $record{'totalunlikes'};
	return ($record{'subnumber'},$record{'points'},$record{'totallikes'},$totalvotes);
}	}

# Calculate discussion karma	# Calculate discussion karma
Line 3252 sub storediscussionpoints {	Line 3422 sub storediscussionpoints {
# Store discussion "likes"	# Store discussion "likes"

sub storediscussionlikes {	sub storediscussionlikes {
my ($likes,$uname,$udom,$course)=@_;	my ($chglikes,$chgunlikes,$uname,$udom,$course,$context)=@_;
unless ($likes) { $likes=0; }
if ($likes>0) { $likes=1; }
if ($likes<0) { $likes=-1; }
unless ($uname) { $uname=$env{'user.name'}; }	unless ($uname) { $uname=$env{'user.name'}; }
unless ($udom) { $udom=$env{'user.domain'}; }	unless ($udom) { $udom=$env{'user.domain'}; }
unless ($course) { $course=$env{'request.course.id'}; }	unless ($course) { $course=$env{'request.course.id'}; }
my %record=&getdiscussionrecords($uname,$udom,$course);	my %record=&getdiscussionrecords($uname,$udom,$course);
my $totallikes=$record{'totallikes'};	my $totallikes=$record{'totallikes'};
my $totalvotes=$record{'totalvotes'};	my $totalunlikes=$record{'totalunlikes'};
$totallikes+=$likes;	$totallikes += $chglikes;
$totalvotes++;	$totalunlikes += $chgunlikes;
my %newrecord=('likes_user' => $env{'user.name'},	my %newrecord=('likes_user' => $env{'user.name'},
'likes_domain' => $env{'user.domain'},	'likes_domain' => $env{'user.domain'},
'likes' => $likes,	'totallikes' => $totallikes,
'totallikes' => $totallikes,	'totalunlikes' => $totalunlikes,
'totalvotes' => $totalvotes);	'context' => $context);
my $status=&Apache::lonnet::cstore(\%newrecord,'_discussion',$course,$udom,$uname);	my $status=&Apache::lonnet::cstore(\%newrecord,'_discussion',$course,$udom,$uname);
if ($status eq 'ok') {	if ($status eq 'ok') {
&updatekarma($uname,$udom,$course);	&updatekarma($uname,$udom,$course);
Line 3433 sub modify_attachments {	Line 3600 sub modify_attachments {
document.modattachments.action = document.modattachments.origpage.value;	document.modattachments.action = document.modattachments.origpage.value;
document.modattachments.submit();	document.modattachments.submit();
}	}
</script>	</script>
	<script type="text/javascript" src="/res/adm/includes/file_upload.js"></script>
END	END

# Breadcrumbs	# Breadcrumbs
my $brcrum = [{'href' => '',	my $brcrum = [{'href' => '',
'text' => 'Discussion Post Attachments'}];	'text' => 'Discussion Post Attachments'}];
my %parms=('only_body' => 1);	my %parms=('only_body' => 1);
if ($env{'form.modal'} ne 'yes') { 'bread_crumbs' => $brcrum }	if ($env{'form.modal'} ne 'yes') { $parms{'bread_crumbs'} = $brcrum; }

my $start_page =	my $start_page =
&Apache::loncommon::start_page('Discussion Post Attachments',$js,\%parms);	&Apache::loncommon::start_page('Discussion Post Attachments',$js,\%parms);
Line 3467 END	Line 3635 END
$start_page	$start_page
$toolarge	$toolarge
<form name="modattachments" method="post" enctype="multipart/form-data" action="/adm/feedback?attach=$symb">	<form name="modattachments" method="post" enctype="multipart/form-data" action="/adm/feedback?attach=$symb">
<br />
<h1>$lt{'clic'}</h1>	<h1>$lt{'clic'}</h1>
END	END
$r->print(&Apache::lonhtmlcommon::start_pick_box());	$r->print(&Apache::lonhtmlcommon::start_pick_box());
Line 3475 END	Line 3643 END
$r->print('<b>'.$subject.'</b>');	$r->print('<b>'.$subject.'</b>');
$r->print(&Apache::lonhtmlcommon::row_closure());	$r->print(&Apache::lonhtmlcommon::row_closure());
$r->print(&Apache::lonhtmlcommon::row_title($lt{'adda'}));	$r->print(&Apache::lonhtmlcommon::row_title($lt{'adda'}));
$r->print('<input type="file" name="addnewattach" /><input type="button" name="upload" value="Upload" onclick="this.form.submit()" /> '.$attachmaxtext);	$r->print('<input type="file" name="addnewattach" class="LC_flUpload" />'
	.'<input type="hidden" id="LC_free_space" value="131072" />'
	.'<input type="button" name="upload" value="Upload" '
	.'onclick="this.form.submit()" /> '.$attachmaxtext);
if(($idx)\|\|(ref($currnewattach) eq 'ARRAY') && (@{$currnewattach} > 0)){	if(($idx)\|\|(ref($currnewattach) eq 'ARRAY') && (@{$currnewattach} > 0)){
$r->print(&Apache::lonhtmlcommon::row_closure());	$r->print(&Apache::lonhtmlcommon::row_closure());
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Attachments')));	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Attachments')));
Line 3804 sub handler {	Line 3975 sub handler {
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['like','unlike','modal','hide','unhide','deldisc','undeleteall','postdata','preview','replydisc','editdisc','cmd','symb','onlyunread','allposts','onlyunmark','previous','markread','markonread','markondisp','toggoff','toggon','modifydisp','changes','navtime','navmaps','navurl','sortposts','applysort','rolefilter','statusfilter','sectionpick','groupick','posterlist','userpick','attach','origpage','currnewattach','deloldattach','keepold','allversions','export','sendmessageonly','group','ref']);	['like','unlike','modal','hide','unhide','deldisc','undeleteall','postdata','preview','replydisc','editdisc','cmd','symb','onlyunread','allposts','onlyunmark','previous','markread','markonread','markondisp','toggoff','toggon','modifydisp','changes','navtime','navmaps','navurl','sortposts','applysort','rolefilter','statusfilter','sectionpick','groupick','posterlist','userpick','attach','origpage','currnewattach','deloldattach','keepold','allversions','export','sendmessageonly','group','ref']);
my $group = $env{'form.group'};	my $group = $env{'form.group'};
	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};

my %attachmax = (	my %attachmax = (
text => &mt('(128 KB max size)'),	text => &mt('(128 KB max size)'),
num => 131072,	num => 131072,
);	);
if ($env{'form.editdisc'}) {	if ($env{'form.editdisc'}) {
if (!(&editing_allowed($env{'form.editdisc'},$env{'form.group'}))) {	if (!(&editing_allowed($env{'form.editdisc'},$group))) {
my $symb=(split(/\:\:\:/,$env{'form.editdisc'}))[0];	my $symb=(split(/\:\:\:/,$env{'form.editdisc'}))[0];
my ($map,$id,$url)=&Apache::lonnet::decode_symb($symb);	my ($map,$id,$url)=&Apache::lonnet::decode_symb($symb);
my $feedurl=&Apache::lonnet::clutter($url);	my $feedurl=&Apache::lonnet::clutter($url);
&redirect_back($r,$feedurl,&mt('Editing not permitted').'<br />', '0','0','','',$env{'form.previous'},undef,undef,undef,	&redirect_back($r,$feedurl,&mt('Editing not permitted').'<br />',
undef,undef,undef,$group);	'0','0','','',$env{'form.previous'},undef,undef,undef,
	undef,undef,undef,$group);
return OK;	return OK;
}	}
}	}
Line 3855 sub handler {	Line 4030 sub handler {
'text' => 'Discussion Post Versions'}];	'text' => 'Discussion Post Versions'}];

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

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

my $crs='/'.$env{'request.course.id'};
if ($env{'request.course.sec'}) {
$crs.='_'.$env{'request.course.sec'};
}
$crs=~s\|_\|/\|g;
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
my ($symb,$idx)=split(/\:\:\:/,$env{'form.allversions'});	my ($symb,$idx)=split(/\:\:\:/,$env{'form.allversions'});
($symb)=&get_feedurl_and_clean_symb($symb);	($symb, my $feedurl)=&get_feedurl_and_clean_symb($symb);
my $ressymb = &wrap_symb($symb);	my $ressymb = &wrap_symb($symb);
my $group = $env{'form.group'};
my $seeid;	my $seeid;
if (($group ne '') && (($ressymb =~ m\|^bulletin___\d+___adm/wrapper/adm/\Q$cdom\E/\Q$cnum\E/\d+/bulletinboard$\|))) {	if (&Apache::lonnet::allowed('rin',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))) {
if (&check_group_priv($group,'dgp') eq 'ok') {	$seeid = 1;
$seeid = 1;
}
} else {
$seeid = &Apache::lonnet::allowed('rin',$crs);
}	}
	my $seehidden = &can_see_hidden('',$ressymb,$feedurl,$group,$cdom,$cnum);
if ($idx > 0) {	if ($idx > 0) {
my %messages = ();	my %messages = ();
my %subjects = ();	my %subjects = ();
Line 3886 sub handler {	Line 4050 sub handler {
my %imsfiles = ();	my %imsfiles = ();
my ($screenname,$plainname,$showaboutme);	my ($screenname,$plainname,$showaboutme);
my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'},	my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'},
$env{'course.'.$env{'request.course.id'}.'.domain'},	$cdom,$cnum);
$env{'course.'.$env{'request.course.id'}.'.num'});	$r->print(&get_post_contents(\%contrib,$idx,$seeid,$seehidden,'allversions',\%messages,\%subjects,\%allattachments,\%attachmsgs,\%imsfiles,\$screenname,\$plainname,\$showaboutme));
$r->print(&get_post_contents(\%contrib,$idx,$seeid,'allversions',\%messages,\%subjects,\%allattachments,\%attachmsgs,\%imsfiles,\$screenname,\$plainname,\$showaboutme));
}	}
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
return OK;	return OK;
Line 3940 sub handler {	Line 4103 sub handler {
my $feedurl = '/adm/navmaps';	my $feedurl = '/adm/navmaps';
if ($env{'form.navurl'}) { $feedurl .= '?'.$env{'form.navurl'}; }	if ($env{'form.navurl'}) { $feedurl .= '?'.$env{'form.navurl'}; }
my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
'mnpa' => 'Marked "New" posts as read in a total of',
'robb' => 'resources/bulletin boards.',
'twnp' => 'There are currently no resources or discussion boards with unread discussion postings.'	'twnp' => 'There are currently no resources or discussion boards with unread discussion postings.'
);	);
foreach my $res (@resources) {	foreach my $res (@resources) {
Line 3950 sub handler {	Line 4111 sub handler {
my $lastkey = $ressymb.'_lastread';	my $lastkey = $ressymb.'_lastread';
$discinfo{$lastkey} = $env{'form.navtime'};	$discinfo{$lastkey} = $env{'form.navtime'};
}	}
my $textline = "<b>$lt{'mnpa'} $numitems $lt{'robb'}</b>";	my $textline = '<b>'.
	&mt('Marked "New" posts as read in a total of [_1] resources/discussion boards.',
	$numitems).
	'</b>';
if ($numitems > 0) {	if ($numitems > 0) {
&Apache::lonnet::put('nohist_'.$env{'request.course.id'}.'_discuss',	&Apache::lonnet::put('nohist_'.$env{'request.course.id'}.'_discuss',
\%discinfo,$env{'user.domain'},$env{'user.name'});	\%discinfo,$env{'user.domain'},$env{'user.name'});
Line 4026 ENDREDIR	Line 4190 ENDREDIR
my $entry=$env{'form.hide'}?$env{'form.hide'}:$env{'form.unhide'};	my $entry=$env{'form.hide'}?$env{'form.hide'}:$env{'form.unhide'};
my ($symb,$idx)=split(/\:\:\:/,$entry);	my ($symb,$idx)=split(/\:\:\:/,$entry);
($symb,my $feedurl)=&get_feedurl_and_clean_symb($symb);	($symb,my $feedurl)=&get_feedurl_and_clean_symb($symb);
	my $ressymb = &wrap_symb($symb);

my $crs='/'.$env{'request.course.id'};	my $seehidden = &can_see_hidden('',$ressymb,$feedurl,$group,$cdom,$cnum);
if ($env{'request.course.sec'}) {	unless (($seehidden) \|\| (&editing_allowed($env{'form.hide'},$group))) {
$crs.='_'.$env{'request.course.sec'};	&redirect_back($r,$feedurl,&mt('Hiding not permitted').'<br />',
}	'0','0','','',$env{'form.previous'},'','','','',
$crs=~s/\_/\//g;	undef,undef,$group);
my $seeid=&Apache::lonnet::allowed('rin',$crs);

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

my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'},	my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'},
$env{'course.'.$env{'request.course.id'}.'.domain'},	$cdom,$cnum);
$env{'course.'.$env{'request.course.id'}.'.num'});

my $currenthidden=$contrib{'hidden'};	my $currenthidden=$contrib{'hidden'};
my $currentstudenthidden=$contrib{'studenthidden'};	my $currentstudenthidden=$contrib{'studenthidden'};

if ($env{'form.hide'}) {	if ($env{'form.hide'}) {
$currenthidden.='.'.$idx.'.';	$currenthidden.='.'.$idx.'.';
unless ($seeid) {	unless ($seehidden) {
$currentstudenthidden.='.'.$idx.'.';	$currentstudenthidden.='.'.$idx.'.';
}	}
} else {	} else {
$currenthidden=~s/\.$idx\.//g;	$currenthidden=~s/\.$idx\.//g;
}	}
my %newhash=('hidden' => $currenthidden);	my %newhash=('hidden' => $currenthidden);
if ( ($env{'form.hide'}) && (!$seeid) ) {	if ( ($env{'form.hide'}) && (!$seehidden) ) {
$newhash{'studenthidden'} = $currentstudenthidden;	$newhash{'studenthidden'} = $currentstudenthidden;
}	}
if ($env{'form.hide'}) {	if ($env{'form.hide'}) {
Line 4065 ENDREDIR	Line 4224 ENDREDIR
($changelast,$newlast) = &get_discussion_info($idx,%contrib);	($changelast,$newlast) = &get_discussion_info($idx,%contrib);
if ($changelast) {	if ($changelast) {
&Apache::lonnet::put('discussiontimes',{$symb => $newlast},	&Apache::lonnet::put('discussiontimes',{$symb => $newlast},
$env{'course.'.$env{'request.course.id'}.'.domain'},	$cdom,$cnum);
$env{'course.'.$env{'request.course.id'}.'.num'});
}	}
}	}
&Apache::lonnet::store(\%newhash,$symb,$env{'request.course.id'},	my $result;
$env{'course.'.$env{'request.course.id'}.'.domain'},	if (&Apache::lonnet::store(\%newhash,$symb,$env{'request.course.id'},
$env{'course.'.$env{'request.course.id'}.'.num'});	$cdom,$cnum) eq 'ok') {
	my $prefix=$symb.':'.$idx.':';
&redirect_back($r,$feedurl,&mt('Changed discussion status').'<br />',	my %likes=&Apache::lonnet::dump('disclikes',$cdom,$cnum,
'0','0','','',$env{'form.previous'},undef,undef,undef,	'^'.$prefix);
	my ($totallikes,$totalunlikes);
	if (ref($likes{$prefix.'likers'}) eq 'HASH') {
	$totallikes = scalar(keys(%{$likes{$prefix.'likers'}}));
	}
	if (ref($likes{$prefix.'unlikers'}) eq 'HASH') {
	$totalunlikes = scalar(keys(%{$likes{$prefix.'unlikers'}}));
	}
	if ($totallikes \|\| $totalunlikes) {
	my ($chglikes,$chgunlikes,$context);
	if ($env{'form.hide'}) {
	$chglikes = -1 * $totallikes;
	$chgunlikes = -1 * $totalunlikes;
	$context = 'hide';
	} else {
	$chglikes = $totallikes;
	$chgunlikes = $totalunlikes;
	$context = 'unhide';
	}
	&storediscussionlikes($chglikes,$chgunlikes,
	$contrib{$idx.':sendername'},
	$contrib{$idx.':senderdomain'},
	$env{'request.course.id'},
	$context);

	}
	$result = &mt('Changed discussion status');
	} else {
	$result = &mt('Discussion status unchanged');
	}
	&redirect_back($r,$feedurl,$result.'<br />','0','0','','',
	$env{'form.previous'},undef,undef,undef,
undef,undef,undef,$group);	undef,undef,undef,$group);
return OK;	return OK;
} elsif (($env{'form.like'}) \|\| ($env{'form.unlike'})) {	} elsif (($env{'form.like'}) \|\| ($env{'form.unlike'})) {
Line 4092 ENDREDIR	Line 4281 ENDREDIR
}	}
if (&discussion_vote_available($status,$realsymb)) {	if (&discussion_vote_available($status,$realsymb)) {
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 $ownpost;
if (($contrib{$idx.':sendername'} eq $env{'user.name'}) &&	if (($contrib{$idx.':sendername'} eq $env{'user.name'}) &&
($contrib{$idx.':senderdomain'} eq $env{'user.domain'})) {	($contrib{$idx.':senderdomain'} eq $env{'user.domain'})) {
$result = &mt("Vote not registered. No voting for your own posts.");	$ownpost = 1;
	}
	if ($ownpost \|\| $contrib{$idx.':hidden'} \|\| $contrib{$idx.':deleted'}) {
	$result = &mt('Vote not registered.').' ';
	}
	if ($ownpost) {
	$result .= &mt('No voting for your own posts.');
	} elsif ($contrib{$idx.':hidden'}) {
	$result .= &mt('No voting for hidden posts.');
	} elsif ($contrib{$idx.':deleted'}) {
	$result .= &mt('No voting for deleted posts.');
} else {	} else {

#	#
# Likes and unlikes are in db-file "disclikes" of the course	# Likes and unlikes are in db-file "disclikes" of the course
# The prefix is the $symb to identify the resource discussion,	# The prefix is the $symb to identify the resource discussion,
# and the $idx to identify the entry	# and the $idx to identify the entry
#	#
my $prefix=$symb.':'.$idx.':';	my $prefix=$symb.':'.$idx.':';
my %likes=&Apache::lonnet::dump('disclikes',	my %likes=&Apache::lonnet::dump('disclikes',$cdom,$cnum,
$env{'course.'.$env{'request.course.id'}.'.domain'},	'^'.$prefix);
$env{'course.'.$env{'request.course.id'}.'.num'},
'^'.$prefix);

# Get current like or unlike status for the $idx for this user.	# Get current like or unlike status for the $idx for this user.
my $thisuser=$env{'user.name'}.':'.$env{'user.domain'};	my $thisuser=$env{'user.name'}.':'.$env{'user.domain'};
Line 4129 ENDREDIR	Line 4325 ENDREDIR
# Users cannot like a post twice, or unlike it twice.	# Users cannot like a post twice, or unlike it twice.
# They can change their mind, though.	# They can change their mind, though.
my $alreadyflag=0;	my $alreadyflag=0;
	my $votetype;
if ($env{'form.like'}) {	if ($env{'form.like'}) {
if ($userlikes) {	if ($userlikes) {
$alreadyflag=1;	$alreadyflag=1;
} elsif ($userunlikes) {	} elsif ($userunlikes) {
delete($likes{$prefix.'unlikers'}{$thisuser});	delete($likes{$prefix.'unlikers'}{$thisuser});
	$votetype = 'switch';
$likescount++;	$likescount++;
} else {	} else {
if (ref($likes{$prefix.'likers'}) eq 'HASH') {	if (ref($likes{$prefix.'likers'}) eq 'HASH') {
Line 4148 ENDREDIR	Line 4346 ENDREDIR
$alreadyflag=1;	$alreadyflag=1;
} elsif ($userlikes) {	} elsif ($userlikes) {
delete($likes{$prefix.'likers'}{$thisuser});	delete($likes{$prefix.'likers'}{$thisuser});
	$votetype = 'switch';
$likescount--;	$likescount--;
} else {	} else {
if (ref($likes{$prefix.'unlikers'}) eq 'HASH') {	if (ref($likes{$prefix.'unlikers'}) eq 'HASH') {
Line 4170 ENDREDIR	Line 4369 ENDREDIR
$prefix.'likers' => $likes{$prefix.'likers'},	$prefix.'likers' => $likes{$prefix.'likers'},
$prefix.'unlikers' => $likes{$prefix.'unlikers'});	$prefix.'unlikers' => $likes{$prefix.'unlikers'});
# Store data in db-file "disclikes"	# Store data in db-file "disclikes"
if (&Apache::lonnet::put('disclikes',	if (&Apache::lonnet::put('disclikes',\%newhash,$cdom,$cnum) eq 'ok') {
\%newhash,
$env{'course.'.$env{'request.course.id'}.'.domain'},
$env{'course.'.$env{'request.course.id'}.'.num'}) eq 'ok') {
# Also store with the person who posted the liked/unliked entry	# Also store with the person who posted the liked/unliked entry
	my ($chglike,$chgunlike);
if ($env{'form.like'}) {	if ($env{'form.like'}) {
&storediscussionlikes(1,$contrib{$idx.':sendername'},$contrib{$idx.':senderdomain'});	if ($votetype eq 'switch') {
	$chglike = 0;
	$chgunlike = -1;
	} else {
	$chglike = 1;
	$chgunlike = 0;
	}
	&storediscussionlikes($chglike,$chgunlike,
	$contrib{$idx.':sendername'},
	$contrib{$idx.':senderdomain'},
	$env{'request.course.id'},'like');
$result=&mt("Registered 'Like'");	$result=&mt("Registered 'Like'");
} else {	} else {
&storediscussionlikes(-1,$contrib{$idx.':sendername'},$contrib{$idx.':senderdomain'});	if ($votetype eq 'switch') {
	$chglike = -1;
	$chgunlike = 0;
	} else {
	$chglike = 0;
	$chgunlike = 1;
	}
	&storediscussionlikes($chglike,$chgunlike,
	$contrib{$idx.':sendername'},
	$contrib{$idx.':senderdomain'},
	$env{'request.course.id'},'unlike');
$result=&mt("Registered 'Unlike'");	$result=&mt("Registered 'Unlike'");
}	}
} else {	} else {
Line 4200 ENDREDIR	Line 4417 ENDREDIR
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 'threadedoff') {
	&Apache::lonnet::put('environment',{'unthreadeddiscussion' => 'on'});
	&Apache::lonnet::appenv({'environment.unthreadeddiscussion' => 'on'});
	&Apache::lonnet::del('environment',['threadeddiscussion']);
	&Apache::lonnet::delenv('environment.threadeddiscussion');
	} else {
&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 {	&Apache::lonnet::del('environment',['unthreadeddiscussion']);
&Apache::lonnet::del('environment',['threadeddiscussion']);	&Apache::lonnet::delenv('environment.unthreadeddiscussion');
&Apache::lonnet::delenv('environment.threadeddiscussion');
}	}
&redirect_back($r,$feedurl,&mt('Changed discussion view mode').'<br />',	&redirect_back($r,$feedurl,&mt('Changed discussion view mode').'<br />',
'0','0','','',$env{'form.previous'},undef,undef,undef,	'0','0','','',$env{'form.previous'},undef,undef,undef,
Line 4215 ENDREDIR	Line 4436 ENDREDIR
# --------------------------------------------------------------- Hide for good	# --------------------------------------------------------------- Hide for good
my ($symb,$idx)=split(/\:\:\:/,$env{'form.deldisc'});	my ($symb,$idx)=split(/\:\:\:/,$env{'form.deldisc'});
($symb,my $feedurl)=&get_feedurl_and_clean_symb($symb);	($symb,my $feedurl)=&get_feedurl_and_clean_symb($symb);
	my $ressymb=&wrap_symb($symb);

	unless (&can_see_hidden('',$ressymb,$feedurl,$group,$cdom,$cnum)) {
	&redirect_back($r,$feedurl,&mt('Deletion not permitted').'<br />',
	'0','0','','',$env{'form.previous'},'','','','',
	undef,undef,$group);
	return OK;
	}
my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'},	my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'},
$env{'course.'.$env{'request.course.id'}.'.domain'},	$cdom,$cnum);
$env{'course.'.$env{'request.course.id'}.'.num'});
my ($changelast,$newlast) = &get_discussion_info($idx,%contrib);	my ($changelast,$newlast) = &get_discussion_info($idx,%contrib);
if ($changelast) {	if ($changelast) {
&Apache::lonnet::put('discussiontimes',{$symb => $newlast},	&Apache::lonnet::put('discussiontimes',{$symb => $newlast},
$env{'course.'.$env{'request.course.id'}.'.domain'}, $env{'course.'.$env{'request.course.id'}.'.num'});	$cdom,$cnum);
}	}
my %newhash=('deleted' => $contrib{'deleted'}.".$idx.");	my %newhash=('deleted' => $contrib{'deleted'}.".$idx.");
&Apache::lonnet::store(\%newhash,$symb,$env{'request.course.id'},
$env{'course.'.$env{'request.course.id'}.'.domain'},	my $result;
$env{'course.'.$env{'request.course.id'}.'.num'});	if (&Apache::lonnet::store(\%newhash,$symb,$env{'request.course.id'},
&redirect_back($r,$feedurl,&mt('Changed discussion status').'<br />',	$cdom,$cnum) eq 'ok') {
'0','0','','',$env{'form.previous'},undef,undef,undef,	$result = &mt('Changed discussion status');
	my $prefix=$symb.':'.$idx.':';
	my %likes=&Apache::lonnet::dump('disclikes',$cdom,$cnum,
	'^'.$prefix);
	my ($totallikes,$totalunlikes);
	if (ref($likes{$prefix.'likers'}) eq 'HASH') {
	$totallikes = scalar(keys(%{$likes{$prefix.'likers'}}));
	}
	if (ref($likes{$prefix.'unlikers'}) eq 'HASH') {
	$totalunlikes = scalar(keys(%{$likes{$prefix.'unlikers'}}));
	}
	if ($totallikes \|\| $totalunlikes) {
	my $chglikes = -1 * $totallikes;
	my $chgunlikes = -1 * $totalunlikes;
	&storediscussionlikes($chglikes,$chgunlikes,
	$contrib{$idx.':sendername'},
	$contrib{$idx.':senderdomain'},
	$env{'request.course.id'},
	'delete');
	}
	} else {
	$result = &mt('Discussion status unchanged');
	}
	&redirect_back($r,$feedurl,$result.'<br />','0','0','','',
	$env{'form.previous'},undef,undef,undef,
undef,undef,undef,$group);	undef,undef,undef,$group);
return OK;	return OK;
} elsif ($env{'form.preview'}) {	} elsif ($env{'form.preview'}) {
Line 4256 ENDREDIR	Line 4508 ENDREDIR
my $idx = $env{'form.idx'};	my $idx = $env{'form.idx'};
if ($idx) {	if ($idx) {
my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'},	my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'},
$env{'course.'.$env{'request.course.id'}.'.domain'},	$cdom,$cnum);
$env{'course.'.$env{'request.course.id'}.'.num'});
$attachmenturls = $contrib{$idx.':attachmenturl'};	$attachmenturls = $contrib{$idx.':attachmenturl'};
}	}
&modify_attachments($r,\@currnewattach,\@currdelold,$symb,$idx,	&modify_attachments($r,\@currnewattach,\@currdelold,$symb,$idx,
Line 4274 ENDREDIR	Line 4525 ENDREDIR
$mode='problem';	$mode='problem';
$status=$Apache::inputtags::status[-1];	$status=$Apache::inputtags::status[-1];
}	}

my $discussion = &list_discussion($mode,$status,$symb);	my $discussion = &list_discussion($mode,$status,$symb);
my $start_page =	my $start_page =
&Apache::loncommon::start_page('Resource Feedback and Discussion');	&Apache::loncommon::start_page('Resource Feedback and Discussion');
Line 4286 ENDREDIR	Line 4538 ENDREDIR
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
my ($symb,$feedurl) = &get_feedurl_and_clean_symb($env{'form.undeleteall'});	my ($symb,$feedurl) = &get_feedurl_and_clean_symb($env{'form.undeleteall'});
	my $ressymb=&wrap_symb($symb);
$r->print(&Apache::loncommon::start_page('Undelete all deleted discussion entries'));	$r->print(&Apache::loncommon::start_page('Undelete all deleted discussion entries'));
if (&Apache::lonnet::allowed('rin',$env{'request.course.id'})) {	if (&can_see_hidden('',$ressymb,$feedurl,$group,$cdom,$cnum)) {
if (&Apache::lonnet::store({'deleted' => ''},$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'}) eq 'ok') {	$contrib{'deleted'} =~ s/^\.//;
$r->print(&Apache::lonhtmlcommon::confirm_success(&mt("Undeleted all entries")));	$contrib{'deleted'} =~ s/\.$//;
} else {	my $confirm_msg;
$r->print(&Apache::lonhtmlcommon::confirm_success(&mt("Failed to undelete entries"),1));	if ($contrib{'deleted'} ne '') {
}	if (&Apache::lonnet::store({'deleted' => ''},$symb,$env{'request.course.id'},
$r->print("<br /><a href='$feedurl'>".&mt("Return and reload")."</a>");	$cdom,$cnum) eq 'ok') {
	my %likes=&Apache::lonnet::dump('disclikes',$cdom,$cnum,'^'.$symb.':');
	my @ids = split(/\.\./,$contrib{'deleted'});
	my (%chglikes,%chgunlikes);
	foreach my $idx (@ids) {
	my $uname = $contrib{$idx.':sendername'};
	my $udom = $contrib{$idx.':senderdomain'};
	my ($totallikes,$totalunlikes);
	if (ref($likes{$symb.':'.$idx.':likers'}) eq 'HASH') {
	$totallikes = scalar(keys(%{$likes{$symb.':'.$idx.':likers'}}));
	}
	if (ref($likes{$symb.':'.$idx.':unlikers'}) eq 'HASH') {
	$totalunlikes = scalar(keys(%{$likes{$symb.':'.$idx.':unlikers'}}));
	}
	if ($totallikes \|\| $totalunlikes) {
	$chglikes{$uname.':'.$udom} += $totallikes;
	$chgunlikes{$uname.':'.$udom} += $totalunlikes;
	}
	}
	foreach my $user (keys(%chglikes)) {
	my ($uname,$udom) = split(/:/,$user);
	&storediscussionlikes($chglikes{$user},$chgunlikes{$user},
	$uname,$udom,$env{'request.course.id'},
	'undelete');
	}
	$confirm_msg = &Apache::lonhtmlcommon::confirm_success(&mt("Undeleted all entries"));
	} else {
	$confirm_msg = &Apache::lonhtmlcommon::confirm_success(&mt("Failed to undelete entries"),1);
	}
	} else {
	$confirm_msg = &Apache::lonhtmlcommon::confirm_success(&mt("No entries to undelete"),1);
	}
	$r->print(
	'<br />'
	.&Apache::loncommon::confirmwrapper($confirm_msg)
	.&Apache::lonhtmlcommon::actionbox(
	["<a href='$feedurl'>".&mt("Return and reload")."</a>"])
	);
}	}
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
return OK;	return OK;
Line 4338 ENDREDIR	Line 4628 ENDREDIR
$r->internal_redirect('/adm/ambiguous');	$r->internal_redirect('/adm/ambiguous');
return OK;	return OK;
}	}
	if ($feedurl eq '') {
	&Apache::loncommon::content_type($r,'text/html');
	$r->send_http_header;
	&no_redirect_back($r);
	return OK;
	}
# Go ahead with feedback, no ambiguous reference	# Go ahead with feedback, no ambiguous reference
unless (	unless (
(	(
Line 4352 ENDREDIR	Line 4648 ENDREDIR
$r->send_http_header;	$r->send_http_header;
# Unable to give feedback	# Unable to give feedback
&Apache::lonenc::check_encrypt(\$feedurl);	&Apache::lonenc::check_encrypt(\$feedurl);
&no_redirect_back($r,$feedurl);	&no_redirect_back($r,$feedurl,2);
return OK;	return OK;
}	}
# --------------------------------------------------- Print login screen header	# --------------------------------------------------- Print login screen header
Line 4372 ENDREDIR	Line 4668 ENDREDIR
if ($options) {	if ($options) {
&mail_screen($r,$feedurl,$options,$symb,$attachmax{'text'});	&mail_screen($r,$feedurl,$options,$symb,$attachmax{'text'});
} else {	} else {
&fail_redirect($r,$feedurl);	&fail_redirect($r,$feedurl,2);
}	}
return OK;	return OK;
}	}
Line 4438 ENDREDIR	Line 4734 ENDREDIR
my ($typestyle,%to) = &Apache::lonmsg::decide_receiver($feedurl);	my ($typestyle,%to) = &Apache::lonmsg::decide_receiver($feedurl);

# Actually send mail	# Actually send mail
my ($status,$numsent)=&send_msg(&clear_out_html($env{'form.subject'}),	my $clientip = &Apache::lonnet::get_requestor_ip($r);
$feedurl,$email,$citations,	my ($status,$numsent,$delay)=&send_msg(&clear_out_html($env{'form.subject'}),
$attachmenturl,$usersymb,%to);	$feedurl,$email,$citations,
	$attachmenturl,$usersymb,$clientip,%to);

# Discussion? Store that.	# Discussion? Store that.
my $numpost=0;	my $numpost=0;
Line 4471 ENDREDIR	Line 4768 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'},undef,undef,undef,undef,undef,undef,$group,$toolarge);	&redirect_back($r,$feedurl,$typestyle,$numsent,$numpost,$blog,$status,$env{'form.previous'},
	undef,undef,undef,undef,undef,undef,$group,$toolarge,$delay);
}	}
return OK;	return OK;
}	}
Line 4494 sub wrap_symb {	Line 4792 sub wrap_symb {
}	}
return $ressymb;	return $ressymb;
}	}

sub dewrapper {	sub dewrapper {
my ($feedurl)=@_;	my ($feedurl)=@_;
if ($$feedurl=~m\|^/adm/wrapper/adm/.*/bulletinboard$\|) {	if ($$feedurl=~m\|^/adm/wrapper/adm/.*/bulletinboard$\|) {
Line 4653 None	Line 4952 None

=item list_discussion()	=item list_discussion()

	=item can_see_hidden()

	=item discussion_link()

=item send_feedback_link()	=item send_feedback_link()

=item send_message_link()	=item send_message_link()

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

Removed from v.1.345
changed lines
	Added in v.1.370.2.6