--- loncom/html/adm/helper/newslot.helper 2015/09/27 22:35:50 1.32
+++ loncom/html/adm/helper/newslot.helper 2015/10/05 02:35:51 1.33
@@ -253,6 +253,21 @@
return &{$helper->{DATA}{origslot}}('ip');
+
+
+
Does each student need to use a unique IP address to access a resource with this slot?
+
+
+ No. The student's IP address is not tied for later access to the same resource.
+ Yes. The IP address on a student's first access to a resource is tied for later access.
+ Yes. The IP address on a student's first access to a resource is tied for later access (including post-answer date).
+
+ my $default=&{$helper->{DATA}{origslot}}('iptied');
+ if ($default eq 'yes') { return 'yes'; }
+ if ($default eq 'answer') { return 'answer'; }
+ return 'no';
+
+
@@ -403,6 +418,10 @@
$helper->{'VARS'}{'endunique'}];
}
+ if ( $helper->{'VARS'}{'iptied'} =~ /^(yes|answer)$/ ) {
+ $slot{'iptied'} = lc($helper->{'VARS'}{'iptied'});
+ }
+
if ( $helper->{'VARS'}{'useproctor'} eq 'yes'
&& $helper->{'VARS'}{'proctor'} =~/\S/ ) {
my @names;
@@ -460,6 +479,15 @@
&HTML::Entities::encode($slot{$which}).'';
}
}
+ if (exists($slot{'iptied'})) {
+ $result.="\n".' '.$labels{'iptied'}.': ';
+ if ($slot{'iptied'} eq 'yes') {
+ $result.=&Apache::lonlocal::mt('yes');
+ } elsif ($slot{'iptied'} eq 'answer') {
+ $result.=&Apache::lonlocal::mt('yes, including post-answer date');
+ }
+ $result.='';
+ }
if (exists($slot{'symb'})) {
$result.="\n".' '.$labels{'symb'}.': ';
if ($slot{'symb'} =~ /,/) {