# The LearningOnline Network # Create a course # # $Id: loncreatecourse.pm,v 1.31 2003/09/02 18:00:14 www 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; # -------------------------------------------- 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 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"; foreach my $server (sort(keys(%host_servers))) { $course_home .= qq{$server $host_servers{$server}}; } $course_home .= "\n\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: 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 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: Domain: $domform Immediately expire own role as Course Coordinator:
Course Title:
Course Home Server:$course_home
Course ID/Number (optional)
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
Open all assessments:
Set course policy feedback to Course Coordinator:
Set content feedback to Course Coordinator:
Disable student resource discussion: Disable student use of chatrooms:
Students need access key to enter course:
Username:
Domain: $domform
Immediately expire own role as Course Coordinator: