[BACK]Return to lonfeedback.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonfeedback.pm between versions 1.208 and 1.210

version 1.208, 2006/07/17 23:02:33 version 1.210, 2006/07/18 17:31:50
Line 138  sub list_discussion { Line 138  sub list_discussion {
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['previous','sortposts','rolefilter','statusfilter','sectionpick','grouppick','totposters']);      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['previous','sortposts','rolefilter','statusfilter','sectionpick','grouppick','totposters']);
     my $sortposts = $env{'form.sortposts'};      my $sortposts = $env{'form.sortposts'};
     my $statusfilter = $env{'form.statusfilter'};      my $statusfilter = $env{'form.statusfilter'};
     my @sectionpick = ();      my @sectionpick = split(/,/,$env{'form.sectionpick'});
     if ($env{'form.sectionpick'} =~ /,/) {      my @grouppick   = split(/,/,$env{'form.grouppick'});
         @sectionpick = split/,/,$env{'form.sectionpick'};      my @rolefilter  = split(/,/,$env{'form.rolefilter'});
     } else {  
         $sectionpick[0] = $env{'form.sectionpick'};  
     }  
     my @grouppick = ();  
     if ($env{'form.grouppick'} =~ /,/) {  
         @grouppick = split/,/,$env{'form.grouppick'};  
     } else {  
         $grouppick[0] = $env{'form.grouppick'};  
     }  
   
     my @rolefilter = ();  
     if ($env{'form.rolefilter'} =~ /,/) {  
         @rolefilter = split/,/,$env{'form.rolefilter'};  
     } else {  
         $rolefilter[0] = $env{'form.rolefilter'};  
     }  
     my $totposters = $env{'form.totposters'};      my $totposters = $env{'form.totposters'};
     $previous = $env{'form.previous'};      $previous = $env{'form.previous'};
     if ($previous > 0) {      if ($previous > 0) {
Line 767  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 858  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 1182  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}) {
Removed from v.1.208  
changed lines
  Added in v.1.210

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