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

Diff for /loncom/interface/courseprefs.pm between versions 1.6 and 1.7

version 1.6, 2009/08/19 19:35:00 version 1.7, 2009/09/04 21:42:38
Line 655  sub process_changes { Line 655  sub process_changes {
                             }                              }
                             foreach my $key (keys(%env)) {                              foreach my $key (keys(%env)) {
                                 if ($key =~ /^form\.\Q$entry\E_($match_username:$match_domain)$/) {                                  if ($key =~ /^form\.\Q$entry\E_($match_username:$match_domain)$/) {
                                     if ($env{'form.'.$key}) {                                      if ($env{$key}) {
                                        my $nothide = $1;                                         my $nothide = $1;
                                        if (!grep(/^\Q$nothide\E$/,@new_nothide)) {                                         if (!grep(/^\Q$nothide\E$/,@new_nothide)) {
                                            push(@new_nothide,$nothide);                                              push(@new_nothide,$nothide); 
Line 2411  sub nothidepriv_row { Line 2411  sub nothidepriv_row {
             }              }
         }          }
         if (exists($privileged{$udom}{$uname})) {          if (exists($privileged{$udom}{$uname})) {
             push(@privusers,$user);              unless (grep(/^\Q$user\E$/,@privusers)) {
                   push(@privusers,$user);
               }
         }          }
     }      }
     if (@privusers) {      if (@privusers) {
Line 2431  sub nothidepriv_row { Line 2433  sub nothidepriv_row {
                           '</td><td align="left">'.                            '</td><td align="left">'.
                           '<span class="LC_nobreak"><label>'.                            '<span class="LC_nobreak"><label>'.
                           '<input type="radio" name="'.$item.'_'.$user.'"'.                            '<input type="radio" name="'.$item.'_'.$user.'"'.
                           $hideon.' value="yes" />'.&mt('Hidden').'</label>&nbsp;'.                            $hideon.' value="" />'.&mt('Hidden').'</label>&nbsp;'.
                           '<label><input type="radio" name="'.$item.'_'.$user.'"'.                          $hideoff.' value="" />'.&mt('Shown').'</label></span></td>'.                            '<label><input type="radio" name="'.$item.'_'.$user.'"'.                          $hideoff.' value="yes" />'.&mt('Shown').'</label></span></td>'.
                           '</tr>';                            '</tr>';
         }          }
         $datatable .= '</table>';          $datatable .= '</table>';
Removed from v.1.6  
changed lines
  Added in v.1.7

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