version 1.12.2.1, 2009/12/07 02:04:25
|
version 1.12.2.2, 2009/12/07 04:48:04
|
Line 456 sub update_request_queue {
|
Line 456 sub update_request_queue {
|
my $uhome = &Apache::lonnet::homeserver($uname,$udom); |
my $uhome = &Apache::lonnet::homeserver($uname,$udom); |
if ($uhome ne 'no_host') { |
if ($uhome ne 'no_host') { |
if (exists($requesthash{$uname.':'.$udom})) { |
if (exists($requesthash{$uname.':'.$udom})) { |
|
if ($cdom eq 'gci' && $cnum eq '9615072b469884921gcil1') { |
|
my $enresult = &enable_gci_submission($uname,$udom, |
|
$access_start,$access_end); |
|
} |
if (exists($classlist->{$uname.':'.$udom})) { |
if (exists($classlist->{$uname.':'.$udom})) { |
if (ref($classlist->{$uname.':'.$udom}) eq 'ARRAY') { |
if (ref($classlist->{$uname.':'.$udom}) eq 'ARRAY') { |
if (($classlist->{$uname.':'.$udom}->[$idx->{'status'}] eq 'Active') || |
if (($classlist->{$uname.':'.$udom}->[$idx->{'status'}] eq 'Active') || |
Line 905 sub update_request_queue {
|
Line 908 sub update_request_queue {
|
return $output; |
return $output; |
} |
} |
|
|
|
sub enable_gci_submission { |
|
my ($udom,$uname,$access_end,$access_start) = @_; |
|
my $cdom = 'gci'; |
|
my $cnum = '1H96711d710194bfegcil1'; |
|
my ($stucounts,$idx,$classlist) = &get_student_counts($cdom,$cnum); |
|
if (exists($classlist->{$uname.':'.$udom})) { |
|
if (ref($classlist->{$uname.':'.$udom}) eq 'ARRAY') { |
|
if (($classlist->{$uname.':'.$udom}->[$idx->{'status'}] eq 'Active') || |
|
($classlist->{$uname.':'.$udom}->[$idx->{'status'}] eq 'Future')) { |
|
return; |
|
} |
|
} |
|
} |
|
return |
|
&Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,undef,$access_end,$access_start,'selfenroll',undef,$cdom.'_'.$cnum,1); |
|
} |
|
|
sub get_student_counts { |
sub get_student_counts { |
my ($cdom,$cnum) = @_; |
my ($cdom,$cnum) = @_; |
my (%idx,%stucounts); |
my (%idx,%stucounts); |