[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.8 and 1.12.2.9

version 1.12.2.8, 2010/02/26 23:39:01 version 1.12.2.9, 2010/09/03 19:20:47
Line 466  sub update_request_queue { Line 466  sub update_request_queue {
             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') {                      if ($cdom eq 'gci' && $cnum eq '9615072b469884921gcil1') {
                         my $enresult = &enable_gci_submission($udom,$uname,                          foreach my $crs ('1H96711d710194bfegcil1','5422913620b814c90gcil1') {
                                                    $access_end,$access_start);                              my $enresult = &enable_additional_roles($cdom,$crs,$udom,$uname,
                                                                       $access_end,$access_start);
                           }
                     }                      }
                     if (exists($classlist->{$uname.':'.$udom})) {                      if (exists($classlist->{$uname.':'.$udom})) {
                         if (ref($classlist->{$uname.':'.$udom}) eq 'ARRAY') {                          if (ref($classlist->{$uname.':'.$udom}) eq 'ARRAY') {
Line 917  sub update_request_queue { Line 919  sub update_request_queue {
     return $output;      return $output;
 }  }
   
 sub enable_gci_submission {  sub enable_additional_roles {
     my ($udom,$uname,$access_end,$access_start) = @_;      my ($cdom,$cnum,$udom,$uname,$access_end,$access_start) = @_;
     my $cdom = 'gci';  
     my $cnum = '1H96711d710194bfegcil1';  
     my ($stucounts,$idx,$classlist) = &get_student_counts($cdom,$cnum);      my ($stucounts,$idx,$classlist) = &get_student_counts($cdom,$cnum);
     if (exists($classlist->{$uname.':'.$udom})) {      if (exists($classlist->{$uname.':'.$udom})) {
         if (ref($classlist->{$uname.':'.$udom}) eq 'ARRAY') {          if (ref($classlist->{$uname.':'.$udom}) eq 'ARRAY') {
Removed from v.1.12.2.8  
changed lines
  Added in v.1.12.2.9

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