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

Diff for /loncom/interface/lonpickstudent.pm between versions 1.21 and 1.22

version 1.21, 2007/07/21 00:48:55 version 1.22, 2007/08/02 01:39:26
Line 70  sub handler { Line 70  sub handler {
 # See if filter present  # See if filter present
     my $filter=$env{'form.filter'};      my $filter=$env{'form.filter'};
     my $filtermsg;      my $filtermsg;
     if ($filter eq '') {      my $encoded_filter = &HTML::Entities::encode($filter,'<>&"');
  $filter = '.'      $filter = quotemeta($filter);
     } else {      my $change = &mt('Change');
  my $encoded_filter = &HTML::Entities::encode($filter,'<>&"');      my $filterbutton =<<FILTER;
  $filter = quotemeta($filter);  
  my $change = &mt('Change');  
  my $filterbutton =<<FILTER;  
   <input type="text" name="filter" value="$encoded_filter" />    <input type="text" name="filter" value="$encoded_filter" />
   <input type="submit" name="Change" value="$change" />    <input type="submit" name="Change" value="$change" />
 FILTER  FILTER
  foreach my $name ('form','unameelement','udomelement','roles') {      foreach my $name ('form','unameelement','udomelement','roles') {
     my $value = &HTML::Entities::encode($env{"form.$name"},'<>&"');   my $value = &HTML::Entities::encode($env{"form.$name"},'<>&"');
     $filterbutton .= <<HIDDEN;   $filterbutton .= <<HIDDEN;
    <input type="hidden" name="$name" value="$value" />     <input type="hidden" name="$name" value="$value" />
 HIDDEN  HIDDEN
  }      }
         $filtermsg = '<br />'.      $filtermsg = '<br />'.
     &mt('Showing users with a name starting with [_1]',   &mt('Showing users with a name starting with [_1]',
  $filterbutton).'<br />';      $filterbutton).'<br />';
       if ($filter eq '') {
    $filter = '.'
     }      }
   
     my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};      my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
Line 139  ENDSCRIPT Line 138  ENDSCRIPT
   
  $r->print($filtermsg);   $r->print($filtermsg);
   
  $r->print('</p><p>'.   $r->print('</p>');
   &Apache::loncommon::start_data_table().  
   &Apache::loncommon::start_data_table_header_row().  
   &Apache::loncommon::end_data_table_header_row().  
   '<th>&nbsp;</th>'.  
   '<th>'.&mt('username').'</th>'.  
   '<th>'.&mt('domain').'</th>'.  
   '<th>'.&mt('Name').'</th>'.  
   '<th>'.&mt('ID').'</th>'.  
   '<th>'.&mt('section').'</th>'.  
   '<th>'.&mt('active group(s)').'</th>'.  
   &Apache::loncommon::end_data_table_header_row());  
 # ------------------------------------------------------------------ Students  # ------------------------------------------------------------------ Students
    my $result;
  foreach my $user (sort(keys(%$classlist))) {   foreach my $user (sort(keys(%$classlist))) {
     # the following undefs are for 'domain', and 'username' respectively.      # the following undefs are for 'domain', and 'username' respectively.
     my (undef,undef,$end,$start,$id,$section,$fullname,$status)=      my (undef,undef,$end,$start,$id,$section,$fullname,$status)=
Line 173  ENDSCRIPT Line 163  ENDSCRIPT
  }   }
     }      }
     $grouplist =~ s/,$//;      $grouplist =~ s/,$//;
     $r->print(&Apache::loncommon::start_data_table_row().      $result .=&Apache::loncommon::start_data_table_row().
       '<td>'.        '<td>'.
       '<input type="button" value="'.&mt('Select').'" onClick="gochoose('.        '<input type="button" value="'.&mt('Select').'" onClick="gochoose('.
       "'".$uname."','".$udom."')".'" /></td>'.        "'".$uname."','".$udom."')".'" /></td>'.
Line 183  ENDSCRIPT Line 173  ENDSCRIPT
  $uname,$udom).   $uname,$udom).
       '</td><td>'.$id.'</td><td>'.$section.        '</td><td>'.$id.'</td><td>'.$section.
       '</td><td>'.$grouplist.'</td>'.        '</td><td>'.$grouplist.'</td>'.
       &Apache::loncommon::end_data_table_row());        &Apache::loncommon::end_data_table_row();
  }   }
     }      }
  }   }
    if (!$result) {
  $r->print(&Apache::loncommon::end_data_table().'</p>');      $r->print('<p>'.&mt('No students found.').'</p>');
    } else {
       $r->print(&Apache::loncommon::start_data_table().
         &Apache::loncommon::start_data_table_header_row().
         &Apache::loncommon::end_data_table_header_row().
         '<th>&nbsp;</th>'.
         '<th>'.&mt('username').'</th>'.
         '<th>'.&mt('domain').'</th>'.
         '<th>'.&mt('Name').'</th>'.
         '<th>'.&mt('ID').'</th>'.
         '<th>'.&mt('section').'</th>'.
         '<th>'.&mt('active group(s)').'</th>'.
         &Apache::loncommon::end_data_table_header_row().
         $result.
         &Apache::loncommon::end_data_table());
    }
     } else {      } else {
  $r->print('<h3>'.&mt('Users with Roles Assigned by').' '.   $r->print('<h3>'.&mt('Users with Roles Assigned by').' '.
   &Apache::loncommon::plainname($env{'user.name'},    &Apache::loncommon::plainname($env{'user.name'},
Removed from v.1.21  
changed lines
  Added in v.1.22

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