loncom/html/adm/helper/course.initialization.helper - view

File: [LON-CAPA] / loncom / html / adm / helper / course.initialization.helper
Revision 1.12: download - view: text, annotated - select for diffs
Thu Jul 24 17:53:59 2003 UTC (20 years, 11 months ago) by matthew
Branches: MAIN
CVS tags: version_1_0_3, version_1_0_2, version_1_0_1, version_1_0_0, version_0_99_5, version_0_99_4, HEAD

Bug 679: Need to be able to disable chatroom.
   Added plc (permission for live chat).
   lonchat.pm and lonchatfetch.pm now both call &lonnet::allowed('plc',...)
   lonparmset.pm, loncreatecourse.pm, and course.initialization.helper
       now all allow setting $ENV{'course.'.$courseid.'.plc.roles.deny'}
       lonparmset.pm also allows the user to set
       $ENV{'course.'.$courseid.'.plc.users.deny'}
   lonmenu.pm was modified to allow us to require the user both be in
       a course AND have permissions.
   mydesk.tab, roles.tab, and rolesplain.tab were modified to include the
       new role.

1: <helper title="Course Initialization Helper" requiredpriv='opa'> 2: 3: <exec> 4: my $courseid = $ENV{'request.course.id'}; 5: my $crsdom = $ENV{'course.'.$courseid.'.domain'}; 6: my $crsnum = $ENV{'course.'.$courseid.'.num'}; 7: $helper->{DATA}->{DOM} = $crsdom; 8: $helper->{DATA}->{CRS} = $crsnum; 9: 10: $helper->{DATA}->{FIRST_RUN} = $ENV{'course.'.$crsnum. 11: '.course.intialization.not.run'}; 12: # Delete the 'course.initialization.not.run' course environment 13: Apache::lonnet::put('environment', {'course.helper.not.run' => 0}, 14: $crsdom, $crsnum); 15: Apache::lonnet::coursedescription($ENV{'request.course.id'}); 16: 17: $helper->{DATA}->{GETVAL} = sub { 18: my @resultlist = &Apache::lonnet::get('environment', [shift()], 19: $helper->{DATA}->{DOM}, 20: $helper->{DATA}->{CRS}); 21: return $resultlist[1]; }; 22: $helper->{DATA}->{SETVAL} = sub { 23: my $name = shift; 24: my $val = shift; 25: if (&{$helper->{DATA}->{GETVAL}}($name) ne $val) { 26: &Apache::lonnet::put('environment', {$name=>$val}, 27: $helper->{DATA}->{DOM}, 28: $helper->{DATA}->{CRS}); 29: # Try to fix bug 1757 30: Apache::lonnet::coursedescription($ENV{'request.course.id'}); 31: return 1; 32: } else { 33: return 0; 34: } 35: } 36: </exec> 37: 38: <state name="START" title="Welcome to Your New LON-CAPA Course"> 39: <eval> 40: return $helper->{DATA}->{FIRST_RUN} ? 41: 'This Helper will set up your new LON-CAPA course and choose '. 42: 'which features will be active. You can '. 43: 're-visit it later to change settings in your course.' . 44: 45: 'If you have previous experience with coordinating LON-CAPA courses and '. 46: 'prefer not to use the helper, <a href="/adm/menu">click here</a> to leave.' 47: : 48: 'This helper will set up your LON-CAPA course and choose ' . 49: 'which features will be active.'; 50: </eval> 51: <message nextstate="COURSE_DESCRIPTION"> 52: All settings which you can change with this Helper can also be changed 53: by going to the PARM screen and clicking on the "Set 54: course environment" button. 55: 56: If you do not have experience coordinating LON-CAPA courses or if you 57: prefer the Helper interface, please click Next ->. 58: </message> 59: </state> 60: 61: <state name="COURSE_DESCRIPTION" title="Course Description"> 62: <message nextstate="FORBID_CHAT"> 63: The "Course Description" is the name of the course that will be 64: seen by the students. You may now modify the description and hit 65: "Next ->" to continue. 66: </message> 67: <string variable='description' size='60' > 68: <defaultvalue> 69: return &{$helper->{DATA}->{GETVAL}}('description'); 70: </defaultvalue> 71: <finalcode> 72: if (&{$helper->{DATA}->{SETVAL}}('description', $element->getValue())) { 73: return 'Course description changed to ' . $element->getValue() . 74: '.'; 75: } 76: </finalcode> 77: </string> 78: </state> 79: 80: <state name="FORBID_CHAT" title="Chat Participation"> 81: <message nextstate="FORBID_DISCUSSION"> 82: LON-CAPA has live chat functionality. This course will receive 83: its own chat room. You may deny students, TAs, or instructors 84: the right to access the chat room. 85: </message> 86: <choices variable="BANNED_CHAT_ROLES" multichoice="1" allowempty='1'> 87: <choice computer="st">Students - students will not be able to use or view the chat room.</choice> 88: <choice computer="ta">Teaching Assistants - teaching assistants will not be able use or view the chat room</choice> 89: <choice computer="in">Instructor - instructors will not be able to use or view the chat room</choice> 90: <defaultvalue> 91: my $denied = &{$helper->{DATA}->{GETVAL}}('plch.roles.denied'); 92: $denied =~ s/,/\|\|\|/g; 93: return $denied; 94: </defaultvalue> 95: <finalcode> 96: my $denied = $element->getValue(); 97: $denied =~ s/\|\|\|/,/g; 98: if (&{$helper->{DATA}->{SETVAL}}('plc.roles.denied', $denied)) { 99: $denied =~ s/st/ students/; 100: $denied =~ s/in/ instructors/; 101: $denied =~ s/ta/ teaching assistants/; 102: $denied =~ s/ep/ exam proctors/; 103: if ($denied =~ /^[^,]*,[^,]*$/) { # only one comma 104: $denied =~ s/,/ and/g; 105: } else { # add "and" to last comma 106: $denied =~ s/,([^,]*)$/, and\1/; 107: } 108: if ($denied) { 109: $denied = substr($denied, 1) . ' not allowed to participate in discussion.'; 110: $denied = ucfirst($denied); 111: } else { 112: $denied = 'Everyone can participate in discussion.'; 113: } 114: return $denied; 115: } else { 116: return ''; 117: } 118: </finalcode> 119: </choices> 120: </state> 121: 122: <state name="FORBID_DISCUSSION" title="Discussion Participation"> 123: <message nextstate="DISCUSSION_HTML"> 124: LON-CAPA hosts discussions on all resources in a course. By default, 125: all users are allowed to participate in these discussions. 126: 127: If you do not wish certain types of users to be able to use the 128: discussion features, select those types below. Note your class 129: may not have all of these roles; you may safely ignore roles you 130: do not intend to use. (For instance, "Exam Proctor" is 131: generally useful only for large courses.) 132: 133: Types of users not allowed to participate in discussion can 134: still view any discussion that other users post. 135: 136: </message> 137: <choices variable="BANNED_DISCUSSION_ROLES" multichoice="1" allowempty='1'> 138: <choice computer="st">Students - students will not be able to participate in discussions</choice> 139: <choice computer="ta">Teaching Assistants - teaching assistants will not be able to participate in discussions</choice> 140: <choice computer="in">Instructor - instructors will not be able to participate in discussions</choice> 141: <defaultvalue> 142: my $denied = &{$helper->{DATA}->{GETVAL}}('pch.roles.denied'); 143: $denied =~ s/,/\|\|\|/g; 144: return $denied; 145: </defaultvalue> 146: <finalcode> 147: my $denied = $element->getValue(); 148: $denied =~ s/\|\|\|/,/g; 149: if (&{$helper->{DATA}->{SETVAL}}('pch.roles.denied', $denied)) { 150: $denied =~ s/st/ students/; 151: $denied =~ s/in/ instructors/; 152: $denied =~ s/ta/ teaching assistants/; 153: $denied =~ s/ep/ exam proctors/; 154: if ($denied =~ /^[^,]*,[^,]*$/) { # only one comma 155: $denied =~ s/,/ and/g; 156: } else { # add "and" to last comma 157: $denied =~ s/,([^,]*)$/, and\1/; 158: } 159: if ($denied) { 160: $denied = substr($denied, 1) . ' not allowed to participate in discussion.'; 161: $denied = ucfirst($denied); 162: } else { 163: $denied = 'Everyone can participate in discussion.'; 164: } 165: return $denied; 166: } else { 167: return ''; 168: } 169: </finalcode> 170: </choices> 171: </state> 172: 173: <state name="DISCUSSION_HTML" title="HTML in Discussions"> 174: <message nextstate="FEEDBACK_ADDRESSES"> 175: HTML can be allowed or banned inside of course discussion. 176: </message> 177: <choices variable="HTML_ALLOWED"> 178: <choice computer="">HTML banned: HTML will not be allowed in discussion postings.</choice> 179: <choice computer="yes">HTML allowed: Discussion participants can use limited HTML in their postings.</choice> 180: <defaultvalue> 181: return &{$helper->{DATA}->{GETVAL}}('allow_limited_html_in_feedback'); 182: </defaultvalue> 183: <finalcode> 184: if (&{$helper->{DATA}->{SETVAL}}('allow_limited_html_in_feedback', $element->getValue())) { 185: if ($element->getValue() eq 'yes') { 186: return 'Limited HTML allowed in feedback.'; 187: } else { 188: return 'HTML not allowed in feedback.'; 189: } 190: } 191: </finalcode> 192: </choices> 193: </state> 194: 195: <state name="FEEDBACK_ADDRESSES" title="Feedback Addresses for Course Content"> 196: <message nextstate="FINAL"> 197: Course members can provide feedback about the course. You can choose 198: who will receive the feedback, such as a different instructor or a 199: TA. Please enter their LON-CAPA address below, in the 200: form user:domain, where "user" and "domain" 201: are both the LON-CAPA username and LON-CAPA domain, not an email 202: address. 203: </message> 204: <eval>return 'Your current LON-CAPA domain is "' 205: . $helper->{DATA}->{DOM} . 206: '".'; 207: </eval> 208: <string variable='feedback_addresses' size='60' > 209: <defaultvalue> 210: return &{$helper->{DATA}->{GETVAL}}('comment.email'); 211: </defaultvalue> 212: <finalcode> 213: if (&{$helper->{DATA}->{SETVAL}}('comment.email', $element->getValue())) { 214: return 'Comment address(es) updated to ' . $element->getValue() . 215: '.'; 216: } 217: </finalcode> 218: </string> 219: <message> 220: Advanced: You can send the feedback from different sections 221: to different people, by doing the following: 222: 223: <ul><li>Separate each entry with a comma.</li> 224: <li>To send feedback to a certain address for different sections, 225: append the section name or names (separated by semi-colons) 226: in a parenthesized list after the user:domain.</li></ul> 227: 228: For example, 229: 230: john102:msu(001;002;003),bob293:msu(004;005;006),madeupname:here(007;008;009) 231: 232: will route course feedback to "john102" for sections 1, 2, and 3, to 233: "bob293" for 4, 5, and 6, and to "madeupname:here" for 234: 7, 8, and 9. Note there is no requirement that the addresses be in any 235: particular domain. 236: </message> 237: </state> 238: 239: <state name="FINAL" title="Completed"> 240: <message>Your course is now set up. Please select the Finish Course 241: Initialization button to re-intialize the course with your chosen 242: settings. 243: 244: Remember that all of these settings can be modified in the PARMS 245: screen, by pushing the Course Environment button. 246: </message> 247: <final restartCourse='1' /> 248: </state> 249: </helper>