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

Diff for /loncom/interface/loncreatecourse.pm between versions 1.109 and 1.110.2.2

version 1.109, 2008/09/25 17:44:11 version 1.110.2.2, 2008/12/15 08:44:25
Line 44  use LONCAPA; Line 44  use LONCAPA;
   
 sub print_course_creation_page {  sub print_course_creation_page {
     my $r=shift;      my $r=shift;
     my $crstype = 'Group';      my $crstype = 'Course';
     if ($env{'form.phase'} eq 'courseone') {  #    my $crstype = 'Group';
         $crstype = 'Course';  #    if ($env{'form.phase'} eq 'courseone') {
     }  #        $crstype = 'Course';
   #    }
     my $defdom=$env{'request.role.domain'};      my $defdom=$env{'request.role.domain'};
     my %host_servers = &Apache::lonnet::get_servers($defdom,'library');      my %host_servers = &Apache::lonnet::get_servers($defdom,'library');
     my $course_home = '<select name="course_home" size="1">'."\n";      my $course_home = '<select name="course_home" size="1">'."\n";
Line 127  function validate(formname) { Line 128  function validate(formname) {
                     'navi' => "Navigate",                      'navi' => "Navigate",
                     'cid'  => "Course ID",                      'cid'  => "Course ID",
                     'dmn'  => "Domain",                      'dmn'  => "Domain",
                       'dsh'  => "Date Shift",
                     'asov' => "Additional settings, if specified below, will override cloned settings",                      'asov' => "Additional settings, if specified below, will override cloned settings",
                     'ncd'  => "Do not clone date parameters",                      'ncd'  => "Do not clone date parameters",
                     'prd'  => 'Clone date parameters as-is',                      'prd'  => 'Clone date parameters as-is',
Line 223  END Line 225  END
     'Create_Course',undef,      'Create_Course',undef,
     'Create_Courses');      'Create_Courses');
     $r->print($start_page.$crumbs);      $r->print($start_page.$crumbs);
     if ($crstype eq 'Course') {  
   
       if ($crstype eq 'Course') {
         $r->print('<form action="/adm/createcourse" method="post" name="ccrs">'          $r->print('<form action="/adm/createcourse" method="post" name="ccrs">'
                    .'<div class="LC_createcourse">'
                  .&Apache::lonhtmlcommon::start_pick_box()                   .&Apache::lonhtmlcommon::start_pick_box()
   
                  .&Apache::lonhtmlcommon::row_headline()                   .&Apache::lonhtmlcommon::row_headline()
Line 263  END Line 266  END
                  .'<input type="text" size="30" name="crsxlist" />'                   .'<input type="text" size="30" name="crsxlist" />'
                  .'<br />('.$lt{'cscs'}.')'                   .'<br />('.$lt{'cscs'}.')'
                  .&Apache::lonhtmlcommon::row_closure()                   .&Apache::lonhtmlcommon::row_closure()
           );
   
                  .&Apache::lonhtmlcommon::row_headline()          # Table: New Course / Clone Course
           $r->print(&Apache::lonhtmlcommon::row_headline()
                  .'<h3>'.$lt{'crco'}.'</h3>'                   .'<h3>'.$lt{'crco'}.'</h3>'
                 );                   .&Apache::loncommon::start_data_table()
         $r->print(<<MYEND);                   .&Apache::loncommon::start_data_table_header_row()
 <table border="2">                   .'<th>'.$lt{'cncr'}.'</th>'
 <tr><th>$lt{'cncr'}</th><th>$lt{'cecr'}</th></tr>                   .'<th>&nbsp;'.&mt('or').'&nbsp;</th>'
 <tr><td>                   .'<th>'.$lt{'cecr'}.'</th>'
 <p>                   .&Apache::loncommon::end_data_table_header_row()
 <label>                   .&Apache::loncommon::start_data_table_row()
     <b>$lt{'map'}:</b>  
     <input type="text" size="50" name="topmap" />  
 </label>  
 <a href="javascript:openbrowser('ccrs','topmap')">$lt{'smap'}</a>  
 </p><p>  
 <label for="nonstd"><b>$lt{'sacr'}</b></label>  
 <br />  
 ($lt{'ocik'}):  
 <input id="nonstd" type="checkbox" name="nonstandard" />  
 </p><p>  
 <b>$lt{'fres'}</b><br />($lt{'stco'}):  
 <label>  
     <input type="radio" name="firstres" value="blank" />$lt{'blnk'}  
 </label>  
 &nbsp;  
 <label>  
     <input type="radio" name="firstres" value="syl" checked="checked" />$lt{'sllb'}  
 </label>  
 &nbsp;  
 <label>  
     <input type="radio" name="firstres" value="nav" />$lt{'navi'}  
 </label>  
 </p>  
 </td><td>  
 <label>  
     $lt{'cid'}: <input type="text" size="25" name="clonecourse" value="" />  
 </label>  
 <br />  
 <label>  
     $lt{'dmn'}: $cloneform  
 </label>  
 <br />  
  <label><input type="radio" name="datemode" value="delete" /> $lt{'ncd'}</label><br />  
  <label><input type="radio" name="datemode" value="preserve" /> $lt{'prd'}</label><br />  
  <label><input type="radio" name="datemode" value="shift" checked="checked" /> $lt{'shd'}</label>  
  <input type="text" size="5" name="dateshift" value="365" /><br />  
 &nbsp;<br />  
 $lt{'asov'}.  
 </td></tr>  
 </table>  
 MYEND  
   
                    # New Course:
 $r->print(' '                   .'<td>'
                    .&Apache::lonhtmlcommon::start_pick_box()
                    .&Apache::lonhtmlcommon::row_title($lt{'map'})
                    .'<input type="text" size="50" name="topmap" />'
                    .'<a href="javascript:openbrowser(\'ccrs\',\'topmap\')">'.$lt{'smap'}.'</a>'
                    .&Apache::lonhtmlcommon::row_closure()
                    .&Apache::lonhtmlcommon::row_title('<label for="nonstd">'.$lt{'sacr'}.'</label>')
                    .'<input id="nonstd" type="checkbox" name="nonstandard" />'
                    .'<br />('.$lt{'ocik'}.')'
                  .&Apache::lonhtmlcommon::row_closure()                   .&Apache::lonhtmlcommon::row_closure()
                    .&Apache::lonhtmlcommon::row_title($lt{'fres'})
                    .'<label>'
                    .'<input type="radio" name="firstres" value="blank" />'.$lt{'blnk'}
                    .'</label>'
                    .'&nbsp;'
                    .'<label>'
                    .'<input type="radio" name="firstres" value="syl" checked="checked" />'.$lt{'sllb'}
                    .'</label>'
                    .'&nbsp;'
                    .'<label>'
                    .'<input type="radio" name="firstres" value="nav" />'.$lt{'navi'}
                    .'</label>'
                    .'<br />('.$lt{'stco'}.')'
                    .&Apache::lonhtmlcommon::row_closure(1)
                    .&Apache::lonhtmlcommon::end_pick_box()
   
                    .'<td>&nbsp;</td>'
   
                    # Clone Course:
                    .'<td>'
                    .&Apache::lonhtmlcommon::start_pick_box()
                    .&Apache::lonhtmlcommon::row_title($lt{'cid'})
                    .'<label>'
                    .'<input type="text" size="25" name="clonecourse" value="" />'
                    .'</label>'
                    .&Apache::lonhtmlcommon::row_closure(1)
                    .&Apache::lonhtmlcommon::row_title($lt{'dmn'})
                    .'<label>'
                    .$cloneform
                    .'</label>'
                    .&Apache::lonhtmlcommon::row_closure()
                    .&Apache::lonhtmlcommon::row_title($lt{'dsh'})
                    .'<label>'
                    .'<input type="radio" name="datemode" value="delete" /> '.$lt{'ncd'}
                    .'</label><br />'
                    .'<label>'
                    .'<input type="radio" name="datemode" value="preserve" /> '.$lt{'prd'}
                    .'</label><br />'
                    .'<label>'
                    .'<input type="radio" name="datemode" value="shift" checked="checked" /> '.$lt{'shd'}
                    .'</label>'
                    .' <input type="text" size="5" name="dateshift" value="365" />'
                    .&Apache::lonhtmlcommon::row_closure()
                  .&Apache::lonhtmlcommon::row_headline()                   .&Apache::lonhtmlcommon::row_headline()
                    .$lt{'asov'}
                    .&Apache::lonhtmlcommon::row_closure(1)
                    .&Apache::lonhtmlcommon::end_pick_box()
                    .'</td>'
                    .&Apache::loncommon::end_data_table_row()
                    .&Apache::loncommon::end_data_table()
                    .&Apache::lonhtmlcommon::row_closure()
           );
   
           $r->print(&Apache::lonhtmlcommon::row_headline()
                  .'<h3>'.$lt{'assp'}.'</h3>'                   .'<h3>'.$lt{'assp'}.'</h3>'
                  .&Apache::lonhtmlcommon::row_closure()                   .&Apache::lonhtmlcommon::row_closure()
   
Line 440  $r->print(' ' Line 464  $r->print(' '
                  .&Apache::lonhtmlcommon::row_closure(1)                   .&Apache::lonhtmlcommon::row_closure(1)
   
                  .&Apache::lonhtmlcommon::end_pick_box()                   .&Apache::lonhtmlcommon::end_pick_box()
                  );          );
   
         $r->print(<<ENDDOCUMENT);          $r->print(<<ENDDOCUMENT);
   </div>
 <p>  <p>
 <input type="hidden" name="prevphase" value="courseone" />  <input type="hidden" name="prevphase" value="courseone" />
 <input type="hidden" name="phase" value="coursetwo" />  <input type="hidden" name="phase" value="coursetwo" />
Line 729  sub create_course { Line 754  sub create_course {
 sub print_intro_page {  sub print_intro_page {
     my $r = shift;      my $r = shift;
     my $start_page =      my $start_page =
         &Apache::loncommon::start_page('Create a New Course or Group Space');          &Apache::loncommon::start_page('Create a New Course');
     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();
Line 740  sub print_intro_page { Line 765  sub print_intro_page {
                      short_description =>                       short_description =>
     &mt('Create a new course by completing an online form.'),      &mt('Create a new course by completing an online form.'),
                  },                   },
                    { internal_name => 'groupone',  #                   { internal_name => 'groupone',
                      name => &mt('Create a single collaborative group space'),  #                     name => &mt('Create a single collaborative group space'),
                      short_description =>  #                     short_description =>
     &mt('Create a new group space for non-course use by completing an online form.'),  #    &mt('Create a new group space for non-course use by completing an online form.'),
                  },  #                 },
                    { internal_name => 'batchone',                     { internal_name => 'batchone',
                      name => &mt('Create courses/groups by uploading an attributes file'),                       name => &mt('Create courses by uploading an attributes file'),
                      short_description =>                       short_description =>
     &mt('Upload an attributes file containing specifications for one or more courses or groups in XML format.'),      &mt('Upload an attributes file containing specifications for one or more courses in XML format.'),
                      help => 'Batch_Creation',                       help => 'Batch_Creation',
                  },                   },
     );      );
Line 776  sub upload_batchfile { Line 801  sub upload_batchfile {
     my $r = shift;      my $r = shift;
     my $start_page =      my $start_page =
         &Apache::loncommon::start_page('Create a New Course or Group Space');          &Apache::loncommon::start_page('Create a New Course or Group Space');
     my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('Upload Course/Group Attributes File','Create_Course',undef,'Create_Courses');      my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('Upload Course Attributes File','Create_Course',undef,'Create_Courses');
     my $end_page =      my $end_page =
         &Apache::loncommon::end_page();          &Apache::loncommon::end_page();
     $r->print($start_page.$crumbs);      $r->print($start_page.$crumbs);
     $r->print('<h3>'.&mt('Upload a courses or groups attributes file').'</h3>');      $r->print('<h3>'.&mt('Upload a courses attributes file').'</h3>');
     $r->print('<form name="batchcreate" method="post" '.      $r->print('<form name="batchcreate" method="post" '.
                 'enctype="multipart/form-data" action="/adm/createcourse">'.                  'enctype="multipart/form-data" action="/adm/createcourse">'.
               '<input type="file" name="coursecreatorxml" />'.                '<input type="file" name="coursecreatorxml" />'.
Removed from v.1.109  
changed lines
  Added in v.1.110.2.2

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