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.4 and 1.290.2.7.2.5

version 1.290.2.7.2.4, 2012/04/30 03:51:40	version 1.290.2.7.2.5, 2012/05/01 15:56:16
Line 311 sub list_discussion {	Line 311 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,$seehidden,$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,$target,$readkey,$showunmark,$showonlyunread,$totposters,\@rolefilter,\@sectionpick,\@grouppick,$classgroups,$statusfilter,$toggkey,$outputtarget,\%anonhash,$anoncnt,$group);

my $discussion='';	my $discussion='';
my $manifestfile;	my $manifestfile;
Line 1008 ENDDISCUSS	Line 1008 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,$seehidden,$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,$target,$readkey,$showunmark,$showonlyunread,$totposters,$rolefilter,$sectionpick,$grouppick,$classgroups,$statusfilter,$toggkey,$outputtarget,$anonhash,$anoncnt,$group) = @_;
my @original=();	my @original=();
my @index=();	my @index=();
my $skip_group_check = 0;	my $skip_group_check = 0;
Line 1463 sub build_posting_display {	Line 1463 sub build_posting_display {
$$discussionitems[$idx].='<td align="right">  '.	$$discussionitems[$idx].='<td align="right">  '.
$ctlink.'</td>';	$ctlink.'</td>';
}	}
	my $likesize="100";
if ($seeid \|\| $canvote) {	if ($seeid \|\| $canvote) {
# Figure out size based on likes	# Figure out size based on likes
my $thislikes=$likes{$symb.':'.$idx.':likes'};	my $thislikes=$likes{$symb.':'.$idx.':likes'};
my $likesize="100";
if ($thislikes>$twoplus) {	if ($thislikes>$twoplus) {
$likesize="200";	$likesize="200";
} elsif ($thislikes>$oneplus) {	} elsif ($thislikes>$oneplus) {

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

Removed from v.1.290.2.7.2.4
changed lines
	Added in v.1.290.2.7.2.5