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

Diff for /loncom/interface/loncreatecourse.pm between versions 1.137.4.1 and 1.138

version 1.137.4.1, 2010/05/24 06:43:32 version 1.138, 2010/05/14 18:29:52
Line 359  END Line 359  END
                  .'<label>'                   .'<label>'
                  .'<input type="radio" name="firstres" value="blank" />'.$lt{'blnk'}                   .'<input type="radio" name="firstres" value="blank" />'.$lt{'blnk'}
                  .'</label>'                   .'</label>'
                  .'&nbsp;');                   .'&nbsp;'
     if ($crstype eq 'Community') {                   .'<label>'
         $r->print('<label>'  
                  .'<input type="radio" name="firstres" value="nav" checked="checked" />'.$lt{'navi'}  
                  .'</label>');  
     } else {  
         $r->print('<label>'  
                  .'<input type="radio" name="firstres" value="syl" checked="checked" />'.$lt{'sllb'}                   .'<input type="radio" name="firstres" value="syl" checked="checked" />'.$lt{'sllb'}
                  .'</label>'                   .'</label>'
                  .'&nbsp;'                   .'&nbsp;'
                  .'<label>'                   .'<label>'
                  .'<input type="radio" name="firstres" value="nav" />'.$lt{'navi'}                   .'<input type="radio" name="firstres" value="nav" />'.$lt{'navi'}
                  .'</label>');                   .'</label>'
     }                   .'<br />('.$lt{'stco'}.')'
     $r->print('<br />('.$lt{'stco'}.')'  
                  .&Apache::lonhtmlcommon::row_closure(1)                   .&Apache::lonhtmlcommon::row_closure(1)
                  .&Apache::lonhtmlcommon::end_pick_box()                   .&Apache::lonhtmlcommon::end_pick_box()
   
Line 705  sub print_intro_page { Line 699  sub print_intro_page {
     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',  
                      name              => &mt('Create a single course'),      # Create menu
                      short_description => &mt('Create a new course by completing an online form.'),      my @menu;
                    });      @menu =
     if ($show_all_choices) {         ({ categorytitle => 'Course/Community Creation',
         push(@choices,{ internal_name     => 'groupone',         items => [
                         name              => &mt('Create a single community'),            {
                         short_description =>                 linktext => 'Create a single course',
     &mt('Create a new collaborative community by completing an online form.'),                 url => '/adm/createcourse?phase=courseone',
                       },                 permission => 1,
                       { internal_name     => 'batchone',                 #help => '',
                         name              => &mt('Create courses/communities by uploading an attributes file'),                 icon => 'ccrs.png',
                         short_description =>                 linktitle => 'Create a new course by completing an online form.'
     &mt('Upload an attributes file containing specifications for one or more courses or communities in XML format.'),            },
                         help => 'Batch_Creation',            {
                       },                 linktext => 'Create a single community',
                       { internal_name     => 'requestdisplay',                 url => '/adm/createcourse?phase=groupone',
                         name              => &mt('Approve or reject requests'),                 permission => $show_all_choices,
                         short_description =>                 #help => '',
     &mt('Display course and community creation requests submitted by authorized users, held pending approval by a Domain Coordinator.'),                 icon => 'ccrs.png',
                       },                 linktitle => 'Create a new collaborative community by completing an online form.'
                       { internal_name     => 'pendingdisplay',            },
                         name              => &mt('Display official course requests'),            {
                         short_description =>                 linktext => 'Create courses/communities by uploading an attributes file',
     &mt('Display official course requests submitted by authorized users, held pending validation of instructor status.'),                 url => '/adm/createcourse?phase=batchone',
                       },                 permission => 1,
                       { internal_name     => 'creationlog',                 help => 'Batch_Creation',
                         name              => &mt('View creation log'),                 icon => 'ccrs.png',
                         short_description =>                 linktitle => 'Upload an attributes file containing specifications for one or more courses or communities in XML format.'
     &mt('Display information about when, how and by whom courses and communities were created in this domain.'),            },
                       });         ]
     } else {         },
         push(@choices,{ internal_name     => 'batchone',         { categorytitle => 'Course/Community Requests',
                         name              => &mt('Create courses by uploading an attributes file'),         items => [
                         short_description =>             {
     &mt('Upload an attributes file containing specifications for one or more courses in XML format.'),                 linktext => 'Approve or reject requests',
                         help => 'Batch_Creation',                 url => '/adm/createcourse?phase=requestdisplay',
                       });                 permission => $show_all_choices,
     }                 #help => '',
     my $options;                 icon => 'ccrs.png',
     foreach my $choice (@choices) {                 linktitle => 'Display course and community creation requests submitted by authorized users, held pending approval by a Domain Coordinator.'
         $options .='    <h3><a href="/adm/createcourse?phase='.             },
             $choice->{'internal_name'}.'" >'.             {
             $choice->{'name'}.'</a>';                 linktext => 'Display official course requests',
         if (exists($choice->{'help'})) {                 url => '/adm/createcourse?phase=pendingdisplay',
             $options .= &Apache::loncommon::help_open_topic($choice->{'help'});                 permission => $show_all_choices,
         }                 #help => '',
         $options .= "</h3>\n".'    '.('&nbsp;'x8).$choice->{'short_description'}.                 icon => 'ccrs.png',
             "\n";                 linktitle => 'Display official course requests submitted by authorized users, held pending validation of instructor status.'
     }             },
     $r->print(<<ENDDOCUMENT);         ]
 $start_page         },
 $crumbs         { categorytitle => 'Administration',
 $options         items => [
 $end_page             {
 ENDDOCUMENT                 linktext => 'View creation log',
                  url => '/adm/createcourse?phase=creationlog',
                  permission => $show_all_choices,
                  #help => '',
                  icon => 'document-properties.png',
                  linktitle => 'Display information about when, how and by whom courses and communities were created in this domain.'
              },
          ]
          },
          );
   
       $r->print(
           $start_page
          .$crumbs
          .&Apache::lonhtmlcommon::generate_menu(@menu)
          .$end_page
       );
 }  }
   
 sub upload_batchfile {  sub upload_batchfile {
Line 777  sub upload_batchfile { Line 787  sub upload_batchfile {
               '<input type="file" name="coursecreatorxml" />'.                '<input type="file" name="coursecreatorxml" />'.
               '<input type="hidden" name="phase" value="batchtwo" /><br /><br />'.                '<input type="hidden" name="phase" value="batchtwo" /><br /><br />'.
               '<input type="submit" name="batchsubmit" '.                '<input type="submit" name="batchsubmit" '.
               'value="Create Courses/Communities" /></form>');                'value="'.&mt('Create Courses/Communities').'" /></form>');
     $r->print($end_page);      $r->print($end_page);
     return;      return;
 }  }
Removed from v.1.137.4.1  
changed lines
  Added in v.1.138

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