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

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

version 1.4, 2001/07/06 14:17:48 version 1.34, 2003/09/03 21:31:59
Line 1 Line 1
 # The LearningOnline Network  # The LearningOnline Network
 # Create a course  # Create a course
   #
   # $Id$
   #
   # Copyright Michigan State University Board of Trustees
   #
   # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
   #
   # LON-CAPA is free software; you can redistribute it and/or modify
   # it under the terms of the GNU General Public License as published by
   # the Free Software Foundation; either version 2 of the License, or
   # (at your option) any later version.
   #
   # LON-CAPA is distributed in the hope that it will be useful,
   # but WITHOUT ANY WARRANTY; without even the implied warranty of
   # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   # GNU General Public License for more details.
   #
   # You should have received a copy of the GNU General Public License
   # along with LON-CAPA; if not, write to the Free Software
   # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
   #
   # /home/httpd/html/adm/gpl.txt
   #
   # http://www.lon-capa.org/
   #
 # (My Desk  # (My Desk
 #  #
 # (Internal Server Error Handler  # (Internal Server Error Handler
Line 19  package Apache::loncreatecourse; Line 44  package Apache::loncreatecourse;
 use strict;  use strict;
 use Apache::Constants qw(:common :http);  use Apache::Constants qw(:common :http);
 use Apache::lonnet;  use Apache::lonnet;
   use Apache::loncommon;
   use Apache::lonratedt;
   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 phase_one {  sub print_course_creation_page {
     my $r=shift;      my $r=shift;
       my $defdom=$ENV{'request.role.domain'};
     my $defdom=$ENV{'user.domain'};      my %host_servers = &Apache::loncommon::get_library_servers($defdom);
       my $course_home = '<select name="course_home" size="1">'."\n";
       foreach my $server (sort(keys(%host_servers))) {
           $course_home .= qq{<option value="$server"};
           if ($server eq $Apache::lonnet::perlvar{'lonHostID'}) {
               $course_home .= " selected ";
           }
           $course_home .= qq{>$server $host_servers{$server}</option>};
       }
       $course_home .= "\n</select>\n";
       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','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">
   var editbrowser = null;
   function openbrowser(formname,elementname) {
       var url = '/res/?';
       if (editbrowser == null) {
           url += 'launch=1&';
       }
       url += 'catalogmode=interactive&';
       url += 'mode=edit&';
       url += 'form=' + formname + '&';
       url += 'element=' + elementname + '&';
       url += 'only=sequence' + '';
       var title = 'Browser';
       var options = 'scrollbars=1,resizable=1,menubar=0';
       options += ',width=700,height=600';
       editbrowser = open(url,title,options,'1');
       editbrowser.focus();
   }
   </script>
   $coursebrowserjs
 <head>  <head>
 <title>The LearningOnline Network with CAPA</title>  <title>The LearningOnline Network with CAPA</title>
 </head>  </head>
 <body bgcolor="#FFFFFF">  $bodytag
 <img align=right src=/adm/lonIcons/lonlogos.gif>  $helplink
 <h1>Create a new Course</h1>  <form action="/adm/createcourse" method="post" name="ccrs">
 <form action=/adm/createcourse method=post>  <h2>Course Information</h2>
 <h3>Course Title</h3>  <p>
 <input type=text size=50 name=title>  <b>Course Title:</b>
 <h3>Top-level Map</h3>  <input type="text" size="50" name="title">
 <input type=text size=50 name=topmap>  </p><p>
 <h3>Course ID/Number (optional)</h3>  <b>Course Home Server:</b>$course_home
 <input type=text size=30 name=crsid>  </p><p>
 <h3>Course Cooordinator</h3>  <b>Course ID/Number (optional)</b>
 Username: <input type=text size=15 name=ccuname><br>  <input type="text" size="30" name="crsid">
 Domain: <input type=text size=15 name=ccdomain value=$defdom>  </p>
 <input type=hidden name=phase value=two><p>  <h2>Course Content</h2>
 <input type=submit value="Open Course">  <table border="2">
   <tr><th>Completely new course</th><th>Clone an existing course</th></tr>
   <tr><td>
   <p>
   <b>Map:</b>
   <input type="text" size="50" name="topmap">
   <a href="javascript:openbrowser('ccrs','topmap')">Select Map</a>
   </p><p>
   <b>Do NOT generate as standard course</b><br /> 
   (only check if you know what you are doing):
   <input type="checkbox" name="nonstandard">
   </p>
   <p>
   <b>First Resource</b><br />(standard courses only):
   <input type="radio" name="firstres" value="blank">Blank
   &nbsp;
   <input type="radio" name="firstres" value="syl" checked>Syllabus
   &nbsp;
   <input type="radio" name="firstres" value="nav">Navigate
   </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>
   <p>
   <b>Open all assessments: </b>
   <input type="checkbox" name="openall" checked>
   </p>
   <h2>Messaging</h2>
   <p>
   <b>Set course policy feedback to Course Coordinator: </b>
   <input type="checkbox" name="setpolicy" checked>
   </p><p>
   <b>Set content feedback to Course Coordinator: </b>
   <input type="checkbox" name="setcontent" checked>
   </p>
   <h2>Communication</h2>
   <p>
   <b>Disable student resource discussion: </b>
   <input type="checkbox" name="disresdis" /> <br />
   <b>Disable student use of chatrooms: </b>
   <input type="checkbox" name="disablechat" />
   </p>
   <h2>Access Control</h2>
   <p>
   <b>Students need access key to enter course: </b>
   <input type="checkbox" name="setkeys" />
   </p>
   <h2>Course Coordinator</h2>
   <p>
   <b>Username:</b> <input type="text" size="15" name="ccuname" />
   </p><p>
   <b>Domain:</b> $domform
   </p><p>
   <b>Immediately expire own role as Course Coordinator:</b>
   <input type="checkbox" name="expireown" checked>
   </p><p>
   <input type="hidden" name="phase" value="two" />
   <input type="submit" value="Open Course">
   </p>
 </form>  </form>
 </body>  </body>
 </html>  </html>
Line 54  ENDDOCUMENT Line 283  ENDDOCUMENT
   
 # ====================================================== Phase two: make course  # ====================================================== Phase two: make course
   
 sub phase_two {  sub create_course {
     my $r=shift;      my $r=shift;
     my $topurl='/res/'.&Apache::lonnet::declutter($ENV{'form.topmap'});      my $topurl='/res/'.&Apache::lonnet::declutter($ENV{'form.topmap'});
     my $ccuname=$ENV{'form.ccuname'};      my $ccuname=$ENV{'form.ccuname'};
Line 63  sub phase_two { Line 292  sub phase_two {
     $ccdomain=~s/\W//g;      $ccdomain=~s/\W//g;
     my $cdescr=$ENV{'form.title'};      my $cdescr=$ENV{'form.title'};
     my $curl=$ENV{'form.topmap'};      my $curl=$ENV{'form.topmap'};
       my $bodytag=&Apache::loncommon::bodytag('Create a New Course');
     $r->print(<<ENDENHEAD);      $r->print(<<ENDENHEAD);
 <html>  <html>
 <head>  <head>
 <title>The LearningOnline Network with CAPA</title>  <title>The LearningOnline Network with CAPA</title>
 </head>  </head>
 <body bgcolor="#FFFFFF">  $bodytag
 <img align=right src=/adm/lonIcons/lonlogos.gif>  
 <h1>Create a new Course</h1>  
 ENDENHEAD  ENDENHEAD
 #      #
 # Verify data      # Verify data
 #      #
       # Check the veracity of the course coordinator
     if (&Apache::lonnet::homeserver($ccuname,$ccdomain) eq 'no_host') {      if (&Apache::lonnet::homeserver($ccuname,$ccdomain) eq 'no_host') {
         $r->print('No such user '.$ccuname.' at '.$ccdomain.'</body></html>');          $r->print('No such user '.$ccuname.' at '.$ccdomain.'</body></html>');
  return;   return;
     }      }
       # Check the proposed home server for the course
       my %host_servers = &Apache::loncommon::get_library_servers
           ($ENV{'request.role.domain'});
       if (! exists($host_servers{$ENV{'form.course_home'}})) {
           $r->print('Invalid home server for course: '.
                     $ENV{'form.course_home'}.'</body></html>');
           return;
       }
 #  #
 # Open course  # Open course
 #  #
     my $courseid=&Apache::lonnet::createcourse($ENV{'user.domain'},      my %cenv=();
                                                $cdescr,$curl);      my $courseid=&Apache::lonnet::createcourse($ENV{'request.role.domain'},
                                                  $cdescr,$curl,
                                                  $ENV{'form.course_home'},
                                                  $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>');
 #  #
 # Set optional courseid  # Check if created correctly
 #  #
     my ($crsudom,$crsunum)=($courseid=~/^\/(\w+)\/(\w+)$/);      my ($crsudom,$crsunum)=($courseid=~/^\/(\w+)\/(\w+)$/);
     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>');
   #
   # 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)
   #
     if ($ENV{'form.crsid'}) {      if ($ENV{'form.crsid'}) {
        $r->print('Setting optional Course ID/Number: '.                           $cenv{'courseid'}=$ENV{'form.crsid'};
            &Apache::lonnet::reply('put:'.$crsudom.':'.  
                                   $crsunum.':environment:courseid='.  
                                   &Apache::lonnet::escape($ENV{'form.crsid'}),  
                                   $crsuhome).'<br>');  
     }      }
       if (($ccdomain) && ($ccuname)) {
          if ($ENV{'form.setpolicy'}) {
              $cenv{'policy.email'}=$ccuname.':'.$ccdomain;
          }
          if ($ENV{'form.setcontent'}) {
              $cenv{'question.email'}=$ccuname.':'.$ccdomain;
          }
       }
       if ($ENV{'form.setkeys'}) {
          $cenv{'keyaccess'}='yes';
       }
       if ($ENV{'form.disresdis'}) {
           $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
       $cenv{'course.helper.not.run'} = 1;
       #
       # Use new Randomseed
       #
       $cenv{'rndseed'}=&Apache::lonnet::latest_rnd_algorithm_id();;
       #
       # By default, use standard grading
       $cenv{'grading'} = 'standard';
   
       $r->print('<br />Setting environment: '.                 
             &Apache::lonnet::put('environment',\%cenv,$crsudom,$crsunum).'<br>');
   #
   # Open all assignments
   #
       if ($ENV{'form.openall'}) {
          my $storeunder=$crsudom.'_'.$crsunum.'.0.opendate';
          my %storecontent = ($storeunder         => time,
                              $storeunder.'.type' => 'date_start');
          
          $r->print('Opening all assignments: '.&Apache::lonnet::cput
                    ('resourcedata',\%storecontent,$crsudom,$crsunum).'<br>');
      }
   #
   # Set first page
   #
       unless (($ENV{'form.nonstandard'}) || ($ENV{'form.firstres'} eq 'blank')) {
    $r->print('Setting first resource: ');
           my ($errtext,$fatal)=
              &Apache::londocs::mapread($crsunum,$crsudom,'default.sequence');
           $r->print(($fatal?$errtext:'read ok').' - ');
           my $title; my $url;
           if ($ENV{'form.firstres'} eq 'syl') {
       $title='Syllabus';
               $url='/public/'.$crsudom.'/'.$crsunum.'/syllabus';
           } else {
               $title='Navigate Contents';
               $url='/adm/navmaps';
           }
           $Apache::lonratedt::resources[1]=$title.':'.$url.':false:start:res';
           ($errtext,$fatal)=
              &Apache::londocs::storemap($crsunum,$crsudom,'default.sequence');
           $r->print(($fatal?$errtext:'write ok').'<br>');
     }
 #  #
 # Make current user course adminstrator  # Make current user course adminstrator
 #  #
     $r->print('Assigning role of course coordinator to self: '.      my $end=undef;
       my $addition='';
       if ($ENV{'form.expireown'}) { $end=time+5; $addition='expired'; }
       $r->print('Assigning '.$addition.' role of course coordinator to self: '.
     &Apache::lonnet::assignrole(      &Apache::lonnet::assignrole(
      $ENV{'user.domain'},$ENV{'user.name'},$courseid,'cc').'<br>');       $ENV{'user.domain'},$ENV{'user.name'},$courseid,'cc',$end).'<br>');
 #  #
 # Make additional user course administrator  # Make additional user course administrator
 #  #
      if (($ccdomain) && ($ccuname)) {
     $r->print('Assigning role of course coordinator to '.      $r->print('Assigning role of course coordinator to '.
                $ccuname.' at '.$ccdomain.': '.                 $ccuname.' at '.$ccdomain.': '.
     &Apache::lonnet::assignrole($ccdomain,$ccuname,$courseid,'cc').'<p>');      &Apache::lonnet::assignrole($ccdomain,$ccuname,$courseid,'cc').'<p>');
     $r->print('Roles will be active at next login.</body></html>');     }
       if ($ENV{'form.setkeys'}) {
    $r->print(
    '<p><a href="/adm/managekeys?cid='.$crsudom.'_'.$crsunum.'">Manage Access Keys</a></p>');
       }
       $r->print('<p>Roles will be active at next login.</p></body></html>');
 }  }
   
 # ===================================================================== Handler  # ===================================================================== Handler
Line 125  sub handler { Line 459  sub handler {
        return OK;         return OK;
     }      }
   
     if (&Apache::lonnet::allowed('ccc',$ENV{'user.domain'})) {      if (&Apache::lonnet::allowed('ccc',$ENV{'request.role.domain'})) {
        $r->content_type('text/html');         $r->content_type('text/html');
        $r->send_http_header;         $r->send_http_header;
   
        if ($ENV{'form.phase'} eq 'two') {         if ($ENV{'form.phase'} eq 'two') {
            &phase_two($r);             &create_course($r);
        } else {         } else {
    &phase_one($r);     &print_course_creation_page($r);
        }         }
    } else {     } else {
       $ENV{'user.error.msg'}=        $ENV{'user.error.msg'}=
Removed from v.1.4  
changed lines
  Added in v.1.34

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.