version 1.46, 2013/08/14 00:38:50
|
version 1.47, 2014/06/23 00:56:02
|
Line 61 sub update_LC {
|
Line 61 sub update_LC {
|
my @activestudents = (); |
my @activestudents = (); |
my @excludedstudents = (); |
my @excludedstudents = (); |
my $currlist; |
my $currlist; |
|
my $now = time; |
foreach my $uname (keys %{$roster} ) { |
foreach my $uname (keys %{$roster} ) { |
if ($uname =~ m/^(.+):$dom$/) { |
if ($uname =~ m/^(.+):$dom$/) { |
if ($$roster{$uname}[$status] eq "Active") { |
if ($$roster{$uname}[$status] eq "Active") { |
Line 339 sub update_LC {
|
Line 340 sub update_LC {
|
my ($auth,$authparam,$first,$middle,$last,$gene,$usec,$end,$start,$emailaddr,$pid,$emailenc,$credithours); |
my ($auth,$authparam,$first,$middle,$last,$gene,$usec,$end,$start,$emailaddr,$pid,$emailenc,$credithours); |
&prepare_add($authtype,$autharg,$enddate,$startdate,\@stuinfo,\%place,\$dom,\$uname,\$auth,\$authparam,\$first,\$middle,\$last,\$gene,\$usec,\$end,\$start,\$emailaddr,\$pid,\$emailenc); |
&prepare_add($authtype,$autharg,$enddate,$startdate,\@stuinfo,\%place,\$dom,\$uname,\$auth,\$authparam,\$first,\$middle,\$last,\$gene,\$usec,\$end,\$start,\$emailaddr,\$pid,\$emailenc); |
# Check for existing account in this LON-CAPA domain for this username |
# Check for existing account in this LON-CAPA domain for this username |
|
next if (($end) && ($end < $now)); |
my $uhome=&Apache::lonnet::homeserver($uname,$dom); |
my $uhome=&Apache::lonnet::homeserver($uname,$dom); |
if ($uhome eq 'no_host') { # User does not exist |
if ($uhome eq 'no_host') { # User does not exist |
my $args = {'auth' => $auth, |
my $args = {'auth' => $auth, |
Line 651 sub prepare_add {
|
Line 653 sub prepare_add {
|
$$start = $$stuinfo[ $$place{'startdate'} ]; |
$$start = $$stuinfo[ $$place{'startdate'} ]; |
$$emailaddr = $$stuinfo[ $$place{'email'} ]; |
$$emailaddr = $$stuinfo[ $$place{'email'} ]; |
$$pid = $$stuinfo[ $$place{'studentID'} ]; |
$$pid = $$stuinfo[ $$place{'studentID'} ]; |
|
|
# remove non alphanumeric values from section |
# remove non alphanumeric values from section |
$$usec =~ s/\W//g; |
$$usec =~ s/\W//g; |
|
|