- This helper will help you set up your new LON-CAPA course and choose
- which LON-CAPA features will be active in your course. You can
- re-visit it later to change settings in your course.
-
- FIXME: Figure out some way to detect whether this has been
- run, and change that paragraph appropriatly.
-
- If you have previous experience with coordinating LON-CAPA courses and
- prefer to use the in-course interface to change these settings,
- click here to leave this helper.
+
+ my $courseid = $ENV{'request.course.id'};
+ my $crsdom = $ENV{'course.'.$courseid.'.domain'};
+ my $crsnum = $ENV{'course.'.$courseid.'.num'};
+ $helper->{DATA}->{DOM} = $crsdom;
+ $helper->{DATA}->{CRS} = $crsnum;
+
+ $helper->{DATA}->{FIRST_RUN} = $ENV{'course.'.$crsnum.
+ '.course.intialization.not.run'};
+ # Delete the 'course.initialization.not.run' course environment
+ Apache::lonnet::put('environment', {'course.helper.not.run' => 0},
+ $crsdom, $crsnum);
+ Apache::lonnet::coursedescription($ENV{'request.course.id'});
+
+ $helper->{DATA}->{GETVAL} = sub {
+ my @resultlist = &Apache::lonnet::get('environment', [shift()],
+ $helper->{DATA}->{DOM},
+ $helper->{DATA}->{CRS});
+ return $resultlist[1]; };
+ $helper->{DATA}->{SETVAL} = sub {
+ my $name = shift;
+ my $val = shift;
+ if (&{$helper->{DATA}->{GETVAL}}($name) ne $val) {
+ &Apache::lonnet::put('environment', {$name=>$val},
+ $helper->{DATA}->{DOM},
+ $helper->{DATA}->{CRS});
+ # Try to fix bug 1757
+ Apache::lonnet::coursedescription($ENV{'request.course.id'});
+ return 1;
+ } else {
+ return 0;
+ }
+ }
+
- All settings you can change with this helper can also be changed while the
- course is running by going to the PARM screen and clicking on the "Set
+
+
+ return $helper->{DATA}->{FIRST_RUN} ?
+ 'This Helper will set up your new LON-CAPA course and choose '.
+ 'which features will be active. You can '.
+ 're-visit it later to change settings in your course.' .
+
+ 'If you have previous experience with coordinating LON-CAPA courses and '.
+ 'prefer not to use the helper, click here to leave.'
+ :
+ &mt('This helper will set up your LON-CAPA course and choose which features will be active.');
+
+
+ All settings which you can change with this Helper can also be changed
+ by going to the PARM screen and clicking on the "Set
course environment" button.
- If you do not have experience coordinating LON-CAPA courses, or if you
- prefer the helper interface, please click Next ->.
+ If you do not have experience coordinating LON-CAPA courses or if you
+ prefer the Helper interface, please click Next ->.
+
+
+
+
+
+ The "Course Description" is the name of the course that will be
+ seen by the students. You may now modify the description and hit
+ "Next ->" to continue.
+
+
+ return &{$helper->{DATA}->{GETVAL}}('description');
+
+
+ if (&{$helper->{DATA}->{SETVAL}}('description', $element->getValue())) {
+ return 'Course description changed to ' . $element->getValue() .
+ '.';
+ }
+
+
+
+
+
+
+ LON-CAPA has live chat functionality. This course will receive
+ its own chat room. You may deny students, TAs, or instructors
+ the right to access the chat room.
+
+
+ Students - students will not be able to use or view the chat room.
+ Teaching Assistants - teaching assistants will not be able use or view the chat room
+ Instructor - instructors will not be able to use or view the chat room
+
+ my $denied = &{$helper->{DATA}->{GETVAL}}('plch.roles.denied');
+ $denied =~ s/,/\|\|\|/g;
+ return $denied;
+
+
+ my $denied = $element->getValue();
+ $denied =~ s/\|\|\|/,/g;
+ if (&{$helper->{DATA}->{SETVAL}}('plc.roles.denied', $denied)) {
+ $denied =~ s/st/ students/;
+ $denied =~ s/in/ instructors/;
+ $denied =~ s/ta/ teaching assistants/;
+ $denied =~ s/ep/ exam proctors/;
+ if ($denied =~ /^[^,]*,[^,]*$/) { # only one comma
+ $denied =~ s/,/ and/g;
+ } else { # add "and" to last comma
+ $denied =~ s/,([^,]*)$/, and\1/;
+ }
+ if ($denied) {
+ $denied = substr($denied, 1) . ' not allowed to participate in discussion.';
+ $denied = ucfirst($denied);
+ } else {
+ $denied = 'Everyone can participate in discussion.';
+ }
+ return $denied;
+ } else {
+ return '';
+ }
+
+
- LON-CAPA hosts discussions on all resources in a course. By default,
- all users are allowed to participate in these discussions.
+ LON-CAPA hosts discussions on all resources in a course. By default,
+ all users are allowed to participate in these discussions.
- For more information about discussion and the abilities available
- to you as a course coordinator, such as banning abusive users or
- hiding discussion postings, please see link.
+ If you do not wish certain types of users to be able to use the
+ discussion features, select those types below. Note your class
+ may not have all of these roles; you may safely ignore roles you
+ do not intend to use. (For instance, "Exam Proctor" is
+ generally useful only for large courses.)
- If you do not wish certain classes of users to be able to use the
- discussion features, select those classes below.
+ Types of users not allowed to participate in discussion can
+ still view any discussion that other users post.
- Question: Does inability to use discussion mean they simply can't
- post, or that they can't see the discussion at all?
-
+
Students - students will not be able to participate in discussions
Teaching Assistants - teaching assistants will not be able to participate in discussions
Instructor - instructors will not be able to participate in discussions
+
+ my $denied = &{$helper->{DATA}->{GETVAL}}('pch.roles.denied');
+ $denied =~ s/,/\|\|\|/g;
+ return $denied;
+
+
+ my $denied = $element->getValue();
+ $denied =~ s/\|\|\|/,/g;
+ if (&{$helper->{DATA}->{SETVAL}}('pch.roles.denied', $denied)) {
+ $denied =~ s/st/ students/;
+ $denied =~ s/in/ instructors/;
+ $denied =~ s/ta/ teaching assistants/;
+ $denied =~ s/ep/ exam proctors/;
+ if ($denied =~ /^[^,]*,[^,]*$/) { # only one comma
+ $denied =~ s/,/ and/g;
+ } else { # add "and" to last comma
+ $denied =~ s/,([^,]*)$/, and\1/;
+ }
+ if ($denied) {
+ $denied = substr($denied, 1) . ' not allowed to participate in discussion.';
+ $denied = ucfirst($denied);
+ } else {
+ $denied = 'Everyone can participate in discussion.';
+ }
+ return $denied;
+ } else {
+ return '';
+ }
+
- If you like, limited HTML can be allowed in the course discussions.
+ HTML can be allowed or banned inside of course discussion.
HTML banned: HTML will not be allowed in discussion postings.
HTML allowed: Discussion participants can use limited HTML in their postings.
+
+ return &{$helper->{DATA}->{GETVAL}}('allow_limited_html_in_feedback');
+
+
+ if (&{$helper->{DATA}->{SETVAL}}('allow_limited_html_in_feedback', $element->getValue())) {
+ if ($element->getValue() eq 'yes') {
+ return 'Limited HTML allowed in feedback.';
+ } else {
+ return 'HTML not allowed in feedback.';
+ }
+ }
+
+
+
+
+ Course members can provide feedback about the course. You can choose
+ who will receive the feedback, such as a different instructor or a
+ TA. Please enter their LON-CAPA address below, in the
+ form user:domain, where "user" and "domain"
+ are both the LON-CAPA username and LON-CAPA domain, not an email
+ address.
+
+
+ Advanced: You can send the feedback from different sections
+ to different people, by doing the following:
+
+ - Separate each entry with a comma.
+ - To send feedback to a certain address for different sections,
+ append the section name or names (separated by semi-colons)
+ in a parenthesized list after the user:domain.
+
+ For example,
+
+ john102:msu(001;002;003),bob293:msu(004;005;006),madeupname:here(007;008;009)
+
+ will route course feedback to "john102" for sections 1, 2, and 3, to
+ "bob293" for 4, 5, and 6, and to "madeupname:here" for
+ 7, 8, and 9. Note there is no requirement that the addresses be in any
+ particular domain.
+
+