# The LearningOnline Network # Create a course # # $Id: loncreatecourse.pm,v 1.22 2003/05/04 07:38:32 albertel Exp $ # # 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 # # (Internal Server Error Handler # # (Login Screen # 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14, # 1/14/00,5/29,5/30,6/1,6/29,7/1,11/9 Gerd Kortemeyer) # # 3/1/1 Gerd Kortemeyer) # # 3/1 Gerd Kortemeyer) # # 2/14,2/16,2/17,7/6 Gerd Kortemeyer # package Apache::loncreatecourse; use strict; use Apache::Constants qw(:common :http); use Apache::lonnet; use Apache::loncommon; use Apache::lonratedt; use Apache::londocs; # ===================================================== Phase one: fill-in form sub print_course_creation_page { my $r=shift; my $defdom=$ENV{'request.role.domain'}; my %host_servers = &Apache::loncommon::get_library_servers($defdom); my $course_home = '\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'); $r->print(< The LearningOnline Network with CAPA $bodytag $helplink

Course Information

Course Title:

Course Home Server:$course_home

Course ID/Number (optional)

Course Content

Map: Browse

Do NOT generate as standard course (only check if you know what you are doing):

First Resource (standard courses only): Blank   Syllabus   Navigate

Assessment Parameters

Open all assessments:

Messaging

Set course policy feedback to Course Coordinator:

Set content feedback to Course Coordinator:

Communication

Disable student resource discussion:

Access Control

Students need access key to enter course:

Course Coordinator

Username:

Domain: $domform

Immediately expire own role as Course Coordinator:

ENDDOCUMENT } # ====================================================== Phase two: make course sub create_course { my $r=shift; my $topurl='/res/'.&Apache::lonnet::declutter($ENV{'form.topmap'}); my $ccuname=$ENV{'form.ccuname'}; my $ccdomain=$ENV{'form.ccdomain'}; $ccuname=~s/\W//g; $ccdomain=~s/\W//g; my $cdescr=$ENV{'form.title'}; my $curl=$ENV{'form.topmap'}; my $bodytag=&Apache::loncommon::bodytag('Create a New Course'); $r->print(< The LearningOnline Network with CAPA $bodytag ENDENHEAD # # Verify data # # Check the veracity of the course coordinator if (&Apache::lonnet::homeserver($ccuname,$ccdomain) eq 'no_host') { $r->print('No such user '.$ccuname.' at '.$ccdomain.''); 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'}.''); return; } # # Open course # my $courseid=&Apache::lonnet::createcourse($ENV{'request.role.domain'}, $cdescr,$curl, $ENV{'form.course_home'}, $ENV{'form.nonstandard'}); $r->print('New LON-CAPA Course ID: '.$courseid.'
'); # # Check if created correctly # my ($crsudom,$crsunum)=($courseid=~/^\/(\w+)\/(\w+)$/); my $crsuhome=&Apache::lonnet::homeserver($crsunum,$crsudom); $r->print('Created on: '.$crsuhome.'
'); # # Set environment # my %cenv=(); my $envflag=0; if ($ENV{'form.crsid'}) { $envflag=1; $cenv{'courseid'}=$ENV{'form.crsid'}; } if (($ccdomain) && ($ccuname)) { if ($ENV{'form.setpolicy'}) { $envflag=1; $cenv{'policy.email'}=$ccuname.':'.$ccdomain; } if ($ENV{'form.setcontent'}) { $envflag=1; $cenv{'question.email'}=$ccuname.':'.$ccdomain; } } if ($ENV{'form.setkeys'}) { $envflag=1; $cenv{'keyaccess'}='yes'; } if ($ENV{'form.disresdis'}) { $envflag=1; $cenv{'pch.roles.denied'}='st'; } # # Use new Randomseed # $envflag=1; $cenv{'rndseed'}=&Apache::lonnet::latest_rnd_algorithm_id();; if ($envflag) { $r->print('Setting environment: '. &Apache::lonnet::put('environment',\%cenv,$crsudom,$crsunum).'
'); } # # 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).'
'); } # # 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').'
'); } # # Make current user course adminstrator # 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( $ENV{'user.domain'},$ENV{'user.name'},$courseid,'cc',$end).'
'); # # Make additional user course administrator # if (($ccdomain) && ($ccuname)) { $r->print('Assigning role of course coordinator to '. $ccuname.' at '.$ccdomain.': '. &Apache::lonnet::assignrole($ccdomain,$ccuname,$courseid,'cc').'

'); } if ($ENV{'form.setkeys'}) { $r->print( '

Manage Access Keys

'); } $r->print('

Roles will be active at next login.

'); } # ===================================================================== Handler sub handler { my $r = shift; if ($r->header_only) { $r->content_type('text/html'); $r->send_http_header; return OK; } if (&Apache::lonnet::allowed('ccc',$ENV{'request.role.domain'})) { $r->content_type('text/html'); $r->send_http_header; if ($ENV{'form.phase'} eq 'two') { &create_course($r); } else { &print_course_creation_page($r); } } else { $ENV{'user.error.msg'}= "/adm/createcourse:ccc:0:0:Cannot create courses"; return HTTP_NOT_ACCEPTABLE; } return OK; } 1; __END__