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

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

version 1.16, 2005/11/15 20:53:50 version 1.22, 2006/07/21 17:47:36
Line 25 Line 25
 #  #
 # http://www.lon-capa.org/  # http://www.lon-capa.org/
 #  #
 BEGIN {  
     eval "use Apache2::compat();";  
 };  
     use strict;      use strict;
     use lib '/home/httpd/lib/perl';      use lib '/home/httpd/lib/perl';
     use localenroll;      use localenroll;
Line 36  BEGIN { Line 33  BEGIN {
     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 53  BEGIN { Line 52  BEGIN {
         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 156  BEGIN { Line 155  BEGIN {
                                         $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.16  
changed lines
  Added in v.1.22

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