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

Diff for /loncom/interface/loncoursequeueadmin.pm between versions 1.12.2.1 and 1.12.2.2

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);
Removed from v.1.12.2.1  
changed lines
  Added in v.1.12.2.2

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