[BACK]Return to Autoenroll.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / enrollment

Diff for /loncom/enrollment/Autoenroll.pl between versions 1.17 and 1.22

version 1.17, 2006/04/08 07:12:16 version 1.22, 2006/07/21 17:47:36
Line 33 Line 33
     use Apache::lonnet;      use Apache::lonnet;
     use Apache::loncoursedata;      use Apache::loncoursedata;
     use Apache::lonmsg;      use Apache::lonmsg;
       use Apache::longroup;
       use Apache::loncommon;
     use HTML::Entities;      use HTML::Entities;
   
 # Determine the library server's domain and hostID  # Determine the library server's domain and hostID
Line 50 Line 52
         if (! &localenroll::run($dom)) { next; }          if (! &localenroll::run($dom)) { next; }
         $env{'user.domain'} = $dom;          $env{'user.domain'} = $dom;
     # Determine the courses      # Determine the courses
         my %courses = &Apache::lonnet::courseiddump($dom,'.',1,'.','.','.',1,\@hostids);           my %courses = &Apache::lonnet::courseiddump($dom,'.',1,'.','.','.',1,\@hostids,'Course'); 
         my %affiliates = ();          my %affiliates = ();
         my %enrollvar = ();          my %enrollvar = ();
         my %reply = ();          my %reply = ();
Line 153 Line 155
                                         $to_notify[0] = $enrollvar{$crs}{notifylist};                                          $to_notify[0] = $enrollvar{$crs}{notifylist};
                                     }                                      }
                                     foreach my $cc (@to_notify) {                                      foreach my $cc (@to_notify) {
                                         my ($ccname,$ccdom) = split/@/,$cc;                                          my ($ccname,$ccdom);
                                           if ($cc =~ /:/) {
                                               ($ccname,$ccdom) = split(/:/,$cc);
                                           } elsif ($cc =~ /\@/) {
                                               ($ccname,$ccdom) = split(/\@/,$cc);
                                           }
                                         my $status =  &Apache::lonmsg::user_normal_msg($ccname,$ccdom,$subject,$message);                                          my $status =  &Apache::lonmsg::user_normal_msg($ccname,$ccdom,$subject,$message);
                                     }                                      }
                                     if ( ($enrollvar{$crs}{notifylist} eq '') && ($newusermsg ne '') ) {                                      if ( ($enrollvar{$crs}{notifylist} eq '') && ($newusermsg ne '') ) {
Removed from v.1.17  
changed lines
  Added in v.1.22

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