version 1.209, 2006/07/18 17:20:32
|
version 1.210, 2006/07/18 17:31:50
|
Line 752 END
|
Line 752 END
|
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') { |
$discussion .= |
$discussion .= |
&postingform_display($mode,$ressymb,$now,$subject,$comment, |
&postingform_display($mode,$ressymb,$now,$subject, |
$outputtarget,$attachnum,$currnewattach, |
$comment,$outputtarget,$attachnum, |
$currdelold,$group); |
$currnewattach,$currdelold, |
|
$group); |
} |
} |
} else { |
} else { |
$discussion.= |
$discussion.= |
&postingform_display($mode,$ressymb,$now,$subject,$comment, |
&postingform_display($mode,$ressymb,$now,$subject, |
$outputtarget,$attachnum,$currnewattach, |
$comment,$outputtarget,$attachnum, |
$currdelold); |
$currnewattach,$currdelold); |
} |
} |
} |
} |
} else { |
} else { |
Line 843 sub build_posting_display {
|
Line 844 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,$target,$readkey,$showunmark,$showonlyunread,$totposters,$rolefilter,$sectionpick,$grouppick,$classgroups,$statusfilter,$toggkey,$outputtarget,$anonhash,$anoncnt,$group) = @_; |
my @original=(); |
my @original=(); |
my @index=(); |
my @index=(); |
my $skipgrpcheck = 0; |
my $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); |
my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'}, |
my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'}, |
$env{'course.'.$env{'request.course.id'}.'.domain'}, |
$env{'course.'.$env{'request.course.id'}.'.domain'}, |
$env{'course.'.$env{'request.course.id'}.'.num'}); |
$env{'course.'.$env{'request.course.id'}.'.num'}); |
|
|
if ((@{$grouppick} == 0) || (grep/^all$/,@{$grouppick})) { |
if ((@{$grouppick} == 0) || (grep(/^all$/,@{$grouppick}))) { |
$skipgrpcheck = 1; |
$skip_group_check = 1; |
} |
} |
if ($contrib{'version'}) { |
if ($contrib{'version'}) { |
my $oldest = $contrib{'1:timestamp'}; |
my $oldest = $contrib{'1:timestamp'}; |
Line 1167 sub build_posting_display {
|
Line 1168 sub build_posting_display {
|
} |
} |
} |
} |
} |
} |
if ($$shown{$idx} && !$skipgrpcheck) { |
if ($$shown{$idx} && !$skip_group_check) { |
my $showflag = 0; |
my $showflag = 0; |
if (ref($$classgroups{$poster}{active}) eq 'HASH') { |
if (ref($$classgroups{$poster}{active}) eq 'HASH') { |
foreach my $grp (@{$grouppick}) { |
foreach my $grp (@{$grouppick}) { |