[LON-CAPA-cvs] cvs: loncom /interface lonpickstudent.pm

[raeburn]

raeburn		Tue May 30 16:16:59 2006 EDT

  Modified files:              
    /loncom/interface	lonpickstudent.pm 
  Log:
  Adding thin veneer to support ANGEL-style groups.
  
  
Index: loncom/interface/lonpickstudent.pm
diff -u loncom/interface/lonpickstudent.pm:1.17 loncom/interface/lonpickstudent.pm:1.18
--- loncom/interface/lonpickstudent.pm:1.17	Wed May 17 21:08:50 2006
+++ loncom/interface/lonpickstudent.pm	Tue May 30 16:16:59 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Pick a student from the classlist
 #
-# $Id: lonpickstudent.pm,v 1.17 2006/05/18 01:08:50 raeburn Exp $
+# $Id: lonpickstudent.pm,v 1.18 2006/05/30 20:16:59 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -106,6 +106,9 @@
     foreach my $role (sort keys %coursepersonnel) {
        foreach (split(/\,/,$coursepersonnel{$role})) {
 	   my ($puname,$pudom)=split(/\:/,$_);
+           if ($env{'course.'.$env{'request.course.id'}.'.type'} eq 'Group') {
+               $role = &Apache::loncommon::convert_role($role,'Group');
+           }
 	   $r->print('<tr><td>'.
              '<input type="button" value="Select" onClick="gochoose('.
              "'".$puname."','".$pudom."')".'" /></td><td>'.$role.'</td><td>'.