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.290.2.7.2.3 and 1.313

version 1.290.2.7.2.3, 2012/03/09 15:09:39	version 1.313, 2012/01/03 01:51:00
Line 58 sub discussion_open {	Line 58 sub discussion_open {
return 1;	return 1;
}	}
# It was not explicitly open, check if the problem is available.	# It was not explicitly open, check if the problem is available.
# If the problem is not available, close the discussion	# If the problem is not available, close the discussion
if (defined($status) &&	if (defined($status) &&
!($status eq 'CAN_ANSWER' \|\| $status eq 'CANNOT_ANSWER'	!($status eq 'CAN_ANSWER' \|\| $status eq 'CANNOT_ANSWER'
\|\| $status eq 'OPEN')) {	\|\| $status eq 'OPEN')) {
return 0;	return 0;
}	}
# The problem is available, but check if the instructor explictly closed discussion	# The problem is available, but check if the instructor explictly closed discussion
if (defined($close) && $close ne '' && $close < time) {	if (defined($close) && $close ne '' && $close < time) {
return 0;	return 0;
}	}
return 1;	return 1;
}	}
Line 135 sub list_discussion {	Line 135 sub list_discussion {
$crs=~s/\_/\//g;	$crs=~s/\_/\//g;
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=~/$LONCAPA::assess_re/));

my %usernamesort = ();	my %usernamesort = ();
my %namesort =();	my %namesort =();
Line 281 sub list_discussion {	Line 281 sub list_discussion {
my $maxdepth=0;	my $maxdepth=0;
my %anonhash=();	my %anonhash=();
my $anoncnt=0;	my $anoncnt=0;
my $target='';
unless ($env{'browser.interface'} eq 'textual' \|\|
$env{'environment.remote'} eq 'off' ) {
$target='target="LONcom"';
}

my $now = time;	my $now = time;
$discinfo{$visitkey} = $visit;	$discinfo{$visitkey} = $visit;

&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,\@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,$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 425 imscp_v1p1.xsd http://www.imsglobal.org/	Line 420 imscp_v1p1.xsd http://www.imsglobal.org/
}	}
} else {	} else {
my $colspan=$maxdepth+1;	my $colspan=$maxdepth+1;
#JW
$discussion.= &Apache::lonhtmlcommon::scripttag(qq\|	$discussion.= &Apache::lonhtmlcommon::scripttag(qq\|
function verifydelete (caller,symb,idx,newflag,previous,groupparm) {	function verifydelete (caller,symb,idx,newflag,previous,groupparm) {
var symbparm = symb+':::'+idx	var symbparm = symb+':::'+idx
Line 645 END	Line 639 END
if ($filterchoice) {	if ($filterchoice) {
$discussion .= '<b>'.&mt('Filters').'</b>: '.$filterchoice;	$discussion .= '<b>'.&mt('Filters').'</b>: '.$filterchoice;
}	}
$discussion .= '</font></td>';
}	}
	$discussion .= '</font></td>';

}	}
if ($dischash{$toggkey}) {	if ($dischash{$toggkey}) {
my $storebutton = &mt('Save read/unread changes');	my $storebutton = &mt('Save read/unread changes');
Line 728 END	Line 723 END
}	}
}	}
if ((&discussion_open($status)) && ($outputtarget ne 'tex')) {	if ((&discussion_open($status)) && ($outputtarget ne 'tex')) {
if (($group ne '') && ($mode eq 'board')) {	if (($group ne '') && ($mode eq 'board')) {
if ((&check_group_priv($group,'pgd') eq 'ok') &&	if ((&check_group_priv($group,'pgd') eq 'ok') &&
($ressymb =~ m{^bulletin___\d+___adm/wrapper/adm/\Q$cdom\E/\Q$cnum\E/\d+/bulletinboard$})) {	($ressymb =~ m{^bulletin___\d+___adm/wrapper/adm/\Q$cdom\E/\Q$cnum\E/\d+/bulletinboard$})) {
$discussion .=	$discussion .=
&postingform_display($mode,$ressymb,$now,$subject,	&postingform_display($mode,$ressymb,$now,$subject,
Line 741 END	Line 736 END
if (&Apache::lonnet::allowed('pch',$env{'request.course.id'}.	if (&Apache::lonnet::allowed('pch',$env{'request.course.id'}.
($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))) {	($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))) {

$discussion.=	$discussion.=
&postingform_display($mode,$ressymb,$now,$subject,	&postingform_display($mode,$ressymb,$now,$subject,
$comment,$outputtarget,$attachnum,	$comment,$outputtarget,$attachnum,
$currnewattach,$currdelold,'',$crstype);	$currnewattach,$currdelold,'',$crstype);
} else {	} else {
$discussion.= '<span class="LC_feedback_link">'.	$discussion.= '<span class="LC_feedback_link">'.
&mt('This discussion is closed.').'</span>';	&mt('This discussion is closed.').'</span>';
Line 761 END	Line 756 END
&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'}:''))) {
$discussion.= &send_feedback_link($ressymb,$target);	$discussion.= &send_feedback_link($ressymb);
if ($env{'request.role.adv'}) {	if ($env{'request.role.adv'}) {
my $close = &Apache::lonnet::EXT('resource.0.discussend',$ressymb);	my $close = &Apache::lonnet::EXT('resource.0.discussend',$ressymb);
if (defined($close) && $close ne '' && $close < time) {	if (defined($close) && $close ne '' && $close < time) {
Line 769 END	Line 764 END
&Apache::lonnet::plaintext('st',$crstype));	&Apache::lonnet::plaintext('st',$crstype));
}	}
}	}
} else {	} else {
$discussion.= '<span class="LC_feedback_link">'.&mt('This discussion is closed.').'</span>';	$discussion.= '<span class="LC_feedback_link">'.&mt('This discussion is closed.').'</span>';
}	}
$discussion.= &send_message_link($ressymb).'</div>';	$discussion.= &send_message_link($ressymb).'</div>';
Line 777 END	Line 772 END
return $discussion;	return $discussion;
}	}


sub discussion_link {	sub discussion_link {
my ($ressymb,$linktext,$cmd,$item,$flag,$prev,$adds,$title) = @_;	my ($ressymb,$linktext,$cmd,$item,$flag,$prev,$adds)=@_;
my $link = '<a href="/adm/feedback?'.$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; }
$link .= '"';	return &Apache::loncommon::modal_link($link,$linktext,600,600);
if ($title) { $link .= ' title="'.$title.'"'; }
$link .= '>'.$linktext.'</a>';
return $link;
}	}


sub send_feedback_link {	sub send_feedback_link {
my ($ressymb,$target) = @_;	my ($ressymb) = @_;
my $output = '<span class="LC_feedback_link">'.	return '<span class="LC_feedback_link">'.
' <a href="/adm/feedback?replydisc='.	&discussion_link($ressymb,
&escape($ressymb).':::" '.$target.'>'.	'<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>',
'" border="0" /><span class="LC_menubuttons_inline_text">'.&mt('Post Discussion').'</span></a></span>';	'replydisc').
return $output;	'</span>';
}	}

sub send_message_link {	sub send_message_link {
Line 827 sub action_links_bar {	Line 821 sub action_links_bar {
$discussion .= '&previous='.$prevread;	$discussion .= '&previous='.$prevread;
}	}
$discussion .= &group_args($group);	$discussion .= &group_args($group);
$discussion .='">'.&mt('Chronological View').'</a>	$discussion .='">'.&mt('Chronological View').'</a>  ';
<a href="/adm/feedback?cmd=sortfilter&symb='.$escsymb;
	my $otherviewurl='/adm/feedback?cmd=sortfilter&symb='.$escsymb.'&inhibitmenu=yes&modal=yes';
if ($newpostsflag) {	if ($newpostsflag) {
$discussion .= '&previous='.$prevread;	$otherviewurl .= '&previous='.$prevread;
}	}
$discussion .= &group_args($group);	$otherviewurl .= &group_args($group);
$discussion .='">'.&mt('Sorting/Filtering options').'</a>'.(' ' x2);	$discussion .= &Apache::loncommon::modal_link($otherviewurl,&mt('Other Views ...'),800,340);
	$discussion .=(' ' x2);
}	}
$discussion .='<a href="/adm/feedback?export='.$escsymb;	$discussion .='<a href="/adm/feedback?export='.$escsymb;
if ($newpostsflag) {	if ($newpostsflag) {
Line 915 ENDDISCUSS	Line 911 ENDDISCUSS
}	}
$postingform .= "</form>\n";	$postingform .= "</form>\n";
$postingform .= &generate_attachments_button('',$attachnum,$ressymb,	$postingform .= &generate_attachments_button('',$attachnum,$ressymb,
$now,$currnewattach,	$now,$currnewattach,
$currdelold,'',$mode,	$currdelold,'',$mode,
$blockblog);	$blockblog);
if ((ref($currnewattach) eq 'ARRAY') && (@{$currnewattach} > 0)) {	if ((ref($currnewattach) eq 'ARRAY') && (@{$currnewattach} > 0)) {
$newattachmsg = '<br /><b>'.$lt{'newa'}.'</b><br />';	$newattachmsg = '<br /><b>'.$lt{'newa'}.'</b><br />';
if (@{$currnewattach} > 1) {	if (@{$currnewattach} > 1) {
$newattachmsg .= '<ol>';	$newattachmsg .= '<ol>';
foreach my $item (@{$currnewattach}) {	foreach my $item (@{$currnewattach}) {
$item =~ m#.*/([^/]+)$#;	$item =~ m#.*/([^/]+)$#;
$newattachmsg .= '<li><a href="'.$item.'">'.$1.'</a></li>'."\n";	$newattachmsg .= '<li><a href="'.$item.'">'.$1.'</a></li>'."\n";
}	}
$newattachmsg .= '</ol>'."\n";	$newattachmsg .= '</ol>'."\n";
} else {	} else {
$$currnewattach[0] =~ m#.*/([^/]+)$#;	$$currnewattach[0] =~ m#.*/([^/]+)$#;
$newattachmsg .= '<a href="'.$$currnewattach[0].'">'.$1.'</a><br />'."\n";	$newattachmsg .= '<a href="'.$$currnewattach[0].'">'.$1.'</a><br />'."\n";
}	}
}	}
$postingform .= $newattachmsg;	$postingform .= $newattachmsg;
$postingform .= &generate_preview_button();	$postingform .= &generate_preview_button();
Line 938 ENDDISCUSS	Line 934 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,$prevread,$sortposts,$ressymb,$target,$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,$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;
my $symb=&Apache::lonenc::check_decrypt($ressymb);	my $symb=&Apache::lonenc::check_decrypt($ressymb);
my $escsymb=&escape($ressymb);	my $escsymb=&escape($ressymb);
# These are the discussion contributions
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'});
# And these are the likes/unlikes
my %likes=&Apache::lonnet::dump('disclikes',
$env{'course.'.$env{'request.course.id'}.'.domain'},
$env{'course.'.$env{'request.course.id'}.'.num'},
'^'.$symb.':');
my $thisuser=$env{'user.name'}.':'.$env{'user.domain'};
# Array with likes to figure out averages, etc.
my @theselikes=();
# Hashes containing likes and unlikes for this user.
my %userlikes=();
my %userunlikes=();
# Is the user allowed to see the real name behind anonymous postings?
my $see_anonymous =	my $see_anonymous =
&Apache::lonnet::allowed('rin',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''));	&Apache::lonnet::allowed('rin',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''));

Line 989 sub build_posting_display {	Line 973 sub build_posting_display {
($skiptest,$roleregexp,$secregexp,$statusregexp) =	($skiptest,$roleregexp,$secregexp,$statusregexp) =
&filter_regexp($rolefilter,$sectionpick,$statusfilter);	&filter_regexp($rolefilter,$sectionpick,$statusfilter);
$rolematch = $roleregexp.':'.$secregexp.':'.$statusregexp;	$rolematch = $roleregexp.':'.$secregexp.':'.$statusregexp;
}	}
# 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++) {
my $idx=$id;
next if ($contrib{$idx.':deleted'});
next if ($contrib{$idx.':hidden'});
unless ((($hiddens{$idx}) && (!$seeid)) \|\| ($deletions{$idx}) \|\| (!$contrib{$idx.':message'})) {
if ($likes{$symb.':'.$idx.':likes'} ne '') {
push(@theselikes,$likes{$symb.':'.$idx.':likes'});
if (ref($likes{$symb.':'.$idx.':likers'}) eq 'HASH') {
if (exists($likes{$symb.':'.$idx.':likers'}{$thisuser})) {
$userlikes{$idx} = 1;
}
}
if (ref($likes{$symb.':'.$idx.':unlikers'}) eq 'HASH') {
if (exists($likes{$symb.':'.$idx.':unlikers'}{$thisuser})) {
$userunlikes{$idx} = 1;
}
}
}
}
}
# Figure out average likes and standard deviation if there are enough
# discussions to warrant that
my $ave=0;
my $stddev=10000;
if ($#theselikes>1) {
my $sum=0;
my $num=$#theselikes+1;
foreach my $thislike (@theselikes) {
$sum+=$thislike;
}
$ave=$sum/$num;
my $sumsq=0;
foreach my $thislike (@theselikes) {
$sumsq+=($thislike-$ave)*($thislike-$ave);
}
$stddev=sqrt($sumsq/$num);
}
# Now we know the average likes $ave and the standard deviation $stddev
# Get the boundaries for markup
my $oneplus=$ave+$stddev;
my $twoplus=$ave+2.*$stddev;
my $oneminus=$ave-$stddev;
my $twominus=$ave-2.*$stddev;
#
# This is now the real loop. Go through all entries, pick up what we need
#
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'});
Line 1084 sub build_posting_display {	Line 1021 sub build_posting_display {
my %subjects = ();	my %subjects = ();
my %attachtxt = ();	my %attachtxt = ();
my %allattachments = ();	my %allattachments = ();
my ($screenname,$plainname,$showaboutme);	my ($screenname,$plainname);
my $sender = &mt('Anonymous');	my $sender = &mt('Anonymous');
# Anonymous users getting number within a discussion	# Anonymous users getting number within a discussion
# Since idx is in static order, this should give the same sequence every time.	# Since idx is in static order, this should give the same sequence every time.
Line 1094 sub build_posting_display {	Line 1031 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,$outputtarget,\%messages,\%subjects,\%allattachments,\%attachtxt,$imsfiles,\$screenname,\$plainname,$numoldver);


# Set up for sorting by subject	# Set up for sorting by subject
Line 1124 sub build_posting_display {	Line 1061 sub build_posting_display {
}	}
}	}
if (!$contrib{$idx.':anonymous'} \|\| $see_anonymous) {	if (!$contrib{$idx.':anonymous'} \|\| $see_anonymous) {
if ($showaboutme) {	$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'}.':'.
} else {	$contrib{$idx.':senderdomain'}.')';
$sender = $plainname;
}
if ($see_anonymous) {
$sender .= ' ('.$contrib{$idx.':sendername'}.':'.
$contrib{$idx.':senderdomain'}.')';
}
$sender = '<b>'.$sender.'</b>';	$sender = '<b>'.$sender.'</b>';
if ($contrib{$idx.':anonymous'}) {	if ($contrib{$idx.':anonymous'}) {
$sender.=' <font color="red"><b>['.$$anonhash{$key}.']</b></font> '.	$sender.=' <font color="red"><b>['.$$anonhash{$key}.']</b></font> '.
Line 1176 sub build_posting_display {	Line 1107 sub build_posting_display {
if ($outputtarget ne 'tex') {	if ($outputtarget ne 'tex') {
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.=' <a href="/adm/feedback?editdisc='.	$sender.=' '.
$escsymb.':::'.$idx;	&discussion_link($symb,&mt('Edit'),'editdisc',$idx,$$newpostsflag,$prevread,&group_args($group));
if ($$newpostsflag) {
$sender .= '&previous='.$prevread;
}
$sender .= &group_args($group);
$sender .= '" '.$target.'>'.&mt('Edit').'</a>';

unless ($seeid) {	unless ($seeid) {
my $grpargs = &group_args($group);	my $grpargs = &group_args($group);
$sender.=" <a href=\"javascript:verifydelete('studentdelete','$escsymb','$idx','$$newpostsflag','$prevread','$grpargs')";	$sender.=" <a href=\"javascript:verifydelete('studentdelete','$escsymb','$idx','$$newpostsflag','$prevread','$grpargs')";
Line 1191 sub build_posting_display {	Line 1116 sub build_posting_display {
}	}
}	}
}	}
if ($seeid) {	if ($seeid) {
if ($hiddens{$idx}) {	if ($hiddens{$idx}) {
unless ($studenthidden) {	unless ($studenthidden) {
$sender.=' <a href="/adm/feedback?unhide='.	$sender.=' '.
$escsymb.':::'.$idx;	&discussion_link($symb,&mt('Make Visible'),'unhide',$idx,$$newpostsflag,$prevread,&group_args($group));
if ($$newpostsflag) {
$sender .= '&previous='.$prevread;
}
$sender .= '">'.&mt('Make Visible').'</a>';
}	}
} else {	} else {
$sender.=' <a href="/adm/feedback?hide='.	$sender.=' '.
$escsymb.':::'.$idx;	&discussion_link($symb,&mt('Hide'),'hide',$idx,$$newpostsflag,$prevread,&group_args($group));
if ($$newpostsflag) {
$sender .= '&previous='.$prevread;
}
$sender .= &group_args($group);
$sender .= '">'.&mt('Hide').'</a>';
}	}
my $grpargs = &group_args($group);	my $grpargs = &group_args($group);
$sender.=	$sender.=
Line 1216 sub build_posting_display {	Line 1132 sub build_posting_display {
$sender .= &mt('Delete').'</a>';	$sender .= &mt('Delete').'</a>';
}	}
}	}
} else {	} else {
if ($screenname) {	if ($screenname) {
$sender='<i>'.$screenname.'</i>';	$sender='<i>'.$screenname.'</i>';
} else {	} else {
Line 1243 sub build_posting_display {	Line 1159 sub build_posting_display {
}	}
}	}
if ($outputtarget ne 'tex') {	if ($outputtarget ne 'tex') {
if (&discussion_open($status)) {	if (&discussion_open($status)) {
if (($group ne '') &&	if (($group ne '') &&
(&check_group_priv($group,'pgd') eq 'ok')) {	(&check_group_priv($group,'pgd') eq 'ok')) {
$sender.=' <a href="/adm/feedback?replydisc='.	$sender.=' '.
$escsymb.':::'.$idx;	&discussion_link($symb,&mt('Reply'),'replydisc',$idx,$$newpostsflag,$prevread,&group_args($group));
if ($$newpostsflag) {
$sender .= '&previous='.$prevread;
}
$sender .= &group_args($group);
$sender .= '" '.$target.'>'.&mt('Reply').'</a>';
} 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.=' <a href="/adm/feedback?replydisc='.	$sender.=' '.
$escsymb.':::'.$idx;	&discussion_link($symb,&mt('Reply'),'replydisc',$idx,$$newpostsflag,$prevread);
if ($$newpostsflag) {
$sender .= '&previous='.$prevread;
}
$sender .= '" '.$target.'>'.&mt('Reply').'</a>';
}	}
}	}
if ($viewgrades) {	if ($viewgrades) {
$vgrlink=&Apache::loncommon::submlink(&mt('Submissions'),	$vgrlink=&Apache::loncommon::submlink(&mt('Submissions'),
$contrib{$idx.':sendername'},$contrib{$idx.':senderdomain'},$ressymb);	$contrib{$idx.':sendername'},$contrib{$idx.':senderdomain'},$ressymb);
}	}
if ($$dischash{$readkey}=~/\.$idx\./) {	if ($$dischash{$readkey}=~/\.$idx\./) {
$ctlink = '<label><b>'.&mt('Mark unread').'?</b> <input type="checkbox" name="postunread_'.$idx.'" /></label>';	$ctlink = '<label><b>'.&mt('Mark unread').'?</b> <input type="checkbox" name="postunread_'.$idx.'" /></label>';
} else {	} else {
$ctlink = '<label><b>'.&mt('Mark read').'?</b> <input type="checkbox" name="postread_'.$idx.'" /></label>';	$ctlink = '<label><b>'.&mt('Mark read').'?</b> <input type="checkbox" name="postread_'.$idx.'" /></label>';
Line 1387 sub build_posting_display {	Line 1294 sub build_posting_display {
$$discussionitems[$idx].='<td align="right">  '.	$$discussionitems[$idx].='<td align="right">  '.
$ctlink.'</td>';	$ctlink.'</td>';
}	}
# Figure out size based on likes
my $thislikes=$likes{$symb.':'.$idx.':likes'};
my $likesize="100";
if ($thislikes>$twoplus) {
$likesize="200";
} elsif ($thislikes>$oneplus) {
$likesize="150";
}
if ($thislikes<$twominus) {
$likesize="50";
} elsif ($thislikes<$oneminus) {
$likesize="75";
}
# Actually glue in the message itself
$$discussionitems[$idx].= '</tr></table><blockquote>'.	$$discussionitems[$idx].= '</tr></table><blockquote>'.
"<div style='font-size:$likesize%'>".	$message.'</blockquote>';
$message.
'</div></blockquote>';
# Put in the like and unlike buttons
if ($userlikes{$idx}) {
$$discussionitems[$idx].='<img border="0" src="/res/adm/pages/thumbsup_gray.png" alt="'.&mt('You like this posting').'" />';
} 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"));
}
if ($userunlikes{$idx}) {
$$discussionitems[$idx].='<img border="0" src="/res/adm/pages/thumbsdown_gray.png" alt="'.&mt('You unlike this posting').'" />';
} 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"));
}
my $thislikes=$likes{$symb.':'.$idx.':likes'};
if ($thislikes>0) {
$$discussionitems[$idx].=' ('.&mt("[_1] likes",$thislikes).')';
} elsif ($thislikes<0) {
$$discussionitems[$idx].=' ('.&mt("[_1] unlikes",abs($thislikes)).')';
}
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 ($seeid) {
$$discussionitems[$idx] .= '  <a href="/adm/feedback?allversions='.$escsymb.':::'.$idx;	$$discussionitems[$idx] .= '  '.
$$discussionitems[$idx] .= &group_args($group);	&discussion_link($symb,&mt('Display all versions'),'allversions',$idx,$$newpostsflag,$prevread,&group_args($group));
$$discussionitems[$idx] .= '">'.&mt('Display all versions').'</a>';
}	}
$$discussionitems[$idx].='<br/>'.&mt('Earlier version(s) were posted on: ');	$$discussionitems[$idx].='<br/>'.&mt('Earlier version(s) were posted on: ');
if ($contrib{$idx.':history'} =~ m/:/) {	if ($contrib{$idx.':history'} =~ m/:/) {
Line 1505 sub filter_regexp {	Line 1378 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,$type,$messages,$subjects,$allattachments,$attachtxt,$imsfiles,$screenname,$plainname,$numver) = @_;
my $discussion = '';	my $discussion = '';
my $start=$numver;	my $start=$numver;
my $end=$numver + 1;	my $end=$numver + 1;
Line 1523 sub get_post_contents {	Line 1396 sub get_post_contents {
$$contrib{$idx.':sendername'},	$$contrib{$idx.':sendername'},
$$contrib{$idx.':senderdomain'});	$$contrib{$idx.':senderdomain'});
$$screenname=$$contrib{$idx.':screenname'};	$$screenname=$$contrib{$idx.':screenname'};
$$showaboutme = &Apache::lonnet::usertools_access($$contrib{$idx.':sendername'},
$$contrib{$idx.':senderdomain'},	my $sender=&Apache::loncommon::aboutmewrapper(
'aboutme');
my $sender = $$plainname;
if ($$showaboutme) {
$sender = &Apache::loncommon::aboutmewrapper(
$$plainname,	$$plainname,
$$contrib{$idx.':sendername'},	$$contrib{$idx.':sendername'},
$$contrib{$idx.':senderdomain'});	$$contrib{$idx.':senderdomain'}).' ('.
}	$$contrib{$idx.':sendername'}.':'.
if ($seeid) {	$$contrib{$idx.':senderdomain'}.')';
$sender .= ' ('.$$contrib{$idx.':sendername'}.':'.
$$contrib{$idx.':senderdomain'}.')';
}
my $attachmenturls = $$contrib{$idx.':attachmenturl'};	my $attachmenturls = $$contrib{$idx.':attachmenturl'};
my @postversions = ();	my @postversions = ();
if ($type eq 'allversions' \|\| $type eq 'export') {	if ($type eq 'allversions' \|\| $type eq 'export') {
Line 1791 END	Line 1657 END
$comment = &unescape($env{'form.comment'});	$comment = &unescape($env{'form.comment'});
&process_attachments(\@currnewattach,\@currdelold,\@keepold);	&process_attachments(\@currnewattach,\@currdelold,\@keepold);
}	}
my $latexHelp=&Apache::loncommon::helpLatexCheatsheet(undef,undef,1);	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.');
my $js= <<END;	my $js= <<END;
Line 1849 END	Line 1715 END
'text' => 'Resource Feedback and Discussion'}];	'text' => 'Resource Feedback and Discussion'}];

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

if ($quote ne '') {	if ($quote ne '') {
$quote = &HTML::Entities::decode($quote);	$quote = &HTML::Entities::decode($quote);
Line 1861 END	Line 1727 END
}	}
$quote='<blockquote>'.&Apache::lontexconvert::msgtexconverted($quote).'</blockquote>';	$quote='<blockquote>'.&Apache::lontexconvert::msgtexconverted($quote).'</blockquote>';
}	}
	my $header='';
	unless ($env{'form.modal'}) {
	$header="<h2><tt>$restitle</tt></h2>";
	}
$r->print(<<END);	$r->print(<<END);
$start_page	$start_page
<h2><tt>$restitle</tt></h2>	$header
<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
<input type="hidden" name="postdata" value="$feedurl" />	<input type="hidden" name="postdata" value="$feedurl" />
	<input type="hidden" name="modal" value="$env{'form.modal'}" />
END	END
if ($env{'form.replydisc'}) {	if ($env{'form.replydisc'}) {
$r->print(<<END);	$r->print(<<END);
Line 1881 END	Line 1751 END
END	END
}	}
$r->print(<<END);	$r->print(<<END);
$options<hr />	$options
$quote	$quote
<p>$lt{'myqu'}	<p>$lt{'myqu'}
$textareaheader	$textareaheader
Line 1892 $latexHelp	Line 1762 $latexHelp
<p>	<p>
$lt{'title'}: <input type="text" name="subject" size="30" value="$subject" /></p>	$lt{'title'}: <input type="text" name="subject" size="30" value="$subject" /></p>
<p>	<p>
<textarea name="comment" id="comment" cols="60" rows="10" $textareaclass>$comment	<textarea name="comment" id="comment" cols="60" rows="10" $textareaclass>$comment
</textarea></p>	</textarea></p>
END	END
if ( ($env{'form.editdisc'}) \|\| ($env{'form.replydisc'}) ) {	if ( ($env{'form.editdisc'}) \|\| ($env{'form.replydisc'}) ) {
Line 2316 END	Line 2186 END
$start_page	$start_page
<form name="modifyshown" method="post" action="/adm/feedback">	<form name="modifyshown" method="post" action="/adm/feedback">
<b>$lt{'diso'}</b><br/> $lt{'prca'}	<b>$lt{'diso'}</b><br/> $lt{'prca'}
<br /><br />	<br />
<table border="0">	<table border="0">
<tr>	<tr>
<th>$lt{'soor'}</th>	<th>$lt{'soor'}</th>
Line 2381 $start_page	Line 2251 $start_page
</tr>	</tr>
</table>	</table>
<br />	<br />
<br />	<input type="hidden" name="inhibitmenu" value="$env{'form.inhibitmenu'}" />
	<input type="hidden" name="modal" value="$env{'form.modal'}" />
<input type="hidden" name="previous" value="$previous" />	<input type="hidden" name="previous" value="$previous" />
<input type="hidden" name="applysort" value="$symb" />	<input type="hidden" name="applysort" value="$symb" />
<input type="button" name="sub" value="$lt{'stor'}" onclick="verifyFilter()" />	<input type="button" name="sub" value="$lt{'stor'}" onclick="verifyFilter()" />
Line 2506 END	Line 2377 END
$r->print(<<END);	$r->print(<<END);
<br />	<br />
<input type="hidden" name="sortposts" value="$sortposts" />	<input type="hidden" name="sortposts" value="$sortposts" />
	<input type="hidden" name="modal" value="$env{'form.modal'}" />
<input type="hidden" name="userpick" value="$symb" />	<input type="hidden" name="userpick" value="$symb" />
<input type="button" name="store" value="Display posts" onclick="javascript:document.pickpostersform.submit()" />	<input type="button" name="store" value="Display posts" onclick="javascript:document.pickpostersform.submit()" />
</form>	</form>
Line 2691 sub redirect_back {	Line 2563 sub redirect_back {
}	}
&Apache::lonenc::check_encrypt(\$feedurl);	&Apache::lonenc::check_encrypt(\$feedurl);
my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');	my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');
my %onload;	my %parms=('only_body' => 1);
if ($env{'environment.remote'} ne 'off') {	if ($env{'form.modal'}) {
$onload{'onload'} =	$parms{'add_entries'}={'onLoad' => 'document.forms.reldt.submit()'};
"if (window.name!='loncapaclient') { this.document.reldt.submit(); self.window.close(); }";	} else {
	$parms{'redirect'}=[0,$feedurl];
}	}
my $start_page=	my $start_page=
&Apache::loncommon::start_page('Feedback sent',undef,	&Apache::loncommon::start_page('Feedback sent',undef,\%parms);
{'redirect' => [0,$feedurl],
'only_body' => 1,
'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
Line 2729 sub no_redirect_back {	Line 2599 sub no_redirect_back {
my $nofeed=&mt('Sorry, no feedback possible on this resource ...');	my $nofeed=&mt('Sorry, no feedback possible on this resource ...');

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

my %body_options = ('only_body' => 1,	my %body_options = ('only_body' => 1,
'bgcolor' => '#FFFFFF',	'bgcolor' => '#FFFFFF',
Line 2818 sub screen_header {	Line 2684 sub screen_header {
}	}
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" /> '.	$discussoptions='<label><input type="radio" name="discuss" value="nonanon" checked="checked" /> '.
$contribdisc.	$contribdisc.
Line 2834 sub screen_header {	Line 2700 sub screen_header {
}	}
}	}
if ($msgoptions) {	if ($msgoptions) {
$msgoptions='<h2><img src="'.&Apache::loncommon::lonhttpdurl('/res/adm/pages/feedback.png').'" />'	$msgoptions='<tr><th><img src="'.&Apache::loncommon::lonhttpdurl('/res/adm/pages/feedback.png').'" />'
.' '.&mt('Send Feedback').'</h2><p>'.&Apache::lonhtmlcommon::coursepreflink(&mt('Feedback Settings'),'feedback').'</p>'	.'<br />'.&mt('Send Feedback').'<br />'.&Apache::lonhtmlcommon::coursepreflink(&mt('Feedback Settings'),'feedback').'</th>'.
.$msgoptions;	'<td>'.$msgoptions.'</td></tr>';
}	}
if ($discussoptions) {	if ($discussoptions) {
$discussoptions='<h2><img src="'.&Apache::loncommon::lonhttpdurl('/adm/lonMisc/chat.gif').'" alt="" />'	$discussoptions='<tr><th><img src="'.&Apache::loncommon::lonhttpdurl('/adm/lonMisc/chat.gif').'" alt="" />'
.' '.&mt('Discussion Contributions').'</h2><p>'.&Apache::lonhtmlcommon::coursepreflink(&mt('Discussion Settings'),'discussion').'</p>'	.'<br />'.&mt('Discussion Contributions').'<br />'.&Apache::lonhtmlcommon::coursepreflink(&mt('Discussion Settings'),'discussion').'</th>'.
.$discussoptions;	'<td>'.$discussoptions.'</td></tr>';
}	}
return $msgoptions.$discussoptions;	return &Apache::loncommon::start_data_table().$msgoptions.$discussoptions.&Apache::loncommon::end_data_table();
}	}

sub resource_output {	sub resource_output {
Line 2871 sub clear_out_html {	Line 2737 sub clear_out_html {
# <BLOCKQUOTE> <DIV .*> <DIV> <IMG> <M> <SPAN> <H1> <H2> <H3> <H4> <SUB>	# <BLOCKQUOTE> <DIV .*> <DIV> <IMG> <M> <SPAN> <H1> <H2> <H3> <H4> <SUB>
# <SUP> <TABLE> <TR> <TD> <TH> <TBODY>	# <SUP> <TABLE> <TR> <TD> <TH> <TBODY>
%html=(B=>1, I=>1, P=>1, A=>1, LI=>1, OL=>1, UL=>1, EM=>1,	%html=(B=>1, I=>1, P=>1, A=>1, LI=>1, OL=>1, UL=>1, EM=>1,
BR=>1, TT=>1, STRONG=>1, BLOCKQUOTE=>1, PRE=>1, DIV=>1, IMG=>1,	BR=>1, TT=>1, STRONG=>1, BLOCKQUOTE=>1, PRE=>1, DIV=>1, IMG=>1,
M=>1, CHEM=>1, ALGEBRA=>1, SUB=>1, SUP=>1, SPAN=>1,	M=>1, CHEM=>1, ALGEBRA=>1, SUB=>1, SUP=>1, SPAN=>1,
H1=>1, H2=>1, H3=>1, H4=>1, H5=>1, H6=>1,	H1=>1, H2=>1, H3=>1, H4=>1, H5=>1, H6=>1,
TABLE=>1, TR=>1, TD=>1, TH=>1, TBODY=>1);	TABLE=>1, TR=>1, TD=>1, TH=>1, TBODY=>1);
}	}
Line 2958 sub send_msg {	Line 2824 sub send_msg {
return ($status,$sendsomething);	return ($status,$sendsomething);
}	}

# Store feedback "likes"

sub storefeedbacklikes {
my ($likes,$uname,$udom,$course)=@_;
unless ($likes) { $likes=0; }
if ($likes>0) { $likes=1; }
if ($likes<0) { $likes=-1; }
unless ($uname) { $uname=$env{'user.name'}; }
unless ($udom) { $udom=$env{'user.domain'}; }
unless ($course) { $course=$env{'request.course.id'}; }
my %record=&getfeedbackrecords($uname,$udom,$course);
my $totallikes=$record{'totallikes'};
$totallikes+=$likes;
my %newrecord=('likes_user' => $env{'user.name'},
'likes_domain' => $env{'user.domain'},
'likes' => $likes,
'totallikes' => $totallikes);
return &Apache::lonnet::cstore(\%newrecord,'_feedback',$course,$udom,$uname);
}

sub adddiscuss {	sub adddiscuss {
my ($symb,$email,$anon,$attachmenturl,$subject,$group)=@_;	my ($symb,$email,$anon,$attachmenturl,$subject,$group)=@_;
my $status='';	my $status='';
Line 2993 sub adddiscuss {	Line 2839 sub adddiscuss {
$cnum = $env{'course.'.$env{'request.course.id'}.'.num'};	$cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
}	}
if (&discussion_open(undef,$realsymb) &&	if (&discussion_open(undef,$realsymb) &&
(&Apache::lonnet::allowed('pch',$env{'request.course.id'}.	(&Apache::lonnet::allowed('pch',$env{'request.course.id'}.
($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')) \|\|	($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')) \|\|
(($group ne '') && (&check_group_priv($group,'pgd') eq 'ok') &&	(($group ne '') && (&check_group_priv($group,'pgd') eq 'ok') &&
($symb =~ m{^bulletin___\d+___adm/wrapper/adm/\Q$cdom\E/\Q$cnum\E/\d+/bulletinboard$})))) {	($symb =~ m{^bulletin___\d+___adm/wrapper/adm/\Q$cdom\E/\Q$cnum\E/\d+/bulletinboard$})))) {

my %contrib=('message' => $email,	my %contrib=('message' => $email,
Line 3076 sub adddiscuss {	Line 2922 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 %record=&getdiscussionrecords();	my %record=&Apache::lonnet::restore('_discussion');
my ($temp)=keys(%record);	my ($temp)=keys(%record);
unless ($temp=~/^error\:/) {	unless ($temp=~/^error\:/) {
my %newrecord=();	my %newrecord=();
Line 3091 sub adddiscuss {	Line 2937 sub adddiscuss {
return $status.'<br />';	return $status.'<br />';
}	}

# Routine to get the complete discussion records

sub getdiscussionrecords {
my ($uname,$udom,$course)=@_;
unless ($uname) { $uname=$env{'user.name'}; }
unless ($udom) { $udom=$env{'user.domain'}; }
unless ($course) { $course=$env{'request.course.id'}; }
my %record=&Apache::lonnet::restore('_discussion',$course,$udom,$uname);
return %record;
}

# Store discussion "likes"

sub storediscussionlikes {
my ($likes,$uname,$udom,$course)=@_;
unless ($likes) { $likes=0; }
if ($likes>0) { $likes=1; }
if ($likes<0) { $likes=-1; }
unless ($uname) { $uname=$env{'user.name'}; }
unless ($udom) { $udom=$env{'user.domain'}; }
unless ($course) { $course=$env{'request.course.id'}; }
my %record=&getdiscussionrecords($uname,$udom,$course);
my $totallikes=$record{'totallikes'};
my $totalvotes=$record{'totalvotes'};
$totallikes+=$likes;
$totalvotes++;
my %newrecord=('likes_user' => $env{'user.name'},
'likes_domain' => $env{'user.domain'},
'likes' => $likes,
'totallikes' => $totallikes,
'totalvotes' => $totalvotes);
my $status=&Apache::lonnet::cstore(\%newrecord,'_discussion',$course,$udom,$uname);
return $status;
}

sub get_discussion_info {	sub get_discussion_info {
my ($idx,%contrib) = @_;	my ($idx,%contrib) = @_;
my $changelast = 0;	my $changelast = 0;
Line 3289 END	Line 3100 END
# Breadcrumbs	# Breadcrumbs
my $brcrum = [{'href' => '',	my $brcrum = [{'href' => '',
'text' => 'Discussion Post Attachments'}];	'text' => 'Discussion Post Attachments'}];
	my %parms=();
	if ($env{'form.modal'} ne 'yes') { 'bread_crumbs' => $brcrum }

my $start_page =	my $start_page =
&Apache::loncommon::start_page('Discussion Post Attachments',$js,	&Apache::loncommon::start_page('Discussion Post Attachments',$js,\%parms);
{'bread_crumbs' => $brcrum,});

my $orig_subject = &unescape($env{'form.subject'});	my $orig_subject = &unescape($env{'form.subject'});
my $subject=&clear_out_html($orig_subject);	my $subject=&clear_out_html($orig_subject);
Line 3652 sub handler {	Line 3465 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'},
['like','unlike','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']);	['modal','hide','unhide','deldisc','postdata','preview','replydisc','editdisc','cmd','symb','onlyunread','allposts','onlyunmark','previous','markread','markonread','markondisp','toggoff','toggon','modifydisp','changes','navtime','navmaps','navurl','sortposts','applysort','rolefilter','statusfilter','sectionpick','groupick','posterlist','userpick','attach','origpage','currnewattach','deloldattach','keepold','allversions','export','sendmessageonly','group','ref']);
my $group = $env{'form.group'};	my $group = $env{'form.group'};
my %attachmax = (	my %attachmax = (
text => &mt('(128 KB max size)'),	text => &mt('(128 KB max size)'),
Line 3703 sub handler {	Line 3516 sub handler {
# Breadcrumbs	# Breadcrumbs
my $brcrum = [{'href' => '',	my $brcrum = [{'href' => '',
'text' => 'Discussion Post Versions'}];	'text' => 'Discussion Post Versions'}];

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

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

my $crs='/'.$env{'request.course.id'};	my $crs='/'.$env{'request.course.id'};
if ($env{'request.course.sec'}) {	if ($env{'request.course.sec'}) {
Line 3733 sub handler {	Line 3547 sub handler {
my %attachmsgs = ();	my %attachmsgs = ();
my %allattachments = ();	my %allattachments = ();
my %imsfiles = ();	my %imsfiles = ();
my ($screenname,$plainname,$showaboutme);	my ($screenname,$plainname);
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'});
$r->print(&get_post_contents(\%contrib,$idx,$seeid,'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));
}	}
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
return OK;	return OK;
Line 3810 sub handler {	Line 3624 sub handler {
$r->send_http_header;	$r->send_http_header;
my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');	my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');
my %onload;	my %onload;
if ($env{'environment.remote'} ne 'off') {
$onload{'onload'} =
"if (window.name!='loncapaclient') { this.document.reldt.submit(); self.window.close(); }";
}

my $start_page=	my $start_page=
&Apache::loncommon::start_page('New posts marked as read',undef,	&Apache::loncommon::start_page('New posts marked as read',undef,
Line 3930 ENDREDIR	Line 3740 ENDREDIR
'0','0','','',$env{'form.previous'},undef,undef,undef,	'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'})) {
# ----------------------------------------------------------------- Like/unlike
my $entry=$env{'form.like'}?$env{'form.like'}:$env{'form.unlike'};
my ($symb,$idx)=split(/\:\:\:/,$entry);
($symb,my $feedurl)=&get_feedurl_and_clean_symb($symb);

#
# Likes and unlikes are in db-file "disclikes" of the course
# The prefix is the $symb to identify the resource discussion,
# and the $idx to identify the entry
#
my $prefix=$symb.':'.$idx.':';
my %contrib=&Apache::lonnet::dump('disclikes',
$env{'course.'.$env{'request.course.id'}.'.domain'},
$env{'course.'.$env{'request.course.id'}.'.num'},
'^'.$prefix);
# Get current like or unlike status for the $idx for this user.
my $thisuser=$env{'user.name'}.':'.$env{'user.domain'};
my ($userlikes,$userunlikes);
if (ref($contrib{$prefix.'likers'}) eq 'HASH') {
if (exists($contrib{$prefix.'likers'}{$thisuser})) {
$userlikes = 1;
}
}
if (ref($contrib{$prefix.'unlikers'}) eq 'HASH') {
if (exists($contrib{$prefix.'unlikers'}{$thisuser})) {
$userunlikes = 1;
}
}

# Get the current "likes" count
my $likes=$contrib{$prefix.'likes'};
# Find out if they already voted
# Users cannot like a post twice, or unlike it twice.
# They can change their mind, though.
my $alreadyflag=0;
my $thisuser=$env{'user.name'}.':'.$env{'user.domain'};
if ($env{'form.like'}) {
if ($userlikes) {
$alreadyflag=1;
} elsif ($userunlikes) {
delete($contrib{$prefix.'unlikers'}{$thisuser});
$likes++;
} else {
if (ref($contrib{$prefix.'likers'}) eq 'HASH') {
$contrib{$prefix.'likers'}{$thisuser} = 1;
} else {
$contrib{$prefix.'likers'} = {$thisuser => 1};
}
$likes++;
}
} else {
if ($userunlikes) {
$alreadyflag=1;
} elsif ($userlikes) {
delete($contrib{$prefix.'likers'}{$thisuser});
$likes--;
} else {
if (ref($contrib{$prefix.'unlikers'}) eq 'HASH') {
$contrib{$prefix.'unlikers'}{$thisuser} = 1;
} else {
$contrib{$prefix.'unlikers'} = {$thisuser => 1};
}
$likes--;
}
}
my $result;
# $alreadyflag would be 1 if they tried to double-like or double-unlike
unless ($alreadyflag) {
my %newhash=($prefix.'likes' => $likes,
$prefix.'likers' => $contrib{$prefix.'likers'},
$prefix.'unlikers' => $contrib{$prefix.'unlikers'});
# Store data in db-file "disclikes"
if (&Apache::lonnet::put('disclikes',
\%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
if ($env{'form.like'}) {
&storediscussionlikes(1,$contrib{$idx.':sendername'},$contrib{$idx.':senderdomain'});
$result=&mt("Registered 'Like'");
} else {
&storediscussionlikes(-1,$contrib{$idx.':sendername'},$contrib{$idx.':senderdomain'});
$result=&mt("Registered 'Unlike'");
}
} else {
# Oops, something went wrong
$result=&mt("Failed to register vote");
}
}
&redirect_back($r,$feedurl,$result.'<br />',
'0','0','','',$env{'form.previous'},undef,undef,undef,
undef,undef,undef,$group);
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') {
Line 4096 ENDREDIR	Line 3812 ENDREDIR
my $mode='board';	my $mode='board';
my $status='OPEN';	my $status='OPEN';
my $previous=$env{'form.previous'};	my $previous=$env{'form.previous'};
if ($feedurl =~ /\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|task)$/) {	if ($feedurl =~ /$LONCAPA::assess_re/) {
$mode='problem';	$mode='problem';
$status=$Apache::inputtags::status[-1];	$status=$Apache::inputtags::status[-1];
}	}
Line 4136 ENDREDIR	Line 3852 ENDREDIR
&dewrapper(\$feedurl);	&dewrapper(\$feedurl);
}	}
my $goahead=1;	my $goahead=1;
if ($feedurl=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|task)$/) {	if ($feedurl=~/$LONCAPA::assess_re/) {
unless ($symb) { $goahead=0; }	unless ($symb) { $goahead=0; }
}	}
if (!$goahead) {	if (!$goahead) {
Line 4235 ENDREDIR	Line 3951 ENDREDIR
$override = 1;	$override = 1;
}	}
my $message=&clear_out_html($env{'form.comment'},$override);	my $message=&clear_out_html($env{'form.comment'},$override);


# Assemble email	# Assemble email
my ($email,$citations)=&assemble_email($message,$prevattempts,	my ($email,$citations)=&assemble_email($message,$prevattempts,

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

Removed from v.1.290.2.7.2.3
changed lines
	Added in v.1.313