version 1.110.2.1, 2008/12/15 08:35:33
|
version 1.111, 2008/11/11 16:40:43
|
Line 27
|
Line 27
|
# |
# |
### |
### |
|
|
|
=head1 NAME |
|
|
|
Apache::loncreatecourse.pm |
|
|
|
=head1 SYNOPSIS |
|
|
|
Allows domain coordinators to create new |
|
courses and assign course coordinators. |
|
|
|
This is part of the LearningOnline Network with CAPA project |
|
described at http://www.lon-capa.org. |
|
|
|
=head1 HANDLER SUBROUTINE |
|
|
|
handler() |
|
|
|
=head1 OTHER SUBROUTINES |
|
|
|
=over |
|
|
|
=item * |
|
|
|
print_course_creation_page() |
|
|
|
=item * |
|
|
|
create_course() |
|
|
|
=item * |
|
|
|
print_intro_page() |
|
|
|
=item * |
|
|
|
upload_batchfile() |
|
|
|
=item * |
|
|
|
process_batchfile() |
|
|
|
=back |
|
|
|
=cut |
|
|
package Apache::loncreatecourse; |
package Apache::loncreatecourse; |
|
|
use strict; |
use strict; |
Line 227 END
|
Line 271 END
|
|
|
if ($crstype eq 'Course') { |
if ($crstype eq 'Course') { |
$r->print('<form action="/adm/createcourse" method="post" name="ccrs">' |
$r->print('<form action="/adm/createcourse" method="post" name="ccrs">' |
.'<div class="LC_createcourse">' |
|
.&Apache::lonhtmlcommon::start_pick_box() |
.&Apache::lonhtmlcommon::start_pick_box() |
|
|
.&Apache::lonhtmlcommon::row_headline() |
.&Apache::lonhtmlcommon::row_headline() |
Line 466 END
|
Line 509 END
|
); |
); |
|
|
$r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
</div> |
|
<p> |
<p> |
<input type="hidden" name="prevphase" value="courseone" /> |
<input type="hidden" name="prevphase" value="courseone" /> |
<input type="hidden" name="phase" value="coursetwo" /> |
<input type="hidden" name="phase" value="coursetwo" /> |