version 1.2, 2001/02/17 22:25:19
|
version 1.5, 2001/12/19 17:17:46
|
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 12
|
Line 37
|
# |
# |
# 3/1 Gerd Kortemeyer) |
# 3/1 Gerd Kortemeyer) |
# |
# |
# 2/14,2/16,2/17 Gerd Kortemeyer |
# 2/14,2/16,2/17,7/6 Gerd Kortemeyer |
# |
# |
package Apache::loncreatecourse; |
package Apache::loncreatecourse; |
|
|
Line 25 use Apache::lonnet;
|
Line 50 use Apache::lonnet;
|
sub phase_one { |
sub phase_one { |
my $r=shift; |
my $r=shift; |
|
|
|
my $defdom=$ENV{'user.domain'}; |
$r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
<html> |
<html> |
<head> |
<head> |
Line 35 sub phase_one {
|
Line 61 sub phase_one {
|
<h1>Create a new Course</h1> |
<h1>Create a new Course</h1> |
<form action=/adm/createcourse method=post> |
<form action=/adm/createcourse method=post> |
<h3>Course Title</h3> |
<h3>Course Title</h3> |
<input type=text size=40 name=title> |
<input type=text size=50 name=title> |
<h3>Top-level Map</h3> |
<h3>Top-level Map</h3> |
<input type=text size=40 name=topmap> |
<input type=text size=50 name=topmap> |
|
<h3>Course ID/Number (optional)</h3> |
|
<input type=text size=30 name=crsid> |
<h3>Course Cooordinator</h3> |
<h3>Course Cooordinator</h3> |
Username: <input type=text size=15 name=ccuname><br> |
Username: <input type=text size=15 name=ccuname><br> |
Domain: <input type=text size=15 name=ccdomain> |
Domain: <input type=text size=15 name=ccdomain value=$defdom> |
<input type=hidden name=phase value=two><p> |
<input type=hidden name=phase value=two><p> |
<input type=submit value="Open Course"> |
<input type=submit value="Open Course"> |
</form> |
</form> |
Line 73 ENDENHEAD
|
Line 101 ENDENHEAD
|
# Verify data |
# Verify data |
# |
# |
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); |
$r->print('No such user '.$ccuname.' at '.$ccdomain.'</body></html>'); |
return; |
return; |
} |
} |
|
|
Line 83 ENDENHEAD
|
Line 111 ENDENHEAD
|
my $courseid=&Apache::lonnet::createcourse($ENV{'user.domain'}, |
my $courseid=&Apache::lonnet::createcourse($ENV{'user.domain'}, |
$cdescr,$curl); |
$cdescr,$curl); |
|
|
$r->print('New Course ID: '.$courseid.'<br>'); |
$r->print('New LON-CAPA Course ID: '.$courseid.'<br>'); |
|
# |
|
# Set optional courseid |
|
# |
|
my ($crsudom,$crsunum)=($courseid=~/^\/(\w+)\/(\w+)$/); |
|
my $crsuhome=&Apache::lonnet::homeserver($crsunum,$crsudom); |
|
$r->print('Created on: '.$crsuhome.'<br>'); |
|
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).'<br>'); |
|
} |
# |
# |
# Make current user course adminstrator |
# Make current user course adminstrator |
# |
# |
Line 95 ENDENHEAD
|
Line 136 ENDENHEAD
|
# |
# |
$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').'<br>'); |
&Apache::lonnet::assignrole($ccdomain,$ccuname,$courseid,'cc').'<p>'); |
$r->print('</body></html>'); |
$r->print('Roles will be active at next login.</body></html>'); |
} |
} |
|
|
# ===================================================================== Handler |
# ===================================================================== Handler |