loncom/html/adm/helper/newslot.helper - diff

Return to newslot.helper CVS log

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

version 1.16, 2006/05/09 19:06:07	version 1.19, 2006/05/16 21:03:42
Line 218	Line 218
<nextstate>RESTRICTUSER</nextstate>	<nextstate>RESTRICTUSER</nextstate>
</condition>	</condition>

	<choices variable="useproctor">
	<choice computer='no'>No proctor checkin required for access.</choice>
	<choice computer='yes'>Require proctored access.</choice>
	<defaultvalue>
	my $default=&{$helper->{DATA}{origslot}}('proctor');
	if ($default) { return 'yes'; }
	return 'no';
	</defaultvalue>
	</choices>

<student variable="proctor" multichoice="1" coursepersonnel="1"	<student variable="proctor" multichoice="1" coursepersonnel="1"
activeonly="1" emptyallowed="1">	activeonly="1" emptyallowed="1">
<defaultvalue>	<defaultvalue>
my @defaults;	my @defaults;
my $default=&{$helper->{DATA}{origslot}}('proctor');	my $default=&{$helper->{DATA}{origslot}}('proctor');
if ($default) {	if ($default) {
$default=~ tr/@/:/;
@defaults=(split(',',$default));	@defaults=(split(',',$default));
}	}
return @defaults;	return @defaults;
Line 288	Line 297
$helper->{'VARS'}{'endunique'}];	$helper->{'VARS'}{'endunique'}];
}	}

if ( $helper->{'VARS'}{'proctor'} =~/\S/ ) {	if ( $helper->{'VARS'}{'useproctor'} eq 'yes'
	&& $helper->{'VARS'}{'proctor'} =~/\S/ ) {
my @names;	my @names;
# just need the username/domain throw away the other data	# just need the username/domain throw away the other data
# that <student> returns	# that <student> returns