--- loncom/html/adm/helper/newslot.helper 2006/03/07 16:15:55 1.13 +++ loncom/html/adm/helper/newslot.helper 2006/03/07 16:29:14 1.14 @@ -281,30 +281,24 @@ $slot{'proctor'}=join(',',sort(keys(%proctors))); } - if ( $helper->{'VARS'}{'allowedsections'} !~/\S/ ); - - my @names; - foreach my $item (split(/\|\|\|/, $helper->{'VARS'}{'allowedsections'})) { - my ($uname,$udomain)=split(/:/,$item); - push(@names,"$uname:$udomain"); - } - - # make sure the choices are unique - my %proctors = map { ($_,1) } @names; - $slot{'allowedsections'}=join(',',sort(keys(%proctors))); + if ( $helper->{'VARS'}{'allowedsections'} =~/\S/ ) { + $slot{'allowedsections'}= + join(',',sort(split(/\|\|\|/, + $helper->{'VARS'}{'allowedsections'}))); } - if ( $helper->{'VARS'}{$which} !~/\S/ ); + if ( $helper->{'VARS'}{'allowedusers'} =~/\S/ ) { my @names; - foreach my $item (split(/\|\|\|/, $helper->{'VARS'}{$which})) { + foreach my $item (split(/\|\|\|/, + $helper->{'VARS'}{'allowedusers'})) { my ($uname,$udomain)=split(/:/,$item); push(@names,"$uname:$udomain"); } # make sure the choices are unique - my %proctors = map { ($_,1) } @names; - $slot{$which}=join(',',sort(keys(%proctors))); + my %users = map { ($_,1) } @names; + $slot{'allowedusers'}=join(',',sort(keys(%users))); } my $cname = $env{'course.'.$env{'request.course.id'}.'.num'};