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

Diff for /loncom/interface/loncreatecourse.pm between versions 1.23 and 1.34

version 1.23, 2003/06/03 14:36:03 version 1.34, 2003/09/03 21:31:59
Line 48  use Apache::loncommon; Line 48  use Apache::loncommon;
 use Apache::lonratedt;  use Apache::lonratedt;
 use Apache::londocs;  use Apache::londocs;
   
   # -------------------------------------------- Return path to profile directory
   
   sub propath {
       my ($udom,$uname)=@_;
       $udom=~s/\W//g;
       $uname=~s/\W//g;
       my $subdir=$uname.'__';
       $subdir =~ s/(.)(.)(.).*/$1\/$2\/$3/;
       my $proname="$Apache::lonnet::perlvar{'lonUsersDir'}/$udom/$subdir/$uname";
       return $proname;
   } 
   
   # ================================================ Get course directory listing
   
   sub crsdirlist {
       my ($courseid,$which)=@_;
       unless ($which) { $which=''; }
       my %crsdata=&Apache::lonnet::coursedescription($courseid);
       my @listing=&Apache::lonnet::dirlist
    ($which,$crsdata{'domain'},$crsdata{'num'},
    &propath($crsdata{'domain'},$crsdata{'num'}));
       my @output=();
       foreach (@listing) {
    unless ($_=~/^\./) {
       push (@output,(split(/\&/,$_))[0]);
    }
       }
       return @output;
   }
   
   # ============================================================= Read a userfile
   
   sub readfile {
       my ($courseid,$which)=@_;
       my %crsdata=&Apache::lonnet::coursedescription($courseid);
       return &Apache::lonnet::getfile('/uploaded/'.$crsdata{'domain'}.'/'.
       $crsdata{'num'}.'/'.$which);
   }
   
   # ============================================================ Write a userfile
   
   sub writefile {
       (my $courseid, my $which,$ENV{'form.output'})=@_;
       my %crsdata=&Apache::lonnet::coursedescription($courseid);
       return &Apache::lonnet::finishuserfileupload(
     $crsdata{'num'},$crsdata{'domain'},
     $crsdata{'home'},
     'output',$which);
   }
   
   # ============================================================= Copy a userfile
   
   sub copyfile {
       my ($origcrsid,$newcrsid,$which)=@_;
       return &writefile($newcrsid,$which,&readfile($origcrsid,$which));
   }
   
   # =============================================================== Copy a dbfile
   
   sub copydb {
       my ($origcrsid,$newcrsid,$which)=@_;
       $which=~s/\.db$//;
       my %origcrsdata=&Apache::lonnet::coursedescription($origcrsid);
       my %newcrsdata= &Apache::lonnet::coursedescription($newcrsid);
       my %data=&Apache::lonnet::dump
    ($which,$origcrsdata{'domain'},$origcrsdata{'num'});
       return &Apache::lonnet::put
    ($which,\%data,$newcrsdata{'domain'},$newcrsdata{'num'});
   }
   
   # ========================================================== Copy all userfiles
   
   sub copyuserfiles {
       my ($origcrsid,$newcrsid)=@_;
       foreach (&crsdirlist($origcrsid,'userfiles')) {
    &copyfile($origcrsid,$newcrsid,$_);
       }
   }
   # ========================================================== Copy all userfiles
   
   sub copydbfiles {
       my ($origcrsid,$newcrsid)=@_;
       foreach (&crsdirlist($origcrsid)) {
    if ($_=~/\.db$/) {
       unless 
                ($_=~/^(nohist\_|discussiontimes|classlist|versionupdate|resourcedata)/) {
    &copydb($origcrsid,$newcrsid,$_);
        }
    }
       }
   }
   
   # ======================================================= Copy all course files
   
   sub copycoursefiles {
       my ($origcrsid,$newcrsid)=@_;
       &copyuserfiles($origcrsid,$newcrsid);
       &copydbfiles($origcrsid,$newcrsid);
   }
   
 # ===================================================== Phase one: fill-in form  # ===================================================== Phase one: fill-in form
   
 sub print_course_creation_page {  sub print_course_creation_page {
Line 66  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 87  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 104  $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')">Browse</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 138  $helplink Line 254  $helplink
 <h2>Communication</h2>  <h2>Communication</h2>
 <p>  <p>
 <b>Disable student resource discussion: </b>  <b>Disable student resource discussion: </b>
 <input type="checkbox" name="disresdis" />  <input type="checkbox" name="disresdis" /> <br />
   <b>Disable student use of chatrooms: </b>
   <input type="checkbox" name="disablechat" />
 </p>  </p>
 <h2>Access Control</h2>  <h2>Access Control</h2>
 <p>  <p>
Line 201  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'},
                                                $ENV{'form.nonstandard'});                                                 $ENV{'form.nonstandard'});
   
       # Note: The testing routines depend on this being output; see 
       # Utils::Course. This needs to at least be output as a comment
       # if anyone ever decides to not show this, and Utils::Course::new
       # will need to be suitably modified.
     $r->print('New LON-CAPA Course ID: '.$courseid.'<br>');      $r->print('New LON-CAPA Course ID: '.$courseid.'<br>');
 #  #
 # Check if created correctly  # Check if created correctly
Line 214  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'}) {
           $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
       $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
 #  #
     if ($ENV{'form.openall'}) {      if ($ENV{'form.openall'}) {
        my $storeunder=$crsudom.'_'.$crsunum.'.0.opendate';         my $storeunder=$crsudom.'_'.$crsunum.'.0.opendate';
        my %storecontent = ($storeunder        => time,         my %storecontent = ($storeunder         => time,
                            $storeunder.'type' => 'date_start');                             $storeunder.'.type' => 'date_start');
                 
        $r->print('Opening all assignments: '.&Apache::lonnet::cput         $r->print('Opening all assignments: '.&Apache::lonnet::cput
                  ('resourcedata',\%storecontent,$crsudom,$crsunum).'<br>');                   ('resourcedata',\%storecontent,$crsudom,$crsunum).'<br>');
Removed from v.1.23  
changed lines
  Added in v.1.34

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