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

Diff for /loncom/interface/loncreatecourse.pm between versions 1.123 and 1.125

version 1.123, 2009/07/27 22:35:12 version 1.125, 2009/08/15 14:01:04
Line 178  function validate(formname) { Line 178  function validate(formname) {
                     'snak' => "Students need access key to enter course",                      'snak' => "Students need access key to enter course",
     'kaut' =>       'kaut' => 
     'Key authority (<tt>id@domain</tt>) if other than course',      'Key authority (<tt>id@domain</tt>) if other than course',
                     'cc'   => "Course Coordinator",                      'ow'   => "Course Owner",
                       'cc'   => "(will be assigned Course Coordinator role)",
                     'user' => "Username",                      'user' => "Username",
                     'aens' => "Automated enrollment settings",                      'aens' => "Automated enrollment settings",
                     'aesc' => "The following settings control automatic enrollment of students in this class based on information available for this specific course from your institution's official classlists.",                      'aesc' => "The following settings control automatic enrollment of students in this class based on information available for this specific course from your institution's official classlists.",
Line 215  function validate(formname) { Line 216  function validate(formname) {
                     'mnak' => "Members need access key to enter community",                      'mnak' => "Members need access key to enter community",
                     'kaug' =>                      'kaug' =>
                     'Key authority (<tt>id@domain</tt>) if other than community',                      'Key authority (<tt>id@domain</tt>) if other than community',
                     'gc'   => "Coordinator",                      'co'   => "Community Owner", 
                       'gc'   => "(will be assigned Coordinator role)",
                     'gid'  => "Community ID",                      'gid'  => "Community ID",
                     'crgr' => "Create Community",                      'crgr' => "Create Community",
                     'grts' => "Community Group Settings",                      'grts' => "Community Group Settings",
Line 265  END Line 267  END
                  .&Apache::lonhtmlcommon::start_pick_box()                   .&Apache::lonhtmlcommon::start_pick_box()
   
                  .&Apache::lonhtmlcommon::row_headline()                   .&Apache::lonhtmlcommon::row_headline()
                    .'<h3>'.$lt{'ow'}.'&nbsp;'.$lt{'cc'}.'</h3>'
                    .&Apache::lonhtmlcommon::row_closure()
   
                    .&Apache::lonhtmlcommon::row_title($lt{'user'})
                    .'<input type="text" size="15" name="ccuname" />'
                    .&Apache::loncommon::studentbrowser_javascript()
                    .&Apache::loncommon::selectstudent_link('ccrs','ccuname','ccdomain')
                    .&Apache::lonhtmlcommon::row_closure()
   
                    .&Apache::lonhtmlcommon::row_title($lt{'dmn'},"","LC_odd_row_value")
                    .$domform
                    .&Apache::lonhtmlcommon::row_closure()
   
                    .&Apache::lonhtmlcommon::row_headline()
                  .'<h3>'.$lt{'cinf'}.'</h3>'                   .'<h3>'.$lt{'cinf'}.'</h3>'
                  .&Apache::lonhtmlcommon::row_closure()                   .&Apache::lonhtmlcommon::row_closure()
   
Line 486  END Line 502  END
   
                  .&Apache::lonhtmlcommon::row_title($lt{'cgrq'})                   .&Apache::lonhtmlcommon::row_title($lt{'cgrq'})
                  .'<input type="text" name="crsquota" value="20" size="6" />Mb'                   .'<input type="text" name="crsquota" value="20" size="6" />Mb'
                  .&Apache::lonhtmlcommon::row_closure()  
   
                  .&Apache::lonhtmlcommon::row_headline()  
                  .'<h3>'.$lt{'cc'}.'</h3>'  
                  .&Apache::lonhtmlcommon::row_closure()  
   
                  .&Apache::lonhtmlcommon::row_title($lt{'user'})  
                  .'<input type="text" size="15" name="ccuname" />'  
                  .&Apache::loncommon::studentbrowser_javascript()  
                  .&Apache::loncommon::selectstudent_link('ccrs','ccuname','ccdomain')  
                  .&Apache::lonhtmlcommon::row_closure()  
   
                  .&Apache::lonhtmlcommon::row_title($lt{'dmn'},"","LC_odd_row_value")  
                  .$domform  
                  .&Apache::lonhtmlcommon::row_closure(1)                   .&Apache::lonhtmlcommon::row_closure(1)
   
                  .&Apache::lonhtmlcommon::end_pick_box()                   .&Apache::lonhtmlcommon::end_pick_box()
Line 517  ENDDOCUMENT Line 519  ENDDOCUMENT
     } elsif ($crstype eq 'Community') {      } elsif ($crstype eq 'Community') {
         $r->print(<<ENDDOCUMENT);          $r->print(<<ENDDOCUMENT);
 <form action="/adm/createcourse" method="post" name="ccrs">  <form action="/adm/createcourse" method="post" name="ccrs">
   <h2>$lt{'co'}&nbsp;$lt{'gc'}</h2>
   <p>
   <label>
       <b>$lt{'user'}:</b> <input type="text" size="15" name="ccuname" />
   </label>
   </p><p>
   <label>
       <b>$lt{'dmn'}:</b> $domform
   </label>
   </p>
 <h2>$lt{'ginf'}</h2>  <h2>$lt{'ginf'}</h2>
 <p>  <p>
 <label><b>$lt{'gtit'}:</b>  <label><b>$lt{'gtit'}:</b>
Line 621  $lt{'asov'}. Line 633  $lt{'asov'}.
     <input type="text" name="reshome" size="30" value="/res/$defdom/" />      <input type="text" name="reshome" size="30" value="/res/$defdom/" />
 </label>  </label>
 </p>  </p>
 <p>  
 <h2>$lt{'grts'}</h2>  <h2>$lt{'grts'}</h2>
   <p>
 $lt{'grtq'}  $lt{'grtq'}
 <input type="text" name="crsquota" value="20" />Mb  <input type="text" name="crsquota" value="20" />Mb
 </p>  </p>
 <hr />  <hr />
 <h2>$lt{'gc'}</h2>  
 <p>  
 <label>  
     <b>$lt{'user'}:</b> <input type="text" size="15" name="ccuname" />  
 </label>  
 </p><p>  
 <label>  
     <b>$lt{'dmn'}:</b> $domform  
 </label>  
 </p>  
 <p>  <p>
 <input type="hidden" name="prevphase" value="groupone" />  <input type="hidden" name="prevphase" value="groupone" />
 <input type="hidden" name="phase" value="grouptwo" />  <input type="hidden" name="phase" value="grouptwo" />
Line 804  sub print_intro_page { Line 806  sub print_intro_page {
     &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 "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.'),
                  },                   },
Line 814  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 950  sub handler { Line 957  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 $start_page=&Apache::loncommon::start_page('Display Requests');
              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.123  
changed lines
  Added in v.1.125

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