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

Diff for /loncom/interface/loncreatecourse.pm between versions 1.31 and 1.32

version 1.31, 2003/09/02 18:00:14 version 1.32, 2003/09/02 19:47:47
Line 166  sub print_course_creation_page { Line 166  sub print_course_creation_page {
     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 $bodytag=&Apache::loncommon::bodytag('Create a New Course');
     my $helplink=&Apache::loncommon::help_open_topic('Create_Course','Help on Creating Courses');      my $helplink=&Apache::loncommon::help_open_topic('Create_Course','Help on Creating Courses');
       my $cloneform=&Apache::loncommon::select_dom_form
    ($ENV{'request.role.domain'},'clonedomain').
        &Apache::loncommon::selectcourse_link
        ('ccrs','clonecourse','clonedomain');
       my $coursebrowserjs=&Apache::loncommon::coursebrowser_javascript();
     $r->print(<<ENDDOCUMENT);      $r->print(<<ENDDOCUMENT);
 <html>  <html>
 <script language="JavaScript" type="text/javascript">  <script language="JavaScript" type="text/javascript">
Line 187  function openbrowser(formname,elementnam Line 192  function openbrowser(formname,elementnam
     editbrowser.focus();      editbrowser.focus();
 }  }
 </script>  </script>
   $coursebrowserjs
 <head>  <head>
 <title>The LearningOnline Network with CAPA</title>  <title>The LearningOnline Network with CAPA</title>
 </head>  </head>
Line 204  $helplink Line 210  $helplink
 <input type="text" size="30" name="crsid">  <input type="text" size="30" name="crsid">
 </p>  </p>
 <h2>Course Content</h2>  <h2>Course Content</h2>
   <table border="2">
   <tr><th>Completely new course</th><th>Clone an existing course</th></tr>
   <tr><td>
 <p>  <p>
 <b>Map:</b>  <b>Map:</b>
 <input type="text" size="50" name="topmap">  <input type="text" size="50" name="topmap">
 <a href="javascript:openbrowser('ccrs','topmap')">Select Map</a>  <a href="javascript:openbrowser('ccrs','topmap')">Select Map</a>
 </p><p>  </p><p>
 <b>Do NOT generate as standard course</b>   <b>Do NOT generate as standard course</b><br /> 
 (only check if you know what you are doing):  (only check if you know what you are doing):
 <input type="checkbox" name="nonstandard">  <input type="checkbox" name="nonstandard">
 </p>  </p>
 <p>  <p>
 <b>First Resource</b> (standard courses only):  <b>First Resource</b><br />(standard courses only):
 <input type="radio" name="firstres" value="blank">Blank  <input type="radio" name="firstres" value="blank">Blank
 &nbsp;  &nbsp;
 <input type="radio" name="firstres" value="syl" checked>Syllabus  <input type="radio" name="firstres" value="syl" checked>Syllabus
 &nbsp;  &nbsp;
 <input type="radio" name="firstres" value="nav">Navigate  <input type="radio" name="firstres" value="nav">Navigate
 </p>  </p>
   </td><td>
   Course ID: <input input type="text" size="25" name="clonecourse" value="" />
   <br />
   Domain: 
   $cloneform<br />&nbsp;<br />
   Additional settings, if specified below, will override cloned settings.
   </td></tr>
   </table>
 <h2>Assessment Parameters</h2>  <h2>Assessment Parameters</h2>
 <p>  <p>
 <b>Open all assessments: </b>  <b>Open all assessments: </b>
Line 303  ENDENHEAD Line 319  ENDENHEAD
 #  #
 # Open course  # Open course
 #  #
       my %cenv=();
     my $courseid=&Apache::lonnet::createcourse($ENV{'request.role.domain'},      my $courseid=&Apache::lonnet::createcourse($ENV{'request.role.domain'},
                                                $cdescr,$curl,                                                 $cdescr,$curl,
                                                $ENV{'form.course_home'},                                                 $ENV{'form.course_home'},
Line 320  ENDENHEAD Line 337  ENDENHEAD
     my $crsuhome=&Apache::lonnet::homeserver($crsunum,$crsudom);      my $crsuhome=&Apache::lonnet::homeserver($crsunum,$crsudom);
     $r->print('Created on: '.$crsuhome.'<br>');      $r->print('Created on: '.$crsuhome.'<br>');
 #  #
 # Set environment  # Are we cloning?
   #
       my $cloneid='';
       if (($ENV{'form.clonecourse'}) && ($ENV{'form.clonedomain'})) {
    $cloneid='/'.$ENV{'form.clonedomain'}.'/'.$ENV{'form.clonecourse'};
           my ($clonecrsudom,$clonecrsunum)=($cloneid=~/^\/(\w+)\/(\w+)$/);
    my $clonehome=&Apache::lonnet::homeserver($clonecrsunum,$clonecrsudom);
    if ($clonehome eq 'no_host') {
       $r->print(
       '<br /><font color="red">Attempting to clone non-existing course '.$cloneid.'</font>');
    } else {
       $r->print(
       '<br /><font color="green">Cloning course from '.$clonehome.'</font>');
   # Copy all files
       &copycoursefiles($cloneid,$courseid);
   # Restore title
       $cenv{'description'}=$cdescr;
    }
       }
   #
   # Set environment (will override cloned, if existing)
 #  #
     my %cenv=();  
     my $envflag=0;  
     if ($ENV{'form.crsid'}) {      if ($ENV{'form.crsid'}) {
  $envflag=1;  
         $cenv{'courseid'}=$ENV{'form.crsid'};          $cenv{'courseid'}=$ENV{'form.crsid'};
     }      }
     if (($ccdomain) && ($ccuname)) {      if (($ccdomain) && ($ccuname)) {
        if ($ENV{'form.setpolicy'}) {         if ($ENV{'form.setpolicy'}) {
    $envflag=1;  
            $cenv{'policy.email'}=$ccuname.':'.$ccdomain;             $cenv{'policy.email'}=$ccuname.':'.$ccdomain;
        }         }
        if ($ENV{'form.setcontent'}) {         if ($ENV{'form.setcontent'}) {
            $envflag=1;  
            $cenv{'question.email'}=$ccuname.':'.$ccdomain;             $cenv{'question.email'}=$ccuname.':'.$ccdomain;
        }         }
     }      }
     if ($ENV{'form.setkeys'}) {      if ($ENV{'form.setkeys'}) {
        $envflag=1;  
        $cenv{'keyaccess'}='yes';         $cenv{'keyaccess'}='yes';
     }      }
     if ($ENV{'form.disresdis'}) {      if ($ENV{'form.disresdis'}) {
  $envflag=1;  
         $cenv{'pch.roles.denied'}='st';          $cenv{'pch.roles.denied'}='st';
     }      }
     if ($ENV{'form.disablechat'}) {      if ($ENV{'form.disablechat'}) {
  $envflag=1;  
         $cenv{'plc.roles.denied'}='st';          $cenv{'plc.roles.denied'}='st';
     }      }
   
     # Record we've not yet viewed the Course Initialization Helper for this course      # Record we've not yet viewed the Course Initialization Helper for this 
       # course
     $cenv{'course.helper.not.run'} = 1;      $cenv{'course.helper.not.run'} = 1;
     #      #
     # Use new Randomseed      # Use new Randomseed
     #      #
     $envflag=1;  
     $cenv{'rndseed'}=&Apache::lonnet::latest_rnd_algorithm_id();;      $cenv{'rndseed'}=&Apache::lonnet::latest_rnd_algorithm_id();;
     #      #
     # By default, use standard grading      # By default, use standard grading
     $cenv{'grading'} = 'standard';      $cenv{'grading'} = 'standard';
   
     if ($envflag) {      $r->print('<br />Setting environment: '.                 
        $r->print('Setting environment: '.                   
           &Apache::lonnet::put('environment',\%cenv,$crsudom,$crsunum).'<br>');            &Apache::lonnet::put('environment',\%cenv,$crsudom,$crsunum).'<br>');
    }  
 #  #
 # Open all assignments  # Open all assignments
 #  #
Removed from v.1.31  
changed lines
  Added in v.1.32

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