version 1.69, 2004/10/15 22:48:48
|
version 1.71, 2004/11/27 17:23:09
|
Line 38 use Apache::londocs;
|
Line 38 use Apache::londocs;
|
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::londropadd; |
use Apache::londropadd; |
use lib '/home/httpd/lib/perl'; |
use lib '/home/httpd/lib/perl'; |
use localenroll; |
|
|
|
# ================================================ Get course directory listing |
# ================================================ Get course directory listing |
|
|
Line 254 sub print_course_creation_page {
|
Line 253 sub print_course_creation_page {
|
($ENV{'request.role.domain'},'clonedomain'). |
($ENV{'request.role.domain'},'clonedomain'). |
&Apache::loncommon::selectcourse_link |
&Apache::loncommon::selectcourse_link |
('ccrs','clonecourse','clonedomain'); |
('ccrs','clonecourse','clonedomain'); |
my $coursebrowserjs=&Apache::loncommon::coursebrowser_javascript(); |
my $coursebrowserjs=&Apache::loncommon::coursebrowser_javascript($ENV{'request.role.domain'}); |
my $starttime = time; |
my $starttime = time; |
my $endtime = time+(6*30*24*60*60); # 6 months from now, approx |
my $endtime = time+(6*30*24*60*60); # 6 months from now, approx |
my $enroll_table = &Apache::londropadd::date_setting_table($starttime,$endtime,'create_enrolldates'); |
my $enroll_table = &Apache::londropadd::date_setting_table($starttime,$endtime,'create_enrolldates'); |
Line 614 ENDENHEAD
|
Line 613 ENDENHEAD
|
$cdescr,$curl, |
$cdescr,$curl, |
$ENV{'form.course_home'}, |
$ENV{'form.course_home'}, |
$ENV{'form.nonstandard'}, |
$ENV{'form.nonstandard'}, |
$ENV{'form.crscode'}); |
$ENV{'form.crscode'}, |
|
$ENV{'form.ccuname'}); |
|
|
# Note: The testing routines depend on this being output; see |
# Note: The testing routines depend on this being output; see |
# Utils::Course. This needs to at least be output as a comment |
# Utils::Course. This needs to at least be output as a comment |