version 1.11, 2003/07/21 14:08:30
|
version 1.12, 2003/07/24 17:53:59
|
Line 59
|
Line 59
|
</state> |
</state> |
|
|
<state name="COURSE_DESCRIPTION" title="Course Description"> |
<state name="COURSE_DESCRIPTION" title="Course Description"> |
<message nextstate="FORBID_DISCUSSION"> |
<message nextstate="FORBID_CHAT"> |
The "Course Description" is the name of the course that will be |
The "Course Description" is the name of the course that will be |
seen by the students. You may now modify the description and hit |
seen by the students. You may now modify the description and hit |
<nobr>"<b>Next -></b>"</nobr> to continue.<br /> |
<nobr>"<b>Next -></b>"</nobr> to continue.<br /> |
Line 77
|
Line 77
|
</string> |
</string> |
</state> |
</state> |
|
|
|
<state name="FORBID_CHAT" title="Chat Participation"> |
|
<message nextstate="FORBID_DISCUSSION"> |
|
<p>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.</p> |
|
</message> |
|
<choices variable="BANNED_CHAT_ROLES" multichoice="1" allowempty='1'> |
|
<choice computer="st"><b>Students</b> - students will not be able to 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> |
|
<defaultvalue> |
|
my $denied = &{$helper->{DATA}->{GETVAL}}('plch.roles.denied'); |
|
$denied =~ s/,/\|\|\|/g; |
|
return $denied; |
|
</defaultvalue> |
|
<finalcode> |
|
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 ''; |
|
} |
|
</finalcode> |
|
</choices> |
|
</state> |
|
|
<state name="FORBID_DISCUSSION" title="Discussion Participation"> |
<state name="FORBID_DISCUSSION" title="Discussion Participation"> |
<message nextstate="DISCUSSION_HTML"> |
<message nextstate="DISCUSSION_HTML"> |
LON-CAPA hosts discussions on all resources in a course. By default, |
LON-CAPA hosts discussions on all resources in a course. By default, |