--- loncom/interface/courseprefs.pm 2009/08/19 19:35:00 1.6 +++ loncom/interface/courseprefs.pm 2009/11/24 21:50:14 1.8.2.1 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set configuration settings for a course # -# $Id: courseprefs.pm,v 1.6 2009/08/19 19:35:00 raeburn Exp $ +# $Id: courseprefs.pm,v 1.8.2.1 2009/11/24 21:50:14 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -554,7 +554,6 @@ sub process_changes { if ($newvalues{$ext_entry} ne $values->{$stdrole.'.plaintext'}) { my $dupname = 0; if ($newvalues{$ext_entry} ne '') { - my $dupname = 0; if (grep(/^\Q$newvalues{$ext_entry}\E$/,@replacements)) { $dupname = 1; push(@{$disallowed->{'rolenames'}{'replacements'}},$newvalues{$ext_entry}); @@ -655,7 +654,7 @@ sub process_changes { } foreach my $key (keys(%env)) { if ($key =~ /^form\.\Q$entry\E_($match_username:$match_domain)$/) { - if ($env{'form.'.$key}) { + if ($env{$key}) { my $nothide = $1; if (!grep(/^\Q$nothide\E$/,@new_nothide)) { push(@new_nothide,$nothide); @@ -1641,7 +1640,7 @@ sub user_table { } else { my $num = 0; my @curr = split(/,/,$currvalue); - $output .= &Apache::loncommon::start_data_table(); + $output .= '
';
if ($num > 1) {
$output .= $lt->{'currone'};
@@ -1681,15 +1680,14 @@ sub user_table {
}
$output .= ' '. ' | '.
- &Apache::loncommon::end_data_table_row();
+ '
'.
$lt->{'add'}.' '. &select_recipient($item,$num,$cdom,$sections). ''. - ' | '.&Apache::loncommon::end_data_table_row().
- &Apache::loncommon::end_data_table();
+ '
'.&mt('Username').' '. + '
|