[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.126

version 1.124, 2009/07/31 02:24:30 version 1.126, 2009/08/27 00:06:18
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 897  sub process_batchfile { Line 902  sub process_batchfile {
     
 }  }
   
   sub courserequestbrowser_javascript {
       return <<"ENDREQBRW";
   <script type="text/javascript">
   // <![CDATA[
   var steditbrowser;
   function opencoursereqdisplay(cdom,cnum) {
       var url = '/adm/requestcourse?action=display';
       url += '&showdom='+cdom+'&cnum='+cnum;
       var title = 'Course_Request_Browser';
       var options = 'scrollbars=1,resizable=1,menubar=0';
       options += ',width=700,height=600';
       var stdeditbrowser = open(url,title,options,'1');
       stdeditbrowser.focus();
   }
   // ]]>
   </script>
   ENDREQBRW
   }
   
   
 # ===================================================================== Handler  # ===================================================================== Handler
 sub handler {  sub handler {
     my $r = shift;      my $r = shift;
Line 952  sub handler { Line 977  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 $js = &courserequestbrowser_javascript();
              my $start_page=&Apache::loncommon::start_page('Display Requests',$js);
              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.126

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