version 1.12, 2002/08/31 00:43:12
|
version 1.13, 2002/09/05 19:37:00
|
Line 45 use strict;
|
Line 45 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::loncommon; |
|
use Apache::lonratedt; |
|
use Apache::londocs; |
|
|
# ===================================================== Phase one: fill-in form |
# ===================================================== Phase one: fill-in form |
|
|
sub print_course_creation_page { |
sub print_course_creation_page { |
Line 91 $bodytag
|
Line 94 $bodytag
|
<b>Course Title:</b> |
<b>Course Title:</b> |
<input type="text" size="50" name="title"> |
<input type="text" size="50" name="title"> |
</p><p> |
</p><p> |
|
<b>Course Home Server:</b>$course_home |
|
</p><p> |
|
<b>Course ID/Number (optional)</b> |
|
<input type="text" size="30" name="crsid"> |
|
</p> |
|
<h2>Course Content</h2> |
|
<p> |
<b>Map:</b> |
<b>Map:</b> |
<input type="text" size="50" name="topmap"> |
<input type="text" size="50" name="topmap"> |
<a href="javascript:openbrowser('ccrs','topmap')">Browse</a> |
<a href="javascript:openbrowser('ccrs','topmap')">Browse</a> |
Line 98 $bodytag
|
Line 108 $bodytag
|
<b>Do NOT generate as standard course</b> |
<b>Do NOT generate as standard course</b> |
(only check if you know what you are doing): |
(only check if you know what you are doing): |
<input type="checkbox" name="nonstandard"> |
<input type="checkbox" name="nonstandard"> |
</p><p> |
</p> |
<b>Course Home Server:</b>$course_home |
<p> |
</p><p> |
<b>First Resource</b> (standard courses only): |
<b>Course ID/Number (optional)</b> |
<input type="radio" name="firstres" value="blank" checked>Blank |
<input type="text" size="30" name="crsid"> |
|
</p><p> |
<input type="radio" name="firstres" value="syl">Syllabus |
|
|
|
<input type="radio" name="firstres" value="nav">Navigate |
|
</p> |
|
|
|
<h2>Assessment Parameters</h2> |
|
<p> |
<b>Open all assessments: </b> |
<b>Open all assessments: </b> |
<input type="checkbox" name="openall" checked> |
<input type="checkbox" name="openall" checked> |
</p><p> |
</p> |
|
<h2>Messaging</h2> |
|
<p> |
<b>Set course policy feedback to Course Coordinator: </b> |
<b>Set course policy feedback to Course Coordinator: </b> |
<input type="checkbox" name="setpolicy" checked> |
<input type="checkbox" name="setpolicy" checked> |
</p><p> |
</p><p> |
Line 216 ENDENHEAD
|
Line 234 ENDENHEAD
|
$r->print('Opening all assignments: '.&Apache::lonnet::cput |
$r->print('Opening all assignments: '.&Apache::lonnet::cput |
('resourcedata',\%storecontent,$crsudom,$crsunum).'<br>'); |
('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'; |
|
my ($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 |
# |
# |