[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.215

version 1.208, 2006/07/17 23:02:33 version 1.215, 2006/08/14 21:44:14
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 201  sub list_discussion { Line 186  sub list_discussion {
             push @{$roleinfo{$student}}, 'st:'.$section.':'.$status;              push @{$roleinfo{$student}}, 'st:'.$section.':'.$status;
         }          }
  ($classgroups,$studentgroups) =    ($classgroups,$studentgroups) = 
          &Apache::loncoursedata::get_group_memberships($classlist,$keylist,      &Apache::loncoursedata::get_group_memberships($classlist,$keylist,
                                                        $cdom,$cnum);    $cdom,$cnum);
     }      }
   
 # Get discussion display default settings for user  # Get discussion display default settings for user
Line 286  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 355  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 436  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 463  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 496  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 749  END Line 713  END
     if ($discussiononly) {      if ($discussiononly) {
         my $now = time;          my $now = time;
         my $attachnum = 0;          my $attachnum = 0;
         my $currnewattach;          my $currnewattach = [];
         my $currdelold;          my $currdelold = [];
         my $comment = '';          my $comment = '';
         my $subject = '';          my $subject = '';
         if ($env{'form.origpage'}) {          if ($env{'form.origpage'}) {
Line 767  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 858  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 1013  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 1040  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 1050  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 1088  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 1182  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 1230  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 1726  END Line 1683  END
                 }                  }
             }              }
             if ($attachmsg) {              if ($attachmsg) {
                 $r->print("<b>Retained attachments</b>:$attachmsg<br />\n");                  $r->print("<br /><b>Retained attachments</b>:$attachmsg<br />\n");
             }              }
             if ($newattachmsg) {              if ($newattachmsg) {
                 $r->print("$newattachmsg<br />");                  $r->print("$newattachmsg<br />");
Line 1973  sub print_sortfilter_options { Line 1930  sub print_sortfilter_options {
         unshift(@sections,'all'); # Put 'all' at the front of the list          unshift(@sections,'all'); # Put 'all' at the front of the list
   
     }      }
     foreach (@sections) {      foreach my $sec (@sections) {
         $section_sel .= "  <option value=\"$_\" />$_\n";          $section_sel .= "  <option value=\"$sec\">$sec</option>\n";
     }      }
   
     if (&check_group_priv() eq 'ok') {      if (&check_group_priv() eq 'ok') {
Line 1999  sub print_sortfilter_options { Line 1956  sub print_sortfilter_options {
             $numgroupvis = 1;              $numgroupvis = 1;
         }          }
     }      }
     foreach (@groups) {      foreach my $group (@groups) {
         $group_sel .= "  <option value=\"$_\" />$_\n";          $group_sel .= "  <option value=\"$group\">$group</option>\n";
     }      }
   
     my $function = &Apache::loncommon::get_users_function();      my $function = &Apache::loncommon::get_users_function();
Line 2090  $start_page Line 2047  $start_page
  <tr>   <tr>
   <td align="center" valign="top">    <td align="center" valign="top">
    <select name="sortposts">     <select name="sortposts">
     <option value="ascdate" selected="selected" />$sort_types{'ascdate'}      <option value="ascdate" selected="selected">$sort_types{'ascdate'}</option>
     <option value="descdate" />$sort_types{'descdate'}      <option value="descdate">$sort_types{'descdate'}</option>
     <option value="thread" />$sort_types{'thread'}      <option value="thread">$sort_types{'thread'}</option>
     <option value="subject" />$sort_types{'subject'}      <option value="subject">$sort_types{'subject'}</option>
     <option value="username" />$sort_types{'username'}      <option value="username">$sort_types{'username'}</option>
     <option value="lastfirst" />$sort_types{'lastfirst'}      <option value="lastfirst">$sort_types{'lastfirst'}</option>
    </select>     </select>
   </td>    </td>
   <td>&nbsp;</td>    <td>&nbsp;</td>
   <td align="center" valign="top">    <td align="center" valign="top">
    <select name="statusfilter">     <select name="statusfilter">
     <option value="all" selected="selected" />$status_types{'all'}      <option value="all" selected="selected">$status_types{'all'}</option>
     <option value="Active" />$status_types{'Active'}      <option value="Active">$status_types{'Active'}</option>
     <option value="Expired" />$status_types{'Expired'}      <option value="Expired">$status_types{'Expired'}</option>
       <option value="Future">$status_types{'Future'}</option>
    </select>     </select>
   </td>    </td>
   <td>&nbsp;</td>    <td>&nbsp;</td>
   <td align="center" valign="top">    <td align="center" valign="top">
    <select name="rolefilter" multiple="true" size="5">     <select name="rolefilter" multiple="true" size="5">
     <option value="all" />$role_types{'all'}      <option value="all">$role_types{'all'}</option>
     <option value="st" />$role_types{'st'}      <option value="st">$role_types{'st'}</option>
     <option value="cc" />$role_types{'cc'}      <option value="cc">$role_types{'cc'}</option>
     <option value="in" />$role_types{'in'}      <option value="in">$role_types{'in'}</option>
     <option value="ta" />$role_types{'ta'}      <option value="ta">$role_types{'ta'}</option>
     <option value="ep" />$role_types{'ep'}      <option value="ep">$role_types{'ep'}</option>
     <option value="cr" />$role_types{'cr'}      <option value="cr">$role_types{'cr'}</option>
    </select>     </select>
   </td>    </td>
   <td>&nbsp;</td>    <td>&nbsp;</td>
Line 2963  END Line 2921  END
             }              }
         }          }
     }      }
     if (@{$currnewattach} > 0) {      if ((ref($currnewattach) eq 'ARRAY') && (@{$currnewattach} > 0)) {
         $r->print("The following attachments have been uploaded for inclusion with this posting.<br />Check the checkboxes for any you wish to remove<br />\n");          $r->print("The following attachments have been uploaded for inclusion with this posting.<br />Check the checkboxes for any you wish to remove<br />\n");
         foreach (@{$currnewattach}) {          foreach (@{$currnewattach}) {
             $_ =~ m#/([^/]+)$#;              $_ =~ m#/([^/]+)$#;
Line 3211  sub sort_filter_names { Line 3169  sub sort_filter_names {
                    );                     );
     %{$status_types} = (      %{$status_types} = (
                      all     => 'Roles of any status',                       all     => 'Roles of any status',
                      Active => 'Only active roles',                       Active  => 'Only active roles',
                      Expired => 'Only inactive roles'                       Expired => 'Only past roles',
                        Future  => 'Only future roles',
                    );                     );
 }  }
       
Line 3808  sub check_group_priv { Line 3767  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.208  
changed lines
  Added in v.1.215

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