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

Diff for /loncom/interface/lonpickstudent.pm between versions 1.23 and 1.26

version 1.23, 2007/08/10 23:20:09 version 1.26, 2009/03/01 01:17:20
Line 124  ENDSCRIPT Line 124  ENDSCRIPT
  foreach my $role (sort(keys(%coursepersonnel))) {   foreach my $role (sort(keys(%coursepersonnel))) {
     foreach my $user (split(/\,/,$coursepersonnel{$role})) {      foreach my $user (split(/\,/,$coursepersonnel{$role})) {
  my ($puname,$pudom)=split(/\:/,$user);   my ($puname,$pudom)=split(/\:/,$user);
  $role = &Apache::lonnet::plaintext($role,  
    &Apache::loncommon::course_type());  
  $r->print(&Apache::loncommon::start_data_table_row().   $r->print(&Apache::loncommon::start_data_table_row().
   '<td>'.    '<td>'.
   '<input type="button" value="Select" onClick="gochoose('.    '<input type="button" value="'.&mt('Select').'" onClick="gochoose('.
   "'".$puname."','".$pudom."')".'" /></td><td>'.$role.'</td><td>'.    "'".$puname."','".$pudom."')".'" /></td><td>'.$role.'</td><td>'.
   &Apache::loncommon::aboutmewrapper(&Apache::loncommon::plainname($puname,$pudom),$puname,$pudom).'</td>'.    &Apache::loncommon::aboutmewrapper(&Apache::loncommon::plainname($puname,$pudom),$puname,$pudom).'</td>'.
   &Apache::loncommon::end_data_table_row());    &Apache::loncommon::end_data_table_row());
Line 208  ENDSCRIPT Line 206  ENDSCRIPT
      /^($LONCAPA::username_re):($LONCAPA::domain_re):(\w+)$/);       /^($LONCAPA::username_re):($LONCAPA::domain_re):(\w+)$/);
     my ($uname,$udom,$urole)=($1,$2,$3);      my ($uname,$udom,$urole)=($1,$2,$3);
     my $fullname=&Apache::loncommon::plainname($uname,$udom);      my $fullname=&Apache::loncommon::plainname($uname,$udom);
     next if (($uname!~/^$filter/i) && ($fullname=~/^$filter/i));      next if (($uname!~/^$filter/i) && ($fullname !~/^$filter/i));
           
     if (!exists($users{"$uname:$udom"})) {      if (!exists($users{"$uname:$udom"})) {
  $users{"$uname:$udom"} = {'fullname' => $fullname };   $users{"$uname:$udom"} = {'fullname' => $fullname };
Line 219  ENDSCRIPT Line 217  ENDSCRIPT
     my ($uname,$udom) = split(':',$user);      my ($uname,$udom) = split(':',$user);
     $r->print(&Apache::loncommon::start_data_table_row().      $r->print(&Apache::loncommon::start_data_table_row().
       '<td>'.        '<td>'.
       '<input type="button" value="Select" onClick="gochoose('.        '<input type="button" value="'.&mt('Select').'" onClick="gochoose('.
       "'".$uname."','".$udom."')".'" /></td>'.        "'".$uname."','".$udom."')".'" /></td>'.
       '<td><tt>'.$uname.'</tt></td>'.        '<td><tt>'.$uname.'</tt></td>'.
       '<td><tt>'.$udom.'</tt></td><td>'.        '<td><tt>'.$udom.'</tt></td><td>'.
Removed from v.1.23  
changed lines
  Added in v.1.26

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