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

Diff for /loncom/interface/loncreatecourse.pm between versions 1.85 and 1.88

version 1.85, 2006/01/16 23:11:50 version 1.88, 2006/05/15 19:11:40
Line 234  sub copydbfiles { Line 234  sub copydbfiles {
     foreach (&crsdirlist($origcrsid)) {      foreach (&crsdirlist($origcrsid)) {
  if ($_=~/\.db$/) {   if ($_=~/\.db$/) {
     unless       unless 
              ($_=~/^(nohist\_|discussiontimes|classlist|versionupdate|resourcedata|\Q$origcrs_discussion\E|slots|slot_reservations|(grading|review)queue|CODEs)/) {               ($_=~/^(nohist\_|discussiontimes|classlist|versionupdate|resourcedata|\Q$origcrs_discussion\E|slots|slot_reservations|gradingqueue|reviewqueue|CODEs)/) {
  &copydb($origcrsid,$newcrsid,$_);   &copydb($origcrsid,$newcrsid,$_);
  my $histfile=$_;   my $histfile=$_;
  $histfile=~s/\.db$/\.hist/;   $histfile=~s/\.db$/\.hist/;
Line 269  sub print_course_creation_page { Line 269  sub print_course_creation_page {
     }      }
     $course_home .= "\n</select>\n";      $course_home .= "\n</select>\n";
     my $domform = &Apache::loncommon::select_dom_form($defdom,'ccdomain');      my $domform = &Apache::loncommon::select_dom_form($defdom,'ccdomain');
     my $bodytag=&Apache::loncommon::bodytag('Create a New Course');  
     my $helplink=&Apache::loncommon::help_open_topic('Create_Course',&mt('Help on Creating Courses'));      my $helplink=&Apache::loncommon::help_open_topic('Create_Course',&mt('Help on Creating Courses'));
     my $cloneform=&Apache::loncommon::select_dom_form      my $cloneform=&Apache::loncommon::select_dom_form
  ($env{'request.role.domain'},'clonedomain').   ($env{'request.role.domain'},'clonedomain').
Line 351  sub print_course_creation_page { Line 350  sub print_course_creation_page {
     'rshm' => 'Resource Space Home',      'rshm' => 'Resource Space Home',
                     'opco' => "Open Course"                      'opco' => "Open Course"
        );         );
     my $html=&Apache::lonxml::xmlbegin();      my $js = <<END;
     $r->print(<<ENDDOCUMENT);  <script type="text/javascript">
 $html  
 <head>  
 <script language="JavaScript" type="text/javascript">  
 var editbrowser = null;  var editbrowser = null;
 function openbrowser(formname,elementname) {  function openbrowser(formname,elementname) {
     var url = '/res/?';      var url = '/res/?';
Line 376  function openbrowser(formname,elementnam Line 372  function openbrowser(formname,elementnam
 $javascript_validations  $javascript_validations
 </script>  </script>
 $coursebrowserjs  $coursebrowserjs
 <title>The LearningOnline Network with CAPA</title>  END
 </head>  
 $bodytag      my $start_page = 
           &Apache::loncommon::start_page('Create a New Course',$js);
       my $end_page = 
           &Apache::loncommon::end_page();
   
       $r->print(<<ENDDOCUMENT);
   $start_page
 $helplink  $helplink
 <form action="/adm/createcourse" method="post" name="ccrs">  <form action="/adm/createcourse" method="post" name="ccrs">
 <h2>$lt{'cinf'}</h2>  <h2>$lt{'cinf'}</h2>
Line 582  $lt{'ndcl'}<br/> Line 584  $lt{'ndcl'}<br/>
 <input type="button" onClick="verify_message(this.form)" value="$lt{'opco'}" />  <input type="button" onClick="verify_message(this.form)" value="$lt{'opco'}" />
 </p>  </p>
 </form>  </form>
 </body>  $end_page
 </html>  
 ENDDOCUMENT  ENDDOCUMENT
 }  }
   
Line 621  sub create_course { Line 622  sub create_course {
     }      }
   
     my $logmsg;      my $logmsg;
     my $html=&Apache::lonxml::xmlbegin();      my $start_page=&Apache::loncommon::start_page('Create a New Course');
     my $bodytag=&Apache::loncommon::bodytag('Create a New Course');      $r->print($start_page);
     $r->print(<<ENDENHEAD);  
 $html  
 <head>  
 <title>The LearningOnline Network with CAPA</title>  
 </head>  
 $bodytag  
 ENDENHEAD  
   
     my $args = {      my $args = {
                ccuname => $ccuname,                 ccuname => $ccuname,
Line 683  ENDENHEAD Line 677  ENDENHEAD
             <input type="hidden" name="ccdomain" value="'.$ccdomain.'" />              <input type="hidden" name="ccdomain" value="'.$ccdomain.'" />
             <input name="userrole" type="submit" value="'.              <input name="userrole" type="submit" value="'.
   &mt('Create User').'" />    &mt('Create User').'" />
  </form></body></html>');   </form>'.&Apache::loncommon::end_page());
  return;   return;
     }      }
     # Check the proposed home server for the course      # Check the proposed home server for the course
Line 691  ENDENHEAD Line 685  ENDENHEAD
         ($env{'request.role.domain'});          ($env{'request.role.domain'});
     if (! exists($host_servers{$env{'form.course_home'}})) {      if (! exists($host_servers{$env{'form.course_home'}})) {
         $r->print(&mt('Invalid home server for course').': '.          $r->print(&mt('Invalid home server for course').': '.
                   $env{'form.course_home'}.'</body></html>');                    $env{'form.course_home'}.&Apache::loncommon::end_page());
         return;          return;
     }      }
     my ($courseid,$crsudom,$crsunum);      my ($courseid,$crsudom,$crsunum);
Line 711  ENDENHEAD Line 705  ENDENHEAD
     }      }
 # Flush the course logs so reverse user roles immediately updated  # Flush the course logs so reverse user roles immediately updated
     &Apache::lonnet::flushcourselogs();      &Apache::lonnet::flushcourselogs();
     $r->print('<p>'.&mt('Roles will be active at next login').'.</p></body></html>');      $r->print('<p>'.&mt('Roles will be active at next login').'.</p>'.
         '<p><a href="/adm/createcourse">'.
         &mt('Create Another Course').'</a></p>'.
         &Apache::loncommon::end_page());
 }  }
   
 sub construct_course {  sub construct_course {
Removed from v.1.85  
changed lines
  Added in v.1.88

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