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

Diff for /loncom/interface/loncoursequeueadmin.pm between versions 1.4 and 1.5

version 1.4, 2009/08/17 04:39:15 version 1.5, 2009/08/20 20:43:08
Line 345  sub update_request_queue { Line 345  sub update_request_queue {
         $domdesc,$now,$sender,$approvedmsg,$rejectedmsg,$beneficiary,          $domdesc,$now,$sender,$approvedmsg,$rejectedmsg,$beneficiary,
         @existing,@missingreq,@invalidusers,@limitexceeded,@completed,          @existing,@missingreq,@invalidusers,@limitexceeded,@completed,
         @processing_errors,@warn_approves,@warn_rejects,@approvals,          @processing_errors,@warn_approves,@warn_rejects,@approvals,
         @rejections,@rejectionerrors,%courseroles,%communityroles,%domdefs);          @rejections,@rejectionerrors,@nopermissions,%courseroles,
           %communityroles,%domdefs);
     @approvals = &Apache::loncommon::get_env_multiple('form.approvereq');      @approvals = &Apache::loncommon::get_env_multiple('form.approvereq');
     @rejections = &Apache::loncommon::get_env_multiple('form.rejectreq');      @rejections = &Apache::loncommon::get_env_multiple('form.rejectreq');
     $now = time;      $now = time;
Line 482  sub update_request_queue { Line 483  sub update_request_queue {
                     if ($crstype eq 'community') {                      if ($crstype eq 'community') {
                         $longroles = \%communityroles;                          $longroles = \%communityroles;
                     }                      }
                     if (&Apache::lonnet::usertools_access($ownername,$ownerdom,$crstype,                      my $cancreate;
                                                           undef,'requestcourses')) {                      if ($cdom eq $ownerdom) {
                           if (&Apache::lonnet::usertools_access($ownername,$ownerdom,$crstype,
                                                                 undef,'requestcourses')) {
                               $cancreate = 1;
                           }
                       } else {
                           my %userenv = &Apache::lonnet::userenvironment($ownerdom,$ownername,'reqcrsotherdom.'.$crstype);
                           if ($userenv{'reqcrsotherdom.'.$crstype}) {
                               my @doms = split(',',$userenv{'reqcrsotherdom.'.$crstype});
                               if (grep(/^\Q$cdom\E:/,@doms)) {
                                   $cancreate = 1;
                               }
                           }
                       }
                       if ($cancreate) {
                         my $requestkey = $cdom.'_'.$cnum;                          my $requestkey = $cdom.'_'.$cnum;
                         my %history =                           my %history = 
                             &Apache::lonnet::restore($requestkey,'courserequests',                              &Apache::lonnet::restore($requestkey,'courserequests',
Line 531  sub update_request_queue { Line 546  sub update_request_queue {
                             push(@processing_errors,$cnum);                              push(@processing_errors,$cnum);
                         }                          }
                     } else {                      } else {
                         push(@processing_errors,$cnum);                          push(@nopermissions,$cnum);
                     }                      }
                 } else {                  } else {
                     push(@existing,$cnum);                      push(@existing,$cnum);
Line 749  sub update_request_queue { Line 764  sub update_request_queue {
             $output .= '</ul></p>';              $output .= '</ul></p>';
         }          }
     }      }
       if (@nopermissions) {
           $output .= '<p>'.&mt('The following course creation requests could not be processed because the course owner does hot have rights to create this type of course:').'<ul>';
           foreach my $cnum (@nopermissions) {
               my $showcourse;
               if (ref($requesthash{$cnum.'_approval'})) {
                   $showcourse = $requesthash{$cnum.'_approval'}{'description'};
               } else {
                   $showcourse = $cnum;
               }
               $output .= '<li>'.$showcourse.'</li>';
           }
           $output .= '</ul></p>';
       }
     if (@processing_errors) {      if (@processing_errors) {
         if ($context eq 'course') {          if ($context eq 'course') {
             $output .= '<p>'.&mt('The following enrollment requests could not be processed because an error occurred:').'<ul>';              $output .= '<p>'.&mt('The following enrollment requests could not be processed because an error occurred:').'<ul>';
Removed from v.1.4  
changed lines
  Added in v.1.5

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