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

Diff for /loncom/interface/lonfeedback.pm between versions 1.209 and 1.211

version 1.209, 2006/07/18 17:20:32 version 1.211, 2006/07/18 17:42:15
Line 271  sub list_discussion { Line 271  sub list_discussion {
     my $imsresources;      my $imsresources;
     my $copyresult;      my $copyresult;
   
     my $grp_arg;  
     if ($group ne '') {  
         $grp_arg = &grp_args($group);  
     }   
   
     my $function = &Apache::loncommon::get_users_function();      my $function = &Apache::loncommon::get_users_function();
     my $color = &Apache::loncommon::designparm($function.'.tabbg',      my $color = &Apache::loncommon::designparm($function.'.tabbg',
                                                     $env{'user.domain'});                                                      $env{'user.domain'});
Line 340  sub list_discussion { Line 335  sub list_discussion {
     if ($newpostsflag) {      if ($newpostsflag) {
         $chglink .= '&previous='.$prevread;          $chglink .= '&previous='.$prevread;
     }      }
     if ($group ne '') {      $chglink.=&group_args($group);
         $chglink.='&'.$grp_arg;  
     }  
   
     if ($visible) {      if ($visible) {
 # Print the discusssion  # Print the discusssion
Line 421  imscp_v1p1.xsd http://www.imsglobal.org/ Line 414  imscp_v1p1.xsd http://www.imsglobal.org/
  if ($newpostsflag) {   if ($newpostsflag) {
     $discussion .= '&previous='.$prevread;      $discussion .= '&previous='.$prevread;
  }   }
                 if ($group ne '') {   $discussion .= &group_args($group);
                     $discussion .= '&'.$grp_arg;  
                 }  
  $discussion .='">'.&mt('Threaded View').'</a>&nbsp;&nbsp;'.   $discussion .='">'.&mt('Threaded View').'</a>&nbsp;&nbsp;'.
     '<a href="/adm/feedback?cmd=threadedoff&amp;symb='.$escsymb;      '<a href="/adm/feedback?cmd=threadedoff&amp;symb='.$escsymb;
  if ($newpostsflag) {   if ($newpostsflag) {
     $discussion .= '&previous='.$prevread;      $discussion .= '&previous='.$prevread;
  }   }
                 if ($group ne '') {   $discussion .= &group_args($group);
                     $discussion .= '&amp;'.$grp_arg;  
                 }  
  $discussion .='">'.&mt('Chronological View').'</a>&nbsp;&nbsp;   $discussion .='">'.&mt('Chronological View').'</a>&nbsp;&nbsp;
                               <a href= "/adm/feedback?cmd=sortfilter&amp;symb='.$escsymb;                                <a href= "/adm/feedback?cmd=sortfilter&amp;symb='.$escsymb;
                 if ($newpostsflag) {                  if ($newpostsflag) {
                     $discussion .= '&previous='.$prevread;                      $discussion .= '&previous='.$prevread;
                 }                  }
                 if ($group ne '') {   $discussion .= &group_args($group);
                     $discussion .= '&amp;'.$grp_arg;  
                 }  
                 $discussion .='">'.&mt('Sorting/Filtering options').'</a>&nbsp;&nbsp';                  $discussion .='">'.&mt('Sorting/Filtering options').'</a>&nbsp;&nbsp';
             } else {              } else {
                 $discussion .= '<td align="left">';                  $discussion .= '<td align="left">';
Line 448  imscp_v1p1.xsd http://www.imsglobal.org/ Line 435  imscp_v1p1.xsd http://www.imsglobal.org/
             if ($newpostsflag) {              if ($newpostsflag) {
                 $discussion .= '&previous='.$prevread;                  $discussion .= '&previous='.$prevread;
             }              }
             if ($group ne '') {      $discussion .= &group_args($group);
                 $discussion .= '&amp;'.$grp_arg;  
             }  
             $discussion .= '">'.&mt('Export').'?</a>&nbsp;&nbsp;</td>';              $discussion .= '">'.&mt('Export').'?</a>&nbsp;&nbsp;</td>';
     if ($newpostsflag) {      if ($newpostsflag) {
  if (!$markondisp) {   if (!$markondisp) {
     $discussion .='<td align="right"><a href="/adm/preferences?action=changediscussions';      $discussion .='<td align="right"><a href="/adm/preferences?action=changediscussions';
                     if ($group ne '') {      $discussion .= &group_args($group);
                         $discussion .= '&amp;'.$grp_arg;  
                     }  
     $discussion .= '">'.      $discussion .= '">'.
                         &mt('Preferences on what is marked as NEW').                          &mt('Preferences on what is marked as NEW').
  '</a><br /><a href="/adm/feedback?markread=1&amp;symb='.$escsymb;   '</a><br /><a href="/adm/feedback?markread=1&amp;symb='.$escsymb;
                     if ($group ne '') {      $discussion .= &group_args($group);
                         $discussion .= '&amp;'.$grp_arg;  
                     }  
                     $discussion .= '">'.&mt('Mark NEW posts no longer new').'</a>';                      $discussion .= '">'.&mt('Mark NEW posts no longer new').'</a>';
  } else {   } else {
     $discussion .= '<td>&nbsp;</td>';      $discussion .= '<td>&nbsp;</td>';
Line 481  imscp_v1p1.xsd http://www.imsglobal.org/ Line 462  imscp_v1p1.xsd http://www.imsglobal.org/
                 if ($newpostsflag) {                  if ($newpostsflag) {
                     $discussion .= '&previous='.$prevread;                      $discussion .= '&previous='.$prevread;
                 }                  }
                 if ($group ne '') {   $discussion .= &group_args($group);
                     $discussion .= '&amp;'.$grp_arg;  
                 }  
                 $discussion .= '">'.&mt('Show all posts').'</a> '.&mt('to display').' '.                  $discussion .= '">'.&mt('Show all posts').'</a> '.&mt('to display').' '.
                          $numhidden.' ';                           $numhidden.' ';
                 if ($showunmark) {                  if ($showunmark) {
Line 752  END Line 731  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 823  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 998  sub build_posting_display { Line 978  sub build_posting_display {
                                     if ($$newpostsflag) {                                      if ($$newpostsflag) {
                                         $sender .= '&previous='.$prevread;                                          $sender .= '&previous='.$prevread;
                                     }                                      }
                                     if ($group ne '') {      $sender .= &group_args($group);
                                         $sender.='&amp;'.&grp_args($group);  
                                     }  
                                     $sender .= '" '.$target.'>'.&mt('Edit').'</a>';                                      $sender .= '" '.$target.'>'.&mt('Edit').'</a>';
                                                                           
                                     unless ($seeid) {                                      unless ($seeid) {
Line 1025  sub build_posting_display { Line 1003  sub build_posting_display {
                                     if ($$newpostsflag) {                                      if ($$newpostsflag) {
                                         $sender .= '&previous='.$prevread;                                          $sender .= '&previous='.$prevread;
                                     }                                      }
                                     if ($group ne '') {      $sender .= &group_args($group);
                                         $sender.='&amp;'.&grp_args($group);  
                                     }  
                                     $sender .= '">'.&mt('Hide').'</a>';                                      $sender .= '">'.&mt('Hide').'</a>';
         }                               }                     
         $sender.=' <a href="/adm/feedback?deldisc='.          $sender.=' <a href="/adm/feedback?deldisc='.
Line 1035  sub build_posting_display { Line 1011  sub build_posting_display {
                                 if ($$newpostsflag) {                                  if ($$newpostsflag) {
                                     $sender .= '&previous='.$prevread;                                      $sender .= '&previous='.$prevread;
                                 }                                  }
                                 if ($group ne '') {   $sender .= &group_args($group);
                                     $sender .= '&amp;'.&grp_args($group);  
                                 }  
                                 $sender .= '">'.&mt('Delete').'</a>';                                  $sender .= '">'.&mt('Delete').'</a>';
                             }                              }
         } else {          } else {
Line 1073  sub build_posting_display { Line 1047  sub build_posting_display {
                                 if ($$newpostsflag) {                                  if ($$newpostsflag) {
                                     $sender .= '&previous='.$prevread;                                      $sender .= '&previous='.$prevread;
                                 }                                  }
                                 $sender .= '&amp;'.&grp_args($group);                                  $sender .= &group_args($group);
                                 $sender .= '" '.$target.'>'.&mt('Reply').'</a>';                                  $sender .= '" '.$target.'>'.&mt('Reply').'</a>';
                             } elsif (&Apache::lonnet::allowed('pch',                               } elsif (&Apache::lonnet::allowed('pch', 
  $env{'request.course.id'}.   $env{'request.course.id'}.
Line 1167  sub build_posting_display { Line 1141  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}) {
Line 1215  sub build_posting_display { Line 1189  sub build_posting_display {
                                 $$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] .= '&nbsp;&nbsp;<a href="/adm/feedback?allversions='.$escsymb.':::'.$idx;                                      $$discussionitems[$idx] .= '&nbsp;&nbsp;<a href="/adm/feedback?allversions='.$escsymb.':::'.$idx;
                                     if ($group ne '') {      $$discussionitems[$idx] .= &group_args($group);
                                         $$discussionitems[$idx] .= '&amp;'.&grp_args($group);  
                                     }  
                                     $$discussionitems[$idx] .= '">'.&mt('Display all versions').'</a>';                                      $$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: ');
Line 3793  sub check_group_priv { Line 3765  sub check_group_priv {
     return '';      return '';
 }  }
   
 sub grp_args {   sub group_args { 
     my ($group) = @_;      my ($group) = @_;
     my $extra_args = 'group='.$group;      if ($group eq '') { return ''; }
       my $extra_args = '&amp;group='.$group;
     if (exists($env{'form.ref'})) {      if (exists($env{'form.ref'})) {
         $extra_args .= '&ref='.$env{'form.ref'};          $extra_args .= '&amp;ref='.$env{'form.ref'};
     }      }
     return $extra_args;      return $extra_args;
 }  }
Removed from v.1.209  
changed lines
  Added in v.1.211

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