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

Diff for /loncom/interface/loncreatecourse.pm between versions 1.124 and 1.125

version 1.124, 2009/07/31 02:24:30 version 1.125, 2009/08/15 14:01:04
Line 816  sub print_intro_page { Line 816  sub print_intro_page {
     &mt('Upload an attributes file containing specifications for one or more courses or communities in XML format.'),      &mt('Upload an attributes file containing specifications for one or more courses or communities in XML format.'),
                      help => 'Batch_Creation',                       help => 'Batch_Creation',
                  },                   },
                      { internal_name => 'requestdisplay',
                        name => &mt('Approve or reject course requests'),
                        short_description =>
       &mt('Display course creation requests submitted by authorized users held pending approval by a Domain Coordinator.'),
                      },
     );      );
     my $options;      my $options;
     foreach my $choice (@choices) {      foreach my $choice (@choices) {
Line 952  sub handler { Line 957  sub handler {
                    text=>"Creation Outcome",                     text=>"Creation Outcome",
                    faq=>9,bug=>'Dom Coord Interface',});                     faq=>9,bug=>'Dom Coord Interface',});
            &process_batchfile($r);             &process_batchfile($r);
          } elsif ($env{'form.phase'} eq 'requestdisplay') {
              &Apache::lonhtmlcommon::add_breadcrumb
                    ({href=>"/adm/createcourse?phase=$env{'form.phase'}",
                      text=>&mt('[_1] Display Request Queue',),
                      faq=>9,bug=>'Dom Coord Interface',});
              my $start_page=&Apache::loncommon::start_page('Display Requests');
              my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('Display Requests','Course_Request',undef,'Course_Request');
              $r->print($start_page.$crumbs."\n".'<div>'.
                        &Apache::loncoursequeueadmin::display_queued_requests(
                            'domain',$env{'request.role.domain'}).'</div>'.
                        &Apache::loncommon::end_page());
          } elsif ($env{'form.phase'} eq 'requestchange') {
              &Apache::lonhtmlcommon::add_breadcrumb
                    ({href=>"/adm/createcourse?phase=requestdisplay",
                      text=>&mt('[_1] Display Request Queue',),
                      faq=>9,bug=>'Dom Coord Interface',},
                    {href=>"/adm/createcourse?phase=requestchange",
                      text=>&mt('[_1] Requests Updated',),
                      faq=>9,bug=>'Dom Coord Interface',},);
              my $start_page=&Apache::loncommon::start_page('Update Requests Result');
              my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('Requests Updated','Course_Request',undef,'Course_Request');
              $r->print($start_page.$crumbs."\n".'<div>'.
                        &Apache::loncoursequeueadmin::update_request_queue(
                        'domain',$env{'request.role.domain'}).'</div>'.
                        &Apache::loncommon::end_page());
        } else {         } else {
            &print_intro_page($r);             &print_intro_page($r);
        }         }
Removed from v.1.124  
changed lines
  Added in v.1.125

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