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

Diff for /loncom/interface/loncoursequeueadmin.pm between versions 1.28 and 1.29

version 1.28, 2011/08/26 15:57:56 version 1.29, 2011/11/30 12:31:00
Line 424  sub build_queue_display { Line 424  sub build_queue_display {
                 }                  }
                 unless ($context eq 'pending') {                  unless ($context eq 'pending') {
                     $row = '<td><span class="LC_nobreak"><label>'.                      $row = '<td><span class="LC_nobreak"><label>'.
                            '<input type="checkbox" value="'.$approve.'" name="approvereq" />'.&mt('Approve').'</label></span><br />'.                             '<input type="radio" value="'.$approve.'" name="'.$count.'radioreq" />'.&mt('Approve').'</label></span>'.
                            '<span class="LC_nobreak"><label>'.                             '<span class="LC_nobreak"><label>'.
                            '<input type="checkbox" value="'.$reject.'" name="rejectreq" />'.&mt('Reject').'</label></span><br /></td>';                             '<input type="radio" value="'.$reject.'" name="'.$count.'radioreq" />'.&mt('Reject').'</label></span>'.
                              '<input type="radio" value="'."later:".$reject.'" name="'.$count.'radioreq" checked />'.&mt('Decide Later').
                              '</label></span><br /></td>';
                 }                  }
                 $row .= '<td>'.$namelink.'</td>'."\n";                  $row .= '<td>'.$namelink.'</td>'."\n";
                 if ($context eq 'course') {                  if ($context eq 'course') {
Line 461  sub update_request_queue { Line 463  sub update_request_queue {
         @processing_errors,@warn_approves,@warn_rejects,@approvals,@warn_dels,          @processing_errors,@warn_approves,@warn_rejects,@approvals,@warn_dels,
         @rejections,@rejectionerrors,@nopermissions,%courseroles,          @rejections,@rejectionerrors,@nopermissions,%courseroles,
         %communityroles,%domdefs,%approvalmsg,%rejectionmsg,$crstype,$queue,$firsturl);          %communityroles,%domdefs,%approvalmsg,%rejectionmsg,$crstype,$queue,$firsturl);
     @approvals = &Apache::loncommon::get_env_multiple('form.approvereq');      my $count=0;
     @rejections = &Apache::loncommon::get_env_multiple('form.rejectreq');      while (my @course = &Apache::loncommon::get_env_multiple('form.'.$count.'radioreq')) {
           if (@course[0] =~ /^\d+:.*/) {
               push(@approvals,@course[0]);
           } elsif (@course[0] =~ /^later:.*/) {
               #decide later
           } else {
               push(@rejections,@course[0]);
           }
           $count+=1;
       }
       
   
     $now = time;      $now = time;
     $sender = $env{'user.name'}.':'.$env{'user.domain'};      $sender = $env{'user.name'}.':'.$env{'user.domain'};
     if ($context eq 'course') {      if ($context eq 'course') {
Removed from v.1.28  
changed lines
  Added in v.1.29

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