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

Diff for /loncom/interface/loncoursequeueadmin.pm between versions 1.23 and 1.24

version 1.23, 2010/03/30 15:23:51 version 1.24, 2010/03/30 16:02:27
Line 260  sub display_queued_requests { Line 260  sub display_queued_requests {
         $formaction = '/adm/createcourse';          $formaction = '/adm/createcourse';
         $namespace = 'courserequestqueue';          $namespace = 'courserequestqueue';
         my $disposition = 'approval';          my $disposition = 'approval';
           my $nextphase = 'requestchange';
         if ($context eq 'pending') {          if ($context eq 'pending') {
             $disposition = 'pending';              $disposition = 'pending';
               $nextphase = 'requestvalidation';
         }          }
         %requesthash = &Apache::lonnet::dump_dom($namespace,$dom,'_'.$disposition);          %requesthash = &Apache::lonnet::dump_dom($namespace,$dom,'_'.$disposition);
         $nextelement = '<input type="hidden" name="phase" value="requestchange" />';          $nextelement = '<input type="hidden" name="phase" value="'.$nextphase.'" />';
     }      }
     my ($output,%queue_by_date);      my ($output,%queue_by_date);
     if (keys(%requesthash) > 0) {      if (keys(%requesthash) > 0) {
Line 322  sub display_queued_requests { Line 324  sub display_queued_requests {
             $output .= '</div>';               $output .= '</div>'; 
         }          }
         if ($context eq 'pending') {          if ($context eq 'pending') {
             $output .= '<br /><input type="button" name="validationcheck" value="'.              $output .= '<br /><input type="submit" name="validationcheck" value="'.
                        &mt('Validate').'" onclick="javascript:runValidation();" /><br />'."\n".                         &mt('Validate').'" /><br />'."\n".
                        '<p>'.&mt('Any course/community requests which are successfully validated will be created immediately.').' '.&mt('Unvalidated requests will be listed for manual approval/rejection.').'</p>';                         '<p>'.&mt('Any course/community requests which are successfully validated will be created immediately.').' '.&mt('Unvalidated requests will be listed for manual approval/rejection.').'</p>';
         } else {          } else {
             $output .= '<br /><input type="submit" name="processqueue" value="'.&mt('Save').'" />';              $output .= '<br /><input type="submit" name="processqueue" value="'.&mt('Save').'" />';
Line 1320  sub process_official_reqs { Line 1322  sub process_official_reqs {
     my ($context,$dom) = @_;      my ($context,$dom) = @_;
     my $reqsnamespace = 'courserequestqueue';      my $reqsnamespace = 'courserequestqueue';
     my %requesthash =      my %requesthash =
         &Apache::lonnet::dump_dom($reqsnamespace,$dom,undef,'_pending');          &Apache::lonnet::dump_dom($reqsnamespace,$dom,'_pending');
     my (%newcids,%longroles,%stillpending);      my (%newcids,%longroles,%stillpending);
     my @courseroles = ('cc','in','ta','ep','ad','st');      my @courseroles = ('cc','in','ta','ep','ad','st');
     foreach my $role (@courseroles) {      foreach my $role (@courseroles) {
Removed from v.1.23  
changed lines
  Added in v.1.24

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