--- loncom/interface/domainprefs.pm 2013/09/10 17:43:58 1.207 +++ loncom/interface/domainprefs.pm 2013/09/21 13:49:31 1.208 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set domain-wide configuration settings # -# $Id: domainprefs.pm,v 1.207 2013/09/10 17:43:58 bisitz Exp $ +# $Id: domainprefs.pm,v 1.208 2013/09/21 13:49:31 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1963,7 +1963,7 @@ sub print_quotas { sub print_requestmail { my ($dom,$action,$settings,$rowtotal) = @_; - my ($now,$datatable,%currapp,$rows); + my ($now,$datatable,%currapp); $now = time; if (ref($settings) eq 'HASH') { if (ref($settings->{'notify'}) eq 'HASH') { @@ -8074,7 +8074,7 @@ sub modify_coursedefaults { } foreach my $item (@numbers) { my ($currdef,$newdef); - my $newdef = $env{'form.'.$item}; + $newdef = $env{'form.'.$item}; if ($item eq 'anonsurvey_threshold') { $currdef = $domconfig{'coursedefaults'}{$item}; $newdef =~ s/\D//g;