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

Return to course.initialization.helper CVS log

Up to [LON-CAPA] / loncom / html / adm / helper

version 1.15, 2005/04/07 06:56:22	version 1.17, 2006/10/17 15:04:59
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 105	Line 105
$denied =~ s/,([^,]*)$/, and\1/;	$denied =~ s/,([^,]*)$/, and\1/;
}	}
if ($denied) {	if ($denied) {
$denied = substr($denied, 1) . ' not allowed to participate in discussion.';	$denied = substr($denied, 1) . ' not allowed to participate in live chatroom.';
$denied = ucfirst($denied);	$denied = ucfirst($denied);
} else {	} else {
$denied = 'Everyone can participate in discussion.';	$denied = 'Everyone can participate in live chatroom.';
}	}
return $denied;	return $denied;
} else {	} else {