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

Diff for /loncom/interface/Attic/londropadd.pm between versions 1.178 and 1.179

version 1.178, 2009/02/04 13:21:48 version 1.179, 2012/04/24 21:05:15
Line 74  ENDHEAD Line 74  ENDHEAD
   
 =pod  =pod
   
 =item modifystudent()  
   
     Drop student from all sections of a course, except optional $csec  
   
 =cut  
   
 sub modifystudent {  
     my ($udom,$unam,$courseid,$csec,$desiredhost)=@_;  
     # if $csec is undefined, drop the student from all the courses matching  
     # this one.  If $csec is defined, drop them from all other sections of   
     # this course and add them to section $csec  
     my $cdom = $env{'course.'.$courseid.'.domain'};  
     my $cnum = $env{'course.'.$courseid.'.num'};  
     my %roles = &Apache::lonnet::dump('roles',$udom,$unam);  
     my ($tmp) = keys(%roles);  
     # Bail out if we were unable to get the students roles  
     return "$1" if ($tmp =~ /^(con_lost|error|no_such_host)/i);  
     # Go through the roles looking for enrollment in this course  
     my $result = '';  
     foreach my $course (keys(%roles)) {  
         if ($course=~m{^/\Q$cdom\E/\Q$cnum\E(?:\/)*(?:\s+)*(\w+)*\_st$}) {  
             # We are in this course  
             my $section=$1;  
             $section='' if ($course eq "/$cdom/$cnum".'_st');  
             if (defined($csec) && $section eq $csec) {  
                 $result .= 'ok:';  
             } elsif ( ((!$section) && (!$csec)) || ($section ne $csec) ) {  
                 my (undef,$end,$start)=split(/\_/,$roles{$course});  
                 my $now=time;  
                 # if this is an active role  
                 if (!($start && ($now<$start)) || !($end && ($now>$end))) {  
                     my $reply=&Apache::lonnet::modifystudent  
                         # dom  name  id mode pass     f     m     l     g  
                         ($udom,$unam,'',  '',  '',undef,undef,undef,undef,  
                          $section,time,undef,undef,$desiredhost);  
                     $result .= $reply.':';  
                 }  
             }  
         }  
     }  
     if ($result eq '') {  
         $result = 'Unable to find section for this student';  
     } else {  
         $result =~ s/(ok:)+/ok/g;  
     }  
     return $result;  
 }  
   
 =pod  
   
 =item domain_form()  =item domain_form()
           
     build a domain and server selection form      build a domain and server selection form
Removed from v.1.178  
changed lines
  Added in v.1.179

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