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

Diff for /loncom/interface/loncreatecourse.pm between versions 1.136 and 1.137

version 1.136, 2010/03/30 16:06:21 version 1.137, 2010/04/13 21:19:15
Line 692  sub create_course { Line 692  sub create_course {
 }  }
   
 sub print_intro_page {  sub print_intro_page {
     my $r = shift;      my ($r,$show_all_choices) = @_;
     my $start_page =      my $start_page =
         &Apache::loncommon::start_page('Create a New Course or Community');          &Apache::loncommon::start_page('Create a New Course or Community');
     my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('Creation Options','Create_Course',undef,'Create_Courses');      my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('Creation Options','Create_Course',undef,'Create_Courses');
     my $end_page =      my $end_page =
         &Apache::loncommon::end_page();          &Apache::loncommon::end_page();
     my $helplink=&Apache::loncommon::help_open_topic('Create_Course_Community',&mt('Help on Creating Courses and Communities'));      my $helplink=&Apache::loncommon::help_open_topic('Create_Course_Community',&mt('Help on Creating Courses and Communities'));
       my @choices = ({ internal_name     => 'courseone',
     my @choices = ({ internal_name => 'courseone',                       name              => &mt('Create a single course'),
                      name => &mt('Create a single course'),                       short_description => &mt('Create a new course by completing an online form.'),
                      short_description =>                     });
     &mt('Create a new course by completing an online form.'),      if ($show_all_choices) {
                  },          push(@choices,{ internal_name     => 'groupone',
                    { internal_name => 'groupone',                          name              => &mt('Create a single community'),
                      name => &mt('Create a single community'),                          short_description =>
                      short_description =>  
     &mt('Create a new collaborative community by completing an online form.'),      &mt('Create a new collaborative community by completing an online form.'),
                  },                        },
                    { internal_name => 'batchone',                        { internal_name     => 'batchone',
                      name => &mt('Create courses/communities by uploading an attributes file'),                          name              => &mt('Create courses/communities by uploading an attributes file'),
                      short_description =>                          short_description =>
     &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',                        { internal_name     => 'requestdisplay',
                      name => &mt('Approve or reject requests'),                          name              => &mt('Approve or reject requests'),
                      short_description =>                          short_description =>
     &mt('Display course and community creation requests submitted by authorized users, held pending approval by a Domain Coordinator.'),      &mt('Display course and community creation requests submitted by authorized users, held pending approval by a Domain Coordinator.'),
                  },                        },
                    { internal_name => 'pendingdisplay',                        { internal_name     => 'pendingdisplay',
                      name => &mt('Display official course requests'),                          name              => &mt('Display official course requests'),
                      short_description =>                          short_description =>
     &mt('Display official course requests submitted by authorized users, held pending validation of instructor status.'),      &mt('Display official course requests submitted by authorized users, held pending validation of instructor status.'),
                  },                        },
                    { internal_name => 'creationlog',                        { internal_name     => 'creationlog',
                      name => &mt('View creation log'),                          name              => &mt('View creation log'),
                      short_description =>                          short_description =>
     &mt('Display information about when, how and by whom courses and communities were created in this domain.'),      &mt('Display information about when, how and by whom courses and communities were created in this domain.'),
                  },                        });
     );      } else {
           push(@choices,{ internal_name     => 'batchone',
                           name              => &mt('Create courses by uploading an attributes file'),
                           short_description =>
       &mt('Upload an attributes file containing specifications for one or more courses in XML format.'),
                           help => 'Batch_Creation',
                         });
       }
     my $options;      my $options;
     foreach my $choice (@choices) {      foreach my $choice (@choices) {
         $options .='    <h3><a href="/adm/createcourse?phase='.          $options .='    <h3><a href="/adm/createcourse?phase='.
Line 743  sub print_intro_page { Line 749  sub print_intro_page {
         $options .= "</h3>\n".'    '.('&nbsp;'x8).$choice->{'short_description'}.          $options .= "</h3>\n".'    '.('&nbsp;'x8).$choice->{'short_description'}.
             "\n";              "\n";
     }      }
   
     $r->print(<<ENDDOCUMENT);      $r->print(<<ENDDOCUMENT);
 $start_page  $start_page
 $crumbs  $crumbs
Line 1193  sub handler { Line 1198  sub handler {
        return OK;         return OK;
     }      }
   
       my $show_all_choices = 0;
       my $primary_rev = &Apache::lonnet::get_server_loncaparev($env{'request.role.domain'});
       if (($primary_rev ne 'refused') && ($primary_rev ne 'error') &&
           ($primary_rev ne 'unknown_cmd') && ($primary_rev ne 'no_such_host')) {
           $show_all_choices = 1;
       }
   
     if (&Apache::lonnet::allowed('ccc',$env{'request.role.domain'})) {      if (&Apache::lonnet::allowed('ccc',$env{'request.role.domain'})) {
        &Apache::loncommon::content_type($r,'text/html');         &Apache::loncommon::content_type($r,'text/html');
        $r->send_http_header;         $r->send_http_header;
Line 1205  sub handler { Line 1217  sub handler {
             text=>"Creation Options",              text=>"Creation Options",
             faq=>79,bug=>'Dom Coord Interface',});              faq=>79,bug=>'Dom Coord Interface',});
        if (($env{'form.phase'} eq 'coursetwo') ||         if (($env{'form.phase'} eq 'coursetwo') ||
            ($env{'form.phase'} eq 'grouptwo')) {             (($env{'form.phase'} eq 'grouptwo') && 
               ($show_all_choices))) { 
            &Apache::lonhtmlcommon::add_breadcrumb             &Apache::lonhtmlcommon::add_breadcrumb
                  ({href=>"/adm/createcourse?phase=$env{'form.prevphase'}",                   ({href=>"/adm/createcourse?phase=$env{'form.prevphase'}",
                    text=>&mt('[_1] Creation Settings',),                     text=>&mt('[_1] Creation Settings',),
Line 1216  sub handler { Line 1229  sub handler {
                    faq=>9,bug=>'Dom Coord Interface',});                     faq=>9,bug=>'Dom Coord Interface',});
            &create_course($r);             &create_course($r);
        } elsif (($env{'form.phase'} eq 'courseone') ||          } elsif (($env{'form.phase'} eq 'courseone') || 
                 ($env{'form.phase'} eq 'groupone')) {                  (($env{'form.phase'} eq 'groupone') && 
                   ($show_all_choices))) {
            &Apache::lonhtmlcommon::add_breadcrumb             &Apache::lonhtmlcommon::add_breadcrumb
                  ({href=>"/adm/createcourse?phase=$env{'form.phase'}",                   ({href=>"/adm/createcourse?phase=$env{'form.phase'}",
                    text=>&mt('[_1] Creation Settings',),                     text=>&mt('[_1] Creation Settings',),
Line 1238  sub handler { Line 1252  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') {         } elsif (($env{'form.phase'} eq 'requestdisplay') && ($show_all_choices)) {
            &Apache::lonhtmlcommon::add_breadcrumb             &Apache::lonhtmlcommon::add_breadcrumb
                  ({href=>"/adm/createcourse?phase=$env{'form.phase'}",                   ({href=>"/adm/createcourse?phase=$env{'form.phase'}",
                    text=>&mt('[_1] Display Request Queue',),                     text=>&mt('[_1] Display Request Queue',),
Line 1250  sub handler { Line 1264  sub handler {
                      &Apache::loncoursequeueadmin::display_queued_requests(                       &Apache::loncoursequeueadmin::display_queued_requests(
                          'domain',$env{'request.role.domain'}).'</div>'.                           'domain',$env{'request.role.domain'}).'</div>'.
                      &Apache::loncommon::end_page());                       &Apache::loncommon::end_page());
        } elsif ($env{'form.phase'} eq 'requestchange') {         } elsif (($env{'form.phase'} eq 'requestchange') && ($show_all_choices)) {
            if ($env{'form.queue'} eq 'pending') {             if ($env{'form.queue'} eq 'pending') {
                &Apache::lonhtmlcommon::add_breadcrumb                 &Apache::lonhtmlcommon::add_breadcrumb
                    ({href=>"/adm/createcourse?phase=pendingdisplay",                     ({href=>"/adm/createcourse?phase=pendingdisplay",
Line 1272  sub handler { Line 1286  sub handler {
                      &Apache::loncoursequeueadmin::update_request_queue(                       &Apache::loncoursequeueadmin::update_request_queue(
                      'domain',$env{'request.role.domain'}).'</div>'.                       'domain',$env{'request.role.domain'}).'</div>'.
                      &Apache::loncommon::end_page());                       &Apache::loncommon::end_page());
        } elsif ($env{'form.phase'} eq 'pendingdisplay') {         } elsif (($env{'form.phase'} eq 'pendingdisplay') && ($show_all_choices)) {
            &Apache::lonhtmlcommon::add_breadcrumb             &Apache::lonhtmlcommon::add_breadcrumb
                  ({href=>"/adm/createcourse?phase=$env{'form.phase'}",                   ({href=>"/adm/createcourse?phase=$env{'form.phase'}",
                    text=>&mt('Display Pending Queue',),                     text=>&mt('Display Pending Queue',),
Line 1284  sub handler { Line 1298  sub handler {
                      &Apache::loncoursequeueadmin::display_queued_requests(                       &Apache::loncoursequeueadmin::display_queued_requests(
                          'pending',$env{'request.role.domain'}).'</div>'.                           'pending',$env{'request.role.domain'}).'</div>'.
                      &Apache::loncommon::end_page());                       &Apache::loncommon::end_page());
        } elsif ($env{'form.phase'} eq 'requestvalidation') {         } elsif (($env{'form.phase'} eq 'requestvalidation') && ($show_all_choices)) {
            my $js = &courserequestbrowser_javascript();             my $js = &courserequestbrowser_javascript();
            &Apache::lonhtmlcommon::add_breadcrumb             &Apache::lonhtmlcommon::add_breadcrumb
                  ({href=>"/adm/createcourse?phase=pendingdisplay",                   ({href=>"/adm/createcourse?phase=pendingdisplay",
Line 1296  sub handler { Line 1310  sub handler {
            $r->print($start_page.$crumbs."\n".'<div>'.             $r->print($start_page.$crumbs."\n".'<div>'.
                      &Apache::loncoursequeueadmin::process_official_reqs('domain',$env{'request.role.domain'}).'</div>'.                       &Apache::loncoursequeueadmin::process_official_reqs('domain',$env{'request.role.domain'}).'</div>'.
                      &Apache::loncommon::end_page());                       &Apache::loncommon::end_page());
        } elsif ($env{'form.phase'} eq 'creationlog') {         } elsif (($env{'form.phase'} eq 'creationlog') && ($show_all_choices)) {
            &Apache::lonhtmlcommon::add_breadcrumb             &Apache::lonhtmlcommon::add_breadcrumb
                  ({href=>"/adm/createcourse?phase=creationlog",                   ({href=>"/adm/createcourse?phase=creationlog",
                    text=>&mt('[_1] Display Creation History',),});                     text=>&mt('[_1] Display Creation History',),});
Line 1311  sub handler { Line 1325  sub handler {
            &print_creation_logs($r);             &print_creation_logs($r);
            $r->print('</div>'.&Apache::loncommon::end_page());             $r->print('</div>'.&Apache::loncommon::end_page());
        } else {         } else {
            &print_intro_page($r);             &print_intro_page($r,$show_all_choices);
        }         }
    } else {     } else {
       $env{'user.error.msg'}=        $env{'user.error.msg'}=
Removed from v.1.136  
changed lines
  Added in v.1.137

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