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

version 1.1, 2002/12/26 15:15:34 version 1.2, 2002/12/30 14:10:58
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::DownloadClasslist
                                         ($ENV{'request.course.id'},                                          ($ENV{'request.course.id'},
Line 64  ENDDOCUMENT Line 74  ENDDOCUMENT
 # --------------------------------------- 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[i]==udom) { slct.selectedIndex=i; }
       }
       self.close();
   }
   </script>
   ENDSCRIPT
       
       $r->print('<h3>'.$ENV{'course.'.$ENV{'request.course.id'}.'.description'}.
                 '</h3>');
       if ($filter ne '.') {
          $r->print('Name starting with "'.$filter.'"<br />');
       }
       $r->print('<form><table>');  
     foreach (sort keys %$classlist) {      foreach (sort keys %$classlist) {
         if ($_=~/^(\w+)\:(\w+)\:studentInformation$/) {          if ($_=~/^(\w+)\:(\w+)\:studentInformation$/) {
     my ($uname,$udom)=($1,$2);      my ($uname,$udom)=($1,$2);
    $r->print($classlist->{$_}->{'lastname'}.', '.      if (($uname=~/^$filter/) || 
                      $classlist->{$_}->{'firstname'}.' '.                  ($classlist->{$_}->{'lastname'}=~/^$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(
                            $classlist->{$_}->{'lastname'}.', '.
                            $classlist->{$_}->{'firstname'}.' '.
                            $classlist->{$_}->{'middlename'}.' '.
                            $classlist->{$_}->{'generation'},
                            $uname,$udom).'</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.2

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