Annotation of loncom/html/adm/helper/course.initialization.helper, revision 1.2
1.2 ! bowersj2 1: <helper title="Course Initialization Helper" requiredpriv='opa'>
! 2:
! 3: <exec>
! 4: $helper->{DATA}->{DOM} = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
! 5: $helper->{DATA}->{CRS} = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};
! 6:
! 7: $helper->{DATA}->{GETVAL} = sub {
! 8: my @resultlist = &Apache::lonnet::get('environment', [shift()],
! 9: $helper->{DATA}->{DOM},
! 10: $helper->{DATA}->{CRS});
! 11: return $resultlist[1]; };
! 12: $helper->{DATA}->{SETVAL} = sub {
! 13: my $name = shift;
! 14: my $val = shift;
! 15: if (&{$helper->{DATA}->{GETVAL}}($name) ne $val) {
! 16: &Apache::lonnet::put('environment', {$name=>$val},
! 17: $helper->{DATA}->{DOM},
! 18: $helper->{DATA}->{CRS});
! 19: return 1;
! 20: } else {
! 21: return 0;
! 22: }
! 23: }
! 24: </exec>
1.1 bowersj2 25:
26: <state name="START" title="Welcome to Your New LON-CAPA Course">
27: <message nextstate="FORBID_DISCUSSION">
1.2 ! bowersj2 28: This Helper will help you set up your new LON-CAPA course and choose
1.1 bowersj2 29: which LON-CAPA features will be active in your course. You can
1.2 ! bowersj2 30: re-visit it later to change settings in your course.
1.1 bowersj2 31:
32: <p><b>FIXME:</b> Figure out some way to detect whether this has been
33: run, and change that paragraph appropriatly.</p>
34:
35: <p>If you have previous experience with coordinating LON-CAPA courses and
1.2 ! bowersj2 36: prefer not to use the Helper,
! 37: <a href="/adm/navmaps">click here</a> to leave this Helper.</p>
1.1 bowersj2 38:
1.2 ! bowersj2 39: <p>All settings which you can change with this Helper can also be changed while the
1.1 bowersj2 40: course is running by going to the PARM screen and clicking on the "Set
41: course environment" button.</p>
42:
43: <p>If you do not have experience coordinating LON-CAPA courses, or if you
1.2 ! bowersj2 44: prefer the Helper interface, please click <nobr><b>Next -></b></nobr>.</p>
1.1 bowersj2 45: </message>
46: </state>
47:
48: <state name="FORBID_DISCUSSION" title="Discussion Participation">
49: <message nextstate="DISCUSSION_HTML">
1.2 ! bowersj2 50: LON-CAPA hosts discussions on all resources in a course. By default,
! 51: all users are allowed to participate in these discussions.
1.1 bowersj2 52:
53: <p>For more information about discussion and the abilities available
54: to you as a course coordinator, such as banning abusive users or
55: hiding discussion postings, please see <b>link</b>.</p>
56:
57: <p>If you do not wish certain classes of users to be able to use the
1.2 ! bowersj2 58: discussion features, select those classes below. Note your class
! 59: may not have all of these roles; you may safely ignore roles you
! 60: do not intend to use. (For instance, "Exam Proctor" is
! 61: generally useful only for large courses.)</p>
1.1 bowersj2 62:
63: <p><b>Question: Does inability to use discussion mean they simply can't
64: post, or that they can't see the discussion at all?</b></p>
65: </message>
1.2 ! bowersj2 66: <choices variable="BANNED_DISCUSSION_ROLES" multichoice="1" allowempty='1'>
1.1 bowersj2 67: <choice computer="st"><b>Students</b> - students will not be able to participate in discussions</choice>
68: <choice computer="ta"><b>Teaching Assistants</b> - teaching assistants will not be able to participate in discussions</choice>
69: <choice computer="in"><b>Instructor</b> - instructors will not be able to participate in discussions</choice>
1.2 ! bowersj2 70: <choice computer="ep"><b>Exam Proctor</b> - exam proctors will not be able to participate in discussions</choice>
! 71: <defaultvalue>
! 72: my $denied = &{$helper->{DATA}->{GETVAL}}('pch.roles.denied');
! 73: $denied =~ s/,/\|\|\|/g;
! 74: return $denied;
! 75: </defaultvalue>
! 76: <finalcode>
! 77: my $denied = $element->getValue();
! 78: $denied =~ s/\|\|\|/,/g;
! 79: if (&{$helper->{DATA}->{SETVAL}}('pch.roles.denied', $denied)) {
! 80: $denied =~ s/st/ students/;
! 81: $denied =~ s/in/ instructors/;
! 82: $denied =~ s/ta/ teaching assistants/;
! 83: $denied =~ s/ep/ exam proctors/;
! 84: if ($denied =~ /^[^,]*,[^,]*$/) { # only one comma
! 85: $denied =~ s/,/ and/g;
! 86: } else { # add "and" to last comma
! 87: $denied =~ s/,([^,]*)$/, and\1/;
! 88: }
! 89: if ($denied) {
! 90: $denied = substr($denied, 1) . ' not allowed to participate in discussion.';
! 91: $denied = ucfirst($denied);
! 92: } else {
! 93: $denied = 'Everyone can participate in discussion.';
! 94: }
! 95: return $denied;
! 96: } else {
! 97: return '';
! 98: }
! 99: </finalcode>
1.1 bowersj2 100: </choices>
101: </state>
102:
103: <state name="DISCUSSION_HTML" title="HTML in Discussions">
1.2 ! bowersj2 104: <message nextstate="FINAL">
1.1 bowersj2 105: <p>If you like, limited HTML can be allowed in the course discussions.</p>
106: </message>
107: <choices variable="HTML_ALLOWED">
108: <choice computer=""><b>HTML banned</b>: HTML will not be allowed in discussion postings.</choice>
109: <choice computer="yes"><b>HTML allowed</b>: Discussion participants can use limited HTML in their postings.</choice>
1.2 ! bowersj2 110: <finalcode>return 'Choices finalcode.';</finalcode>
1.1 bowersj2 111: </choices>
1.2 ! bowersj2 112: </state>
! 113:
! 114:
! 115:
! 116: <state name="FINAL" title="Completed">
! 117: <message>Your course is now set up.</message>
! 118: <final />
1.1 bowersj2 119: </state>
120: </helper>
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to course.initialization.helper CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / html / adm / helper