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

Diff for /loncom/interface/loncoursequeueadmin.pm between versions 1.47 and 1.48

version 1.47, 2014/04/30 17:17:35 version 1.48, 2014/05/06 20:42:27
Line 2062  sub process_official_reqs { Line 2062  sub process_official_reqs {
                                         }                                          }
                                     }                                      }
                                 }                                  }
                                   if (ref($postprocess->{'createdactions'}) eq 'HASH') {
                                       if (ref($postprocess->{'createdactions'}{'environment'}) eq 'HASH') {
                                           &postprocess_crsenv($dom,$cnum,$postprocess->{'createdactions'}{'environment'});
                                       }
                                   }
                             }                              }
                             &send_selfserve_notification($owner,$approvedmsg,                              &send_selfserve_notification($owner,$approvedmsg,
                                                          $cid,$cdescr,$now,                                                           $cid,$cdescr,$now,
Line 2133  sub process_official_reqs { Line 2138  sub process_official_reqs {
     return $output;      return $output;
 }  }
   
   sub postprocess_crsenv {
       my ($dom,$cnum,$postprocessenv) = @_;
       if (ref($postprocessenv) eq 'HASH') {    
           my $cid = $dom.'_'.$cnum;
           my %settablecrsenv = (
                                 'internal.selfenroll_types'        => 1,
                                 'internal.selfenroll_registered'   => 1,
                                 'internal.selfenroll_section'      => 1,
                                 'internal.selfenroll_start_access' => 1,
                                 'internal.selfenroll_end_access'   => 1,
                                 'internal.selfenroll_limit'        => 1,
                                 'internal.selfenroll_cap'          => 1,
                                 'internal.selfenroll_approval'     => 1,
                                 'internal.selfenroll_notifylist'   => 1,
                                );
           my %needcrsidput = (
                                 'internal.selfenroll_types'      => 1,
                                 'internal.selfenroll_start_date' => 1,
                                 'internal. selfenroll_end_date'  => 1,
                              );
           my (@needupdate,%newcrsenv);
           foreach my $key (keys(%{$postprocessenv})) { 
               if ($settablecrsenv{$key}) {
                   $newcrsenv{$key} = $postprocessenv->{$key};
                   if ($needcrsidput{$key}) {
                       push(@needupdate,$key); 
                   }
               }
               if (keys(%newcrsenv)) {
                   my $putresult = &Apache::lonnet::put('environment',\%newcrsenv,$dom,$cnum);
                   if ($putresult eq 'ok') {
                       if (@needupdate) {
                           my %crsinfo =
                               &Apache::lonnet::courseiddump($dom,'.',1,'.','.',$cnum,undef,undef,'.');
                           if (ref($crsinfo{$cid}) eq 'HASH') {
                               foreach my $key (@needupdate) {
                                   $crsinfo{$cid}{$key} = $newcrsenv{$key};
                               }
                               my $chome = &Apache::lonnet::homeserver($cnum,$dom);
                               &Apache::lonnet::courseidput($dom,\%crsinfo,$chome,'notime');
                           }
                       }
                   }
               }
           }
       }
       return;
   }
   
   
 sub requestcourses_validation_types {  sub requestcourses_validation_types {
     my @items = ('url','fields','button','markup');      my @items = ('url','fields','button','markup');
     my %names =  &Apache::lonlocal::texthash (      my %names =  &Apache::lonlocal::texthash (
Removed from v.1.47  
changed lines
  Added in v.1.48

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