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

Diff for /loncom/interface/loncoursequeueadmin.pm between versions 1.34 and 1.38

version 1.34, 2013/01/04 01:56:35 version 1.38, 2013/12/24 19:15:10
Line 435  sub build_queue_display { Line 435  sub build_queue_display {
                         official   => 'Official course',                          official   => 'Official course',
                         unofficial => 'Unofficial course',                          unofficial => 'Unofficial course',
                         community  => 'Community',                          community  => 'Community',
                           textbook   => 'Textbook course',
                     );                      );
         $output .= '<th>'.&mt('Type').'</th>'.          $output .= '<th>'.&mt('Type').'</th>'.
                    '<th>'.&mt('Date requested').'</th>'.                     '<th>'.&mt('Date requested').'</th>'.
Line 1256  sub update_request_queue { Line 1257  sub update_request_queue {
             }              }
             $output .= '</ul></p>';              $output .= '</ul></p>';
         } else {          } else {
             $output .= '<p>'.&mt("For the following course/community requests an error occurred when removing requests for the following from the pending queue:").'<ul>';              $output .= '<p>'.&mt("For the following course/community requests an error occurred when removing requests from the pending queue:").'<ul>';
             foreach my $cnum (@warn_dels) {              foreach my $cnum (@warn_dels) {
                 my $showcourse;                  my $showcourse;
                 if (ref($requesthash{$cnum.'_'.$queue})) {                  if (ref($requesthash{$cnum.'_'.$queue})) {
Line 1352  sub build_batchcreatehash { Line 1353  sub build_batchcreatehash {
         }          }
         $batchhash{'title'} = $details->{'cdescr'};          $batchhash{'title'} = $details->{'cdescr'};
         $batchhash{'coursecode'} = $details->{'instcode'};          $batchhash{'coursecode'} = $details->{'instcode'};
           if ($domdefs->{'officialcredits'} || $domdefs->{'unofficialcredits'}) {
               $batchhash{'defaultcredits'} = $details->{'defaultcredits'};
           }
         $batchhash{'emailenc'} = $emailenc;          $batchhash{'emailenc'} = $emailenc;
         $batchhash{'adds'} = $details->{'autoadds'};          $batchhash{'adds'} = $details->{'autoadds'};
         $batchhash{'drops'} = $details->{'autodrops'};          $batchhash{'drops'} = $details->{'autodrops'};
Line 1840  sub process_reqauthor { Line 1844  sub process_reqauthor {
     unless ($env{'environment.canrequest.author'}) {      unless ($env{'environment.canrequest.author'}) {
         return '<span class="LC_warning">'.          return '<span class="LC_warning">'.
                 &mt('You do not currently have rights to request an authoring space.').'<br />'.                  &mt('You do not currently have rights to request an authoring space.').'<br />'.
                 &mt('Please contact the [_1]helpdesk[_2].','<a href="/adm/helpdesk">',                  &mt('Please contact the [_1]helpdesk[_2] for assistance.','<a href="/adm/helpdesk">',
                 '</a>').'</span>';                  '</a>').'</span>';
     }      }
     my $queued = &reqauthor_check();      my $queued = &reqauthor_check();
Removed from v.1.34  
changed lines
  Added in v.1.38

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