version 1.14, 2004/06/02 17:31:03
|
version 1.16, 2005/08/01 18:04:09
|
Line 1
|
Line 1
|
<helper title="Course Initialization Helper" requiredpriv='opa'> |
<helper title="Course Initialization Helper" requiredpriv='opa'> |
|
|
<exec> |
<exec> |
my $courseid = $ENV{'request.course.id'}; |
my $courseid = $env{'request.course.id'}; |
my $crsdom = $ENV{'course.'.$courseid.'.domain'}; |
my $crsdom = $env{'course.'.$courseid.'.domain'}; |
my $crsnum = $ENV{'course.'.$courseid.'.num'}; |
my $crsnum = $env{'course.'.$courseid.'.num'}; |
$helper->{DATA}->{DOM} = $crsdom; |
$helper->{DATA}->{DOM} = $crsdom; |
$helper->{DATA}->{CRS} = $crsnum; |
$helper->{DATA}->{CRS} = $crsnum; |
|
|
$helper->{DATA}->{FIRST_RUN} = $ENV{'course.'.$crsnum. |
$helper->{DATA}->{FIRST_RUN} = $env{'course.'.$crsnum. |
'.course.intialization.not.run'}; |
'.course.intialization.not.run'}; |
# Delete the 'course.initialization.not.run' course environment |
# Delete the 'course.initialization.not.run' course environment |
Apache::lonnet::put('environment', {'course.helper.not.run' => 0}, |
Apache::lonnet::put('environment', {'course.helper.not.run' => 0}, |
$crsdom, $crsnum); |
$crsdom, $crsnum); |
Apache::lonnet::coursedescription($ENV{'request.course.id'}); |
Apache::lonnet::coursedescription($env{'request.course.id'}); |
|
|
$helper->{DATA}->{GETVAL} = sub { |
$helper->{DATA}->{GETVAL} = sub { |
my @resultlist = &Apache::lonnet::get('environment', [shift()], |
my @resultlist = &Apache::lonnet::get('environment', [shift()], |
Line 27
|
Line 27
|
$helper->{DATA}->{DOM}, |
$helper->{DATA}->{DOM}, |
$helper->{DATA}->{CRS}); |
$helper->{DATA}->{CRS}); |
# Try to fix bug 1757 |
# Try to fix bug 1757 |
Apache::lonnet::coursedescription($ENV{'request.course.id'}); |
Apache::lonnet::coursedescription($env{'request.course.id'}); |
return 1; |
return 1; |
} else { |
} else { |
return 0; |
return 0; |
Line 87
|
Line 87
|
<choice computer="ta"><b>Teaching Assistants</b> - teaching assistants will not be able use or view the chat room</choice> |
<choice computer="ta"><b>Teaching Assistants</b> - teaching assistants will not be able use or view the chat room</choice> |
<choice computer="in"><b>Instructor</b> - instructors will not be able to use or view the chat room</choice> |
<choice computer="in"><b>Instructor</b> - instructors will not be able to use or view the chat room</choice> |
<defaultvalue> |
<defaultvalue> |
my $denied = &{$helper->{DATA}->{GETVAL}}('plch.roles.denied'); |
my $denied = &{$helper->{DATA}->{GETVAL}}('plc.roles.denied'); |
$denied =~ s/,/\|\|\|/g; |
$denied =~ s/,/\|\|\|/g; |
return $denied; |
return $denied; |
</defaultvalue> |
</defaultvalue> |
Line 242
|
Line 242
|
screen, by pushing the <b>Course Environment</b> button.</p> |
screen, by pushing the <b>Course Environment</b> button.</p> |
</message> |
</message> |
<condition> |
<condition> |
<clause>$ENV{'course.'.$ENV{'request.course.id'}.'.clonedfrom'}</clause> |
<clause>$env{'course.'.$env{'request.course.id'}.'.clonedfrom'}</clause> |
<message>After you select <b>Finish Course Initialization</b>, |
<message>After you select <b>Finish Course Initialization</b>, |
you will be taken to the Parameter Overview screen to |
you will be taken to the Parameter Overview screen to |
update the dates for this cloned course.</message> |
update the dates for this cloned course.</message> |