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

Diff for /loncom/interface/lonpickstudent.pm between versions 1.1 and 1.5

version 1.1, 2002/12/26 15:15:34 version 1.5, 2003/05/10 23:01:56
Line 53  ENDDOCUMENT Line 53  ENDDOCUMENT
  $r->print('<body>Not in a course</body>');   $r->print('<body>Not in a course</body>');
         return OK;          return OK;
     }      }
     
       unless (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) {
    $r->print('<body>No course listing</body>');
           return OK;
       }
   
   
   
     &Apache::loncommon::get_unprocessed_cgi      &Apache::loncommon::get_unprocessed_cgi
                                        ($ENV{'QUERY_STRING'},['filter']);          ($ENV{'QUERY_STRING'},['filter','form','unameelement','udomelement']);
       my $filter=$ENV{'form.filter'};
       $filter=~s/\W//g;
       unless ($filter) { $filter='.'; }
   
     my $classlist=&Apache::loncoursedata::DownloadClasslist      my $classlist=&Apache::loncoursedata::get_classlist();
                                         ($ENV{'request.course.id'},  
                                          'Not downloaded',$r->connection);  
                 
 # --------------------------------------- There is such a user, get environment  # --------------------------------------- There is such a user, get environment
   
     $r->print(&Apache::loncommon::bodytag("Selecting a User"));      $r->print(&Apache::loncommon::bodytag("Selecting a User"));
         $r->print(<<ENDSCRIPT);
     my $allowed=&Apache::lonnet::allowed('srm',$ENV{'request.course.id'});  <script>
     function gochoose(uname,udom) {
       opener.document.$ENV{'form.form'}.$ENV{'form.unameelement'}.value=uname;
       var slct=opener.document.$ENV{'form.form'}.$ENV{'form.udomelement'};
       var i;
       for (i=0;i<slct.length;i++) {
           if (slct.options[i].value==udom) { slct.selectedIndex=i; }
       }
       self.close();
   }
   </script>
   ENDSCRIPT
       
       $r->print('<h3>'.$ENV{'course.'.$ENV{'request.course.id'}.'.description'}.
                 '</h3><form>');
   # -------------------------------------------------------- Get course personnel
       my %coursepersonnel=
          &Apache::lonnet::get_course_adv_roles();
       $r->print('<table border="2">');
       foreach my $role (sort keys %coursepersonnel) {
          foreach (split(/\,/,$coursepersonnel{$role})) {
      my ($puname,$pudom)=split(/\:/,$_);
      $r->print('<tr><td>'.
                '<input type="button" value="Select" onClick="gochoose('.
                "'".$puname."','".$pudom."')".'" /></td><td>'.$role.'</td><td>'.
        &Apache::loncommon::aboutmewrapper(
                             &Apache::loncommon::plainname($puname,
                             $pudom),$puname,$pudom).'</td></tr>');
    }
       }
       $r->print('</table><p>&nbsp;');
       if ($filter ne '.') {
          $r->print('<br/ >Name starting with "'.$filter.'"<br />');
       }
       $r->print('</p><table>');
     # ------------------------------------------------------------------ Students
     foreach (sort keys %$classlist) {      foreach (sort keys %$classlist) {
         if ($_=~/^(\w+)\:(\w+)\:studentInformation$/) {          # the following undefs are for 'domain', and 'username' respectively.
    my (undef,undef,$end,$start,$id,$section,$fullname,$status)=
               @{$classlist->{$_}};
           if ($_=~/^(\w+)\:(\w+)$/) {
     my ($uname,$udom)=($1,$2);      my ($uname,$udom)=($1,$2);
    $r->print($classlist->{$_}->{'lastname'}.', '.      if (($uname=~/^$filter/) || 
                      $classlist->{$_}->{'firstname'}.' '.                  ($fullname=~/^$filter/i)) {
                      $classlist->{$_}->{'middlename'}.' '.         $r->print('<tr><td>'.
                      $classlist->{$_}->{'generation'}.'<br>');                        '<input type="button" value="Select" onClick="gochoose('.
                         "'".$uname."','".$udom."')".'" /></td>'.
                            '<td><tt>'.$uname.'</tt></td><td><tt>'.$udom.
                            '</tt></td><td>'.
                            &Apache::loncommon::aboutmewrapper(
                            $fullname,
                            $uname,$udom).'</td><td>'.$id.'</td><td>'.$section.
                                          '</td></tr>');
      }
         }          }
     }      }
   
     $r->print('</body></html>');      $r->print('</table></form></body></html>');
     return OK;      return OK;
 }   } 
   
Removed from v.1.1  
changed lines
  Added in v.1.5

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