--- loncom/interface/loncreatecourse.pm 2002/08/18 21:43:59 1.11 +++ loncom/interface/loncreatecourse.pm 2003/09/02 19:47:47 1.32 @@ -1,7 +1,7 @@ # The LearningOnline Network # Create a course # -# $Id: loncreatecourse.pm,v 1.11 2002/08/18 21:43:59 www Exp $ +# $Id: loncreatecourse.pm,v 1.32 2003/09/02 19:47:47 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -44,6 +44,109 @@ package Apache::loncreatecourse; use strict; use Apache::Constants qw(:common :http); 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')) { + ©file($origcrsid,$newcrsid,$_); + } +} +# ========================================================== Copy all userfiles + +sub copydbfiles { + my ($origcrsid,$newcrsid)=@_; + foreach (&crsdirlist($origcrsid)) { + if ($_=~/\.db$/) { + unless + ($_=~/^(nohist\_|discussiontimes|classlist|versionupdate)/) { + ©db($origcrsid,$newcrsid,$_); + } + } + } +} + +# ======================================================= Copy all course files + +sub copycoursefiles { + my ($origcrsid,$newcrsid)=@_; + ©userfiles($origcrsid,$newcrsid); + ©dbfiles($origcrsid,$newcrsid); +} # ===================================================== Phase one: fill-in form @@ -53,11 +156,21 @@ sub print_course_creation_page { 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'); + 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(< +$coursebrowserjs The LearningOnline Network with CAPA - - -

Create a new Course

+$bodytag +$helplink

Course Information

Course Title:

-Map: - -Browse -

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

Course Home Server:$course_home

Course ID/Number (optional) +

+

Course Content

+ + + +
Completely new courseClone an existing course
+

+Map: + +Select Map

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

+

+First Resource
(standard courses only): +Blank +  +Syllabus +  +Navigate +

+		 +Course ID: +
+Domain: +$cloneform
 
+Additional settings, if specified below, will override cloned settings. +
+

Assessment Parameters

+

Open all assessments: -

+

+

Messaging

+

Set course policy feedback to Course Coordinator:

Set content feedback to Course Coordinator:

- +

Communication

+

+Disable student resource discussion: +
+Disable student use of chatrooms: + +

+

Access Control

+

+Students need access key to enter course: + +

Course Coordinator

Username: @@ -143,14 +292,13 @@ sub create_course { $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 - - -

Create a new Course

+$bodytag ENDENHEAD # # Verify data @@ -171,38 +319,134 @@ ENDENHEAD # # Open course # + my %cenv=(); 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.'
'); # -# Set optional courseid +# Check if created correctly # my ($crsudom,$crsunum)=($courseid=~/^\/(\w+)\/(\w+)$/); my $crsuhome=&Apache::lonnet::homeserver($crsunum,$crsudom); $r->print('Created on: '.$crsuhome.'
'); +# +# 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( + '
Attempting to clone non-existing course '.$cloneid.''); + } else { + $r->print( + '
Cloning course from '.$clonehome.''); +# Copy all files + ©coursefiles($cloneid,$courseid); +# Restore title + $cenv{'description'}=$cdescr; + } + } +# +# Set environment (will override cloned, if existing) +# if ($ENV{'form.crsid'}) { - $r->print('Setting optional Course ID/Number: '. - &Apache::lonnet::reply('put:'.$crsudom.':'. - $crsunum.':environment:courseid='. - &Apache::lonnet::escape($ENV{'form.crsid'}), - $crsuhome).'
'); + $cenv{'courseid'}=$ENV{'form.crsid'}; + } + 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('
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 # - $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( - $ENV{'user.domain'},$ENV{'user.name'},$courseid,'cc').'
'); + $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').'

'); - $r->print('Roles will be active at next login.'); + } + if ($ENV{'form.setkeys'}) { + $r->print( + '

Manage Access Keys

'); + } + $r->print('

Roles will be active at next login.

'); } # ===================================================================== Handler