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

version 1.1, 2002/12/26 15:15:34 version 1.7, 2003/09/22 00:48:32
Line 33  use Apache::Constants qw(:common); Line 33  use Apache::Constants qw(:common);
 use Apache::loncommon;  use Apache::loncommon;
 use Apache::loncoursedata;  use Apache::loncoursedata;
 use Apache::lonnet;  use Apache::lonnet;
   use Apache::lonlocal;
   
 sub handler {  sub handler {
     my $r = shift;      my $r = shift;
     $r->content_type('text/html');      &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;      $r->send_http_header;
     return OK if $r->header_only;      return OK if $r->header_only;
   
Line 48  sub handler { Line 49  sub handler {
 </head>  </head>
 ENDDOCUMENT  ENDDOCUMENT
   
 # Is this even in a course?  
     unless ($ENV{'request.course.id'}) {  
  $r->print('<body>Not in a course</body>');  
       &Apache::loncommon::get_unprocessed_cgi
           ($ENV{'QUERY_STRING'},['filter','form','unameelement','udomelement',
          'roles']);
   # Allowed?
   
       unless (($ENV{'form.roles'}) ||
               (($ENV{'request.course.id'}) && 
                (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})))) {
    $r->print('<body>No context.</body>');
         return OK;          return OK;
     }      }
   
     &Apache::loncommon::get_unprocessed_cgi  # See if filter present
                                        ($ENV{'QUERY_STRING'},['filter']);  
       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('<form>');
     if ((&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) &&
         (!$ENV{'form.roles'})) {
   # -------------------------------------------------------- Get course personnel
       $r->print('<h3>'.$ENV{'course.'.$ENV{'request.course.id'}.'.description'}.
                 '</h3>');
       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/ >'.&mt('Name starting with').' "'.$filter.'"<br />');
       }
       $r->print('</p><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="'.&mt('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></p>');
     return OK;    } else {
       $r->print('<h3>'.&mt('Users with Roles Assigned by').' '.
         &Apache::loncommon::plainname($ENV{'user.name'},
       $ENV{'user.domain'}).'</h3>');
       if ($filter ne '.') {
          $r->print('<br/ >'.&mt('Name starting with').' "'.$filter.'"<br />');
       }
       $r->print('<p><table>');
       my %users=&Apache::lonnet::get_my_roles();
       foreach (sort keys %users) {
           if ($_=~/^(\w+)\:(\w+)\:(\w+)$/) {
       my ($uname,$udom,$urole)=($1,$2,$3);
       my $fullname=&Apache::loncommon::plainname($uname,$udom);
       if (($uname=~/^$filter/) || 
                   ($fullname=~/^$filter/i)) {
          $r->print('<tr><td>'.
                         '<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><td>'.
    &Apache::lonnet::plaintext($urole).
                                          '</td></tr>');
      }
           }
       }
       $r->print('</table></p>');
     }
     $r->print('</form></body></html>');
     return OK;
 }   } 
   
 1;  1;
Removed from v.1.1  
changed lines
  Added in v.1.7

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