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

version 1.137.4.1, 2010/05/24 06:43:32 version 1.146, 2012/10/04 13:41:10
Line 299  END Line 299  END
              .&Apache::lonhtmlcommon::row_closure()               .&Apache::lonhtmlcommon::row_closure()
   
              .&Apache::lonhtmlcommon::row_title($lt{'ctit'})               .&Apache::lonhtmlcommon::row_title($lt{'ctit'})
              .'<input type="text" size="50" name="title" />'               .'<input type="text" size="80" name="title" />'
              .&Apache::lonhtmlcommon::row_closure()               .&Apache::lonhtmlcommon::row_closure()
   
              .&Apache::lonhtmlcommon::row_title($lt{'chsr'})               .&Apache::lonhtmlcommon::row_title($lt{'chsr'})
Line 405  END Line 405  END
                  .' <input type="text" size="5" name="dateshift" value="365" />'                   .' <input type="text" size="5" name="dateshift" value="365" />'
                  .&Apache::lonhtmlcommon::row_closure()                   .&Apache::lonhtmlcommon::row_closure()
                  .&Apache::lonhtmlcommon::row_headline()                   .&Apache::lonhtmlcommon::row_headline()
                  .$lt{'asov'}                   .'<span class="LC_info">'.$lt{'asov'}.'</span>'
                  .&Apache::lonhtmlcommon::row_closure(1)                   .&Apache::lonhtmlcommon::row_closure(1)
                  .&Apache::lonhtmlcommon::end_pick_box()                   .&Apache::lonhtmlcommon::end_pick_box()
                  .'</td>'                   .'</td>'
Line 689  sub create_course { Line 689  sub create_course {
       '<p><a href="/adm/managekeys?cid='.$crsudom.'_'.$crsunum.'">'.&mt('Manage Access Keys').'</a></p>');        '<p><a href="/adm/managekeys?cid='.$crsudom.'_'.$crsunum.'">'.&mt('Manage Access Keys').'</a></p>');
  }   }
         # Flush the course logs so reverse user roles immediately updated          # Flush the course logs so reverse user roles immediately updated
  &Apache::lonnet::flushcourselogs();   $r->register_cleanup(\&Apache::lonnet::flushcourselogs);
  $r->print('<p>'.&mt('Roles will be active at next login').'.</p>');   $r->print('<p>'.&mt('Roles will be active at next login').'.</p>');
     }      }
     $r->print('<p><a href="/adm/createcourse?phase='.lc($crstype).'one">'.      $r->print('<p><a href="/adm/createcourse?phase='.lc($crstype).'one">'.
Line 705  sub print_intro_page { Line 705  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 => 'crsnew.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 => 'crsnew.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 => 'uplcrs.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 => 'rcrs.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 => 'View pending 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 => 'edit-find.png',
             "\n";                 alttext => '',
     }                 linktitle => 'Display official course requests submitted by authorized users, held pending validation of instructor status.'
     $r->print(<<ENDDOCUMENT);             },
 $start_page         ]
 $crumbs         },
 $options         { categorytitle => 'Administration',
 $end_page         items => [
 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 794  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;
 }  }
Line 915  sub print_creation_logs { Line 932  sub print_creation_logs {
     if ($numtitles) {      if ($numtitles) {
         if (($curr{'type'} eq 'official') || ($curr{'type'} eq 'unofficial')) {          if (($curr{'type'} eq 'official') || ($curr{'type'} eq 'unofficial')) {
             $instcodefilter = &instcode_srchstr($dom,$numtitles);              $instcodefilter = &instcode_srchstr($dom,$numtitles);
                 &Apache::courseclassifier::instcode_search_str($dom,$numtitles);                  &Apache::courseclassifier::instcode_search_str($dom,$numtitles,\@codetitles);
             if ($curr{'type'} eq 'official') {              if ($curr{'type'} eq 'official') {
                 $regexpok = 1;                  $regexpok = 1;
             } else {              } else {
Removed from v.1.137.4.1  
changed lines
  Added in v.1.146

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